GFEA00612 - Permitir processamento no botão "Enviar Cockpit Logístico"

Características do Requisito

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

Ponto de Entrada:	GFEA0612
Descrição:	Permitir processamento específico no botão "Enviar Cockpit Logístico" da tela de "Tabela de Frete".
Localização:	No botão "Enviar Cockpit Logístico" do programa Tabela de Fretes (GFEA061).
Programa Fonte:	GFEA061 - Tabela de Fretes
Parâmetros:	Não se aplica.
Retorno:	Não se aplica.

Exemplo: GFEA0509

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)

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.