| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Gestão de Serviços |
| Função: | TECXFUNB.PRW |
| Ticket: | Não há. |
| Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-6505 |
Criação do ponto de entrada para manipulação em conflitos de integração RH, afastamento, demissão ou ferias.
| Descrição: | Microsiga Protheus® | |||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| Localização: | Serviços | |||||||||
| Programa Fonte: | TECXFUNB.PRW | |||||||||
| Função: | TecConfAlo | |||||||||
| Parâmetros |
| |||||||||
| Retorno: |
#INCLUDE 'protheus.ch' #INCLUDE 'parmtype.ch' #INCLUDE "FWMVCDEF.CH" User Function ATPECONFA() Local aConfa := PARAMIXB[1][1] Local aAgenda := PARAMIXB[2] Local cMsg := "" cMsg := "O atendente: " + aConfa[2] + CRLF cMsg += "Matricula: " + aConfa[1] + CRLF cMsg += "Codigo do atendente: " + aConfa[3] + CRLF cMsg += "Numero do contrato: " + aConfa[4] + CRLF cMsg += "Esta preste a realizar um(a): " + aConfa[9] + CRLF cMsg += "Periodo de agenda: " + DToC(aConfa[7]) + " até " + DToC(aConfa[8]) + CRLF If EMPTY(aConfa[10]) cMsg += "Com Afastamento para a data: " + DToC(aConfa[5]) + " até " + DToC(aConfa[6]) + " Gerando conflito na(s) agenda(s)" + CRLF Else cMsg += "Com demissao para a data: " + DToC(aConfa[10]) + " gerando confilto na agenda." EndIf AtShowLog(cMsg,"Atendente",/*lVScroll*/,/*lHScroll*/,/*lWrdWrap*/,.F.) Return
Não há.
