Histórico da Página

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

Campos presentes no array aDocFrete

F1_DOC, F1_SERIE, F1_FORNECE, F1_LOJA, F1_EMISSAO, F1_COND, F1_EST, F1_RECBMTO, F1_CHVNFE, F1_TIPO, F1_FORMUL, F1_ESPECIE, F1_ORIGEM

Campos presentes no array aItensDoc

D1_DOC, D1_SERIE, D1_FORNECE, D1_LOJA, D1_EMISSAO, D1_COD, D1_UM, D1_QUANT, D1_VUNIT, D1_TOTAL, D1_BASECOF, D1_ALQCOF, D1_VALCOF, D1_BASEPIS, D1_ALQPIS, D1_VALPIS

Dependendo do tipo de imposto, podem estar presentes os seguintes campos:

D1_VALICM, D1_PICM, D1_BASEICM, D1_ICMSRET, D1_VALISS, D1_ALIQISS, D1_BASEISS

User Function GFEA0655()

//Recebe os arrays enviados pelo MSEXECAUTO
Local aDocFrete := ParamIXB[1]
Local aItemDoc := ParamIXB[2]
//Array de Retorno
Local aRet := {}
Local nPos
Local cLoja

//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] == "F1_LOJA" } )
If !Empty(nPos) .Or. nPos <> 0
cLoja := aDocFrete[nPos][2]
aDocFrete[nPos][2] := "29"
EndIf

//Adiciona um novo campo para integração dos itens
Aadd(aItemDoc[1], {"D1_OPER" , "EN" , Nil} )

/*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 dos Itens*/
Aadd(aRet, {aDocFrete, aItemDoc})

Return aRet

Microsiga_Protheus11

Todos

Todas

PARAMIXB[1] = Array com as informações do Documento de Frete
PARAMIXB[2] = Array com as informações dos Itens
PARAMIXB[3] - Código de Operação (Utilizado para encontrar a TES)

Array

GFEA065 - Digitação de Documentos de Frete