Descripción: | El punto de entrada A140IDOC se utiliza para manejar el número y la serie de la e-Fact importado por medio del TOTVS Colaboración. | ||||||||||||||||||||
Eventos: | El punto de entrada se ejecuta al procesar la importación de una e-Fact por medio del TOTVS Colaboración. | ||||||||||||||||||||
Programa fuente: | MATA140I.PRW | ||||||||||||||||||||
Parámetros: | PARAMIXB[1]: String que contiene el número del documento. | ||||||||||||||||||||
Devolución: | Array "aRet" de 4 posiciones, en el siguiente formato:
Obs.: Al devolver el código del proveedor es obligatorio devolver la tienda. |
Ejemplo:
#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