Ivan de Souza

Boa tarde, pessoal! Quando tento transmitir a NFe usando Capicom está dando esse erro. Baixei a Capicom do link indicado no site do ACBR, registrou, reiniciou mas o erro permanece. Uso Delphi XE com Windows 7 64 Bits. Copiei a DLL para a pasta Windows\SysWOW64, mas não adiantou. Alguém sabe me dizer o que pode ser? Desde já agradeço, Ivan

É isso mesmo! Obrigado pela ajuda!

A conexão tá normal. Acabei descobrindo onde dá o erro: acbrPAF2.SaveFileTXT_N('listaArquivos.txt'); quando executa essa linha dá o erro. Sugestões ???

Quando entro no sistema mostra essa mensagem de erro. Mas como não tive como debugar, não sei dizer ao certo se é quando conecta no ECF. Alguém já passou por esse tipo de erro alguma vez? Depois que mando continuar, ele entra no PDV como se o ECF estivesse desabilitado. Obrigado, Ivan

Me mande um email para conversarmos sobre o assunto. [email protected] Atenciosamente, Ivan

Bom dia! Me mande um email que tenho a solução que precisa. [email protected] Atenciosamente, Ivan

Estou à disposição. Me adicione no msn: [email protected] ou skype: ilsouza Obrigado, Ivan

Estou à disposição. Me adicione no msn: [email protected] ou no skype: ilsouza Obrigado, Ivan

Pessoal, Tô passando um código com 14 caracteres pra uma Sweda ST120 e ele registra somente 13. Então se passo 00000000000001, ela corta o "1" e tenta registrar 0000000000000, dando erro. Alguém sabe como resolver isso? Obrigado! Ivan

Ok, segui seu conselho e criei uma variával para armazenar o estado, evitando várias chamadas desnecessárias, mas quanto à lógica não concordo que esteja com problemas, pois coloquei essa comparação após a redução Z, ou seja, se a redução Z foi emitida no mesmo dia, o estado do ECF será bloqueado, caso contrário o estado dela será liberado para venda. Certo?

Pessoal, Quando se emite redução Z no dia posterior ao movimento, o ECF fica liberado para venda, pois a redução Z refere-se ao dia anterior. Pois bem, coloquei no evento DepoisReducaoZ o seguinte: if ((not frmPrincipal.ecfImpressora.EmLinha(5)) or (not bAutorizado) or (frmPrincipal.ecfImpressora.Estado = estNaoInicializada) or (frmPrincipal.ecfImpressora.Estado = estBloqueada)) then begin lblProduto.Font.Color := clRed; lblProduto.Caption := 'ECF bloqueado por Redução Z'; frmMenuFiscal.DesabilitaMenuFiscal; end else begin lblProduto.Font.Color := cCorFonte; AberturaCaixa; lblProduto.Caption := 'Caixa Livre'; frmMenuFiscal.HabilitaMenuFiscal; end; Isso para saber se o ECF está disponível ou bloqueado. Porém SEMPRE retorna que está bloqueado, mas se eu tentar fazer qualquer venda ele faz normalmente. Alguma dica sobre o que pode ser? Estou usando para testes Daruma FS700H. Obrigado a todos, Ivan

Fiz assim: Componente acbrPAF e acbrEAD no form. acbrEAD ligado no acbrPAF. Tenha em mãos a chave pública e privada do cliente. procedure TForm9.ACBrEAD1GetChavePublica(var Chave: AnsiString); begin {Chave Pública da Empresa} Chave := '-----BEGIN PUBLIC KEY-----' + sLineBreak + {Chave pública aqui} '-----END PUBLIC KEY-----'; end; procedure TForm9.ACBrPAF1PAFGetKeyRSA(var Chave: AnsiString); begin {Chave Privada da Empresa} Chave := '-----BEGIN RSA PRIVATE KEY-----' +sLineBreak + {Chave privada aqui} '-----END RSA PRIVATE KEY-----'; end; procedure TForm9.Button1Click(Sender: TObject); begin if ACBrPAF1.EAD.VerificarEADArquivo(edMsgFile.Text) then begin ShowMessage('Assinatura válida') end else begin ShowMessage('Assinatura INválida'); end; end; Funcionou perfeitamente para o que eu precisava. Obrigado a todos! Ivan

Sim, eu sei, mas gostaria de fazer isso em Delphi, incluindo uma função tal qual a assinatura. Obrigado!

Pessoal, Alguém sabe se tem jeito e como fazer para verificar se a assinatura de um arquivo é válida? Eu já consigo assinar um arquivo usando o método AssinaArquivoComEAD, mas gostaria de saber se tenho como conferir com o próprio ACBR se essa ou qualquer outra assinatura é válida. Obrigado a todos! Ivan

Vou fazer isso e assim que tiver resposta eu aviso. Obrigado!

Pessoal, boa tarde! Estou com um problema que só acontece em algumas Darumas FS-700M intermitente. Quando entra no sistema, ele verifica o número de série. De vez em quando entra em outras não, então fecha o sistema, pois ele entende que foi trocado o ECF. Acontece que se eu sair do programa e voltar de novo, entra normalmente. Segue o log do ECF. Obrigado a todos! Ivan LogECF.rar

Pessoal, o negócio é o seguinte: Eu disse num post anterior que a aplicação não dava a mensagem "Não respondendo" no Gerenciador de Tarefas. Sempre "Executando". Ou seja, a aplicação estava funcionando. O que aconteceu é que como meus forms são sempre StayOnTop, todas as mensagens retornadas pelo ECF vinham SEMPRE atrás da aplicação. Como o ECF estava com pouco papel, dava a mensagem de "Detectado pouco papel" com um botão Ok para pressionar. Como essa mensagem vinha por trás da aplicação, não achava nunca! Que isso sirva de lição! ... pra mim! Um abraço a todos. Ivan

Todos os dados da impressora estão configurados corretamente (velocidade, porta, etc ...) Tanto que em outros computadores com o mesmo ECF conecta normalmente.

Sim, mas em alguns casos somente. O interessante é que no Gerenciador de Tarefas do Windows ele não aparece como "não respondendo". Sempre "executando". Alguma idéia ??? Obrigado, Ivan

Boa tarde a todos! Estou usando uma Daruma FS700H e na hora de conectar com o ECF simplesmente a aplicação trava. Cheguei a debugar e teve um momento que nem chegou a executar o método .ativar do ACBR. Não acontece em todos os computadores. Nesse por exemplo está com Windows XP. Anexo segue o log do ACBR. Obrigado a todos! Ivan ------------------------- LOG do ACBR: -- 12:34:36 20/09/2011 Ativar TX -> [28]R[200]082[188] 12:34:37 RX <- :[200]082010061[CR][195] -- 12:34:37 TX -> [28]R[200]083[189] 12:34:37 RX <- :[200]083010100[CR][196] -- 12:34:37 TX -> [28]R[200]139[189] 12:34:37 RX <- :[200]13932[CR][197] -- 12:34:37 TX -> [29][8][CR] 12:34:37 RX <- :[CR] -- 12:34:37 Estado TX -> [28]R[200]056[181] 12:34:37 RX <- :[200]0560[CR][252] -- 12:34:37 TX -> [29][ACK][ESC] 12:34:37 RX <- :0032B08000C100[CR]> -- 12:34:37 IdentificaOperador()

Entre em contato para conversarmos. [email protected] Ivan

Eu sei que não há nada de errado com o ACBR, mas gostaria de saber se tem algum comando do tipo "Inicializar o ECF" que eu poderia usar. O Demo do ACBRECF fica numa única tela, semelhante ao meu programa. Porém quando eu fecho o form e abro novamente é que acontece isso. Parece que é alguma coisa com a porta serial ainda aberta. Talvez se eu conseguisse fechar a serial eu resolveria. Sugestões além dessa? Obrigado!

Bom dia! Uso uma tela de login no sistema. Quando entro na tela de vendas, ativo o ECF normalmente. Quando saio da tela de vendas para trocar de usuário, o ACBRECF sai do estado de estLivre para estNaoInicializado. Então, pela lógica do programa, ele tenta ativar o ECF novamente. Daí acontece o erro de comunicação. Acesso Negado. Somente saindo do programa e entrando novamente é que eu consigo. Alguém sabe como resolver isso? Obrigado! Ivan

O log eu não tenho mas eu fiz de uma forma que parece que resolveu. Vamos ver mais à frente. O erro é intermitente e quando acontece de tentar imprimir o segundo CCD, dá a mensagem: "Impressora não responde. Deseja continuar?". Essa mensagem dentro do "ImprimirTransacoesPendentes". Debugando o ACBR, parei na unit: ACBrECFDaruma, Function TACBrECFDaruma.EnviaComando_ECF( cmd : AnsiString ) : AnsiString ; Var Tentativas : Integer ; Quando tenta enviar o comando, a exceção era gerada nessa função. Então, ao invés de: try Result := EnviaComando_ECF_Daruma( cmd ) ; // Envia o comando Break ; // Tudo OK, saindo.. except if (fsCodAviso >= 40) then // Está compactando MFD ? begin GravaLog('Daruma: Falha no Envio do CMD. Tentativa: '+IntToStr(Tentativas+1)+ ' - Erro: '+IntToStr(fsErro)+' - Estendido: '+IntToStr(fsErroSTD) + ' -> ' + ErroEstendidoTexto(fsErro) ); Sleep(100) ; end //else {Repare que foi aqui que eu alterei, simplesmente evitando o exception} // raise ; {Com isso não dá mais a mensagem e o vinculado é impresso normalmente} end ; Foi isso que eu fiz. Opiniões, considerações, ficarei muito grato. Um abraço, Ivan

Boa noite. Estamos aqui em SP homologando o TEF Dedicado e desde de ontem nao conseguimos efetuar venda com multiplos cartoes. Sempre aparece esta mensagem de excecao. Ja comentaram que certas impressora nao aceitam formas iguais no vinculado nao fiscal. Estamos usando uma Daruma FS-700 e nao estamos conseguindo. Alguem pode dar uma ideia de como resolver, pois, temos somente amanha e depois para resolvermos. Os restantes dos testes estao tranquilos, apesar da pressao total. Abraco e agradeco desde de ja. Jorge Parma Monteze (Parmasoft Ltda) [email protected]