Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Punto de

...

entrada - A140IDOC

DescriçãoO Ponto Entrada é utilizado para manipular o número e a série da NFe importada por meio do TOTVS ColaboraçãoParâmetros, contendo o número do , contendo a série do , contendo o código do fornecedor, contendo a loja do fornecedor

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:

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

El punto de entrada se ejecuta al procesar la importación de una e-Fact por medio del TOTVS Colaboración.

Programa fuentePrograma Fonte:

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.

RetornoDevolución:

Array "aRet" de 4 posições, no seguinte posiciones, en el siguiente formato: 

Nome

Nombre

Tipo

Descrição

Descripción

Obrigatório

Obligatorio

aRet[1] 

String

Número

do

del documento

Sim

aRet[2]

String

Série do Documento

Serie del documento

Sim

aRet[3]

String

Código

do Fornecedor

del proveedor

Não

No

aRet[4]

String

Loja do Fornecedor

Tienda del proveedor

No

Não


Obs.: Ao retornar o código do fornecedor é obrigatório retornar a lojaAl 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