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 4

changes.mady.by.user Jeferson Willian Mondeki

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 uma Tag do XML da NFC-e e impressão 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.

Programa Fonte:LOJNFCE.prw
Parâmetros:

PARAMIXB - (Array) Numerico com o momento que estamos Exemplo: 1 = XML e 2 = Impressão

PARAMIXB - (Array) Caracter com a tag que estamos Exemplo: InfAdprod

Retorno:(Array) Array com os dados que serão alimentados no XML e quantidade de caracter que será impresso na DANFE. 
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