#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 |