Pesquisar na Comunidade
Showing results for tags 'TProvedorIssDSF'.
Encontrado 1 registro
-
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