#Include "Protheus.ch"

User Function AT890CMP()
Local aDados := PARAMIXB[1]
Local aCabec := PARAMIXB[2]
Local cTbl := PARAMIXB[3]
Local nX := 0
Local nY := 0
Local aCabecPe := {}
Local aAreaSB1 := {}

DbSelectArea("SB1")
aAreaSB1 := SB1->(GetArea())
SB1->(DbSetOrder(1))
If cTbl == "TFG"
aCabecPe := {"Tipo","Unidade"}
For nY := 1 to Len(aCabecPe)
aAdd(aCabec, aCabecPe[nY] )
For nX := 1 to Len(aDados)
If SB1->(DbSeek(xFilial("SB1")+aDados[nX,2]))
If aCabecPe[nY] == "Tipo"
aAdd(aDados[nX],SB1->B1_TIPO)
ElseIf aCabecPe[nY] == "Unidade"
aAdd(aDados[nX],SB1->B1_UM)
Endif
Else
aAdd(aDados[nX],"")
Endif
Next nX
Next nY
ElseIf cTbl == "TFH"
aCabecPe := {"Tipo","Unidade"}
For nY := 1 to Len(aCabecPe)
aAdd(aCabec, aCabecPe[nY] )
For nX := 1 to Len(aDados)
If SB1->(DbSeek(xFilial("SB1")+aDados[nX,2]))
If aCabecPe[nY] == "Tipo"
aAdd(aDados[nX],SB1->B1_TIPO)
ElseIf aCabecPe[nY] == "Unidade"
aAdd(aDados[nX],SB1->B1_UM)
Endif
Else
aAdd(aDados[nX],"")
Endif
Next nX
Next nY
Endif
RestArea(aAreaSB1)
aRetArray := {aDados,aCabec}
Return aRetArray

01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:Terceirização (SIGATEC)
Função:teca890.prw
País:Brasil
Ticket:Não há
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-13911


02. SITUAÇÃO/REQUISITO

Descreva a situação/requisito. 

03. SOLUÇÃO

Ponto de Entrada

Descrição:Microsiga Protheus®
Localização:Serviços
Programa Fonte:TECA890.PRW
Função:

AT890CMP

Parâmetros

Nome

Tipo

Descrição

PARAMIXBArray

Array para informações de alteração de horário.

01 -  Código da TGY

  PARAMIXB[1]: "000000001028897"

02 - Cód.Atendente

   PARAMIXB[2]:"00001989" 

03 - Data Inicial-

   PARAMIXB[3]:  

04 - Data Fim 

  PARAMIXB[4]:  


05 -Data de Referência

PARAMIXB[5]: 


06 - Turno

PARAMIXB[6]: "001"


07 - Sequência

PARAMIXB[7]: "01"


08 - Calendário Posicionado

PARAMIXB[8]: {}


09 - Calendário Geral

PARAMIXB[8]: {}

aHorasArray

01 - Horário

    01 - Hora Início 

    aHoras[1] : "07:00"

    02- Hora Fim

    aHoras[2] : "16:00"

02 - Agenda do Efetivo

RetornoaHoras

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

#Include "Protheus.ch"



User Function AT890CMP()
Local aDados := PARAMIXB[1]
Local aCabec    := PARAMIXB[2]
Local cTbl      := PARAMIXB[3]
Local nX        := 0
Local nY        := 0
Local aCabecPe  := {}
Local aAreaSB1  := {}

DbSelectArea("SB1")
aAreaSB1 := SB1->(GetArea())
SB1->(DbSetOrder(1))
If cTbl == "TFG"
    aCabecPe  := {"Tipo","Unidade"}
    For nY := 1 to Len(aCabecPe)
        aAdd(aCabec, aCabecPe[nY] )
        For nX := 1 to Len(aDados)
            If SB1->(DbSeek(xFilial("SB1")+aDados[nX,2]))
                If aCabecPe[nY] == "Tipo"
                    aAdd(aDados[nX],SB1->B1_TIPO)
                ElseIf aCabecPe[nY] == "Unidade"
                    aAdd(aDados[nX],SB1->B1_UM)
                Endif
            Else
                aAdd(aDados[nX],"")
            Endif
        Next nX
    Next nY
ElseIf cTbl == "TFH"
    aCabecPe  := {"Tipo","Unidade"}
    For nY := 1 to Len(aCabecPe)
        aAdd(aCabec, aCabecPe[nY] )
        For nX := 1 to Len(aDados)
            If SB1->(DbSeek(xFilial("SB1")+aDados[nX,2]))
                If aCabecPe[nY] == "Tipo"
                    aAdd(aDados[nX],SB1->B1_TIPO)
                ElseIf aCabecPe[nY] == "Unidade"
                    aAdd(aDados[nX],SB1->B1_UM)
                Endif
            Else
                aAdd(aDados[nX],"")
            Endif
        Next nX
    Next nY
Endif
RestArea(aAreaSB1)
aRetArray := {aDados,aCabec}
Return aRetArray


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.



04. DEMAIS INFORMAÇÕES

Outras ações/ações relacionadas 



05. ASSUNTOS RELACIONADOS