Linha Microsiga Protheus

Page tree

GFEA0654 - Alteração/Inclusão de campos na integração do Documento de Frete com o Recebimento do ERP Protheus

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA0654

Descrição:

Possibilitar a Alteração e/ou Inclusão de campos na integração do Documento de Frete com o Recebimento do ERP Protheus.

Localização:

Antes de realizar a integração do Documento de Frete com o ERP.

Programa Fonte:

GFEA065 - Documento de Frete

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]ArrayInformações do Documento de Frete
MV_PAR11 - Data inicial para filtro das notas
MV_PAR12 - Data final para filtro das notas
MV_PAR13 - 2-Inclusao ; 1=Exclusao
MV_PAR14 - Rementente das notas contidas no conhecimento
MV_PAR15 - Loja do remetente das notas contidas no conhecimento
MV_PAR16 - Tipo das notas contidas no conhecimento: 1=Normal ; 2=Devol/Benef
MV_PAR17 - 1=Aglutina itens ; 2=Nao aglutina itens
MV_PAR18 - UF das notas contidas no conhecimento
MV_PAR21 - Valor do conhecimento
MV_PAR22 - Formulario Proprio 2=Sim 1=Nao
MV_PAR23 - Numero da nota de conhecimento
MV_PAR24 - Serie da nota de conhecimento
MV_PAR25 - Fornecedor da nota de conhecimento
MV_PAR26 - Loja do fornecedor da nota de conhecimento
MV_PAR27 - TES a ser utilizada nos itens do conhecimento
MV_PAR28 - Valor da base de calculo do ICMS retido
MV_PAR29 - Valor do ICMS retido
MV_PAR31 - Condicao de pagamento
Emissao - Data de emissao do conhecimento
F1_ESPECIE - Especie do documento
Natureza - Natureza do documento 		Sim
PARAMIXB[2]ArrayInformações da Nota Fiscal
Chave primária da nota - F1_DOC, F1_SERIE, F1_FORNECE, F1_LOJA 		Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

axRet1

Array

Informações do Documento de Frete modificadas e/ou incluídas 

Sim

axRet2

Array

Informações da Nota Fiscal modificadas e/ou incluídas.

Sim

 

Exemplo: GFEA0654
User Function GFEA0654() 
	//Recebe os arrays enviados pelo MSEXECAUTO 
	Local aDocFrete := ParamIXB[1] 
	Local aNotFis := ParamIXB[2] 
	//Array de Retorno 
	Local aRet := {} 
	//Trocando o valor de um valor que já existe no array. 
	//aDocFrete [1] Nome do Campo integrado 
	// [2] Valor que está sendo enviado 
	// [3] Compatibilidade 
	nPos := aScan( aDocFrete, {|x| x[1] == "MV_PAR26" } ) 
	If !Empty(nPos) .Or. nPos <> 0 
		cLoja := aDocFrete[nPos][2] 
		aDocFrete[nPos][2] := "29" 
	EndIf 
	//O retorno do ponto de entrada, aguarda um array com duas posições 
	//A primeira contendo o array com as informações do Documento de Frete 
	//E a segunda contendo o array com as informações da Nota Fiscal/Documento de Carga*/ 
	Aadd(aRet, {aDocFrete, aItemDoc}) 
Return aRet