Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Ana Paula Tiete Lira Martins

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcos Vinicius Ferreira

Gravado em

Chave

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

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

oor

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

2

4 posições, no seguinte formato: 

Nome

Tipo

Descrição

Obrigatório

aRet[1] 

String

Numero

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]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf

...

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