Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Marcos Wagner Junior

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcos Wagner Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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:
GFEA0500
GFEA0612

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

específico no botão "Enviar Cockpit Logístico" da tela de "

Entrega", acionada via menu da rotina de Romaneio de Carga

Tabela de Frete".

Localização:

Na tela Entrega 

No botão "Enviar Cockpit Logístico" do programa

 Romaneios

Tabela de

Carga

Fretes (

GFEA050

GFEA061).

Programa Fonte:

GFEA050

GFEA061 -

Romaneio

Tabela de

Carga

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

GFEA0612()
Local oWsNeoLog
Local oGrupo


 


oWsNeoLog := aAdd(U_

PROTPORT

EnvTOLGFE(

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

))


  dbSelectArea("

GW1

GV9")

dbSetOrder(9

  While GV9->(!Eof())

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.

     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