Histórico da Página

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#INCLUDE 'PROTHEUS.CH'
#INCLUDE "PONCALEN.CH"

User Function AT580HR()
Local cCodTGY   := PARAMIXB[1]
Local cCodAtend := PARAMIXB[2]
Local cDtIni    := PARAMIXB[3]
Local cDtFim    := PARAMIXB[4]
Local cTurno    := PARAMIXB[5]
Local cSeq      := PARAMIXB[6]
Local cEntra1   := "06:33"
Local cSaida1   := "12:00"
Local cEntra2   := "13:00"
Local cSaida2   := "17:33"
Local aHoras    := {}
Local nI        := 1

For nI := 1 To 2

    If nI == 1 
        Aadd(aHoras, {cEntra1,;
                    cSaida1})

    ElseIf nI == 2
        Aadd(aHoras, {cEntra2,;
                    cSaida2})
        
    EndIf   

Next nI 

Return aHoras