ACBrNFSeX erro em LoadFromFile

[Destak]

Bom dia, em reposta a solicitação de @Italo Giurizzato Junior feita via Discord abro esse topico.

Eu baixo o XML da NFSe mesmo oficial direto do site do provedor, dai carrego ele no componente para poder imprimir

ACBrNFSeX1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
ACBrNFSeX1.NotasFiscais.Imprimir;

acredito que nesse momento o XML esta carregado no componente certo?

Dai quero agora em seguida salvar ele no meu BD e facho assim:

Query.ParamByName('pArquivoFiscal').Value := ACBrNFSeX1.NotasFiscais.Items[0].XML;

Ai ele salva o RPS ao invés do XML original da NFSe que acabei de carregar no componente, o que esta errado nesse caso, como posso fazer isso?

Segundo ja falamos no Discor sera necessario fazer o metodo LoadFromFile popular completamente o componente e na hora salvar pela propriedade NotasFiscais.Items[0].XML ele disponibilizar o XML da NFSe originalmente carregado.

[Italo Giurizzato Junior]

Boa tarde,

Já inclui na minha lista de tarefas. TK-2351

[Italo Giurizzato Junior]

Boa tarde,

Antes de executar o LoadFromFile esta sendo executado o Clear?

    ACBrNFSeX1.NotasFiscais.Clear;
    ACBrNFSeX1.NotasFiscais.LoadFromFile(OpenDialog1.FileName, False);
    ACBrNFSeX1.NotasFiscais.Imprimir;

 

[Destak]

Boa noite,

Sim eu faço o clear, veja o trecho do meu código.

ConfiguraACBrNFSeX(); //Aqui eu passo as informações de configuração do componente e do contribuinte
ACBrNFSeX1.NotasFiscais.Clear;
ACBrNFSeX1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

[Destak]

Repare que a impressão ocorre com sucesso, o problema é que em seguida quero salvar o XML no BD dessa forma que com o componente antigo estava funcionando normalmente.

Query.ParamByName('pArquivoFiscal').Value := ACBrNFSeX1.NotasFiscais.Items[0].XML;

ai ela salva como se fosse o RPS e não o XML da NFSe mesmo como era antes.

[Victor H. Gonzales - Panda]

12 horas atrás, Destak disse:

Repare que a impressão ocorre com sucesso, o problema é que em seguida quero salvar o XML no BD dessa forma que com o componente antigo estava funcionando normalmente.

Query.ParamByName('pArquivoFiscal').Value := ACBrNFSeX1.NotasFiscais.Items[0].XML;

ai ela salva como se fosse o RPS e não o XML da NFSe mesmo como era antes.

Bom dia,
ACBrNFSeX1.NotasFiscais.Items[0].XMLOriginal não resolve o seu caso?

[Destak]

Boa tarde,

Tanto usando ACBrNFSeX1.NotasFiscais.Items[0].XML quanto ACBrNFSeX1.NotasFiscais.Items[0].XMLOriginal o problema permanece a mesma coisa mas agora mudou um pouco a forma que esta sendo salva no BD veja.

Na imagem em anexo o ultimo registro é o que esta com problema, pois salvei ele conforme descrito nesse topico, usando o ACBrNFSeX1.NotasFiscais.LoadFromFile, ja os demais registros da imagem salvei logo em seguida da emissao da NFSe no mesmo momento e usando a propriedade ACBrNFSeX1.NotasFiscais.Items[0].XML.

No componente antigo isso esta funcionando normalmente, mas novo novo é que ocorre esse problema.

[Italo Giurizzato Junior]

Bom dia,

Para uma melhor analise seria possível você anexar tanto o XML salvo pelo componente antigo e pelo novo (XML completos) e em que momento esses XMLs foram capturados.

Pois esta confuso.

 

[Destak]

Boa tarde,

Vamos la, tanto no componente antigo quanto no novo os passos e os momentos são exatamente os mesmo:

1. faco a consulta pelo numero do protocolo ConsultarLoteRps dai o componente salva o XML no caminho aqui definido alem de abrir a impressao com sucesso.

2. executo o LoadFromFile seleciono o XMLs acima informado que acabou de ser baixado, nesse momento a impressao é aberta com sucesso.

3. Salvo no BD usando a seguinte propriedade NotasFiscais.Items[0].XML e ai é que esta a diferenca entre o componente novo e o antigo, no componente novo salva errado ja no antigo salva corretamente.

Segue em anexo todos os XMLs referente a descrição acima para analise.

XMLs comp novo e antigo.zip

[Italo Giurizzato Junior]

Boa tarde,

Muito obrigado pelos arquivos, já inclui na minha lista de tarefas.TK-2391

[Destak]

Boa noite,

Após a atualização dos fontes de hoje 24/02/2022 o problema desse topico foi corrigido, verifiquei que voce removeu a propriedade:

ACBrNFSeX1.NotasFiscais.Items[0].XML

e criou as duas novas

ACBrNFSeX1.NotasFiscais.Items[0].XmlNfse e ACBrNFSeX1.NotasFiscais.Items[0].XmlRps

Isso resolveu o problema obrigado.

Porem durante os testes verifiquei um novo problema parecido com esse mas no metodo ACBrNFSeX1.NotasFiscais.GravarXML ele esta salvando o XML do Rps e nao o da NFSe, o passo a passo é o seguinte:

ACBrNFSeX1.NotasFiscais.Clear;
ACBrNFSeX1.NotasFiscais.LoadFromString(Query.FieldByName('ArquivoFiscal').AsString);

e depois

ACBrNFSeX1.NotasFiscais.GravarXML(SaveDialog1.FileName+'.xml');

Esta salvando o XML do Rps ao inves da NFSe que acabei de carregar no componente, segue o XML que ele esta salvando em anexo.

NFS-E 000000064 - 18 C2 55.xml

[Italo Giurizzato Junior]

Bom dia,

Vou ver se consigo uma solução para o método GravarXML.

O ideal é que ele consiga identificar automaticamente se o XML é um Rps ou NFS-e e assim proceder com a gravação.

[Destak]

Bom dia,

O que acha criar uma variável não obrigatória no método tipo Rps ou NFSe e se não informar nada ele assumi NFSe como era no antigo componente e ai nao gera quebra no código existente, veja abaixo:

ACBrNFSeX1.NotasFiscais.GravarXML(SaveDialog1.FileName+'.xml',"Rps ou NFSe ou nada ai ele assumi NFSe");

Dessa forma atenderia diversas possíveis demandas, como no caso de validar o Rps no site do provedor ou e alguma situação subir o Rps manualmente para o site do provedor para efetiva emissão da NFSe num caso de indisponibilidade do WebService mas o site esta ON, dentre outras utlidades.

[Italo Giurizzato Junior]

Neste caso fica por conta do desenvolvedor o que ele deseja salvar.

Pode ser desta forma, principalmente se temos as duas propriedades (XmlRps e XmlNfse) carregadas, com esse parâmetro defino o que deseja salvar.

[Destak]

Ótimo faz desse jeito fica top.

[Italo Giurizzato Junior]

Boa tarde,

Faça um teste com a unit em anexo.

A assinatura da função ficou da seguinte forma:

    function GravarXML(const NomeArquivo: String = '';
      const PathArquivo: String = ''; aTipo: TtpXML = txmlNFSe): Boolean;

Note que os 3 parâmetros possuem um valor padrão, se você informar somente o nome e o tipo de XML devemos chamar a função da seguinte forma:

// Para salvar o Xml da NFSe
Resultado := GravarXML('NomeDoXml');

// Para salvar o Xml do Rps
Resultado := GravarXML('NomeDoXml', '', txmlRps);

ACBrNFSeXNotasFiscais.pas

[Italo Giurizzato Junior]

Boa tarde,

Já esta no SVN.

[Destak]

Boa noite,

Não tive tempo de testar, mas farei isso a partir de quinta-feira e retorno aqui ok, desde de ja e como sempre obrigado.

[Destak]

Boa noite,

Realizei os teste e agora esta ok, obrigado e pode fechar o tópico.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.