Comprovante Tef Ecf Bematech 4200

[softcom.wendel]

Boa tarde

 

Estamos começando a Utilizar as Novas ECF Blindadas MP 4200 em nosso estado e tive alguns problemas.

 

procedure TDMECF.ACBrTEFDComandaECFImprimeVia(TipoRelatorio
  : TACBrTEFDTipoRelatorio; Via: Integer; ImagemComprovante: TStringList;
  var RetornoECF: Integer);
begin
  try
    case TipoRelatorio of
      trGerencial:
        begin
          vLocalErro := 'Imprimindo Via Gerencial';
          ECF.LinhaRelatorioGerencial(ImagemComprovante.Text);
        end;

      trVinculado:
        begin
          vLocalErro := 'Imprimindo Via Vinculado';
          ECF.LinhaCupomVinculado(ImagemComprovante.Text)
        end;
    end;

    RetornoECF := 1;
  except
    FrmPdv.LblStatus.Caption :=
      'Ocorreu um erro no TEF: Imprimindo Via Gerencial ' + vLocalErro;

    Gravar_Log(FrmPdv.LblStatus.Caption);

    RetornoECF := 0;
  end;
end;
 

Nesta Função quando enviamos ao ECF ele dá erro, segue o log para verificação...Alguém já passou por isso?

 

Agradeço a Atenção

 

[softcom.wendel]

Localizei que o Problema ocorre neste Ponto

 

procedure TDMECF.ACBrTEFDComandaECF(Operacao: TACBrTEFDOperacaoECF;

  Resp: TACBrTEFDResp; var RetornoECF: Integer);

      ....

 

      opePulaLinhas:

        begin

          ECF.PulaLinhas(ECF.LinhasEntreCupons); ----O ECF NAO ACEITA ESTE COMANDO DENTRO DO CCD

          ECF.CortaPapel(true);

          Sleep(200);

        end;

 

[softcom.wendel]

Corrigi fazendo da seguinte forma

 

      opePulaLinhas:

        begin

          //Novos Modelos Convenio 09/09 Não aceitam o comando 

          If ECF.Modelo <> ecfEscECF then

            ECF.PulaLinhas(ECF.LinhasEntreCupons);

          ECF.CortaPapel(true);

          Sleep(200);

        end;

 

[Juliomar Marchetti]

Bom dia

Ótimo.. parabéns.. estava escrevendo a resposta mas você conseguiu corrigir pois é código seu certo!