Pesquisar na Comunidade

Ao carregar o XML da NFS-e não são listados os campos Numero, CodigoVerificacao, DataEmissao, DataEmissaoRps, Competencia. Testei tambem no exemplo carregando o XML para impressão da NF e os campos não são preenchidos, envio em anexo o pdf(gerado pelo app exemplo) e o XML. NFS-e.pdf nfse_7751.xml

Olá pessoal, Uso o LoadFromFile para reimprimir as notas de serviço e percebi nos fontes que caso tenha mais de um serviço no XML ele não irá carregar no componente. Olhei nos fontes e verifiquei isso, mas não alterei em nada ainda. Gostaria de saber se existe alguma configuração ou algo diferente que eu não saiba ainda. Obrigado! Provedor: SystemPro - ABRASF_V2 Segue em anexo o XML da NFS-e 040853060001490049144-nfse.xml

Boa Noite pessoal, Está dando um erro numa linha nada a ver, na hora que importo o XML pra dentro de um componente ACBrNFe1, estou usando o método mais simples possível mas mesmo assim não vai, segue o código, um print de onde está o erro e o arquivo XML que estou tentando importar. Código: DMNF.ACBrNFe1.NotasFiscais.Clear; DMNF.ACBrNFe1.NotasFiscais.LoadFromFile(CurDir + NomeArquivo); o Erro acontece no pcnNFeR.pas, na linha 396 : Itens := StringReplace(Itens, ItensTemp, '',[]); 53171021398281000152550010000002711717152288.xml

Boa tarde a todos! Estou com uma situação aqui usando NFS-e, na leitura do arquivo XML com LoadFromFile ou na impressão da NFS-e por exemplo, dependendo da prefeitura consigo retornar a TAG CNPJ Prestador e em outras não. Alguém já passou por essa experiencia que pudesse compartilhar? Nesse arquivo XML em anexo, usando o exemplo a seguir, não consegui visualizar o CNPJ embora internamente no arquivo ele esteja presente. procedure TfrmDemo_ACBrNFSe.Button1Click(Sender: TObject); var j, i: integer; S: string; begin OpenDialog1.Title := 'Selecione a NFSe'; OpenDialog1.DefaultExt := '*.xml'; OpenDialog1.Filter := 'Arquivos NFSe (*.xml)|*.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFSe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrNFSe1.NotasFiscais.Clear; ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName, False); Memo1.Clear; Memo1.Lines.Add('########## RPS -> IDENTIFICACAO ##########'); Memo1.Lines.Add('RPS...........: ' + ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero); Memo1.Lines.Add('RPS SERIE.....: ' + ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie); Memo1.Lines.Add('RPS TIPO......: ' + TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo)); Memo1.Lines.Add(''); Memo1.Lines.Add('########## PRESTADOR SERVICO - IDENTIFICACAO PRESTADOR ########## '); Memo1.Lines.Add('CNPJ.................: ' + ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj); Memo1.Lines.Add('INSC MUNICIPAL.......: ' + ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal); Memo1.Lines.Add(''); Memo1.Lines.Add('########## PRESTADOR ########## '); Memo1.Lines.Add('CNPJ.................: ' + ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj); Memo1.Lines.Add('INSC MUNICIPAL.......: ' + ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal); end; end; Já em outros arquivos de outras prefeituras, consigo visualizar esta informação sem maiores problemas. Grato antecipadamente pela ajuda. Márcio M. Camilo GYNIM2088908_NFSE70.xml

Boa tarde, Estou realizando a implementação da emissão de NFE utilizando o ACBR e verifiquei que existe o comando ACBrNFe.NotasFiscais.LoadFromFile para carregar o arquivo XML pronto para dentro do acbr. Testei o método e funciona perfeitamente, porém no meu software eu estou gerando o arquivo no formato TXT para poder importa-lo no emissor nfe gratuito de são paulo. Com isso gostaria de saber se tem um método para carregar este arquivo txt (que já está no formato de acordo com o layout txt nfe 3.1) para o ACBR ?

Boa noite Estou carregando o XML em anexo no componente sem erros. Ao tentar contar a quantidade de notas do XML (ACBrNFSe1.NotasFiscais.Count), o retorno é 0. Alguem pode me ajudar? 2016-01_127625-in.xml 2016-02_141741-in (1).xml

Boa noite, Estou utilizando o Delphi 10 Seattle com o acbr, quando vou abrir um XML de uma nota fiscal eletronica esta aparecendo a seguinte mensagem em anexo Exemplo ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); Atenciosamente, Marco.

Boa tarde pessoal. Depois que atualizei o ACBR começou a dar problema em uma rotina que eu tinha antes e funcionava normalmente... É o seguinte... tenho uma rotina onde leio um XML em uma pasta e carrego no componente utilizando o código: ACBrNFe1.NotasFiscais.LoadFromFile('arquivo.xml'); Onde esse XML que estou lendo já está na versão 3.10 "infNFe versao="3.10"" Porém na Unit ACBrNFeNotasFiscais.pas na função: function TNotasFiscais.LoadFromFile(CaminhoArquivo: String; AGerarNFe: Boolean = True): Boolean; e especificamente na linha LocNFeR := TNFeR.Create(Self.Add.NFe); o componente está trocando a versão para 2.00 e daí o XML fica diferente e perde o conteúdo das tags que são do layout 3.10. Em testes debugando a aplicação percebi que isso acontece nessa linha acima. Obs: Já testei também passando False para a propriedade AGerarNFe, mas o problema continua. ACBrNFe1.NotasFiscais.LoadFromFile('arquivo.xml', False); Alguém mais teve esse problema, se sim, como foi resolvido? Obrigado, Att, Alex.

Olá bom dia, Gostaria de informar que ao carregar uma arquivo de xml para o provedor de goiânia o mesmo não está preenchendo o componente da NFs-e, com isso não consigo enviar notas para a prefeitura. Executei um passo a passo no codigo e identifiquei a possível falha, gostaria que pudessem analisar se estou correto. if pos('</Rps>', ArquivoXML.Text) > 0 then begin while pos('</Rps>', ArquivoXML.Text) > 0 do begin XML := copy(ArquivoXML.Text, 1, pos('</Rps>', ArquivoXML.Text) + 5); //aqui o arquivo está sendo separado e como tem duas tags rps está passando para o //leitor somente um pedaço do arquivo. ArquivoXML.Text := Trim(copy(ArquivoXML.Text, pos('</Rps>',ArquivoXML.Text) + 6, length(ArquivoXML.Text))); LocNFSeR := TNFSeR.Create(Self.Add.NFSe); try LocNFSeR.Leitor.Arquivo := XML; --> aqui é passado somente um pedaço do arquivo. LocNFSeR.VersaoXML := NotaUtil.VersaoXML(XML); // LocNFSeR.Provedor := FConfiguracoes.WebServices.Provedor; LocNFSeR.LerXml; Items[Self.Count-1].XML_Rps := LocNFSeR.Leitor.Arquivo; Items[Self.Count-1].NomeArq := CaminhoArquivo; finally LocNFSeR.Free; end; end; end; end; estou anexando o xml que estou utilizando para ver se é problema no arquivo ou se é a codificação acima que encontra-se errada. NovoTeste.xml

Boa tarde, Estou com um problema ao ler a quantidade de itens em um XML de uma NFE. No xml existem 2 itens, mas ao carregá-lo com o (loadfromfile) o mesmo só lê o primeiro item. Foi verificado que na montagem do arquivo xml a Tag denominada Det não ficou da forma que se esperava. Situação ao ler a variável Itens: '<det nItem="1"><prod><cProd>8816</cProd><cEAN/><xProd>COLHER REFEICAO BRANCA 20 X 50 290X190X380 SACO 17X27,5X0,6</xProd><NCM>39241000</NCM><CFOP>5101</CFOP><uCom>CX</uCom><qCom>30.0000</qCom><vUnCom>25.0000</vUnCom><vProd>750.00</vProd><cEANTrib/><uTrib>CX</uTrib><qTrib>30.0000</qTrib><vUnTrib>25.0000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMS00><orig>0</orig><CST>00</CST><modBC>3</modBC><vBC>750.00</vBC><pICMS>17.00</pICMS><vICMS>127.50</vICMS></ICMS00></ICMS><IPI><cEnq>999</cEnq><IPITrib><CST>50</CST><vBC>750.00</vBC><pIPI>10.00</pIPI><vIPI>75.00</vIPI></IPITrib></IPI><PIS><PISNT><CST>08</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det><det nItem'#$D#$A' ="2"><prod><cProd>2522</cProd><cEAN/><xProd>GARFO REFEICAO BRANCO 20X50</xProd><NCM>39241000</NCM><CFOP>5101</CFOP><uCom>CX</uCom><qCom>30.0000</qCom><vUnCom>25.0000</vUnCom><vProd>750.00</vProd><cEANTrib/><uTrib>CX</uTrib><qTrib>30.0000</qTrib><vUnTrib>25.0000</vUnTrib><indTot>1</indTot></prod><imposto><ICMS><ICMS00><orig>0</orig><CST>00</CST><modBC>3</modBC><vBC>750.00</vBC><pICMS>17.00</pICMS><vICMS>127.50</vICMS></ICMS00></ICMS><IPI><cEnq>999</cEnq><IPITrib><CST>50</CST><vBC>750.00</vBC><pIPI>10.00</pIPI><vIPI>75.00</vIPI></IPITrib></IPI><PIS><PISNT><CST>08</CST></PISNT></PIS><COFINS><COFINSNT><CST>07</CST></COFINSNT></COFINS></imposto></det>' Observem que o padrão seria para ficar <det nItem="1"> Mas no item 2 acontece a seguinte situação: <det nItem'#$D#$A' ="2"> onde existe um espaço após o Enter(#$D#$A). Na sua montagem esse mesmo espaço ficará entre o nlitem e o sinal de igualdade: <det nItem ="2">. Na unit pcnNFeR.pas da ACBR existe a condição para ler os itens: while pos('<det nItem=',ItensTemp) <> 0 do E na montagem do item 2 esse padrão é quebrado! Paliativamente ao retirarmos o espaço entre o nlitem e o sinal de igualdade o problema é solucionado, mas nosso código ficará diferente do componente da ACBR. Thomas R C Porciuncula [email protected]

Utilizo o componente TACBrNFe para importar ler os dados das notas que o usuário recebe e então importá-la para o ERP. Utilizo o método LoadFromStream da classe TNotasFiscais para carregar o conteúdo do XML. Esse método, além do LoadFromFile e LoadFromString, executam o método GerarNFe após carregar os dados, fazendo com que a chave da NFe seja remontada. Entretanto, no caso de NFe avulsa, o CNPJ do emitente presente na chave é o CNPJ da SEFAZ e não da empresa que emitiu a nota. Então após carregar o XML, a chave acaba sendo alterado porque é remontada usando o CNPJ da empresa emitente. Verifique os métodos idênticos no CTe e eles possuem um parâmetro adicional para não executar o GerarCTe, criado a pedido deste post Implementei a mesma lógica nos métodos da NFe na minha working copy, mas acredito que poderiam ser incorporados ao trunk.