Impressora Não Responde

[Digito Sistemas]

Boa tarde,

 

Estou com problemas na hora de imprimir o comprovante TEF.

 

Estou usando o TEF Discado.

 

Estou passando assim:

 

...         if ACBrTEFD1.CRT( cValorTEF1 ,'0', IntToStr( iCOOVenda)) then

               begin

                  bPodeEncerrarVenda:= true;   // estorno

               end

               else

                  bPodeEncerrarVenda:= false;   // estorno

            end;

..

 

Onde esta em negrito, ja tentei usar '1', '2', '01', '02', 'Cartão', 'Cartao' e sempre me retorna a mensagem de erro. "Impressora não responde' Deseja imprimir novamente?'".

 

Como vê. Sou novato e nem sei se é aqui que passa o indice da forma de pagamento.

Lembrando que quando a venda é feita com dinheiro sai tudo legal.

 

Na leitura X aparece assim:

 

.......

-- RELATÓRIO GERENCIAL -----

Nº Relatório                              CER

01 Relatório Geral                   0017

------MEIOS DE PAGAMENTO----------

Nº Meio Pagamento Tef     Valor Acumulado (R$)

01 Dinheiro                N                           100,00

02 Cartao                  S                               0,00

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

...

 

Pensei que fosse problema de impressora.

Então testei uma Epson e Troquei para uma Bematech, porém o erro é o mesmo.

 

 

Atenciosamente,

 

 

Dirceu Morais 

 

 

[Daniel Simoes]

Veja no LOG gerado pelo ACBrECF o verdadeiro motivo do Erro...

 

Tentou rodar o mesmo teste com o TEFDDemo ?

[Digito Sistemas]

Acho que o "Bichinho" ficou com medo do fórum rsrsrsrs.

 

Mudei a linha: 

 

...         if ACBrTEFD1.CRT( cValorTEF1 ,'0', IntToStr( iCOOVenda)) then

               begin

                  bPodeEncerrarVenda:= true;   // estorno

               end

               else

                  bPodeEncerrarVenda:= false;   // estorno

            end;

..

 

Para:

..

if ACBrTEFD1.CRT( cValorTEF1 ,'02', IntToStr( iCOOVenda)) then

..

 

é funcionou, sendo que eu já havia feito isso.

 

Mas de qualquer forma valeu.

 

T+

[Daniel Simoes]

Faz sentido...

 

'0' - Não existe

'01' - Existe mas não aceita CCD (veja o campo TEF na sua Leitura X)

'02' - Existe e aceita CCD