Segmento:

Supply Chain - Logística

Localização:

No botão "Enviar Cockpit Logístico" do programa Tabela de Fretes (GFEA061).

Programa Fonte:

GFEA061 - Tabela de Fretes

Retorno:

Não se aplica.

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

#INCLUDE "PROTHEUS.CH"

User Function GFEA0612()
Local oWsNeoLog
Local oGrupo

  oWsNeoLog := aAdd(U_EnvTOLGFE())

  dbSelectArea("GV9")
  While GV9->(!Eof())
     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