Painel de líderes

Consegui fazer com ajudo do suporte da Captta, ficou assim. procedure TDM.ACBrTEFD_NFCeAntesFinalizarRequisicao(Req: TACBrTEFDReq); begin if Req.Header = 'CRT' then begin if (ACBrTEFD_NFCe.GPAtual in [gpTefDial]) and (varIntegracaoDireta = 'S') then Req.GravaInformacao(800, 001, IntToStr(varTipoCartao)); Onde varTipoCartao = 0 Credito e = 1 Debito.

Bom dia a todos. Verifiquei que em algumas vezes o comando LeituraXSerial com a ESC-ECF da Bematech, ocorre uma falha na comunicação e após o componente reenviar o comando, ele entra em loop infinito na leitura de status. Analisando o componente, verifiquei que para dois comandos já foi realizado um tratamento contra esse loop infinito, portando adicionei a esse tratamento o comando: 20, que é responsável pela emissão da leitura x por serial. Arquivos de log: log_ecf_erro_Leitura_X_Serial.txt - possui informação do erro do loop infinito. log_ecf_correcao_Leitura_X_Serial.txt - possui informações do tratamento do loop infinito. log_ecf_erro_Leitura_X_Serial.txt log_ecf_correcao_Leitura_X_Serial.txt ACBrECFEscECF.pas

Boa pegada... Obrigado pela contribuição... já está no SVN

Fiz as alterações nessa nova classe, descendendo de TACBrEscPosEpson como você explicou. No create dessa classe mantive apenas o código referente ao corte na impressão que é o que realmente possui diferenças. Segue em anexo o arquivo modificado: ACBrEscPosStar.pas