FelipeMitt

Boa noite pessoal. Depois de muito estudar o exemplo do componente ACBrNFSe, consegui gerar um arquivo xml assinado através do botão 'Gerar Lote RPS'. Estudei o código do botão e, como eu já tenho o arquivo xml (não assinado), tentei usar a função LoadFromFile para carregar o arquivo xml e não precisar alimentar o componente com toda a informação dos RPSs novamente. Porém, tentei de tudo quanto é jeito mas na validação da assinatura geram exceções e não vai pra frente. Existe outra forma de carregar um arquivo xml para dentro do componente ACBrNFSe ou apenas com o LoadFromFile. Segue o código que coloquei no botão 'Gerar Lote RPS': ... //AlimentarNFSe(vAux, vNumLote); //ACBrNFSe1.GerarLote(vNumLote); ACBrNFSe1.NotasFiscais.LoadFromFile('F:\Raiz\Arquivos\eNotasFiscais\4423.xml', False); ACBrNFSe1.GerarLote(4423); ... Segue o erro que aparece: Segue o arquivo xml, não assinado, que eu estou tentando carregar para o componente: <?xml version="1.0" encoding="UTF-8"?> <ns1:ReqEnvioLoteRPS xmlns:ns1="http://localhost:8080/WsNFe2/lote" xmlns:tipos="http://localhost:8080/WsNFe2/tp" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://localhost:8080/WsNFe2/lote http://localhost:8080/WsNFe2/xsd/ReqEnvioLoteRPS.xsd"> <Cabecalho> <CodCidade>4733</CodCidade> <CPFCNPJRemetente>00703697000167</CPFCNPJRemetente> <RazaoSocialRemetente>Fundacao de Apoio e Desenvolvimento ao Ensino Pesquisa e Extensao</RazaoSocialRemetente> <transacao/> <dtInicio>2021-09-23</dtInicio> <dtFim>2021-09-23</dtFim> <QtdRPS>2</QtdRPS> <ValorTotalServicos>3354.67</ValorTotalServicos> <valortotalDeducoes>0.00</valortotalDeducoes> <Versao>1</Versao> <MetodoEnvio>WS</MetodoEnvio> </Cabecalho> <Lote Id="lote:4423"> <RPS Id="rps:1"> <Assinatura>775bf08ecdd1e5f472de5f69fc668cd4e7b1b960</Assinatura> <InscricaoMunicipalPrestador>07444300</InscricaoMunicipalPrestador> <RazaoSocialPrestador>Fundacao de Apoio e Desenvolvimento ao Ensino Pesquisa e Extensao</RazaoSocialPrestador> <TipoRPS>RPS</TipoRPS> <SerieRPS>NF</SerieRPS> <NumeroRPS>30074</NumeroRPS> <DataEmissaoRPS>2021-09-08T00:00:00</DataEmissaoRPS> <SituacaoRPS>N</SituacaoRPS> <SerieRPSSubstituido/> <NumeroRPSSubstituido>0</NumeroRPSSubstituido> <NumeroNFSeSubstituida>0</NumeroNFSeSubstituida> <DataEmissaoNFSeSubstituida>1900-01-01</DataEmissaoNFSeSubstituida> <SeriePrestacao>99</SeriePrestacao> <InscricaoMunicipalTomador>0000000</InscricaoMunicipalTomador> <CPFCNPJTomador>86665114000176</CPFCNPJTomador> <RazaoSocialTomador>AGROINDUSTRIA E COMERCIO SERRA NEGRA LTDA - 0219</RazaoSocialTomador> <TipoLogradouroTomador>Rua</TipoLogradouroTomador> <LogradouroTomador>ESTRADA SAO JOAO DOS LOPES</LogradouroTomador> <NumeroEnderecoTomador>S/N</NumeroEnderecoTomador> <ComplementoEnderecoTomador>KM 3 - </ComplementoEnderecoTomador> <TipoBairroTomador>Bairro</TipoBairroTomador> <BairroTomador>ZONA RURAL</BairroTomador> <CidadeTomador>4733</CidadeTomador> <CidadeTomadorDescricao>Juiz de Fora</CidadeTomadorDescricao> <CEPTomador>36140000</CEPTomador> <EmailTomador>ltsnegra@gmailcomrecebimentoembrapa@fadepeorgbr</EmailTomador> <CodigoAtividade>452000200</CodigoAtividade> <AliquotaAtividade>0.00</AliquotaAtividade> <TipoRecolhimento>A</TipoRecolhimento> <MunicipioPrestacao>0005403</MunicipioPrestacao> <MunicipioPrestacaoDescricao>UBERLANDIA</MunicipioPrestacaoDescricao> <Operacao>A</Operacao> <Tributacao>F</Tributacao> <ValorPIS>0.00</ValorPIS> <ValorCOFINS>0.00</ValorCOFINS> <ValorINSS>0.00</ValorINSS> <ValorIR>0.00</ValorIR> <ValorCSLL>0.00</ValorCSLL> <AliquotaPIS>0.00</AliquotaPIS> <AliquotaCOFINS>0.00</AliquotaCOFINS> <AliquotaINSS>0.00</AliquotaINSS> <AliquotaIR>0.00</AliquotaIR> <AliquotaCSLL>0.00</AliquotaCSLL> <DescricaoRPS>RPS: 30074 - IDNota: 58013 - Tomador: AGROINDUSTRIA E COMERCIO SERRA NEGRA LTDA - 0219</DescricaoRPS> <DDDPrestador/> <TelefonePrestador>32312120</TelefonePrestador> <DDDTomador/> <TelefoneTomador>32811237</TelefoneTomador> <MotCancelamento/> <CPFCNPJIntermediario/> <Deducoes/> <Itens> <Item> <DiscriminacaoServico>169 ANALISES DE CELULAS SOMATICAS NO VALOR DE R 40560 169 ANALISES DE COMPOSI</DiscriminacaoServico> <Quantidade>1</Quantidade> <ValorUnitario>2016.2100</ValorUnitario> <ValorTotal>2016.21</ValorTotal> <Tributavel>N</Tributavel> </Item> </Itens> </RPS> <RPS Id="rps:2"> <Assinatura>0041c5e4e0cea99f669374e4c1847ccb374dc29e</Assinatura> <InscricaoMunicipalPrestador>07444300</InscricaoMunicipalPrestador> <RazaoSocialPrestador>Fundacao de Apoio e Desenvolvimento ao Ensino Pesquisa e Extensao</RazaoSocialPrestador> <TipoRPS>RPS</TipoRPS> <SerieRPS>NF</SerieRPS> <NumeroRPS>30073</NumeroRPS> <DataEmissaoRPS>2021-09-08T00:00:00</DataEmissaoRPS> <SituacaoRPS>N</SituacaoRPS> <SerieRPSSubstituido/> <NumeroRPSSubstituido>0</NumeroRPSSubstituido> <NumeroNFSeSubstituida>0</NumeroNFSeSubstituida> <DataEmissaoNFSeSubstituida>1900-01-01</DataEmissaoNFSeSubstituida> <SeriePrestacao>99</SeriePrestacao> <InscricaoMunicipalTomador>0000000</InscricaoMunicipalTomador> <CPFCNPJTomador>20637022000174</CPFCNPJTomador> <RazaoSocialTomador>4G ALIMENTOS LTDA - 2142</RazaoSocialTomador> <TipoLogradouroTomador>Rua</TipoLogradouroTomador> <LogradouroTomador>RUA OSVALDO BARROS BOTELHO</LogradouroTomador> <NumeroEnderecoTomador>60</NumeroEnderecoTomador> <ComplementoEnderecoTomador>LOTE 04 - </ComplementoEnderecoTomador> <TipoBairroTomador>Bairro</TipoBairroTomador> <BairroTomador>POLO INDUSTRIAL</BairroTomador> <CidadeTomador>4733</CidadeTomador> <CidadeTomadorDescricao>Juiz de Fora</CidadeTomadorDescricao> <CEPTomador>28460000</CEPTomador> <EmailTomador>ricardobguerra2901@gmailcomrecebimentoembrapa@fadepeorgbrcle</EmailTomador> <CodigoAtividade>452000200</CodigoAtividade> <AliquotaAtividade>0.00</AliquotaAtividade> <TipoRecolhimento>A</TipoRecolhimento> <MunicipioPrestacao>0005403</MunicipioPrestacao> <MunicipioPrestacaoDescricao>UBERLANDIA</MunicipioPrestacaoDescricao> <Operacao>A</Operacao> <Tributacao>F</Tributacao> <ValorPIS>0.00</ValorPIS> <ValorCOFINS>0.00</ValorCOFINS> <ValorINSS>0.00</ValorINSS> <ValorIR>0.00</ValorIR> <ValorCSLL>0.00</ValorCSLL> <AliquotaPIS>0.00</AliquotaPIS> <AliquotaCOFINS>0.00</AliquotaCOFINS> <AliquotaINSS>0.00</AliquotaINSS> <AliquotaIR>0.00</AliquotaIR> <AliquotaCSLL>0.00</AliquotaCSLL> <DescricaoRPS>RPS: 30073 - IDNota: 58110 - Tomador: 4G ALIMENTOS LTDA - 2142</DescricaoRPS> <DDDPrestador/> <TelefonePrestador>32312120</TelefonePrestador> <DDDTomador/> <TelefoneTomador/> <MotCancelamento/> <CPFCNPJIntermediario/> <Deducoes/> <Itens> <Item> <DiscriminacaoServico>112 ANALISES DE CELULAS SOMATICAS NO VALOR DE R 26880 112 ANALISES DE COMPOSI</DiscriminacaoServico> <Quantidade>1</Quantidade> <ValorUnitario>1338.4600</ValorUnitario> <ValorTotal>1338.46</ValorTotal> <Tributavel>N</Tributavel> </Item> </Itens> </RPS> </Lote> </ns1:ReqEnvioLoteRPS> Quem puder ajudar, já estou um tempinho com essa demanda e, sei que estou no caminho para fazer essa assinatura. Obrigado.

Atualizando o tópico pois ainda não consegui uma forma de extrair chave pública e privada utilizando algum componente da acbr. Só o que descobri foi que o componente inicial que usei, o ACBrNFe realmente não tem essa possibilidade e, nem as bibliotecas ACBrDFe e ACBrDFeSLL. Uma breve esperança que surgiu foi a descoberta do componente ACBrEAD (que não entendi bem exatamente o que ele faz ... é apenas um validador do conteúdo todo de algum arquivo qualquer ?). Porém pelo o que eu entendi vc já tem que ter as chaves (principalmente a privada) e salvas em arquivos .pem. Só que eu ainda não tenho as chaves, na verdade, através do certificado pfx eu quero chegar nelas. Mas sem usar um aplicativo externo como o opensll.exe . Alguém poderia me ajudar ou realmente a Acbr ainda não possui essa funcionalidade ... de a partir de um arquivo .pfx eu extrair as chaves públicas e privadas ?

Isso. Wincript. ACBrNFe1.Configuracoes.Geral.SSLLib := TSSLLib.libWinCrypt; ACBrNFe1.SSL.SSLType := TSSLType.LT_TLSv1_2;

Pessoal, boa tarde. Fiz um pequeno programa para testes, fazendo a leitura de um certificado digital pfx (A1). Segui um tutorial do Regis Borges (dei uma incrementada e retirei o que não precisava). Funcionou perfeitamente. Só que agora, eu preciso extrair a chave pública e privada mas, usando a propriedade SSL (ACBrDFe e ACBrDFeSSL) eu não consegui extrair essas informações. Alguém pode me ajudar ? P.S. Caso necessário eu posto o código aqui do que já tenho pronto.

Acabei de fazer isso agora rs. Vou dar uma olhada nos exemplos. Delphi é a minha linguagem de programação favorita. Sempre foi na verdade. Vou dar uma olhada nos fontes. Realmente, eu só preciso assinar, preenchendo aquelas tags de assinaturas, dentro do xml.

Td bom Juliomar. Sou sim. Sou desenvolvedor de software já a bastante tempo. Só nunca mexi com nota fiscal e os componentes da acbr. Está sendo a minha primeira experiência.

Boa tarde pessoal. Apesar de já estar registrado aqui no fórum a alguns meses esse é o meu primeiro post e o meu primeiro contato com os componentes da acbr. Eu gostaria da ajuda de vocês em como assinar digitalmente um xml (de uma nota fiscal), sendo que eu já tenho o certificado digital (A1) e a senha. Basicamente eu só preciso assinar esse xml, incluindo com isso aquelas tags da assinatura digital. Tipo, não preciso criar a nota fiscal, validar e nem enviar ... só assinar msm (gerando um novo xml com essa informação da assinatura). Sei que já existe um componente para isso, ou alguma biblioteca, ... enfim, eu não encontrei uma informação específica sobre isso. Alguém poderia me dar uma dica ? Se tiver algum tutorial sobre isso melhor ainda. Vlw!!!