Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Punto de entrada - A140IDOC

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.
PARAMIXB[2]: String con la serie del documento.
PARAMIXB[3]: String que contiene el código del proveedor.
PARAMIXB[4]: String que contiene la tienda del proveedor.

Devolución:

Array "aRet" de 4 posiciones, en el siguiente formato: 

Nombre

Tipo

Descripción

Obligatorio

aRet[1] 

String

Número del documento

Sí

aRet[2]

String

Serie del documento

Sí

aRet[3]

String

Código del proveedor

No

aRet[4]

String

Tienda del proveedor

No


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