Linha Microsiga Protheus

Page tree

Ponto de Entrada - A140IDOC

Descrição:

O Ponto de Entrada A140IDOC é utilizado para manipular o número e a série da NFe importada por meio do TOTVS Colaboração.

Eventos:

O Ponto de Entrada é executado ao processar a importação de uma NFe por meio do TOTVS Colaboração.

Programa Fonte:

MATA140I.PRW

Parâmetros:

PARAMIXB[1]: String, contendo o número do documento.
PARAMIXB[2]: String, contendo a série do documento.
PARAMIXB[3]: String, contendo o código do fornecedor.
PARAMIXB[4]: String, contendo a loja do fornecedor.

Retorno:

Array "aRet" de 4 posições, no seguinte formato: 

Nome

Tipo

Descrição

Obrigatório

aRet[1] 

String

Número do documento

Sim

aRet[2]

String

Série do Documento

Sim

aRet[3]StringCódigo do FornecedorNão
aRet[4]StringLoja do FornecedorNão


Obs.: Ao retornar o código do fornecedor é obrigatório retornar a loja.

 

Exemplo:


#Include 'Protheus.ch'

 

User Function A140IDOC()

 

Local cDoc := PARAMIXB[1]

Local cSerie  := PARAMIXB[2]

Local cCodFor := PARAMIXB[3]

Local cLojaFor := PARAMIXB[4]

Local aRet  := {}

 

If cCodFor == "F000459" .And. cLojaFor == "01"

            aAdd(aRet,cDoc)

            aAdd(aRet,"AZB")

            aAdd(aRet,cCodFor)

            aAdd(aRet,cLojaFor)

Else

            aAdd(aRet,cDoc)

aAdd(aRet,cSerie)

            aAdd(aRet,cCodFor)

            aAdd(aRet,cLojaFor)

EndIf

Return aRet