Consular NFSe por RPS

[adilsonpazzini]

Alguem sabe me dizer nessa função . como posso fazer pra poder gravar o xml de retorno da NFS-e ..?

sem mais,

Adilson Pazzini .

[adilsonpazzini]

Bom não sei se seria a melhor opção . mais acabei pegando o valor do campo ConsNfseRps.RetWS e criando o arquivo xml pelo savetofile do TStringList.

Abaixo a Rotina ... se alguem achar algo errado por favor postar . Obrigado ...

NFSe.ConsutarNFSeporRps(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,

NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,

TipoRPSToStr(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo),

NFSe.NotasFiscais.Items[0].NFSe.Prestador.Cnpj,

NFSe.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal);

aTEXTO := NFSe.NotasFiscais.Items[0].Msg+sLineBreak+

'[sTATUS]'+sLineBreak+

'Protocolo='+nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Protocolo+sLineBreak+

'CodVerificacao='+nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.CodigoVerificacao+sLineBreak+

'Numero='+nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Numero+sLineBreak+

'XML='+UTF8Encode(NFSe.WebServices.ConsNfseRps.RetWS)+sLineBreak;

aProtocolo :=nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.Protocolo;

aVerificacao :=nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.CodigoVerificacao;

aNumeroNFSe :=nfse.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[0].Nfse.numero;

//===> salvando arquivo xml do nfs-e

if (aNumeroNFSe <> '') and (UTF8Encode(NFSe.WebServices.ConsNfseRps.RetWS)<>'') then

if not FileExists(trim(FATNFMonitor.edtPastaMensal.text)+ExtractYearMonth(qry.fieldbyname('DTEMI').asdatetime)+'\'+inttostr(strtoint(aNumeroNFSe))+'-nfse.xml') then

begin

aXML:=TStringList.Create;

try

aXML.Clear; // Usando para add outros e-mail como Com-Cópia

aXML.Add(UTF8Encode(NFSe.WebServices.ConsNfseRps.RetWS));

aXML.SaveToFile(trim(FATNFMonitor.edtPastaMensal.text)+ExtractYearMonth(qry.fieldbyname('DTEMI').asdatetime)+'\'+inttostr(strtoint(aNumeroNFSe))+'-nfse.xml');

finally

aXML.Free;

end;

end;

[carloszix]

Não consigo fazer a consulta de nfse por rps

provedor simpliss

ele mim retorna o erro

Código Erro : E160

Mensagem... : Arquivo enviado fora da estrutura do arquivo XML de entrada - campo(s) obrigatorio(s) faltando ( ConsultarNfseRpsEnvio.IdentificacaoRps ConsultarNfseRpsEnvio.Prestador ).

Correção... : Envie um arquivo dentro do schema do arquivo XML de entrada (verifique se todos os campos obrigatorios estao preenchidos).

Provedor... : SimplISS

OS XML ESTA ASSIM

<?xml version="1.0" encoding="utf-8"?>

48

E

1

00000

66666

0000000000

00000