Daniel Simoes

Isso é proposital... Como podemos saber se o ECF já acabou a Impressão ? Alguns modelos sinalizam isso de forma bem clara, ou ainda enviam um sinal enquanto o ECF está trabalhando... mas outros não (é o caso da Sweda)... e para piorar, eles respondem ao comando enviado, muito antes do termino da Impressão... então no ACBrECF, há uma propriedade que pode ser ligada, para que o mesmo faça uma verificação adicional, após receber a Resposta do ECF... a propriedade AguardaImpressao Ex: procedure TACBrECFSwedaSTX.LeituraX ; begin AguardaImpressao := True ; EnviaComando( '15' ) ; end; Quando a mesma está ligada, após o ACBrECF receber a resposta do ECF, ele envia um novo comando, solicitando o Status do ECF.. alguns ECFs não conseguem responder, enquanto estão trabalhando... e nesse caso, sabemos que ele está ocupado... O que deve estar ocorrendo... é que a rotina VerificaFimImpressao não deve estar considerando os estados de Erro... vou analisar os Logs e verificar como podemos implementar

O Numero de Colunas pode ser mudado em ACBrECF001.INI [Impressora] Colunas=48

Notei que o ACBrECF está enviando a alíquota como TC Quando na verdade, deveria ser um número de 01 a 16 ou seja, o numero do índice que corresponde a T 17,00, no seu ECF pode ser algum problema no método "AchaICMSAliquota".. mas acabei de testar e não conseguir reproduzir o problema... Por favor verifique se seus fontes estão atualizados corretamente...

Sua correção realmente é necessária... Por favor experimente com essa Unit em anexo ACBrECFSwedaSTX.zip

Dessa maneira o retorno de "PathDLL" nunca será vazio... e nesse caso, forçará a aplicação a distribuir a DLL no mesmo diretório do .EXE... Alguns programadores preferem usar o c:\windows\system32 ou c:\windows\syswow64 para distribuir as DLLs dos fabricantes...

Atribua um nome de arquivo para ACBrECF1.ArqLog

Boa.. já enviei para o SVN...

Você tem certeza que já baixou as correções descritas nesse tópico ? (atualizou pelo SVN)

O ACBrECF apenas repassa os erros gerados pelo ECF... Observe no Log se o ECF está retornando erro..

Fórum errado... movendo...

Compartilhe o seu SATTeste.ini, para testes...

Parece tudo correto... Minha suspeita é algo errado no Demo em Delphi... Tente com essa versão já compilada, em Lazarus

Essa briga de String x AnsiString é complicado com diferentes versões do Delphi...

Por favor teste com o SATTeste.exe primeiro... ao que parece, você não programou o evento "OnGetCodigoDeAtivacao"

Verifique se seus fontes estão corretos... Se o problema persistir... forneça um passo a passo detalhado sobre como gerar o problema usando a aplicação Demo SATTeste.exe

Deixe: Regime Trib.ISSQN = RTISSNenhum

A solução parece correta... Muito obrigado pelo retorno...

Pelos seus logs, nem todos erros foram no GrandeTotal.. observe duas ocorrências na tentativa de Leitura do Num.Serial Qual é o seu TimeOut ? (veja no Log), e deixe no mínimo 10 aparentemente você tem problemas de comunicação com a porta Serial...Se você usa o USB Com virtual da Bametech isso pode ser o problema... Se você usa uma porta Serial real... veja aqui as possíveis causas: Geralmente esse procedimento resolve:

Por favor tente com a Unit em anexo: ACBrECFEscECF.zip ACBrECFEscECF.zip

Não podemos modificar a ACBrECF.pas... pois isso afetaria todos os ECFs...

Vi que vc está usando o emulador versão 2.8.6...Baixei o mesmo, fiz alguns testes e realmente notei alguns problemas - A SAT não retem o código de ativação e assinatura (tem que reprogramar os mesmos cada vez que o Emulador é reiniciado) - O SAT está dando um erro em uma TAG que ele mesmo deveria preencher (vCFe) Tente com a versão 2.8.3 emulador_off_line_v2_8_3.zip emulador_off_line_v2_8_3.zip

O erro do SAT é claro ao afirmar que você não está usando a assinatura de vinculação correta... Verifique se você configurou no demo, a String "SGR-SAT SISTEMA DE GESTAO E RETAGUARDA DO SAT" Verifique com a DIMEP, se essa é realmente a assinatura

Não precisa editar XML, apenas siga as instruções do PPT do fisco para ativar... que basicamente é: Ativar e Associar a assinatura...

Vocês poderiam fazer um mini projeto que demonstre o erro ? Tentem ainda usar o Demo do ACBrMail....

Muito bem... teste a sua teoria... modifique a rotina de acordo com o que você postou... Tente mandar os 9 ou mais espaços a cada linha procedure TACBrECFEscECF.PulaLinhas(NumLinhas: Integer); var Linha: String; begin if NumLinhas = 0 then NumLinhas := LinhasEntreCupons ; if IsEpson or IsBematech then begin Linha := DupeString( StringOfChar(' ',10)+#10, NumLinhas ) ; LinhaRelatorioGerencial( Linha ) ; exit; end; inherited PulaLinhas(NumLinhas); end;