Imprimir Vinculado (Duplicata)

[Werner_Marques]

Olá, bom dia!

 

Estou realizando a homologação do PAF e preciso imprimir um comprovante vinculado, referente à venda finalizada com pagamento em duplicata.

 

Entrei em contato com um homologador PAF da minha região e ele me passou a seguinte informação:

"A impressora fiscal deve estar cadastrada com a forma de pagamento por meio de BOLETO, ou DUPLICATA, onde não há uma entrada de valor em espécie mas um documento ou relatório gerencial que o cliente assina se responsabilizando pelas dívida e as duplicatas e boletos correspondentes."

 

Existe alguma função ou procedure que imprima tal comprovante vinculado?

 

Desde já obrigado!

[André Ferreira de Moraes]

A reposta que vc recebeu é pra usar "relatório gerencial". O comprovante vinculado só é permitido para transações TEF.

[Werner_Marques]

Muito obrigado, André! 

 

Já estou tentando imprimir um relatório gerencial usando a procedure RelatorioGerencial, na qual eu tenho que passar como parâmetro um objeto TStrings. Porém, não estou conseguindo passar esse parâmetro. Já tentei passar um memo, mas não deu certo.

 

Vc poderia me dar alguma dica? 

[Daniel Simoes]

Memo.Lines ??

 

Memo = TMemo

Memo.Lines = TString

[André Ferreira de Moraes]

Use os comandos separadamente.

ACBrECF1.AbreRelatorioGerencial(Indice: Integer);

ACBrECF1.LinhaRelatorioGerencial( onst Linha: AnsiString; const IndiceBMP: Integer );

ACBrECF1.LinhaRelatorioGerencial( onst Linha: AnsiString; const IndiceBMP: Integer );

ACBrECF1.LinhaRelatorioGerencial( onst Linha: AnsiString; const IndiceBMP: Integer );

ACBrECF1.LinhaRelatorioGerencial( onst Linha: AnsiString; const IndiceBMP: Integer );

ACBrECF1.LinhaRelatorioGerencial( onst Linha: AnsiString; const IndiceBMP: Integer );

ACBrECF1.LinhaRelatorioGerencial( onst Linha: AnsiString; const IndiceBMP: Integer );

....

ACBRECF1.FechaRelatorio;

  ACBrECF1.AbreRelatorioGerencial;
  ACBRECF1.LinhaRelatorioGerencial('LINHA 1');
  ACBRECF1.LinhaRelatorioGerencial('LINHA 2');
  ACBRECF1.LinhaRelatorioGerencial('LINHA 3');
  ACBRECF1.LinhaRelatorioGerencial('LINHA 4');
  ACBRECF1.FechaRelatorio;

[Werner_Marques]

Sim, foi justamento o Memo.Lines que eu passei como parâmetro.

 

Agora tentei fazer dessa forma:

 

with impfiscal.acbr1 do begin

               AbreRelatorioGerencial();

               LinhaRelatorioGerencial('================================================');

               LinhaRelatorioGerencial('        <n>COMPROVANTE DE PAGAMENTO</n>');

               LinhaRelatorioGerencial('================================================');

               ...

 end;

 

Infelizmente também deu erro, exatamente em AbreRelatorioGerencial().

 

Vc teria mais alguma dica?

[André Ferreira de Moraes]

Vc precisa passar o índice do relatório que pretende abrir. Emita uma leitura X e veja quais estão cadastrados no seu ECF.

[Werner_Marques]

Infelizmente, o problema ainda continua. =/

[Daniel Simoes]

Vc verificou se existe algum relatório Gerencial programado ??

 

Veja a implementação no Demo do ACBr (ECFTeste)

[André Ferreira de Moraes]

Infelizmente, o problema ainda continua. =/

Anexe o log gerado.