Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Jeferson Willian Mondeki

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alberto Deviciente

Gravado em

Chave

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

LJContTg

Descrição:

Este ponto de entrada realiza a alimentação de permite adicionar informações em uma Tag do XML da NFC-e e a impressão de seu conteúdo da DANFE (NFC-e). 
É passado como parâmetro um Caracter com o momento em que estamos, exemplo: 1 - XML ou 2 - Impressão Cupom e tag que será alimentada.

Deve ser retornado o array no seguinte formato: 

aRet[1][1] - Caracter, com os dados que será enviado a Tag no XML.
aRet[1][2] - Numérico, com a quantidade de caractere que será impresso na DANFE.


A chamada do ponto de entrada ocorre em dois momentos:

  • Momento 1: Montagem do XML da NFC-e
  • Momento 2: Impressão do Comprovante da NFC-e


É através do primeiro parâmetro passado no Ponto de Entrada que determina em que momento o ponto de entrada está sendo executado, sendo:

  • 1=Montagem do XML
  • 2=Impressão Cupom


Além deste, é passado também o segundo parâmetro que tem por objetivo identificar a tag em questão que será alimentada. Exemplo: "InfAdprod"

Programa Fonte:LOJNFCE.prwPRW
Parâmetros:

PARAMIXB[1] - (ArrayNumérico) Numerico com o momento que estamos Exemplo: o ponto de entrada está sendo executado (1=XML e 2=Impressão)

PARAMIXB[2] - (ArrayCaractere) Caracter com a tag que estamos do XML em questão: Exemplo: InfAdprod

Retorno:

(Array) Array com os dados que serão alimentados no XML e quantidade de

caracter

caractere que será impresso na DANFE. 


Deve ser retornado um array no seguinte formato: 

aRet[1][1] - (Caractere), com os dados que serão adicionados na Tag do XML.
aRet[1][2] - (Numérico), com a quantidade de caractere que será impresso na DANFE (NFC-e).

Exemplo:

User Function LJContTg()
 
Local aRet      aRet      := {}                    // Retorno do PE.
Local cMomento  nMomento  := ParamIxb[1] // Momento que estamos 1 = XML e 2 = Impressão.
Local cTag  cTag           := ParamIxb[2] // Tag que será alimentada. 

If cMomento nMomento ==  "1"  1 .And. cTag == "infAdProd"
    Aadd(aRet,{" Teste 123456789 teste ", 7}) 
ElseIf cMomento nMomento ==  "2"  2 .And. cTag == "infAdProd"   
    Aadd(aRet,{" Teste 123456789 teste ", 5})
EndIf

Return aRet