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 'parmtype.ch'
#INCLUDE "FWMVCDEF.CH"
 

User Function At330HRUser Function At330HR()

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})
        
    ElseIf nI == 2
        Aadd(aHoras, {cEntra2,;
                    cSaida2})
        
    EndIf   

Next nI 

Return aHoras