Ivan de Souza

Bom dia, pessoal! O Danfe disponível no trunk do projeto já está funcionando para Delphi XE2? Até agora só consegui instalar para o QuickReport 5, mas para o Rave 10 BE e o Fast 4.12 ainda não consegui. Obrigado, Ivan

Boa noite, pessoal! Alguém tem algum exemplo do uso do ACBR para restaurantes? O registro dos produtos segue o comando normal do ACBR ou tem algum comando especial pra registrar um determinado item para uma determinada mesa? Obrigado, Ivan

Já conseguiu o que precisava? Se não, me adiciona no msn: [email protected] ou skype: ilsouza

Entre em contato comigo pelo msn ([email protected]) ou skype (ilsouza). Um abraço, Ivan

Me adiciona no msn ([email protected]) ou no skype (ilsouza) para conversarmos. Ivan

Descobri que tinha uma unit JclWin32 antiga que não tinha essa constante. Apaguei tudo, reinstalei novamente e deu certo a compilação. Mas a instalação em si do ACBR não funcionou. Instalei tudo manualmente mesmo. Depois vejo o que posso ter feito de errado, pois estou me preparando para mais uma homologação!!! Vixe, que Deus me ajude e Nossa Senhora do Código Fonte me abençoe !!!

Ano passado na homologação eu gerei seguindo esse artigo. Atualizei o ACBR e deu certo agora! Obrigado Régys e Elton!

Então você não faz idéia do motivo desse erro?

Só não tenho o Delphi 2010. Uso o Delphi XE.

Bom dia a todos! Na hora de compilar o projeto ACBRInstall dá um erro na unit JclPeImage, na linha 4155: Undeclared identifier: 'IMAGE_SYMBOL' Instalei o JCL e JVCL e atualizei o ACBR. O que pode ser isso? Obrigado! Ivan

Gerei as chaves de acordo com esse link: http://marcosalles.wordpress.com/2011/0 ... cf-parte1/ Com o eEcf funciona redondinho! Vou desinstalar tudo de novo, atualizar o Acbr e instalar de novo. Hoje não faço mais isso, mas amanhã te dou um retorno. Obrigado!

se tiver algum exemplo pra me ajudar, te agradeço!

Atualizei hoje de manhã. Desinstalei tudo, instalei de novo. Passo as chaves geradas pelo OpenSSL nos eventos: ACBrEAD1GetChavePrivada, ACBrEAD1GetChavePublica e ACBrPAF1PAFGetKeyRSA. Assino com ACBrPAF1.AssinaArquivoComEAD('c:\temp\teste.txt') e confiro com Acbrpaf1.EAD.VerificarEADArquivo('c:\temp\teste.txt');

Pessoal, boa tarde! Certa vez coloquei uma dúvida aqui mas acabei encontrando a solução também e postando aqui. Porém como formatei meu computador não consegui resolver com a minha própria solução. Então aqui vai novamente a dúvida: Estou com problemas ao verificar assinatura com EAD de um arquivo. Eu consigo assinar, valida pelo aplicativo eEcf, mas a função EAD.VerificarEADArquivo não funciona. Gerei as Chaves Privada e Pública, coloquei nos eventos corretos. Não sei se pode ter a ver com a libEAY. Por isso já realoquei essa dll várias vezes do system para a pasta do executável e vice-versa. Perguntas: (utilizo Delphi XE com Windows 7 64 bits) - A libeay tem que estar no syswow64 ou na pasta do executável? - Tenho que ter somente uma cópia dessa DLL para funcionar? - Tenho que registrar essa dll? Tentei fazê-lo como administrador, mas não consegui. Qualquer ajuda é bem vinda. Obrigado a todos, Ivan

Sim, já utilizo a Data/Hora do ECF em todas as minhas gravações no Banco de Dados. Obrigado pela ajuda!

Então você deve ter pego a data do ECF nessa correção, certo? Caso tenha sido isso não há mais a necessidade do tratamento. Obrigado!

Vi no roteiro 01.12. A linha está certa mas quanto à data estou enviando o cupom impresso. Obrigado!

Bom dia! Estou usando o ecfImpressora.InfoRodapeCupom.MinasLegal := True; Desse jeito está saindo assim: MINAS LEGAL: 99999999000199 18062012 120 O CNPJ está saindo completo, e pelo roteiro deveria sair somente as oito primeiras posições. A data está saindo num dia anterior ao cupom. Esse cupom de 1,20 foi emitido no dia 19/06. Já foi corrigido isso ou eu tenho que montar a linha manualmente? Obrigado, Ivan

Não. É um software de um cliente que está recusando, na hora de importar os dados.

Qual o comando que vocês usam para gerar a opção 4 do menu fiscal? Ato Cotepe 1704 Cat52 PafMF_LMFC_Cotepe1704(edtData1.Date, edtData2.Date, cNomeArquivo); obs: não gera o E16, E17, E18, E19 e E20 PafMF_MFD_Cotepe1704(edtData1.Date, edtData2.Date, cNomeArquivo); obs: não gera o E4, E5, E6, E7, E8, E9, E10, E11, E12 e E13 Obrigado! Ivan

Pessoal, bom dia! Alguém sabe me dizer o motivo do erro: 0503 Data em intervalo invalido na hora de tirar a redução Z? Se deixar para tirar a redução Z no dia seguinte não acontece isso. Obrigado, Ivan

Fiz sim, mas deve ter alguma coisa de diferente, pois tenho um outro PDV que funciona com a mesma DLL, que inclusive foi homologado. Mas acho que tem a ver com o erro -43. Alguém sabe o que significa?

Boa noite, pessoal! Tô implementando o Tef em um software já pronto utilizando SiTef Dedicado. Quando carrega a primeira tela pra selecionar o tipo de cartão ele simplesmente volta para a forma de pagamento. Ativei o log e me retornou isso: -- 27/02/12 20:52:58 CliSiTef Inicializado CliSiTEF -- 27/02/12 20:52:58 CliSiTef CancelarTransacoesPendentesClass -- 27/02/12 20:53:00 *** IniciaFuncaoSiTefInterativo. Modalidade: 0 Valor: 10,00 Documento: 001770 Data: 20120227 Hora: 205300 Operador: Restricoes: [10] -- 27/02/12 20:53:00 BloquearMouseTeclado: SIM -- 27/02/12 20:53:00 ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 27/02/12 20:53:00 ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = Conectando SiTef Tam.Min = 0 Tam.Max = 0 -- 27/02/12 20:53:00 CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: Conectando SiTef -- 27/02/12 20:53:00 ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 27/02/12 20:53:05 ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 13 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0 -- 27/02/12 20:53:05 CliSiTef DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem: -- 27/02/12 20:53:05 CliSiTef DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem: -- 27/02/12 20:53:05 ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 27/02/12 20:53:05 ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = SiTef Conectado Tam.Min = 0 Tam.Max = 0 -- 27/02/12 20:53:05 CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: SiTef Conectado -- 27/02/12 20:53:05 ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 27/02/12 20:53:05 ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 4 TipoCampo = -1 Buffer = Selecione a forma de pagamento Tam.Min = 0 Tam.Max = 0 -- 27/02/12 20:53:05 ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 27/02/12 20:53:05 ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 21 TipoCampo = -1 Buffer = 1:Cartao de Debito;2:Cartao de Credito;3:Cartao Fininvest;4:Confirmacao de Pre-autorizacao;5:Credito Consumidor; Tam.Min = 1 Tam.Max = 2 -- 27/02/12 20:53:05 BloquearMouseTeclado: NAO -- 27/02/12 20:53:06 BloquearMouseTeclado: SIM -- 27/02/12 20:53:06 ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = 1 -- 27/02/12 20:53:06 ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 14 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0 -- 27/02/12 20:53:06 ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 27/02/12 20:53:06 ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 0 TipoCampo = 15 Buffer = Tam.Min = 0 Tam.Max = 0 -- 27/02/12 20:53:06 ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 27/02/12 20:53:06 ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 0 TipoCampo = 15 Buffer = Tam.Min = 0 Tam.Max = 0 -- 27/02/12 20:53:06 ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 27/02/12 20:53:06 ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 0 TipoCampo = 43 Buffer = Tam.Min = 0 Tam.Max = 0 -- 27/02/12 20:53:06 ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 27/02/12 20:53:07 ContinuaFuncaoSiTefInterativo, Retornos: STS = -43 ProximoComando = 0 TipoCampo = 43 Buffer = Tam.Min = 0 Tam.Max = 0 -- 27/02/12 20:53:07 *** ContinuaFuncaoSiTefInterativo, Finalizando: STS = -43 -- 27/02/12 20:53:07 BloquearMouseTeclado: NAO Alguém pode me dizer o porquê disso? Obrigado, Ivan

Cliquei com o botão direito em cima do bat instala.bat e mandei rodar como Administrador. Funcionou certinho. Obrigado a todos!

Já. O erro persiste. Classe não registrada. ClassID: {88D969E5-F192-11D4-A65F-0040963251E5}