Tiago Ravache

Painna temos trabalhado pra ter a mesma compatibilidade dos outros componentes ACBr, no D7 vc obteve algum erro? poderia detalhar o que ocorreu por favor?

Falha minha, esqueci de removê-los.

Pessoal, segue o código que tenho até o momento, o ACBreSocial é agora uma classe que herda de ACBrDFe, fiz alterações para ter essa compatibilidade, me baseei no que temos funcionando no ACBrNFe, até agora o que o componente está fazendo é a geração dos layouts de acordo com o manual versão 2.1, precisamos agora realizar a assinatura dos eventos, validar os eventos, tbm precisamos trabalhar na geração dos lotes e dos envelopes soap para disparar para o webservice(que ainda não foram disponibilizados), e as rotinas de envio propriamente ditas. No mais creio que seja isso, Juliomar se tiver alguma observação ou correção se possível me diga quais são, para fins de estudo e conhecimento. Espero em breve subir mais contribuições ao projeto. P.S.: Tentei anexar muitas vezes o zip com 600kb aprox. e o fórum disse que eu ultrapassei o limite de 1024kb(?) portanto segue o link: https://github.com/tiagoravache/eSocial2.1

Alex, tive que parar com a compatibilização do ACBreSocial para o trunk2 quero retomar o quanto antes, então qualquer coisa vamos mantendo o contato e subindo os fontes para o pessoal commitar no SVN ok?

Sim existe usando o ACBrNFe através do método DistribuicaoDFe()... Mas é obrigação legal do fornecedor enviar o XML da nota de venda para o cliente, então o correto mesmo é cobrar o fornecedor! Pesquisa no fórum pelo nome do método acima que vc encontrará exemplos de implementação. Boa tarde!

Só agora vi sua resposta Ítalo, não sei se existe algo assinado, sou funcionário aqui, levantei as questões já citadas mas faço aquilo que a empresa solicita, não tenho dúvidas que o cliente irá tirar o dele da reta num caso desses, mas fico numa posição complicada...Acabo fazendo o que me é ordenado...De qualquer forma agradeço a orientação e alerta.

Ítalo,resolvido na revisão 9941! Muito obrigado pela atenção e agilidade!

Bom dia Srs. Fiz um update pela manhã, e segui o procedimento já conhecido usando o ACBrInstall, e obtive um erro que extraí do log e se segue: ..\Fontes\ACBrDFe\ACBrNFe\PCNNFe\pcnNFeW.pas(188) Error: E2029 Declaration expected but identifier 'cost' found ..\Fontes\ACBrDFe\ACBrNFe\PCNNFe\pcnNFeW.pas(765) Error: E2003 Undeclared identifier: 'DSC_CEST' ..\Fontes\ACBrDFe\ACBrNFe\ACBrNFeNotasFiscais.pas(57) Fatal: F2063 Could not compile used unit '..\..\..\..\Fontes\ACBrDFe\ACBrNFe\PCNNFe\pcnNFeW.pas' P.S.: É uma máquina com D2010, apenas o trunk 2 instalado e só possui um drive Alguém teve o mesmo problema? Como poderia resolver?

[email protected]

Emerson o RecuperarXML não está vinculado ao ACBr creio que o melhor lugar para tu postar tuas alterações seja nos contatos que vc encontre lá mesmo no github do projeto.

Interessante que o Daniel tinha subido na quarta 26 uma correção que testei aqui e funcionou legal... vou verificar aqui e posto depois, bom que funcionou

Olá, sugiro que coloque um breakpoint em ACBrDFeCapicom.pas na linha 283 e veja se os termos da comparação estão iguais... aí posta pra gente o que encontrou pode ser?

Boa tarde TurboOverdrive, tente ao debugar verificar o valor contido em nserie após o Trimm e o uppercase... creio que seja necessário um Trim(UpperCase(StringReplace(nserie, ' ', '', [rfReplaceAll]))); Outra coisa não precisei chamar SSL.CarregaCertificado apenas configurei o numeroserie no componente veja se isso te ajuda

Juliomar estou trabalhando no momento para colocá-lo no padrão do trunk2, como mais um componente de DFe's

Obrigado!

Srs. Recebi mais cedo no email este link: http://www.spedbrasil.net/forum/topics/2159846:Topic:916017 Aqui vai o link do site oficial: http://www1.receita.fazenda.gov.br/sistemas/EFD-Reinf/o-que-e.htm E o download dos materiais preliminares: http://www1.receita.fazenda.gov.br/sistemas/EFD-Reinf/download.htm Creio que isso servirá de base para um novo componentedo ACBr não?

Já está no SVN?

Bom dia pessoal, desculpem ressucitar o tópico mas é pq encontrei o porquê do meu problema aqui vai a explicação e solução: No meu código configuro o componente assim: ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Query.FieldByName('Certificado_Serie').AsString; Isso executa o código abaixo: procedure TCertificadosConf.SetNumeroSerie(const AValue: String); begin if FNumeroSerie = AValue then Exit; FNumeroSerie := Trim(UpperCase(StringReplace(AValue, ' ', '', [rfReplaceAll]))); TACBrDFe(FConfiguracoes.Owner).SSL.NumeroSerie := AValue; end; O problema está no seguinte FNumero recebe AValue após este ser modificado para maiúsculas e ter os espaços removidos, ao passo que SSL.NumeroSerie recebe apenas AValue, lá na frente quando é necessário usar o certificado na unit ACBrDFeCapicom.pas na linha 283 existe esse código: if Cert.SerialNumber = FpDFeSSL.NumeroSerie then Bem no meu caso esses dois caras não estavam iguais Cert.SerialNumber continha a série formatada em maiúsculas e sem espaços e FpDFeSSL.NumeroSerie tinha apenas aquele AValue sem formatação alguma algo como - e8 3f b3 00 f1 b5 rh 4c - quando na verdade deveria ter - E83FB300F1B5RH4C - para solucionar eu simplesmente adicionei na configuração do componente o seguinte: ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Trim(UpperCase(StringReplace(Query.FieldByName('Certificado_Serie').AsString, ' ', '', [rfReplaceAll]))); E tudo voltou a funcionar perfeitamente! Apesar do problema estar de fato na maneira como eu configurava achei válido postar todo o caminho que percorri para encontrar o erro e deixar postado aqui para o caso de algum colega passar pelo mesmo problema poder testar esses detalhes. Muito obrigado a todos pela ajuda!

Não consegui nem usar o Demo, fecha sozinho antes que eu realize qualquer ação... Como não consegui testar com o demo fiz um programinha de teste, bem simples apenas para consulta status do serviço testando o certificado, tem o seguinte código implementado procedure TForm2.FormShow(Sender: TObject); begin Query.Open;//a query me traz apenas um registro, o do cliente que tenho o certificado instalado aqui. ACBrNFe1.Configuracoes.Certificados.NumeroSerie := Query.FieldByName('Certificado_Serie').AsString; //se entendi o que o Regys postou essa linha basta para configurar o certificado no ACBr end; procedure TForm2.BtConsultaClick(Sender: TObject); begin ACBrNFe1.WebServices.StatusServico.Executar; ShowMessage('Foi! - '+ACBrNFe1.WebServices.StatusServico.xMotivo); end; Continuo obtendo o erro de certificado não encontrado, esse código no trunk funciona, o que posso estar esquecendo?

Mto bom! Obrigado Juliomar.

Bem, aqui segue esses passos: O cliente escolhe a empresa que ele vai lidar, ao escolher essa empresa carrego algumas informações do cadastro, dentre elas cnpj, numero de serie do certificado e etc... Com estas informações configuro o acbr. E uso as funcionalidades como por exemplo envio de eventos, consulta ao DistribuicaoDFe e por aí vai. Isso com o trunk está funcionando, quando mudei para o trunk2 o mesmo código parou de funcionar, não digo que não seja algo aqui, mas como está em produção com o trunk, mesmo que seja uma falha no meu código é decorrente da atualização, ou seja estou deixando passar algum detalhe, o que me intriga é o que o Regys comentou que nessa parte não houve alterações... e quando abri o projeto com o acbr do trunk2 as únicas alterações foram relacionadas a propriedades como a PathSalvar, a nomenclatura do enumerado de schemas e nome de métodos como o EnviarEvento() que antes era EnviarEventoNFe()... Ainda nesse sentido fiz o teste e configurei o acbr em tempo de desenvolvimento com os dados de uma empresa em específico, e quando rodei meu sistema funcionou perfeitamente, só não funciona qdo tento atribuir em runtime. Pode ser de valia citar que a configuração do acbr não ocorre durante o FormCreate ou FormShow, é posterior(já que o cliente precisa antes selecionar a empresa que quer trabalhar). Com todas essas informações, isso dá alguma idéia do que possa estar ocorrendo, há algo nos passos que citei que podem estar causando o meu problema? Grato pela ajuda Srs.

É exatamente como estamos trabalhando por aqui Daniel usando o Inno para fazer esse serviço, reforço a sugestão Marciano

isso ACBrNFe.SSL.CertDataVenc

No momento tenho 2 VM's as duas são extamente iguais(mesmo windows o xp sp3, mesmo delphi o 2010, mesmo certificado), salvo pelo trunk/trunk2. O mesmo código roda no trunk mas não roda no trunk2 Então fiz um novo teste aqui, na VM com o trunk2, coloquei o número de série do certificado direto no object inspector e tudo funcionou perfeitamente, o problema de "certificado não encontrado" ocorre apenas quando eu tento atribuir o número de série em tempo de execução, depois do compontente já ter sido criado (é criado junto com o form), creio que esteja por aí o problema, será que isso lança alguma luz nessa situação?

Pior que não cara, tudo verde acabei de verificar... Não sei o que fazer com isso tbm, com o trunk funciona, no trunk2 não, foi a única alteração... como o trunk2 se tornará o oficial gostaria de resolver para ficar atualizado com o projeto mas parece que não vai ter como...