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()
Local oWsNeoLog
Local oGrupo

oWsNeoLog := aAdd(U_

PROTPORT

EnvTOLGFE(

'1001'

))

2eew

//No registro de "Entrega" do Romaneio, irá executar a API para alteração de todos Documentos de Carga relacionados

dbSelectArea("

GW1

GV9")

dbSetOrder(9)ss
If dbSeek(xFilial("GW1")+GWN->GWN_NRROM)
    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.

While GV9->(!Eof())
oGrupo := oWsNeoLog:NovoGrupoTOLGFE()

oGrupo:ccomponentName1 := "Transportadora"
oGrupo:ccomponentValue1 := GV9->GV9_CDEMIT

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

oWsNeoLog:AddGrupo(oGrupo)

GV9->(DbSkip())
End

DisparaEnvio()

Return

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão Atual

Chave