Problemas Com Nfs Para Nova Iguçu

[Roberto Rocha_11114]

Olá

 

Estou tentando gerar NF para a cidade de Nova Iguaçu.

Já consegui gerar e emitir NF para o RJ, mas para aquela cidade, não consigo

 

A rotina que fez gerou o XML em anexo

 

a resposta que tenho é "white spaces was missing"

 

minha rotina é a seguinte:

procedure TDMNF.EmiteNf(IdRSP: INTeger);

Var NL : Integer;

begin

If not TRPS.AbreeConfere(IdRSP) THen ErroeAborta('Não achei a RPS');

ACBrNFSe.Configuracoes.WebServices.CodigoMunicipio := StrToIntDef(TRpsCODMUNEXEC.AsString,0);

ACBrNFSe.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe.Configuracoes.Geral.PathSchemas);

ACBrNFSe.Configuracoes.Certificados.NumeroSerie := Strtran(DmUnicos.NumSerieCertificado,' ','');

ACBrNFSe.Configuracoes.Certificados.Senha := DmUnicos.SenhaCertificado;

NL := NumProxLote;

ACBrNFSe.NotasFiscais.Clear;

With dm,ACBrNFSe.NotasFiscais.Add.NFSe do Begin

     ACBrNFSe.NotasFiscais.NumeroLote := Inttostr(NL);

     IdentificacaoRps.Numero := FormatFloat('#########0',TRpsFK_RPS.AsInteger); 

     IdentificacaoRps.Serie := '0000A';

     IdentificacaoRps.Tipo := trRPS;

     DataEmissaoRps := TRpsEMISSAO.AsDateTime;

     SeriePrestacao := '0';

     PrestadorServico.RazaoSocial := TRpsNOMECONTRATADOEXEC.AsString;

     PrestadorServico.IdentificacaoPrestador.Cnpj := TRpsCNPJCPFCODIGOCONTEXEC.AsString;

     NaturezaOperacao := noTributacaoNoMunicipio;

     OptanteSimplesNacional := snNao;      

     IncentivadorCultural := snNao;

     // snSim = Ambiente de Produção

     // snNao = Ambiente de Homologação

     Producao := snNao;

     Status := srNormal;

     Servico.Valores.ValorServicos          := TRpsVALORRPS.AsFloat;

     Servico.Valores.IssRetido              := stNormal;

     Servico.Valores.BaseCalculo            := Servico.Valores.ValorServicos;

     Servico.Valores.Aliquota               := TRpsPERCISS.AsFloat;

     if Servico.Valores.IssRetido = stNormal then Begin

         Servico.Valores.ValorIss       := RoundTo(Servico.Valores.BaseCalculo * Servico.Valores.Aliquota, -2);

         Servico.Valores.ValorIssRetido := 0.00;

     end;

 

     Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos -

                                         Servico.Valores.ValorIr;

 

     Servico.CodigoTributacaoMunicipio := TRpsCODATIVIDADE.AsString;

     Servico.Discriminacao             := Strtran(TRpsDESCRICAOSERVICOS.AsString,#13#10,Chr(124));

     Servico.CodigoMunicipio           := TRpsCODMUNEXEC.AsString;

 

 

     While not TRps.eof do Begin

        with Servico.ItemServico.Add do  begin

             Descricao     := Strtran(TRpsDESCRICAOITEM.AsString,#13#10,Chr(124));

             Quantidade    := TRpsQUANTIDADEITEM.AsInteger;

             ValorUnitario := TRpsVALORUNITARIO.AsFloat;

             ValorTotal    := TRpsQUANTIDADEITEM.AsInteger * TRpsVALORUNITARIO.AsFloat;

             Tributavel    := snSim;

        end;

        TRps.Next;

     End;

     TRps.First;

 

 

     Prestador.Cnpj               := TRpsCNPJCPFCODIGOCONTEXEC.AsString;

     Prestador.InscricaoMunicipal := TRpsINSCRMUNICIPAL.AsString;

 

     If TRpsPESFISICA.AsInteger = 1 Then Tomador.IdentificacaoTomador.CpfCnpj := TRpsCPF.AsString

     Else                                Tomador.IdentificacaoTomador.CpfCnpj := TRpsCNPJ.AsString;

 

     Tomador.RazaoSocial              := TRpsPJ_RAZAOSOCIAL.AsString;

     Tomador.Endereco.TipoLogradouro  := TRpsPJ_TIPOENDERECO.AsString;

     Tomador.Endereco.Endereco        := TRpsPJ_ENDERECO.AsString;

     Tomador.Endereco.Numero          := TRpsPJ_NUMERO.AsString;

     Tomador.Endereco.Complemento     := TRpsPJ_COMPLEMENTE.AsString;

     Tomador.Endereco.Bairro          := TRpsPJ_BAIRRO.AsString;

     Tomador.Endereco.xMunicipio      := TRpsPJ_CIDADE.AsString;

     Tomador.Endereco.CodigoMunicipio := TRpsCODMUNICIPIO.AsString;

     Tomador.Endereco.UF              := TRpsPJ_UF.AsString;

     Tomador.Endereco.CEP             := TRpsPJ_CEP.AsString;

     Tomador.Contato.Email            := TRpsEMAIL.AsString;

 

     OrgaoGerador.CodigoMunicipio := TRpsCODMUNEXEC.AsString;

     OrgaoGerador.Uf := 'RJ';

End;

Try

If ACBrNFSe.Enviar(NL,False)  Then BEgin

....

 

Alguém poderia me ajudar a dizer qual o problema ?

 

 

2-Rps.xml