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 (cAlGV9)->(!Eof())

        oWsNeoLog := aAdd(aEnvNeo, U_EnvTOLGFE())

        While !(cAlGV9)->(Eof()) .And. !lCancelaEnvio

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

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

            oWsNeoLog:AddGrupo(oGrupo)

            (cAlGV9)->(DbSkip())

        EndDo
    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.