Salvar Xml Da Nfse

[RodrigoFernando]

Boa noite a todos !

Estou carregando o xml de uma NFSe através do método ACBrNFSe1.NotasFiscais.LoadFromStream(XML)
Em seguida salvo utilizando o método ACBrNFSe1.NotasFiscais.Items[0].SaveToFile(CaminhoArquivo)

Porém o arquivo que esta sendo salvo é o xml do RPS e não da NFSe...  alguém sabe se existe método para salvar o xml da NFSe ?

Obrigado !

 

 

[Italo Giurizzato Junior]

Bom dia Rodrigo,

 

O problema é que ao executar o SaveToFile ele acaba gerando o XML novamente.

 

Como o componente não gera o XML da NFS-e e sim do RPS, acaba gerando e salvando o XML do RPS conforme você já observou.

 

Após carregar o XML da NFS-e através do LoadFromStream o conteúdo do mesmo fica armazenado na propriedade XML_NFSe que é do tipo String.

[RodrigoFernando]

Boa tarde Italo,

 

Baseado na sua informação minha idéia foi gravar o conteúdo ACBrNFSe1.NotasFiscais.Items[0].XML_NFSe em um TXMLDocument e fazer o SaveToFile a partir dele, porém no meu teste, após carregar o xml da NFSe (com  ACBrNFSe1.NotasFiscais.LoadFromStream(XML)) a propriedade XML_NFSe permaneceu vazia.

 

Sabe dizer se estou fazendo o procedimento errado ?

 

Muito obrigado

[Italo Giurizzato Junior]

Bom dia Rodrigo,

 

Por favor atualize os fontes e teste novamente.

[RodrigoFernando]

Vou fazer isso Italo...  
Obrigado !!!

[joemil]

ola pessoal, tb to querendo salvar o XML da NFS-e, mas nao ta salvando mais.

 

ele gera as pastas 201406\RPS, 201406\Ger e 201406\NFSe, porem o XML da NFSe nao ta sendo salvo. alguma dica?

[Italo Giurizzato Junior]

Bom dia Joemil,

 

As propriedades Salvar estão com o valor True?

[joemil]

ACBrNFSe1.Configuracoes.Arquivos.Salvar := True;

ACBrNFSe1.Configuracoes.Geral.Salvar := True;

ACBrNFSe1.Configuracoes.WebServices.Salvar := True;

 

tem mais alguma?

[Italo Giurizzato Junior]

Bom dia Joemil,

 

São apenas essas 3.

 

No Form onde você faz o envio, você configura o componente?

 

Essas linhas de configuração (Salvar) estão presentes?

[joemil]

sim, antes de usar o componente, uso estes comandos:

 

procedure TdmDados.ConfiguraACBrNFSe;
var xPasta, PathMensal: string;
   Ok: Boolean;
begin


   xPasta := Pasta_Arquivos + 'NFSe\' + View_EmpresasNome.AsString;


   ACBrNFSe1.Configuracoes.Certificados.NumeroSerie := View_EmpresasCertificado_NFS_ACBr.AsString;


   ACBrNFSe1.Configuracoes.Arquivos.AdicionarLiteral := True;
   ACBrNFSe1.Configuracoes.Arquivos.EmissaoPathNFSe := True;
   ACBrNFSe1.Configuracoes.Arquivos.PastaMensal := True;
   ACBrNFSe1.Configuracoes.Arquivos.PathCan := xPasta; //edtPathLogs.Text;
   ACBrNFSe1.Configuracoes.Arquivos.PathNFSe := xPasta; //edtPathLogs.Text;
   ACBrNFSe1.Configuracoes.Arquivos.Salvar := True;


   PathMensal := ACBrNFSe1.Configuracoes.Arquivos.GetPathNFSe(0);


   ACBrNFSe1.Configuracoes.Geral.PathSchemas := DirPath + 'ACBrNFSe_Schemas\' +
      StringReplace(View_EmpresasProvedor_NFSe.AsString, ' ', '', [rfReplaceAll]); ; //edtSchemas.Text;
   ACBrNFSe1.Configuracoes.Geral.Salvar := True; //ckSalvar.Checked;
   ACBrNFSe1.Configuracoes.Geral.PathSalvar := xPasta; //edtPathLogs.Text;


   ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := StrToInt(View_EmpresasCodIBGE.AsString); //StrToIntDef(edtCodCidade.Text, 0);
   ACBrNFSe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(Ok, View_EmpresasNFSe_Ambiente.AsString);
   ACBrNFSe1.Configuracoes.WebServices.Visualizar := False; //ckVisualizar.Checked;
   ACBrNFSe1.Configuracoes.WebServices.Salvar := True; //ckVisualizar.Checked;
   ACBrNFSe1.Configuracoes.WebServices.SenhaWeb := ''; //edtSenhaWeb.Text;
   ACBrNFSe1.Configuracoes.WebServices.UserWeb := ''; //edtUserWeb.Text;


   ACBrNFSe1.Configuracoes.WebServices.ProxyHost := ''; //edtProxyHost.Text;
   ACBrNFSe1.Configuracoes.WebServices.ProxyPort := ''; //edtProxyPorta.Text;
   ACBrNFSe1.Configuracoes.WebServices.ProxyUser := ''; //edtProxyUser.Text;
   ACBrNFSe1.Configuracoes.WebServices.ProxyPass := ''; //edtProxySenha.Text;


   ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe1.Configuracoes.Geral.PathSchemas);
end;

[joemil]

UP

[Juliomar Marchetti]

Up

Aguarde

[joemil]

fiz uma gambi aqui (temporaria espero hehehe). to copiando o arquivo Ger\num_protocolo-lista-nfse.xml para a pasta NFSe\num_nfse-nfse.xml

[Marcos Peixoto]

Perdoem-me pela recorrência, mas mesmo com as configurações conforme o que foi apresentado acima, os arquivos XMLs não são gravados fisicamente.

Estou tendo que fazer uma "gambiarra" para forçar essa gravação.

Abaixo segue trecho do código para configuração:
 

      Configuracoes.Arquivos.AdicionarLiteral            := False;
      Configuracoes.Arquivos.PathNFSe                    := PathWithDelim(FConfiguracao.Diretorio) + 'NFS-e';
      Configuracoes.Arquivos.PathCan                     := PathWithDelim(FConfiguracao.Diretorio) + 'Can';
      Configuracoes.Arquivos.PathGer                     := PathWithDelim(FConfiguracao.Diretorio) + 'Geral';
      Configuracoes.Arquivos.PathRPS                     := PathWithDelim(FConfiguracao.Diretorio) + 'RPS';

      Configuracoes.Arquivos.Salvar                      := True;
      Configuracoes.Geral.Salvar                         := True;
      Configuracoes.WebServices.Salvar                   := True;

Alguma dica adicional para funcionar direto pelo componente ACBr?

Marcos

 

[Italo Giurizzato Junior]

Bom dia Marcos,

Com o programa exemplo ocorre o mesmo problema?