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

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

Campos presentes no array aDocFrete:

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

Campos presentes no array aNotFis

Chave primária da nota - F1_DOC, F1_SERIE, F1_FORNECE, F1_LOJA

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

Microsiga_Protheus11

Todos

Todas

PARAMIXB[1] - Array contendo as informações do Documento de Frete integrado

PARAMIXB[2] - Array contendo as informações da Nota Fiscal