Histórico da Página
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: |
|
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