Linha Microsiga Protheus

Árvore de páginas

GFEYWS01 - Funcionalidades Adicionais na Criação do Registro de Romaneio

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEWS01

Descrição:

O ponto de entrada permitirá gravar dados em campos específicos do registro de Romaneio pela rotina de Webservice de importação de romaneios.

Localização:

No momento da criação/alteração do registro de romaneio.

Programa Fonte:

GFEXWSFUN - Serviço de Integração do Frete Embarcador (SIGAGFE)

Parâmetros:

NomeTipoDescrição
PARAMIXB[1]ArrayArray contendo os dados que serão gravados no GFE

Retorno:

Este ponto de entrada não possui retorno

Exemplo: GFEYWS01
#INCLUDE "PROTHEUS.CH"
User Function GFEYWS01()
Local aDados := PARAMIXB[1]
Local nLenDados := Len(aDados)
	RecLock(GWN,.F.)
	GWN->GWN_CDTPOP := aDados[ nLenDados   ]
	GWN->GWN_PLACAD := aDados[ nLenDados-1 ]
	GWN->GWN_PLACAM := aDados[ nLenDados-2 ]
	GWN->GWN_PLACAT := aDados[ nLenDados-3 ]
	GWN->GWN_DISTAN := Val(aDados[ nLenDados -4 ])
	MsUnlock()
Return