Histórico da Página
...
Criação do ponto de entrada para manipulação em conflitos de integração RH, afastamento, demissão ou ferias.
03. SOLUÇÃO
Ponto de
...
Entrada
Descrição: | Microsiga Protheus® | |||||||||
---|---|---|---|---|---|---|---|---|---|---|
Localização: | Serviços | |||||||||
Programa Fonte: | TECXFUNB.PRW | |||||||||
Função: | TecConfAlo | |||||||||
Parâmetros |
| |||||||||
Retorno: |
Bloco de código | ||||
---|---|---|---|---|
| ||||
#INCLUDE |
Exemplo de utilização.
...
'protheus.ch' |
...
#INCLUDE 'parmtype.ch' |
...
#INCLUDE "FWMVCDEF.CH" |
...
User Function ATPECONFA() |
...
MsgAlert("Ponto de entrada no afastamento, demissão ou ferias para o atendente que possuir vinculo com RH e ABB gerada no período. Passado por parâmetro o tipo de conflito. 'Esse conflito é do tipo: " + cAusencia + ".' ", "Atenção")
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 |
04. DEMAIS INFORMAÇÕES
Não há.
...