Chamar Msg "tentar Novamente"

[Cleber Ferreira]

Boa tarde a todos!

 

Estou imprimindo um relatorio gerencial e durante o erro do mesmo (desligamento, falta de papel) gostaria que aparecesse a mensagem de tentar novamente e, caso optasse por SIM, imprima novamente o gerencial e se optar por não, entrasse no expcetion do meu código. Em resumo seria igual o que acontece com o TEF. 

Segue trecho do meu código:

{ abre impressao }
        DMACBr.ECF.ReTentar := True;
        if DMACBr.ECF.Estado <> estRelatorio then
          begin
            DMACBr.ECF.CorrigeEstadoErro;
            DMACBr.ECF.AbreRelatorioGerencial(StrToInt(doc.Indice));
            { 1ª via }
            DMACBr.ECF.LinhaRelatorioGerencial(vinculado.Text);
            { pula linhas e corta papel }
            DMACBr.ECF.PulaLinhas(DMACBr.ECF.LinhasEntreCupons);
            DMACBr.ECF.CortaPapel;
            { 2ª via }
            DMACBr.ECF.LinhaRelatorioGerencial(vinculado.Text);
            DMACBr.ECF.FechaRelatorio;
            DMACBr.ECF.ReTentar := False;
            LancaOutroDocumento('RG');
          end;

Alguem tem alguma ideia de como posso fazer isso?

[Juliomar Marchetti]

Boa noite

tentou ver o código do tef!

[Daniel Simoes]

O ACBrTEFD já faz todo esse tratamento... Veja o demo dele...

[EMBarbosa]

Não use o Retentar := True;

Use um flag e um loop como o repeat ou o while.

[Cleber Ferreira]

O ACBrTEFD já faz todo esse tratamento... Veja o demo dele...

 

O ACBrTEFD Daniel, disponibiliza esse tipo de função até mesmo a impressão não tendo nada a ver com TEF?

[Daniel Simoes]

Não.. ele é projetado para trabalhar com TEFs

[Cleber Ferreira]

Não use o Retentar := True;

Use um flag e um loop como o repeat ou o while.

 

Vlw pela dica Elton, serviu pra mim aqui..

 

abraço

[EMBarbosa]

Vlw pela dica Elton, serviu pra mim aqui..

 

abraço

Que bom! (: