Linha Microsiga Protheus

Árvore de páginas

GFEXWS02 – Funcionalidade Específica no Método PUTDATA do Web Service Padrão do GFE 

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEXWS02

Descrição:

Funcionalidade específica no Método PUTDATA do Web Service padrão do GFE.

Localização:

Método PUTDATA do Web Service padrão do GFE.

Programa Fonte:

GFEXWS - Serviço de integração do Frete Embarcador (SIGAGFE)

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]Array

Contém as informações recebidas pelo Web Service

Sim
PARAMIXB[2]String

Código da Tabela de Dados

Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

cRetStringString de RetornoSim

 

Exemplo: GFEXWS02
#Include 'Protheus.ch'
User Function GFEXWS02()
Local aDados := PARAMIXB[1]
Local cTabela := PARAMIXB[2]
Local cRet := ""
	If cTabela == "XYZ"
		dbSelectArea("GWN")
		RecLock("GWN",.T.)
		GWN->GWN_FILIAL := Alltrim(aDados[1])
		GWN->GWN_NRROM := GETSXENUM("GWN","GWN_NRROM") 
		GWN->GWN_CDTRP := Alltrim(aDados[3])
		GWN->GWN_CDTPOP := BuscaParam("MV_TPOPEMB","",Alltrim(aDados[1]))
		GWN->GWN_CDCLFR := Alltrim(aDados[5])
		GWN->GWN_DTIMPL := DDATABASE
		GWN->GWN_HRIMPL := TIME()
		GWN->GWN_OBS := 'Criação de romaneios via coletor de dados'
		GWN->GWN_SIT := '1'
		GWN->GWN_CALC := '2'
		GWN->GWN_AGRUP := '2'
		GWN->GWN_BLOQPF := '2'
		GWN->GWN_ORI := '1'
		GWN->GWN_USUIMP := USRRETNAME(RETCODUSR())
		GWN->(MsUnlock())
	EndIf
	cRet := "TRUE"
Return cRet