Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Impressão de Cabeçalho e/ou Rodapé do Comprovante de Relatório Gerencial e de Crédito e Débito

Localização:

Venda Assistida (LOJA701), TOTVSPDV (STIPosMain)

Eventos:

Este Ponto de Entrada é acionado ao imprimir um Relatorio Gerencial e/ou Comprovante de Crédito e Débito, se o processo foi executado com sucesso.

Programa Fonte:

SIGALOJA: LOJXECF.PRX

TOTVSPDV: STFECFCONTROL.PRW

Função:

SIGALOJA: IFTXTNFis() e IFRelGer()

TOTVSPDV: PrintTextNotFiscal()

Parâmetros

cExpA1 variável do tipo texto contendo o texto padrão que será impresso

Retorno:

NomeTipoDescriçãoObrigatório
aRet[1]CaracterCabeçalho do textoS
aRet[2]CaracterRodapéS

 

Exemplos:

#Include 'Protheus.ch'

User Function LJ7101()
Local LINHA         := CHR(10)
Local cCabecalho:= ""
Local cRodape     := ""
Local cTexto        := PARAMIXB[1]   //Conteúdo para impressão vindo das rotinas de Impressão de CCD e do Relatório Gerencial, somente para consulta
Local aRet            := {"",""}

cCabecalho := "<b> Inclusão de Cabeçalho no Texto de Impressão </b>" + LINHA
cRodape := LINHA + "<b> Inclusão de Rodape </b>"

aRet[1] := cCabecalho
aRet[2] := cRodape

Return aRet

----------------------------------------------------------------------------------------------------------------------------------------------------

#Include 'Protheus.ch'

User Function LJ7101()
Local LINHA         := CHR(10)
Local cCabecalho:= ""
Local cRodape     := ""
Local cTexto        := PARAMIXB[1]   //Conteúdo para impressão vindo das rotinas de Impressão de CCD e do Relatório Gerencial, somente para consulta
Local aRet            := {"",""}
Local cNumDoc   := ""
Local cSerDoc     := ""

If Select("SL1") > 0

     cNumDoc := SL1->L1_DOC
     cSerDoc   := SL1->L1_SERIE 

EndIf

cCabecalho := "<b> Inclusão de Cabeçalho no Texto de Impressão </b>" + LINHA
cCabecalho += " Numero do Documento : " +  cNumDoc  + " Série: " + cSerDoc + LINHA

cRodape := LINHA + "<b> Inclusão de Rodape </b>"

aRet[1] := cCabecalho
aRet[2] := cRodape

Return aRet