Linha Microsiga Protheus

Árvore de páginas

GFE11006 - ALTERAR O EMITENTE USADO PARA DADOS DO EMBARCADOR

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

 

Ponto de Entrada - GFE11006

Descrição:

Alterar o emitente usado para dados do embarcador.

Localização:

Ao montar a linha 311 do arquivo

Programa Fonte:

GFEA110 - Exportar Notas Fiscais

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]AlfanuméricoVersão do EDI. Atualmente está funcionando apenas para versão 3.1Sim
PARAMIXB[2]NuméricoRECNO da tabela GW1 (Documento de Carga)Sim

Retorno:

NomeTipoDescriçãoObrigatório
cCodigoAlfanuméricoCódigo do EmitenteSim

 

Exemplo: GFE11006
User Function GFE11006()
Local cVerEdi := PARAMIXB[1]
Local nRecGW1 := PARAMIXB[2]
Local aAreaGW1 := GW1->(GetArea())
Local cEmisDc
   If nRecGW1 != GW1->(RecNo())
      GW1->(dbGoTo(nRecGW1))
   EndIf
   If cVerEdi == '3.1'
      cEmisDc := GW1->GW1_EMISDC
   EndIf
   RestArea(aAreaGW1)
Return cEmisDc