Impressão do comprovante TEF

[Cilleni]

Quando envio o comando para imprimir as transações pendentes, sempre da a mensagem Impressora não responde. Tentar Novamente?, mesmo estando a impressora ligada (Emul20100-Bematech).

Fiz os teste no tefdemo, e acontece o mesmo problema.

Alguem sabe me dizer se é um erro do emulador?

Obrigada.

Cilleni

[André Ferreira de Moraes]

Provavelmente vc está tentando usar uma forma de pagamento que não permite vinculado ou o valor da transação TEF é diferente do valor informado na forma de pagamento.

[Cilleni]

as formas de pagamento existem sim e permitem viculado.

[Cilleni]

achei que o problema fosse no emulador.

Hoje estou fazendo os testes em uma impressora de um cliente,

e o problema continua.

se alguem poder me ajudar

agradeço.

[EMBarbosa]

Olá Cilleni,

Lembrando que isso pode acontecer se o Delphi parar numa exception e você não clicar no botão "continuar" rapidamente.

Favor testar com o demo e anexar o log gerado. Rode fora do Delphi, só pra ter certeza.

[Cilleni]

Oi EMBarbosa.

Descobri o que esta acontecendo. Tenho cadastrado na ECF 4 formas de pagamento : Dinheiro, Cheque, Cartao, Prazo

Quando verifico as formas de pagamento através do ACBR, totdas permitem vinculado com exceção da primeira (DINHEIRO)

Mas na leitura da memoria fiscal está como vinculado somente a segunda forma de pagamento (CHEQUE)

Entao .... estou mesmo utilizado uma forma de pagamento que não permite vinculado por isso esta saindo a impressão do TEF em relatório gerencial (Exatamento o que o anfm havia me explicado)

Mas por que o ACBR retorna todas as formas de pagamento como vinculado sem verificar o que esta na impressora?

[EMBarbosa]

Se isso está acontecendo, é algum erro. Você tem alguma impressora física pra poder testar?

[Cilleni]

Estou utilizando um impressora física.

[EMBarbosa]

Qual modelo?

[Cilleni]

veja só o fonte do ACBR:

procedure TACBrECFBematech.CarregaFormasPagamento; { funçao Lenta +- 3 sec. }

Var StrRet : AnsiString ;

Cont : Integer ;

FPagto : TACBrECFFormaPagamento ;

Descr : String ;

begin

//BytesResp := 1925 ;

StrRet := RetornaInfoECF( '32' ); //, 8 ) ;

// 1 + (52 * 16) + (52 * 10) + (52 * 10) + (52 * 1)

// 1 + 832 + 520 + 520 + 52 = 1925

inherited CarregaFormasPagamento ; { Cria fpFormasPagamentos }

For Cont := 1 to 50 do

begin

Descr := trim( copy( StrRet, (Cont * 16) - 15 + 1, 16) ) ;

if Descr <> '' then

begin

FPagto := TACBrECFFormaPagamento.create ;

FPagto.Indice := IntToStrZero(Cont,2) ;

FPagto.Descricao := Descr;

FPagto.PermiteVinculado := (Cont > 1); {Apenas 1-Dinheiro nao permite}

FPagto.Total := RoundTo( StrToFloatDef( BcdToAsc(copy(StrRet,(Cont*10) - 9 + 833,10) ),0) / 10000, -4) ;

fpFormasPagamentos.Add( FPagto ) ;

end ;

end ;

end;

[Daniel Simoes]

Realmente... precisamos rever essa rotina para usar o comando 49, que retorna quais FPGs aceitam vinculado... Vou tentar fazer isso

[Daniel Simoes]

Enviei para o SVN uma alteração para usar o Registrador correto... Por favor atualize e verifique se funcionou..