Local cCodTGY := PARAMIXB[1] Local cCodAtend := PARAMIXB[2] Local cDtIni := PARAMIXB[3] Local cDtFim := PARAMIXB[4] Local cDtRef := PARAMIXB[5] Local cTurno := PARAMIXB[6] Local cSeq := PARAMIXB[7] Local cEntra1 := "07:00" Local cSaida1 := "12:00" Local cEntra2 := "13:00" Local cSaida2 := "16:00" Local aHoras := {} Local nI := 1
For nI := 1 To 2
If nI == 1 Aadd(aHoras, {cEntra1,; cSaida1})
If TecConvHr(cEntra1) > TecConvHr(cSaida1) aCalend[CALEND_POS_DATA_APO] := aCalend[CALEND_POS_DATA_APO] - 1 //Data de Referencia aCalend[CALEND_POS_DATA] := aCalend[CALEND_POS_DATA] - 1 //Data EndIf
ElseIf nI == 2 Aadd(aHoras, {cEntra2,; cSaida2}) EndIf
Next nI
Return aHoras
Obs: O retorno sempre deverá ser um array com duas posições, sendo elas a primeira o horário de início e a segunda o horário de fim. O array do calendário é passado por parâmetro, ela é gerada apartir do criacalend.
Aviso
title
Atenção
A configuração dos horários informados no ponto de entrada deve estar igual a configuração da escala utilizada na projeção das agendas, ou seja, se a escala tiver duas entradas e duas saídas, o ponto de entrada deve respeitar este modelo.
