MarcosRWeimer

Valew! Estou precisando de colaboradores para adequar ao padrão do ACBr para poder ser incluído oficialmente. Veja que tem comentado nos fontes as alterações pendentes. Se puder colaborar será bem vindo.

Ola! Me intrometendo no tópico (para não abrir outro). Atualizei para poder usar o "DistribuicaoDFePorChaveNFe" e não estou mais tendo sucesso ao carregar o certificado. Codigo: ACBrNFe.NotasFiscais.Clear; ACBrNFe.WebServices.DistribuicaoDFe.Clear; ACBrNFe.Configuracoes.Arquivos.Salvar := False; ACBrNFe.Configuracoes.WebServices.Visualizar := true; ACBrNFe.Configuracoes.WebServices.Salvar := false; ACBrNFe.Configuracoes.WebServices.UF := Filial.xUF; ACBrNFe.Configuracoes.WebServices.Ambiente := taProducao; ACBrNFe.Configuracoes.Certificados.NumeroSerie := Filial.CertSerie; ACBrNFe.SSL.CarregarCertificado; porem não carrega o certificado, debugando (ACBrDFeWebService.EnviarDados, linha 321) cheguei neste ponto: if (FPConfiguracoes.Certificados.NumeroSerie <> '') then // Tem Certificado carregado ? if FPConfiguracoes.Certificados.VerificarValidade then if (FPDFeOwner.SSL.CertDataVenc < Now) then raise EACBrDFeException.Create('Data de Validade do Certificado já expirou: '+ FormatDateBr(FPDFeOwner.SSL.CertDataVenc)); Onde NumeroSerie é diferente de vazio, e o VerificarValidade está true, então chama o FPDFeOwner.SSL.CertDataVenc, O GetCertDataVenc acaba caindo no TDFeSSLCryptClass.CarregarCertificadoSeVazio, onde o if (FpDadosCertificado.NumeroSerie = '') then é true (por algum motivo que desconheço já que acima ele encontrou o número de série.) Então chama o CarregarCertificadoSeNecessario que verifica se a variavel CertificadoLido é false, mas neste caso é true então não carrega, mas mesmo se estivesse false, chama o carregarcertificado que simplesmente seta o fpCertificadoLido := True. Não estou entendendo onde estou errando, estava funcionando, atualizei e agora não está mais carregando o certificado. (deve ter alterado alguma coisa no ACBr que não estou conseguindo localizar). Já verifiquei o exemplo, mas lá carrega o arquivopfx que não é o caso.

Talvez tenha solução com o antigo, teria de encontrar o manual com os comandos dele e implementar. Se tiver o manual ai me passe ele que tento implementar, ai só fica para vc testar.

e qual era o problema? Deixe registrado para poder ajudar mais pessoas.

Ola Eduardo! Conseguiu ver algo?

Ola eduardo.mrj! Pelo que vi no site da toptron, o seu caller ID é serial e não é mais suportado pela própria toptron. veja a pagina de downloads do fabricante: http://www.toptron.com.br/down2.htm A minha dica é tentar baixar o TopTerm2 e testar os comandos com o próprio terminal serial do fabricante, ou até mesmo o TOPNET3 (programa do próprio fabricante) para ver se está identificando as chamadas corretamente. Depois de estar funcionando no TOPNET3, ai sim tentar com o componente. Se forem comandos diferentes dos utilizados atualmente, implemente como um novo tipo, se achar que não tem conhecimento para isto, me passe os comandos que implemento e você testa. qualquer coisa é só perguntar. vlw!

Se não leu o tópico inteiro, veja essas possíveis soluções que passei ao joaovmf, depois disso ele conseguiu por para rodar.

teste com o exemplo que contem no repositorio. Qual equipamento (identificador de chamadas/bina) está utilizando? Veja a lista de equipamentos que foram testados no readme

Delphi 7 acho que ninguém testou até o momento.

Ola julanarod copie os arquivos para dentro da pasta do acbr, com a mesma estrutura que está no repositório (exemplos/fontes/pacotes). qual Delphi está utilizando ? (aqui usamos a XE8)

Hoje completamos 137 downloads do componente, 331 visitas e apenas 1 feedback do joaovmf está ai uma triste estatística.

Blz João! Adicionei no readme la no repositório que vc testou com este equipamento.

Que blz em! Me passe os detalhes do equipamento (Toptron DD4 USB ?) que utilizou, assim deixo registrado no repositório que funcionou também com este equipamento.

Ola Joaovmf, conseguiu fazer os testes?

Estamos usando a algum tempo no toptron DD2, sem problemas (ao menos nenhum cliente esta reclamando de chamadas não identificadas) Pelo que vc disse está utilizando o DD4. Tem um detalhe não citado em manual algum do toptron, que consegui via suporte, que é o seguinte, se não estiver configurada data/hora ele não identifica a chamada. Faça um teste com o TOPNET 3 que é o software deles mesmo, foi assim que fiz para saber se era configuração do bina ou o componente. Outro detalhe importante, é se utilizar pabx deve estar com 36v nos ramais, abaixo disso o bina não funciona. P.S. A linha deve estar com o serviço de bina ativado na operadora, se utilizar central telefone ela deve suportar este recurso. (é meio lógico, mas nunca se sabe). Continuando.... - Veja a velocidade da porta, deve ser 19200 (acima disso tive inconsistências de leitura) - Debug no componente, tem comentado cada comando, veja a procedure TACBrBINATopTronDD2.LeSerial; - Se precisar alterar algum comando, crie um novo tipo e suba para o repositório. Qualquer coisa só avisar, se lembrar de mais lago informo aqui

olha, acho que encontrar um modem (não "winmodem") hj em dia vai ser bem difícil.

é tudo "winmodem", perderam muita coisa, negocio é tentar procurar algum que não seja, mas eu acho beeem dificil de existir hj em dia. Acredito que até os winmodem devem ser dificeis de encontrar, já que internet "discada" não é usada a anos (pode ser que em algum canto do Brasil ainda exista discada, mas eu acho dificil) Diferenças winmodem x modem: https://pt.wikipedia.org/wiki/Winmodem

Bom Dia! Criar um repositório no bitbucket, assim fica fácil de alguém colaborar, tanto com novos equipamentos, testes, como para deixar o componente no padrão do ACBr para que possa ser integrado ao repositório oficial. https://bitbucket.org/marcosweimer/acbrbina/

Ola sourcecode! Estamos usando em produção a alguns meses, o bina é um toptron DD2 com conexão USB, oque falta é algumas das sugestões feitas nesse mesmo topico, veja posts anteriores, meu conhecimento dos padrões do acbr é meio limitado, e aqui sempre estamos na correria.

Testei as 2 soluções sugeridas, as 2 foram rápidas para imprimir. Edit: A solução no primeiro post testei tb (sugerida por um colega aqui no trabalho).

hleorj Funcionou e rapido como o esperado. Não havia pensado em utilizar uma "flag", sera que esta é a melhor maneira?

Só alterei esta linha que citei mesmo. O desempenho da impressão ficou incomparável. Acredito que seja possível otimizar ainda mais, evitando os "FindObject". Não alterei mais pq quero uma opinião dos mais experientes no componente. EDIT: Report padrão do ACBr que utilizamos: DANFeNFCe.fr3 ACBrNFeDANFEFRDM.pas

Ola! Anexo XML com 88 itens. Aqui na empresa demora 30 segundos para carregar o xml e iniciar a impressão (usando o fr3 padrão do ACBr), no cliente demora 1:50 (um minuto e meio) para imprimir com 99 itens. Depois de muitos debugs, inclusive no fast report (usamos a versão 5) um colega aqui na empresa chegou na seguinte solução: Arquivo: ACBrNFeDANFEFRDM procedure TACBrNFeFRClass.frxReportBeforePrint(Sender: TfrxReportComponent); Alterar de: if Assigned(CpQrCode) then PintarQRCode( qrcode, TfrxPictureView(CpQrCode).Picture ); para: if (Sender.Name = 'ImgQrCode') then PintarQRCode( qrcode, TfrxPictureView(Sender).Picture ); Com esta alteração o QRCode só é "impresso" quando o componente for realmente o esperado, e não a cada item. Acredito que este método possa ser utilizado para as demais situações, evitando ao máximo os frxReport.FindObject Em testes internos aqui é "clicar e imprimir", sem ter de ficar esperando. Oque acham ? Quais impactos pode haver? Alguma outra sugestão? 41160712951895000129650010000067051018615557-nfce.xml

usei sim, mas nem em atendei em opção adicional, só aos componentes que utilizo. Na próxima dou uma olhada. vlw!

É @Daniel Simoes, realmente estava desatualizado, estranhamente o .PAS estava ok, desinstalei e instalei novamente o ACBr e continuou com o problema, tive de excluir manualmente, remover os componentes, library e afins no delphi, fechar tudo, instalar novamente ai funcionou.