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. | ||||||||||||||||||||
Retorno: | Array "aRet" de 4 posições, no seguinte formato:
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