Histórico da Página

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

#INCLUDE "PROTHEUS.CH"
User Function GFEA0500()
 
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
If dbSeek(xFilial("GW1")+GWN->GWN_NRROM)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.