Luiz Fernando

Boa tarde, estava testando o CAT 52 e me deparei com um problema nessa parte do fonte. repeat Dia := FormatDateTime('dd/mm/yyyy', DataInicial); Resp := xECF_GeraRegistrosCAT52MFD( FileMF, Dia ) ; if (Resp <> 1) then raise EACBrECFERRO.Create( ACBrStr( 'Erro ao executar ECF_DownloadMF.'+sLineBreak+ DescricaoErroDLL(Resp) + sLineBreak + 'Para a data de: "' + Dia + '"' )); // próximo dia DataArquivo := IncDay( DataArquivo, 1 ); until DataArquivo > DataFinal; Se observar a linha "Dia := FormatDateTime('dd/mm/yyyy', DataInicial);" , sempre esta pegando a data inicial, não esta utilizando a variável "DataArquivo" para extrair os dados. Em anexo tem o arquivo com a correção proposta para ser analisada, no caso foi somente trocado o a variável para "DataArquivo". ACBrECFSwedaSTX.pas

Beleza, como falei, só possuo esse modelo aqui para efetuar os testes, se ocorre em outro modelo tudo bem. Vou testar em outros modelos, utilizando emuladores. Agradeço a atenção

Bom dia. Na minha ecf ficou certo, porém acredito que teria que testar em outros modelos, pois somente testei no modelo que possuo na empresa. Segue log do ACBr e imagem de como ficou o cupom fiscal. -- 22/09 09:49:25:170 IdentificaPAF(SISTEMA - pdv.exe , MD-5:F4D660553AC4CDE2FAEC94105F13F68A ) -- 22/09 09:49:25:175 TX -> [STX]Y[NUL][FS]>@MD-5:F4D660553AC4CDE2FAEC94105F13F68ASISTEMA - pdv.exe "[18] -- 22/09 09:49:25:283 09:49:25:283 RX <- ACK = 6 Falha: 0 -- 22/09 09:49:25:299 RX <- [NUL][NUL][NUL][NUL]

Isso, fica concatenado, como possuo só esse modelo de ECF da bematech, postei caso alguém pudesse efetuar os testes em outros modelos. Vou ver se consigo efetuar os testes em outro modelo, caso consiga postarei aqui o resultado. Obrigado

Sim, faço o envio do md5 e do nome do aplicativo, tanto que funciona perfeitamente em outros modelos, porém nesse não funciona. Segue log e imagem para conferência. -- 18/09 17:22:29:759 IdentificaPAF(SISTEMA - pdv.exe , MD-5:7262A809B771D96370F334A5306D44BB ) -- 18/09 17:22:29:761 TX -> [STX]Y[NUL][FS]>@MD-5:7262A809B771D96370F334A5306D44BB SISTEMA - pdv.exe [196][WAK] -- 18/09 17:22:29:871 17:22:29:871 RX <- ACK = 6 Falha: 0 -- 18/09 17:22:29:887 RX <- @[NUL][NUL][NUL]

Bom dia. Não sei se posso aproveitar esse tópico mesmo, estava efetuando testes no mesmo comando em uma impressora Bematech MP-4000, mas o nome do aplicativo não esta iniciando no começo da linha, esta ficando com espaços na frente. Como só possuo essa ECF da Bematech na empresa, efetuei a correção porém não tenho como garantir que estaria funcionando em outros modelos. Segue o código para analise e o arquivo em anexo com o ajuste efetuado. procedure TACBrECFBematech.IdentificaPAF(NomeVersao, MD5 : String); begin fsPAF := PadRight(Trim(MD5)+NomeVersao,84); EnviaComando(#62 + #64 + fsPAF) ; end; ACBrECFBematech.pas

Segue em anexo a unit, desculpa a demora para responder. ACBrECFEscECF.zip

Boa tarde. Efetuando testes na ECF ecfEscECF, após chamar o comando de fechamento do cupom, simulando um fim de papel, escolhendo a opção "NÃO" no questionamento de tentar novamente, o componente gera um exceção, até ai tudo perfeito, porém chamando o comando de cancelamento logo após a exceção, a variável interna fsEmPagamento fica "True", chegando nessa parte do código. procedure TACBrECFEscECF.CancelaCupom; var UltimoCOO: Integer; Est: TACBrECFEstado; begin RespostasComando.Clear; //Sendo que esse comando TACBrECF( fpOwner ).Estado, retorna que a impressora esta em pagamento. Est := TACBrECF( fpOwner ).Estado; case Est of estRelatorio : FechaRelatorio ; estVenda, estPagamento, estNaoFiscal : begin //Caindo nessa parte do código, porém esse comando retorna o erro de Categoria 11 e Motivo 2. //Código original EscECFComando.CMD := 31; EnviaComando; //Código alterado, com possível correção, não sei se foi a melhor forma, porém funcionou. EscECFComando.CMD := 31; try EnviaComando; except if (EscECFResposta.CAT = 11) and fsEmPagamento then begin fsEmPagamento := False; CancelaCupom; end else raise; end; end;

Beleza, vou efetuar os testes

Boa tarde. O comando IdentificaPAF para a impressora Epson TM-T800F referente ao convênio 09/09, não esta jogando o nome do aplicativo para a segunda linha. O código esta da seguinte forma procedure TACBrECFEscECF.IdentificaPAF(NomeVersao, MD5: String); begin // 48 e 36 para garantir que NomeVersao inicie na linha 2 fsPAF := PadRight(MD5,48) + PadRight(NomeVersao,36) ; EscECFComando.CMD := 24; EscECFComando.AddParamString( fsPAF ) ; EnviaComando; end; Porém a epson aceita até 57 colunas conforme o comando Ativar, código com a sugestão da correção procedure TACBrECFEscECF.IdentificaPAF(NomeVersao, MD5: String); begin // 48 e 36 para garantir que NomeVersao inicie na linha 2 fsPAF := PadRight(MD5,fpColunas) + PadRight(NomeVersao,36) ; EscECFComando.CMD := 24; EscECFComando.AddParamString( fsPAF ) ; EnviaComando; end;

Somente utilizei o windows XP resolveu o problema.

Boa Tarde. Esta acontecendo o seguinte erro ao enviar os dados da venda. Erro no simulador. [2013-09-19 14:10:13.207]:INICIO EMISSAO [2013-09-19 14:10:13.213]:Carregando CFe. [2013-09-19 14:10:13.217]:Validando CFe. [2013-09-19 14:10:13.219]:Completando CFe. [2013-09-19 14:10:13.311]:Assinando CFe. [2013-09-19 14:10:13.325]:ERRO NA EMISSAO Arquivo SATTeste.ini. [Emit] CNPJ=11111111111111 IE=111111111111 IM=123123 RegTributario=1 RegTribISSQN=0 IndRatISSQN=1 [swH] CNPJ=22222222222222 Alguém já passou por isso?