Daniel Simoes

Analise o LOG... Veja se há alguma configuração a ser feita no TMVirtualPort Aqui não leva esse tempo... Mas no geral o ECF 09 é bem mais lento que o do convênio 85

Ivan, A migração para o trunk2 é aconselhável... Eu deixarei de commitar no "trunk" em breve... Porém faça isso com calma e use uma V.M... Faça seus testes, o "trunk2" está estável, (a não ser para NFSe e GNRE)... E você notará uma grande aumento de velocidade na comunicação de NFe e derivados

Você consegue instalar a impressora como uma Impressora normal do Windows ? Se SIM, você pode seguir as dicas desse Post:

Já passou da hora do Delphi ter uma suite de componentes nativos para Criptografia e acesso a certificados digitais... Talvez esse componente (pago) faça algo do genero: https://www.eldos.com/sbb/

Não tive tempo de analisar

Você precisa preencher um nome de arquivo em "Arq.Log" da aba PosPrinter

Desculpe.... mas eu não uso Delphi... não estou a par...

Já está no SVN

Italo, Eu aconselho deixarmos a NFSe para o final... assim será um impedimento apenas para quem realmente usa ela... e eu acho que terei tempo para te ajudar

Veja esse post: http://www.projetoacbr.com.br/forum/topic/22540-erro-de-validação-do-conteúdo/

Algum problema com o Editor do Fórum ???

O Help não está no pacote de instalação ? Há uma versão Web nesse endereço: http://acbr.sourceforge.net/ACBrMonitor/ACBrMonitor.html Veja ainda, os links que passei no post anterior...

configure o modelo como "ppEscBematech"

Não sei se a correção proposta é correta... Isso impediria o programador de fazer algo como: ACBrECF1.IdentificaConsumidor( CPF, NOME, ENDERECO ); ACBrECF1.AbreNaoFiscal; compreendi o problema... vou pensar em algo... Experimente dessa maneira: procedure TACBrECFEscECF.AbreNaoFiscal(CPF_CNPJ: String; Nome: String; Endereco: String); begin if Trim(CPF_CNPJ) <> '' then Consumidor.AtribuiConsumidor(CPF_CNPJ,Nome,Endereco); EscECFComando.CMD := 16; EscECFComando.AddParamString(LeftStr(OnlyNumber(Consumidor.Documento),14)) ; EscECFComando.AddParamString(LeftStr(Consumidor.Nome,30)) ; EscECFComando.AddParamString(LeftStr(Consumidor.Endereco,79)) ; Consumidor.Zera; EnviaComando; RespostasComando.Clear; RespostasComando.AddField( 'COO', EscECFResposta.Params[0] ); RespostasComando.AddField( 'DataHora', EscECFResposta.Params[1] ); RespostasComando.AddField( 'VendaBruta', EscECFResposta.Params[2] ); RespostasComando.AddField( 'NumSerie', EscECFResposta.Params[3] ); fsEmPagamento := false ; SalvaRespostasMemoria(False); end;

Veja no LOG o que pode estar ocorrendo...

Não tenho essas impressoras para testes... Analise o Log gerado pelo ACBrPosPrinter... veja se o componente está enviando vários "LF" no final do cupom

é Importante gerar apenas as TAGs da A.C. Isso pode ser obtido com: ACBrSAT1.CFe.GerarXML( True ); // True = Gera apenas as TAGs da aplicação

Notei que o seu numero de Espaço entre linhas está muito muito baixo... (4) Experimente deixar 0 (valor default)... use valores entre 50 a 30 Algumas impressoras perdem a capacidade de fazer o LF (Line Feed), quando o "EspacoEntreLinhas" está muito baixo...

não notei nenhum erro em: LerCampo(tcDatHor, 'dhEmi'); Por favor anexe o seu TXT

Ocorre o mesmo com o Lazarus... parece ser algo na DLL do fisco... mas em modo execução (sem DEBUG) o problema não ocorre... Aqui apenas mando continuar (F9)..

Humm... acho que não há nenhum componente no ACBr que faça exatamente essa tarefa... O ACBrEAD computa assinaturas usando o OpenSSL... A nova classe ACBrDFeSSL (do trunk2), é capaz de assinar digitalmente documentos ficais usando a XMLSec(openssl) ou CAPICOM Talvez lendo os fontes dessas classes seja possível implementar algo... Por linha de comando... se o seu certificado for A1, você pode usar o OpenSSL Veja esse site: http://www.madboa.com/geek/openssl/

Esse grande código em Base64 é o XML... Apliquei as seguintes modificações no SVN... Notei porém, que no emulador podemos recuperar a resposta da sessão anterior apenas uma vez... (aparentemente é um Bug do emulador)

Você pode configurar as notificações no seu Painel de controle Analisei sua modificação... mas acho que ela não está correta... if ((EstadoECF <> 'L') and (StrToTime(FormatDateTime('HH:MM:SS', Date)) > StrToTime('02:00:00'))) then raise EACBrTEFDECF.Create( ACBrStr(CACBrTEFD_Erro_ECFNaoLivre) ) ; Dessa maneira... se houver um erro na impressão... entre 00:00:01 e 02:00:00 ele não exibirá o Erro... Não creio que precisamos dessa modificação... Veja... após as 2:00hs, se não houver Redução Z no ECF, o estado dele será "estRequerZ" (o que a sua aplicação deve responder como "O") e o IF original irá disparar o erro: if EstadoECF <> 'L' then raise EACBrTEFDECF.Create( ACBrStr(CACBrTEFD_Erro_ECFNaoLivre) ) ; Talvez você não esteja respondendo corretamente ao envento OnInfoECF

De mais informações... O que você está tentando fazer ? Quais são os passos para reprodução do problema usando o Demo do ACBr ? Quando o erro ocorre ? Trunk2 ?