Olá pessoal
Estou emitindo as transações pendentes do TEF da seguinte forma:
lbMensagem.Caption := 'Imprimindo Confirmação de Transações TEF. Aguarde...';
for I := 0 to PafEcf.TEF.RespostasPendentes.Count-1 do
begin
impTef := '';
for J := 0 to PafEcf.TEF.RespostasPendentes.ImagemComprovante1aVia.Count-1 do
begin
impTef := impTef + PafEcf.TEF.RespostasPendentes.ImagemComprovante1aVia[J] + #13;
end;
frmImpTef.lbMensagem.Caption := impTef;
frmImpTef.QuickRep1.Print;
impTef := '';
for J := 0 to PafEcf.TEF.RespostasPendentes.ImagemComprovante2aVia.Count-1 do
begin
impTef := impTef + PafEcf.TEF.RespostasPendentes.ImagemComprovante2aVia[J] + #13;
end;
//esse lbMensagem é um QRLabel presente dentro de uma Band em um Quickreport
frmImpTef.lbMensagem.Caption := impTef;
frmImpTef.QuickRep1.Print;
end;
end
Este código acima, ocorre após a emissão do DANFE. Subentendendo-se que a transação já foi aprovada antes da geração e envio da NFC-e. Também substitui, em todos o eventos do tef necessários, que dependiam do ECF, por novo código (onde se precisava buscar o subtotal, valor pago, valor restante a pagar, ...).
E no arquivo ACBrTEFDClass.pas, dentro da procedure "TACBrTEFDClass.VerificarTransacaoPagamento(Valor: Double)", eu comentei uma parte do código:
{ Lendo o SubTotal do ECF }
with TACBrTEFD(Owner) do
begin
{ if not (EstadoECF in ['V','P','N']) then
raise Exception.Create(
ACBrStr('ECF deve estar em Estado de "Venda", "Pagamento" ou "Não Fiscal"') ); }
....
Isso resolveu meu problema!
O único receio, é que, após o danfe, a impressora corta o papel parcialmente, e em seguida imprime primeira e segunda vias separadas por cortes parciais.
Gostaria de saber se há problema nisto?
Pamploni