Salvar Xml Da Nfse

[joemil]

Ola pessoal, to fazendo os testes de envio do RPS para o provedor Betha,

porem nao ta gravando o XML da NFSe (procurei no forum mas nao achei, caso alg tiver o link, por gentileza, inclua-o na respota)

 

to usando o comando:

         ConfiguraNFSe;
         nroLote := '9';
         protocolo := '93295748728213';

         {ACBrNFSe1.ConsultarSituacao(SoNumeros(View_EmpresasCNPJ.AsString),
            View_EmpresasInsc_Municipal.AsString, Protocolo, nroLote);}

         ACBrNFSe1.ConsultarLoteRps(nroLote, Protocolo,
            SoNumeros(View_EmpresasCNPJ.AsString),
            View_EmpresasInsc_Municipal.AsString);

procedure CofiguraNFSe:

procedure TdmDados.ConfiguraNFSe;
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.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);

o XML de retorno:

<ConsultarSituacaoLoteRpsResposta>
<NumeroLote>9</NumeroLote>
<Situacao>4</Situacao>
<ListaMensagemRetorno/>
</ConsultarSituacaoLoteRpsResposta>

o sistema gera os arquivos das pastas RPS e Ger (conforme anexo), mas nao me retorna a NFSe.

qual a funcao usada para salvar o XML da NFSe??

 

[Italo Giurizzato Junior]

Boa tarde Joemil,

 

Desculpe pela demora em responder.

 

O XML que você postou se refere ao retorno da consulta a situação e não a consulta ao lote.

[Oneide]

ja existe topicos sobre isso abertos..

ja faz um bom tempo que postei isso..