Jump to content

Search the Community

Showing results for tags 'xml'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Forums

  • Fórum Aberto - ACBr
    • ACBr News
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrMonitor PLUS
    • ACBrDFe
    • ACBrTEFD e Dúvidas sobre TEF
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
    • Dia do ACBr
  • Suporte Pago - SAC
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • ACBr's Pub
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Data Base
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categories

  • Suporte Pago - SAC
    • ACBrMonitorPLUS - SAC
    • Utilitários - SAC
    • ACBrLib - SAC
    • Dia do ACBr 1a edição
  • Free Download
    • ACBrMonitorPLUS
    • Demos / Testes / Utilitários
    • ACBrLIB
    • Apresentações - Palestras

Calendars

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Community Calendar
  • Feriados Nacionais

Blogs

  • Daniel Simoes' Blog
  • André Ferreira de Moraes
  • Moderadores ACBr
  • Teste de Blog
  • Notícias do ACBr

Categories

  • Suporte Pago - SAC
    • Webinars
    • Video Aulas
    • Palestras - Dia do ACBr 1a Ediçao
  • Vídeos Abertos
    • Video Aulas
    • Comunicados
    • Palestras - Dia do ACBr 1a Ediçao
  • Campanhas promocionais

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Website URL


Skype


Localização


Interesses


CNPJ da Empresa


CPF

Found 348 results

  1. Estou tentando implementar a TAG TInfRespTec, abaixo segue como fiz: with ACBrNFe.NotasFiscais.Add.NFe do begin infRespTec.CNPJ := '00.000.000/0000-00'; infRespTec.xContato := 'Teste'; infRespTec.email := '[email protected]'; infRespTec.fone := '(00)0000-0000'; end A nota é emitida normalmente, estou usando um certificado válido, está tudo certo nesse quesito, mas a TAG não aparece. Inseri um show message assim: ShowMessage(infRespTec.CNPJ + ' ' + infRespTec.xContato + ' ' + infRespTec.email + ' ' + infRespTec.fone); E retorna os dados que atribui à TAG. Atualizei os schemas e a pasta de NFe do Acbr, não posso atualizar todos os fontes porque não uso tudo, então ocorrem erros se faço isso. Outra coisa, se souberem me informar quais units que são afetadas por essa TAG, ajudaria muito, pois posso verificar se atualizei todas que precisam.
  2. Utilizeiu a função DistribuicaoDFePorNSU para conseguir trazer o XML das notas fiscais por NSU, a função esta funcionando está me retornando estes XMLs. O XML da nota está vinco resumido gostaria de saber como posso trazer o XML completo.
  3. Ola a todos (a), sou novo no forum e muito mais novo na programação, estou com um projeto de MDFe, estou tendo um probleminha na verdade alguns, vou tentar ser o mais claro. 1. Não consigo puxar as notas manifestadas porque esta configurado para ir buscar assim " NotasFornecedores + '/' + zQueryEmpreNome + '/' + chave " então eu não sei como codificar para puxar o ano e depois mês ('201905') como esta na arquitetura das pastas de notas assim "NotasFornecedores/ + '/' + zQueryEmpreNome + '/' + ANO ('2019')MÊS (''05')",. 2. Quando manifesto ele me da o retorno no DB.Grid apenas "sim ou não NO CAMPO MANIFESTO" porem gostaria que aparece " MANIFESTADO, CIÊNCIA, DESCONHECIMENTO OU NÃO REALIZADO". 3. Menos importante, sinto até vergonha de falar porque sei que o código e mais simples de todos, porem, não sei nem o nome que se da para essa função. Simples contagem de notas "manifestadas ou não manifestadas " que esta mostrando no meu DB.Grid atual o mesmo esta com data inicio e data fim de acordo com a empresa que esta no meu combobox. 4. Se possível não sei se tem como que eu possa baixar todas as xml que esta manifestada de acordo com o DB.Grid atual. Desde já eu agradeço pela ajuda prestada. Sou estudante por conta então tão muitas coisas que não sei ou nunca vi que existe. Grato.
  4. Bom dia a todos. Estou tendo dificuldades ao validar alguns arquivos XML, ao analisar os arquivos notei que o erro é na tag <NFE>, tais XML's estavam incorretos de acordo o manual da SEFAZ e não continham o namespace junto, no caso o correto seria <NFe xmlns="http://www.portalfiscal.inf.br/nfe"> e não somente <NFe>, e ao analizar os XML's baixados pelo manifesto alguns arquivos vieram faltando tal namespace. O validador de XML não consegue validar devido no método "Validar" na classe "NotaFiscal" dentro da unit "ACBrNFeNotasFiscais" devido na hora de cortar as string parar validar ela quebra o conteúdo entre '<NFe xmlns' e '</NFe>'. Como não existe '<NFe xmlns' ele retorna vazio e da erro ao validar. Entendo a validação ser dessa maneira afinal está de acordo com o manual, mas como devo me portar com esses arquivos que são devolvidos faltando o namespace no XML? Desde já obrigado.
  5. Boa Tarde Na minha versão em delphi 2010 usando o ACBrNFe, mesmo fazendo a mudança sugerida nesse tópico Não está gerando a tag no xml do vICMSSubstituto, segue em anexo um xml gerado em homologação, com a opção forcargerartag setada pra fgtSempre, e mesmo assim não gerou. Em tempo estou fazendo testes no modo homologação tanto no estado de SP quanto no PR. Mais um detalhe em ambos os estados não esta dando erro de que falta essa tag, mas o problema e que vários escritórios aqui de clientes falo aqui do estado de SP falaram que vai ser obrigatório, mas nos testes em homologação as notas estão validando sem essa tag. Então vem as dúvidas o porque não está gerando a tag? O itme que testei na nota está csosn 500. Não está gerando porque os estados que não exigi essa informação então não gera? Estou esquecendo de algum detalhe de configuração? A norma técnica não especifica quais estados vão exigir essa tag o governo não ajuda a gente. Testei de duas formas para atribuir atribuir 0 a tag ICMS.Vicmssubstituto:=0; e testei assim Vicmssubstituto:=0; Ambos os casos as nota foram autorizadas em homologação mesmo sem gerar a tag. Também autorizar mesmo senão informar a tag tanto em SP quanto no PR acho que ambos os estados não vão exigir a mesma. Desde já Muito Obrigado!! 35190430515497000141550010000000611000000611-nfe.xml 41190417379357000125550010000015171000015173-nfe.xml
  6. A pergunta é simples creio eu, mas após algumas pesquisas fiquei confuso e não consegui uma resposta direta. O cenário é o seguinte, eu importo a xml que meus fornecedores me mandam a fim de manter essas informações registradas e lógico alimentar meu estoque. Essa nota de entrada deve ser enviada ao sefaz? Essa prática precisa do envio e geração de uma nota nova para comprovar junto ao sefaz a entrada dos produtos? Desde já agradeço a colaboração.
  7. Olá, boa tarde a todos. Verifiquei que nos pacotes do ACBr não há os fontes do monitor para delphi. Preciso implementar no meu projeto o monitor para eSocial e gostaria de saber como faço para adquirir. Obrigado.
  8. Prezados, bom dia. Estou com o seguinte erro ocorrendo em ambiente de produção. "Rejeição 225: Falha no Schema XML do lote de NFe". Fiz a emissão idêntica e em ambiente de homologação o erro não ocorre. Estou com esse problema no cliente. Alguém pode me ajudar ? Segue os arquivos tanto homologação quanto produção. ftp://ftp.goodsoft.com.br/public_html/suporte/ACBRLogs.rar
  9. Estamos implementando ferramentas para automatizar a busca de NFe pelo ambiente nacional, usando a função DistribuicaoDFePorChaveNFe. Primeiramente pegamos e alteramos o código de Manifestação de Destinatário no exemplo em ACBR\Exemplos\ACBrDFe\ACBrNFe\Delphi: Nfe.EventoNFe.Evento.Clear; with Nfe.EventoNFe.Evento.Add do begin InfEvento.cOrgao := 91; infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end; Nfe.EnviarEvento(StrToInt(IDLote)); with Nfe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin lMsg:= 'Id: '+Id+#13+ 'tpAmb: '+TpAmbToStr(tpAmb)+#13+ 'verAplic: '+verAplic+#13+ 'cOrgao: '+IntToStr(cOrgao)+#13+ 'cStat: '+IntToStr(cStat)+#13+ 'xMotivo: '+xMotivo+#13+ 'chNFe: '+chNFe+#13+ 'tpEvento: '+TpEventoToStr(tpEvento)+#13+ 'xEvento: '+xEvento+#13+ 'nSeqEvento: '+IntToStr(nSeqEvento)+#13+ 'CNPJDest: '+CNPJDest+#13+ 'emailDest: '+emailDest+#13+ 'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+ 'nProt: '+nProt; end; ShowMessage(lMsg); ShowMessage(Nfe.WebServices.EnvEvento.RetWS); ShowMessage(Nfe.WebServices.EnvEvento.RetornoWS); ShowMessage(ACBrUtil.ConverteXMLtoUTF8(Nfe.WebServices.EnvEvento.RetornoWS)); Aparentemente a chave de NFe escolhida foi manifestada corretamente. Então em seguida pegamos e alteramos o código de Distribuição no exemplo em ACBR\Exemplos\ACBrDFe\ACBrNFe\Delphi: nfe.DistribuicaoDFePorChaveNFe(AcUFAutor,ACNPJCPF,AchNFe); ShowMessage(nfe.WebServices.DistribuicaoDFe.RetornoWS); ShowMessage(nfe.WebServices.DistribuicaoDFe.RetWS); O resultado é uma caixa de diálogo do ACBr contendo o motivo "Rejeicao: Falha no esquema xml", depurando o código tenho o retorno em xml: '<retDistDFeInt xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versao="1.00" xmlns="http://www.portalfiscal.inf.br/nfe"><tpAmb>2</tpAmb><verAplic>1.1.9</verAplic><cStat>215</cStat><xMotivo>Rejeicao: Falha no esquema xml</xMotivo><dhResp>2019-04-02T15:10:38</dhResp><ultNSU>000000000000000</ultNSU><maxNSU>000000000000000</maxNSU></retDistDFeInt>' Verificamos e recolocamos os schemas mas a mensagem de erro persiste, verificamos no fórum e fora um post DistribuicaoDfe por Chave de Acesso de 20 de março de 2017, não achamos nenhuma referencia do que pode estar acontecendo. Alguém tem ideia do que pode estar errado?
  10. Bom dia a todos. Há uma forma de efetuar o envio dos xmls pelo componente ACBreSocial. Os xmls ja estariam prontos, seria apenas a necessidade de envia-los para o governo. Desde já agradeço a colaboração dos amigos.
  11. Alguém sabe se existe um Web Service do Bradesco, que tenha como exportar o arquivo de remessa de boletos, que o componente ACBr Boleto gera, em um formato REST por JSON ou XML para ser cadastrado automaticamente sem usar o Bradesco Net Empresa?
  12. Bom dia Estou com dificuldade de preencher corretamente a área de impostos do XML da NF-e, na área de Impostos, precisamente quando vou colocar o ICMS está saindo de maneira incorreta, pois a empresa funciona como Simples Nacional logo o XMl deveria sair como ICMSSN101, mas não estou conseguindo inserir de maneira correta. O XML que esta saindo da seguinte forma : <imposto> <ICMS> <ICMS> <orig>0</orig> <CST>SN</CST> </ICMS> </ICMS> <PIS> <PISAliq> <CST>01</CST> <vBC>1475.00</vBC> <pPIS>1.6500</pPIS> <vPIS>24.34</vPIS> </PISAliq> </PIS> <COFINS> <COFINSAliq> <CST>01</CST> <vBC>1475.00</vBC> <pCOFINS>7.6000</pCOFINS> <vCOFINS>112.10</vCOFINS> </COFINSAliq> </COFINS> </imposto> O código que estou usando para criar este XML é este: Imposto.ICMS.CST := cstICMSSN; Imposto.ICMS.CSOSN := csosn101; // Tributação pela Simples Nacional com ICMS.CSOSN 101 case AnsiIndexText(InfoNFItens.FieldByName('ORIG_MERCADORIA').Value,['0','1','2','3','4','5','6','7','8']) of // Origem da mercadoria 0: begin Imposto.ICMS.orig := oeNacional; end; 1: begin Imposto.ICMS.orig := oeEstrangeiraImportacaoDireta; end; 2: begin Imposto.ICMS.orig := oeEstrangeiraAdquiridaBrasil; end; 3: begin Imposto.ICMS.orig := oeNacionalConteudoImportacaoSuperior40; end; 4: begin Imposto.ICMS.orig := oeNacionalProcessosBasicos; end; 5: begin Imposto.ICMS.orig := oeNacionalConteudoImportacaoInferiorIgual40; end; 6: begin Imposto.ICMS.orig := oeEstrangeiraImportacaoDiretaSemSimilar; end; 7: begin Imposto.ICMS.orig := oeEstrangeiraAdquiridaBrasilSemSimilar; end; 8: begin Imposto.ICMS.orig := oeNacionalConteudoImportacaoSuperior70; end; end; Imposto.ICMS.pCredSN := ChecagemFloat(InfoNFItens,'ALQICMS'); // Alíquota aplicável de cálculodo crédito SIMPLESNACIONAL Imposto.ICMS.vCredICMSSN := ChecagemFloat(InfoNFItens,'VICMS'); //Valor crédito do ICMS quepode ser aproveitado nos termos do // art. 23 da LC 123 SIMPLES NACIONAL end; O XML eu preciso que saia desta forma : <imposto> <ICMS> <ICMSSN101> <orig>0</orig> <CSOSN>101</CSOSN> <pCredSN>0.0000</pCredSN> <vCredICMSSN>0.00</vCredICMSSN> </ICMSSN101> </ICMS> <PIS> <PISNT> <CST>09</CST> </PISNT> </PIS> <COFINS> <COFINSNT> <CST>09</CST> </COFINSNT> </COFINS> </imposto>
  13. Bom dia, Recebi um XML da prefeitura de São José Santa Catarina, no campo vencimento esta assim 2019-02-15T00:00:00-02:00, mais na UNIT pcnLeitor o trecho do código esta assim ? tcDatVcto: begin if length(ConteudoTag)>0 then result := EncodeDate(StrToInt(copy(ConteudoTag, 07, 4)), StrToInt(copy(ConteudoTag, 04, 2)), StrToInt(copy(ConteudoTag, 01, 2))) else Result := 0; end; Sendo assim esta o erro exception class EConvertError with message ''9-' is not a valid integer value o correto seria tcDatVcto: begin if length(ConteudoTag)>0 then result := EncodeDate(StrToInt(copy(ConteudoTag, 01, 4)), StrToInt(copy(ConteudoTag, 05 2)), StrToInt(copy(ConteudoTag, 07, 2))) else Result := 0; end; segue a unit corrigida. pcnLeitor.pas ou poderíamos criar um novo campo para não da conflito com outros XMLS segue: pcnLeitor.pas pcnConversao.pas pnfsNFSeR.pas
  14. Boa tarde. Possuo um cliente que utiliza o acbrmonitorplus. Alguém lá apagou por maldade a pasta dos XML de forma que não estão nem na lixeira. É possível através do acbr ou de alguma outra ferramenta baixar os XML sem que seja um por um no site da Sefaz ???
  15. Boa noite ! Atualizai o ACBR hoje (09/02/2019) e continua pra mim o erro de "assinatura inválida" no xml do esocial, o arquivo é enviado com sucesso mas na validação retorna esse erro. O erro está ocorrendo quando eu já tenho um xml (sem assinatura) e carrego e envio, por teste, quando utilizo a opção "Gerar e Enviar" esse erro não ocorre. Não sei se alguém está tendo esse erro ou já teve se puder postar como corrigir, a gente agradece. Estou usando a libxml2.dll Obrigado
  16. Boa tarde Amigos Tenho uma Sistema para Armazenamento e Consulta de XML de NFe e NFCe em Nuvem e estou buscando Parceiros A quem interessar entrar em contato por Whats (65) 99620-8380
  17. Bom dia, tudo bem? Estou com um problema na importação/leitura de um XLM de uma NF-e, de um fornecedor específico, onde o LoadFromFile do TACBrNFe não consegue ler os produtos na nota fiscal. Isso só acontece com as notas desse fornecedor específico. Se editarmos o XML da nota, retirando o atributo 'xmlns' (xmlns="http://www.portalfiscal.inf.br/nfe") da tag 'det' (que envolve a tag dos produtos - det xmlns="http://www.portalfiscal.inf.br/nfe" nItem="1"), só então os produtos são lidos corretamente pelo ACBr. Em anexo envio um XML de exemplo que não funciona. Se quiser testar, pode retirar o 'xmlns="http://www.portalfiscal.inf.br/nfe"' da tag '<det xmlns="http://www.portalfiscal.inf.br/nfe" nItem="1">', deixando apenas '<det nItem="1">' que vai importar normalmente. Desde já agradeço pela ajuda. Vlw. NotaComProblemas.xml
  18. Prezados senhores, Preciso de um código fonte que lê um arquivo XML do Ct-e e recupere as informações ref. a cada campo para importar no banco de dados do nosso sistema. Trabalho com o Delphi 2007. Já procurei na internet e ainda não consegui achar nada.
  19. Boa tarde, vi alguns problemas semelhantes ao meu, mas todos resolvidos usando os componentes Delphi, e uso o ACBrMonitor Plus1.2.0.18. Quando faço o envio do PDF e XML da nota por email, através do sistema da empresa pelos comandos TXT do ACBrMonitor, no gmail o XML não aparece como anexo, apenas no corpo da mensagem. Daí fui em "Mostrar Original" no gmail e lá consta o seguinte: --005432F3_08A59F45_Synapse_boundary Content-type: text/xml; name="42190107608242000101550010000033101394194342-nfe.xml" Content-Transfer-Encoding: Base64 Content-Disposition: inline; FileName="42190107608242000101550010000033101394194342-nfe.xml" Content-Description: 42190107608242000101550010000033101394194342-nfe.xml Depois eu olhei o email da NFe de algumas outras empresas e percebi que ali onde diz inline, está attachment. Eu vi em algumas postagens aqui no fórum que a galera alterou a propriedade do anexo para attachment também. Fiz um teste com o "Enviar Email" através da opção Teste, na Aba DF-e. Selecionei o XML e informei o meu email, daí deu certo. Fui verificar o "Mostrar Original" no GMAIL e estava assim: --010C4FDB_4B983502_Synapse_boundary Content-type: text/xml; name="42170707608242000101550010000054501307719415-nfe.xml" Content-Transfer-Encoding: Base64 Content-Disposition: attachment; FileName="42170707608242000101550010000054501307719415-nfe.xml" Content-Description: 42170707608242000101550010000054501307719415-nfe.xml Tem como eu fazer isto através dos comandos do ACBrMonitor? Faço uso do EMAIL.Enviar, do NFE.EnviarEmail e do NFE.EnviarEmailEvento. Não encontrei nada no manual. Ou talvez eu esteja com uma versão um pouco antiga do ACBrMonitor. Minha versão é 1.2.0.18. Desde já agradeço!!
  20. Função para selecionar o certificado digital function SelCert: string; var Store: IStore3; CertsLista, CertsSelecionado: ICertificates2; CertDados: ICertificate; lSigner: TSigner; lSignedData: TSignedData; Cert: TCertificate; Ov: OleVariant; begin Result := ''; Store := CoStore.Create; try Store.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); except On E: Exception do begin MsgErro(E.Message); Exit; end; end; try CertsLista := Store.Certificates as ICertificates2; CertsSelecionado := CertsLista.Select ('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', False); except On E: Exception do begin MsgErro('Operação cancelada pelo usuário!'); Exit; end; end; if not(CertsSelecionado.Count = 0) then begin CertDados := IInterface(CertsSelecionado.Item[1]) as ICertificate2; lSigner := TSigner.Create(nil); lSigner.Certificate := CertDados; lSignedData := TSignedData.Create(nil); lSignedData.Content := ' '; try lSignedData.Sign(lSigner.DefaultInterface, false, CAPICOM_ENCODE_BINARY); except On E : Exception do begin MsgErro('Erro na autenticação do Certificado Digital!'); Exit; end; end; Cert := TCertificate.Create(nil); Ov := IInterface(CertsSelecionado.Item[1]) as ICertificate2; Cert.ConnectTo(IDispatch(Ov) as ICertificate2); Result := Cert.Export(CAPICOM_ENCODE_BASE64); lSignedData.Free; lSigner.Free; end; Store.Close; end; function MontaFileAssinatura(const URI: String): String; var ArquivoXml: string; begin ArquivoXml := '<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">' + '<SignedInfo>' + '<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>' + '<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>' + '<Reference URI="#' + URI + '">'+ '<Transforms>' + '<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>' + '<Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>' + '</Transforms>' + '<DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/>' + '<DigestValue></DigestValue>' + '</Reference>' + '</SignedInfo>' + '<SignatureValue></SignatureValue>' + '<KeyInfo>' + '<X509Data>' + '<X509Certificate></X509Certificate>'+ '</X509Data>' + '</KeyInfo>' + '</Signature>'; Result := ArquivoXml; end; Com ou sem no da assinatura não esta funcionando function MontaFileXml(const FileXml, Id: string): string; begin Result := FileXml; // Result := StringReplace(FileXml, ':CERTIFICADO', MontaFileAssinatura(Id), [rfReplaceAll]); end; Função que deveria assinar o documento xml passado como parametro function Assinar(const FileXml, Id: string; var FileOut: string): Boolean; var A: TDFeSSL; B: TDFeSSLXmlSignXmlSec; C: TDFeWinCrypt; I: Integer; fileXmlNew, s : string; F : TStringList; begin fileXmlNew := MontaFileXml(FileXml, Id); Result := False; try try A := TDFeSSL.Create; A.SSLCryptLib := cryOpenSSL; A.SSLXmlSignLib := xsXmlSec; try C:= TDFeWinCrypt.Create(A); s := SelCert; if not Empty(s) then begin try if C.CarregarCertificadoPublico(AnsiString(s))then begin B:= TDFeSSLXmlSignXmlSec.Create(A); F := TStringList.Create; with F do begin Add(fileXmlNew); s := ''; for I := 0 to Count - 1 do S := S + Trim(StringReplace(StringReplace(Pchar(Strings[I]), #13, '', [rfReplaceAll]),#10,'',[rfReplaceAll])); Text := '<?xml version="1.0" encoding="iso-8859-1"?>' + B.Assinar(S,'Signature',''); FileOut := Text; end; end else begin MsgAdverte('Certificado digital selecionado inválido'); Exit; end; except On E1 : Exception do begin MsgErro('Erro durante a seleção do certificado ->' + sLineBreak + E1.Message); Exit; end; end; end else Exit; except On E2 : Exception do begin MsgErro('Erro ao carregar biblioteca do certificado digital ->' + sLineBreak + E2.Message); Exit; end; end; except On E3 : Exception do begin MsgErro('Erro ao carregar biblioteca dinâmica wincrypt do certificado digital ->' + sLineBreak + E3.Message); Exit; end; end; finally FreeAndNil(B); FreeAndNil(C); FreeAndNil(A); end; Result := True; end; Procedimento que passa o arquivo já formatado para realização da assinatura procedure TFormImportaXMLNFe.AdvGlowButton1Click(Sender: TObject); const xml: string = '<?xml version="1.0" encoding="UTF-8"?>'+ '<enviNFe versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe">' + '<idLote>71</idLote>' + '<NFe>' + '<infNFe id="NFe31120723401920000117550020000295121002311579" versao="2.00">' + '<cUF>35</cUF>' + '<cNF>518005127</cNF>' + '<natOp>Venda a vista</natOp>' + '<mod>55</mod>' + '<serie>1</serie>' + '<dEmi>2012-05-06</dEmi>' + '<tpAmb>2</tpAmb>' + '</infNFe>' + '</NFe>' + '</enviNFe>'; xml: string = '<?xml version="1.0" encoding="UTF-8"?>'+ '<enviNFe versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe">' + '<idLote>71</idLote>' + '<NFe>' + '<infNFe id="NFe31120723401920000117550020000295121002311579" versao="2.00">' + '<cUF>35</cUF>' + '<cNF>518005127</cNF>' + '<natOp>Venda a vista</natOp>' + '<mod>55</mod>' + '<serie>1</serie>' + '<dEmi>2012-05-06</dEmi>' + '<tpAmb>2</tpAmb>' + '</infNFe>' + ':CERTIFICADO' + '</NFe>' + '</enviNFe>'; var xmlAssi : string; begin inherited; if Assinar(xml,'NFe31120723401920000117550020000295121002311579', xmlAssi) then begin MsgAvisa('xml assinado: ' + sLineBreak + xmlAssi); end; end; Não completa o processo e sempre gera exceção, será que os desenvolvedores do componente não poderia criar um exemplo somente de uso dos componentes em questão já com o arquivo da nfe, cte, bpe para ser assinado.
  21. Boa tarde pessoal recebi u o seguinte email falando que minha homologaçao nao foi aprovada e junto com ele um email dizendo o seguinte "Esta sendo enviado as interfaces respostafiscal com diversas falhas, revise os dados e informações enviadas através da formação do XML antes de ser enviado." Entao gostaria de saber dos caros colegas como eu valido xml antes de enviar, pois como nao sou dessa area de emissao de notas nao sei por onde comecar. algume poderia me dar um auxilio?
  22. Alguém sabe o porque que da erro desconhecido quando chega no bloco: try signedKey := xmldsig.sign(dsigKey,NOKEYINFO); if (signedKey = nil) then begin MsgErro('Assinatura Falhou.'); Result := False; Exit; end; except on e: Exception do begin MsgErro('Erro durante a assinatura ->' + sLineBreak + e.Message); Result := False; Exit; end; end; uXMLAssina.pas
  23. Boa tarde, há um erro no envio de CTe modal aquaviário que possua NF ou NFe nos dados de container. O fechamento desses grupos não estava sendo realizado, e isso fazia com que o XML gerado fosse inválido. Esse grupo está em infModal/aquav/detCon/infDoc. Por exemplo, o correto para esse grupo deveria ser: <infDoc> <infNFe> <chave>31180922010037000133550010000018051000120368</chave> </infNFe> </infDoc> Mas estava ficando: <infDoc> <infNFe> <chave>31180922010037000133550010000018051000120368</chave> </infDoc> Corrigi nos dois locais no arquivo anexado, se alguém puder dar uma olhada e implementar. pcteCTeW.pas
  24. Boa tarde a todos.. Estou tendo um problema muito estranho e gostaria que vocês me ajudassem... Seguinte...Ao protocolar um MDFe, busca normalmente o Numero de protocolo e gera o PDF com ele Carimbado... Porém em alguns MDFe, a cada 15, 1 por exemplo..o PDF fica com o Numero de protocolo porém o XML vem sem, e vem faltando algumas Tags. Queria saber se alguem já teve esse problema e como proceder...
  25. Olá a todos. Estou desenvolvendo uma solução para monitorar a emissão de CTes e já consigo solicitar e fazer o retorno dos dados para a Sefaz. O problema é que, segundo o padrão da Sefaz, o arquivo de resposta com as CTes que necessito vem comprimido no padrão gzip. Qual é a função do ACBr que posso usar para descomprimir o arquivo? Desde já agradeço.
×
×
  • Create New...