GFEA0500 - Permitir processamento antes da gravação do registro de Entrega

Características do Requisito

Linha de Produto:	Microsiga Protheus
Segmento:	Supply Chain - Logística
Módulo:	SIGAGFE

Ponto de Entrada:	GFEA0500
Descrição:	Permitir processamento antes da gravação do registro de Entrega (GWU). Esse ponto tem por objetivo algum processamento específico, na confirmação da tela de "Entrega", acionada via menu da rotina de Romaneio de Carga.
Localização:	Na tela Entrega do programa Romaneios de Carga (GFEA050).
Programa Fonte:	GFEA050 - Romaneio de Carga
Parâmetros:	Não se aplica.
Retorno:	Não se aplica.

#INCLUDE "PROTHEUS.CH"
User Function GFEA0500()

U_PROTPORT('1001')
//No registro de "Entrega" do Romaneio, irá executar a API para alteração de todos Documentos de Carga relacionados
dbSelectArea("GW1")
dbSetOrder(9)
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.