Histórico da Página

...

Exemplo: GFEA0509

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#INCLUDE "PROTHEUS.CH"

User

Function

GFEA0500

GFEA0612()

U_PROTPORT('1001')2eew
//No registro de "Entrega" do Romaneio, irá executar a API para alteração de todos Documentos de Carga relacionados
dbSelectArea("GW1")
dbSetOrder(9)ss

Local oWsNeoLog
Local oGrupo

If (cAlGV9)->(!Eof())

oWsNeoLog := aAdd(aEnvNeo, U_EnvTOLGFE())

dbSelectArea("GV9")
While !(cAlGV9)GV9->(!Eof()) .And. !lCancelaEnvio
oGrupo oGrupo := oWsNeoLog:NovoGrupoTOLGFE()

oGrupo oGrupo:ccomponentName1 := "Transportadora"
oGrupo oGrupo:ccomponentValue1 := (cAlGV9)GV9->GV9_CDEMIT

oGrupo oGrupo:ccomponentName2 := "Tipo de serviço"
oGrupo oGrupo:ccomponentValue2 := ''
If (cAlGV9) If GV9->GV9_CPLTS == '1'
oGrupo:ccomponentValue2 := 'Fechado'
ElseIf (cAlGV9) ElseIf GV9->GV9_CPLTS == '2'
oGrupo:ccomponentValue2 := 'Itinerante'
ElseIf (cAlGV9) ElseIf GV9->GV9_CPLTS == '3'
oGrupo:ccomponentValue2 := 'Fracionado'
EndIf EndIf

oWsNeoLog oWsNeoLog:AddGrupo(oGrupo)

(cAlGV9) GV9->(DbSkip())
EndDoEnd

EndIf

(cAlGV9)->(dbCloseArea())

If !lCancelaEnvio .And. !Empty(aEnvNeo[Len(aEnvNeo)])
DisparaEnvio(aEnvNeo[Len(aEnvNeo)])
aSize(aEnvNeo,0)
EndIf

If dbSeek(xFilial("GW1")+GWN→GWN_NRROM) oGrupo:ccomponentValue1 := (cAlGV9)->GV9_CDEMIT
    While GW1->GW1_FILIAL == xFilial("GW1") .AND. GW1->GW1_NRROM == GWN->GWN_NRROM
        U_PROTPORT('1201') //Atualiza Status dos DCs para "ENTREGUE" (Quando Aprovar Entregue) ou "CANCELADO" (Quando Cancelar Entrega)
        U_XYZABC

()

//Atualiza Data/Hora de Entrega e Transportadora (Quando Aprovar Entregue) ou limpa a Data/Hora de Entrega (Quando Cancelar Entrega)

GW1->(dbSkip())

End
EndIf

Return

.t.

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave