Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3476 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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
 
 
 
 
  • Este tópico foi criado há 3476 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.