Pesquisar na Comunidade

Olá, tudo bem? Estou com problemas para enviar notas para a Prefeitura de Mogi das Cruzes. Até a semana passada o sistema estava funcionando normalmente, porém nesta semana parou e está retornando o seguinte erro: “Rejeitado pelas regras municipais: o Código de Tributação Nacional não pertence à lista de itens permitidos pela Prefeitura para este prestador.” No entanto, eu já alterei o código de tributação e ele está correto. Testei diretamente no site da Prefeitura e consegui emitir a nota normalmente. Fui me aprofundando nos testes e percebi o seguinte comportamento: se eu tentar emitir a nota, ocorre esse erro; porém, se eu aguardar cerca de 5 minutos e tentar enviar novamente carregando o XML que já havia sido gerado, a Prefeitura aceita o mesmo XML sem que eu tenha alterado nada. Vou deixar os XMLs para verificação: 17695-ger-nfse (nota que foi emitida) 17697-ger-nfse (nota recusada) Já fiz de tudo, mas não consegui identificar o motivo pelo qual a nota é recusada na primeira tentativa. No exemplo do ACBr, a emissão está funcionando normalmente. Já utilizei o componente de lá, copiei todo o código do exemplo e, nesse caso, o envio ocorre corretamente. Também já atualizei os schemas e realizei todos os testes possíveis. código de envio: // SIL TECNOLOGIA (VIVAAER) dm_notasfiscais.q_nfse_emitente.Locate('apelido', dm_notasfiscais.q_nfse_individualemitente.AsString, []); // ACBrNFSeX1.NotasFiscais.Clear; ConfigurarCertificadoDigital; // ConfigurarArquivosNota; //DEFININDO A PASTA PARA GRAVAR XML E PDF DEPENDENDO DO EMITENTE var ArquivoINI := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '\Arquivos\conf_nfse.ini'); var pasta:= dm_notasfiscais.q_nfse_individualServicoCodigoMunicipio.AsString + '\'+ dm_notasfiscais.q_nfse_individualNumero.AsString; if dm_notasfiscais.q_nfse_individualemitente.Value = 'VIVA AER' then begin with ACBrNFSeX1.Configuracoes.Arquivos do begin // Salvar := True; PathSalvar := ArquivoINI.ReadString('xml','viva','') + '\' + pasta + '\Logs'; PathNFSe := ArquivoINI.ReadString('xml','viva','') + '\' + pasta; PathRPS := ArquivoINI.ReadString('xml','viva','') + '\' + pasta + '\Logs'; PathGer := ArquivoINI.ReadString('xml','viva','') + '\' + pasta + '\Logs'; end; with ACBrNFSeX1.DANFSE do begin Logo := ArquivoINI.ReadString('logo','vivaprefeituralogo',''); Prefeitura := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.xmunicipio').AsString; Prestador.Logo := ArquivoINI.ReadString('logo','vivalogo',''); end; danfe1.PathPDF:=ArquivoINI.ReadString('xml','viva','') + '\' + pasta; end; ACBrNFSeX1.Configuracoes.Geral.CodigoMunicipio:= dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.CodigoMunicipio').AsInteger; ACBrNFSeX1.Configuracoes.Geral.Emitente.CNPJ:= dm_notasfiscais.q_nfse_emitentePrestadorCnpj.Value; ACBrNFSeX1.Configuracoes.Geral.Emitente.InscMun:= dm_notasfiscais.q_nfse_emitentePrestadorInscricaoMunicipal.Value; ACBrNFSeX1.Configuracoes.Geral.Emitente.RazSocial:= dm_notasfiscais.q_nfse_emitentePrestadorServicoRazaoSocial.Value; with ACBrNFSeX1 do begin NotasFiscais.NumeroLote := dm_notasfiscais.q_nfse_individualIdentificacaoRpsNumero.AsString; with NotasFiscais.New.NFSe do begin // Numero do DPS a ser gerado e enviado para o WebService Numero := IntToStr(dm_notasfiscais.q_nfse_individualIdentificacaoRpsNumero.Value);; verAplic := 'SistemaVA_v' + dmlogin.sistemarevisaoversao.Value; IdentificacaoRps.Numero := FormatFloat('#########0', dm_notasfiscais.q_nfse_individualIdentificacaoRpsNumero.Value); IdentificacaoRps.Serie := '999'; DataEmissao := IncMinute(dm_notasfiscais.q_nfse_individualDataEmissao.value, -2); Competencia := Now; // TtpEmit = (tePrestador, teTomador, teIntermediario) tpEmit := tePrestador; { TnfseRegimeEspecialTributacao = (retNenhum, retCooperativa, retEstimativa, retMicroempresaMunicipal, retNotarioRegistrador, retISSQNAutonomos, retSociedadeProfissionais); } RegimeEspecialTributacao := retNenhum; //retISSQNAutonomos; // TOptanteSN = (osnNaoOptante, osnOptanteMEI, osnOptanteMEEPP) OptanteSN := osnNaoOptante; //osnOptanteMEEPP; if ACBrNFSeX1.Configuracoes.Geral.Provedor in [proSilTecnologia] then begin verAplic := 'SilTecnologia_v1.00'; infNFSe.nNFSe := dm_notasfiscais.q_nfse_individual.FieldByName('numero').Value; Prestador.RazaoSocial := dm_notasfiscais.q_nfse_emitente.FieldByName('PrestadorServico.RazaoSocial').Value; infNFSe.nDFSe := IntToStr(GerarCodigoNFSe(StrToIntDef(IdentificacaoRps.Numero, 1), 9)); infNFSe.emit.Endereco.Endereco := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco').AsString; Emitente.IdentificacaoPrestador.CpfCnpj := dm_notasfiscais.q_nfse_emitente.FieldByName('Prestador.Cnpj').Value; Emitente.IdentificacaoPrestador.InscricaoMunicipal := dm_notasfiscais.q_nfse_emitente.FieldByName('Prestador.InscricaoMunicipal').Value; Emitente.RazaoSocial := dm_notasfiscais.q_nfse_emitente.FieldByName('PrestadorServico.RazaoSocial').Value; Emitente.Endereco.Endereco := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco').AsString; Emitente.Endereco.Numero := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.Numero').AsString; Emitente.Endereco.Complemento := ''; Emitente.Endereco.Bairro := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.Bairro').AsString; Emitente.Endereco.xMunicipio := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.xmunicipio').AsString; Emitente.Endereco.UF := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.UF').AsString; Emitente.Endereco.CEP := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.CEP').AsString; Emitente.Endereco.CodigoMunicipio := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.CodigoMunicipio').AsString; Emitente.Contato.Telefone := StringReplace(dm_notasfiscais.q_nfse_emitente.FieldByName('Contato.telefone').AsString, '-', '', [rfReplaceAll]); Emitente.Contato.Email := dm_notasfiscais.q_nfse_emitente.FieldByName('Contato.Email').AsString; // Configuracoes.Geral.Versao := ve101; infNFSe.Valores.BaseCalculo := dm_notasfiscais.q_nfse_individual.FieldByName('BaseCalculo').Value; infNFSe.Valores.Aliquota := dm_notasfiscais.q_nfse_individual.FieldByName('Aliquota').Value; infNFSe.Valores.ValorIss := dm_notasfiscais.q_nfse_individual.FieldByName('ValorIss').Value; infNFSe.Valores.vTotalRet := 0; infNFSe.Valores.ValorLiquidoNfse := dm_notasfiscais.q_nfse_individual.FieldByName('ValorLiquidoNfse').Value; infNFSe.dhProc := Now; end; // if ACBrNFSeX1.Configuracoes.Geral.Provedor in [proCitta, proSilTecnologia] then // begin // { // Dados necessários para os provedores indicados acima pois eles // requerem que seja enviado o XML da NFS-e em vez do XML da DPS. // } // infNFSe.nNFSe := '0'; // infNFSe.nDFSe := IntToStr(GerarCodigoNFSe(StrToIntDef(IdentificacaoRps.Numero, 1), 9)); // infNFSe.dhProc := Now; // // // agPrefeitura, agSistemaNacional // infNFSe.ambGer := agPrefeitura; // // tePadraoNacional, teProprio // infNFSe.tpEmis := teProprio; // // // Valores // infNFSe.Valores.BaseCalculo := 0; // infNFSe.Valores.Aliquota := 0; // infNFSe.Valores.ValorIss := 0; // infNFSe.Valores.vTotalRet := 0; // infNFSe.Valores.ValorLiquidoNfse := 100.35; // // Emitente.IdentificacaoPrestador.CpfCnpj := edtEmitCNPJ.Text; // Emitente.IdentificacaoPrestador.InscricaoMunicipal := edtEmitIM.Text; // Emitente.RazaoSocial := edtEmitRazao.Text; // // Emitente.Endereco.Endereco := edtEmitLogradouro.Text; // Emitente.Endereco.Numero := edtEmitNumero.Text; // Emitente.Endereco.Complemento := edtEmitComp.Text; // Emitente.Endereco.Bairro := edtEmitBairro.Text; // Emitente.Endereco.xMunicipio := edtEmitCidade.Text; // Emitente.Endereco.UF := edtEmitUF.Text; // Emitente.Endereco.CEP := edtEmitCEP.Text; // Emitente.Endereco.CodigoMunicipio := edtCodCidade.Text; // // Emitente.Contato.Telefone := '1633445566'; // Emitente.Contato.Email := '[email protected]'; //// Configuracoes.Geral.Versao := ve101; // end; {========================================================================= Dados do Serviço =========================================================================} Servico.ItemListaServico := dm_notasfiscais.q_nfse_individual.FieldByName('ItemListaServico').Value; Servico.CodigoNBS := dm_notasfiscais.q_nfse_individual.FieldByName('codigo_nbs').Value; Servico.Discriminacao := StringReplace( dm_notasfiscais.q_nfse_individual.FieldByName('Discriminacao').Value, #13, '|', [rfReplaceAll] ); // Servico.CodigoTributacaoMunicipio := '001'; Servico.CodigoMunicipio := dm_notasfiscais.q_nfse_individual.FieldByName('Servico.CodigoMunicipio').Value; Servico.CodigoPais := 1058; // Brasil {========================================================================= Dados do Serviço (valores) =========================================================================} Servico.Valores.ValorServicos := dm_notasfiscais.q_nfse_individual.FieldByName('ValorServicos').Value; Servico.Valores.ValorDeducoes := dm_notasfiscais.q_nfse_individual.FieldByName('ValorDeducoes').Value; Servico.Valores.Aliquota := dm_notasfiscais.q_nfse_individual.FieldByName('Aliquota').Value; Servico.Valores.DescontoIncondicionado := dm_notasfiscais.q_nfse_individual.FieldByName('valor_descontoincondicionado').Value; Servico.Valores.DescontoCondicionado := dm_notasfiscais.q_nfse_individual.FieldByName('valor_descontocondicionado').Value; // Servico.Valores.tribMun.cPaisResult := 0; // TtribISSQN = (tiOperacaoTributavel, tiImunidade, tiExportacao, tiNaoIncidencia); // Servico.Valores.tribMun.tribISSQN := tiNaoIncidencia; //tiOperacaoTributavel; // Servico.Valores.tribMun.tpImunidade := timNenhum; // Servico.Valores.tribMun.tpRetISSQN := trNaoRetido; // Servico.Valores.totTrib.indTotTrib := indNao; // if OptanteSN = osnNaoOptante then // begin // Servico.Valores.totTrib.indTotTrib := indSim; // Servico.Valores.totTrib.pTotTribSN := 2; // end; { Só devem ser informados se o Prestador não for Simples Nacional } { Servico.Valores.tribFed.CST := cst01; Servico.Valores.tribFed.vBCPisCofins := Servico.Valores.ValorServicos - Servico.Valores.ValorDeducoes - Servico.Valores.DescontoIncondicionado; Servico.Valores.tribFed.pAliqPis := 0; //1.65; Servico.Valores.tribFed.pAliqCofins := 0; //7.60; Servico.Valores.tribFed.vPis := Servico.Valores.tribFed.vBCPisCofins * Servico.Valores.tribFed.pAliqPis / 100; Servico.Valores.tribFed.vCofins := Servico.Valores.tribFed.vBCPisCofins * Servico.Valores.tribFed.pAliqCofins / 100; Servico.Valores.tribFed.tpRetPisCofins := trpcNaoRetido; Servico.Valores.totTrib.vTotTribFed := Servico.Valores.tribFed.vPis + Servico.Valores.tribFed.vCofins; Servico.Valores.totTrib.vTotTribEst := 0; Servico.Valores.totTrib.vTotTribMun := 0; } {========================================================================= Dados do Prestador de Serviço =========================================================================} Prestador.IdentificacaoPrestador.CpfCnpj := dm_notasfiscais.q_nfse_emitente.FieldByName('Prestador.Cnpj').Value; // Prestador.IdentificacaoPrestador.InscricaoMunicipal := edtEmitIM.Text; // Prestador.IdentificacaoPrestador.CAEPF := '12345678901234'; Prestador.cUF := 35; Prestador.Endereco.CodigoMunicipio := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.CodigoMunicipio').AsString; Prestador.Endereco.Endereco := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco').AsString; Prestador.Endereco.Numero := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.Numero').AsString; Prestador.Endereco.Complemento := ''; Prestador.Endereco.Bairro := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.Bairro').AsString; Prestador.Endereco.xMunicipio := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.xmunicipio').AsString; Prestador.Endereco.UF := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.UF').AsString; Prestador.Endereco.CEP := dm_notasfiscais.q_nfse_emitente.FieldByName('Endereco.CEP').AsString; Prestador.Contato.Telefone := StringReplace(dm_notasfiscais.q_nfse_emitente.FieldByName('Contato.telefone').AsString, '-', '', [rfReplaceAll]); Prestador.Contato.Email := dm_notasfiscais.q_nfse_emitente.FieldByName('Contato.Email').AsString; {========================================================================= Dados do Tomador de Serviço =========================================================================} Tomador.AtualizaTomador := snNao; Tomador.TomadorExterior := snNao; Tomador.IdentificacaoTomador.CpfCnpj := dm_notasfiscais.q_nfse_individual.FieldByName('CpfCnpj').AsString; Tomador.IdentificacaoTomador.InscricaoMunicipal := dm_notasfiscais.q_nfse_individual.FieldByName('inscricao_municipal').AsString; Tomador.IdentificacaoTomador.InscricaoEstadual := dm_notasfiscais.q_nfse_individual.FieldByName('InscricaoEstadual').AsString; Tomador.IdentificacaoTomador.CAEPF := ''; Tomador.RazaoSocial := dm_notasfiscais.q_nfse_individual.FieldByName('tomador.RazaoSocial').AsString; Tomador.Endereco.TipoLogradouro := dm_notasfiscais.q_nfse_individual.FieldByName('TipoLogradouro').AsString; Tomador.Endereco.Endereco := dm_notasfiscais.q_nfse_individual.FieldByName('Tomador.Endereco').AsString; Tomador.Endereco.Numero := dm_notasfiscais.q_nfse_individual.FieldByName('Endereco.Numero').AsString; // Tomador.Endereco.Complemento := 'APTO 11'; Tomador.Endereco.TipoBairro := 'BAIRRO'; Tomador.Endereco.Bairro := dm_notasfiscais.q_nfse_individual.FieldByName('Bairro').AsString; Tomador.Endereco.CodigoMunicipio := dm_notasfiscais.q_nfse_individual.FieldByName('CodigoMunicipio').AsString; Tomador.Endereco.xMunicipio := dm_notasfiscais.q_nfse_individual.FieldByName('xMunicipio').AsString; Tomador.Endereco.UF := dm_notasfiscais.q_nfse_individual.FieldByName('UF').AsString; Tomador.Endereco.CodigoPais := dm_notasfiscais.q_nfse_individual.FieldByName('CodigoPais').AsInteger; Tomador.Endereco.CEP := StringReplace(dm_notasfiscais.q_nfse_individual.FieldByName('CEP').AsString, '-', '', [rfReplaceAll]); Tomador.Endereco.xPais := dm_notasfiscais.q_nfse_individual.FieldByName('xpais').AsString; Tomador.Contato.Telefone := StringReplace(dm_notasfiscais.q_nfse_individual.FieldByName('Telefone').AsString, '-', '', [rfReplaceAll]); Tomador.Contato.Email := dm_notasfiscais.q_nfse_individual.FieldByName('Email').AsString; end; end; var numero := ACBrNFSeX1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero; ACBrNFSeX1.Emitir(numero, meUnitario); Desde já, agradeço caso alguém consiga me ajudar. Rodrigo TI – VivaAer 17695-ger-nfse.xml 17697-ger-nfse.xml

Estou enviando o XML para a prefeitura de Diadema com o código de tributação , mas está retornando o Erro 35: "Código de tributação inexistente". Ja tentei enviar de diversos formatos a tag, mas volta sempre o mesmo erro. No modelo de NF que eu tenho do cliente, ele utiliza o seguinte código: "14.01 / 14.01.c - Demais Casos" Exemplo de testes que realizei. ______________________________________________________________________________________________ <ns1:ItemListaServico>14.01</ns1:ItemListaServico> <ns1:CodigoTributacaoMunicipio>14.01.00 / 00140100</ns1:CodigoTributacaoMunicipio> _______________________________________________________________________________________________ <ns1:ItemListaServico>14.01</ns1:ItemListaServico> <ns1:CodigoTributacaoMunicipio>14.01 / 14.01.C</ns1:CodigoTributacaoMunicipio> ______________________________________________________________________________________________-- <ns1:ItemListaServico>14.01</ns1:ItemListaServico> <ns1:CodigoTributacaoMunicipio>14.01 / 14.01</ns1:CodigoTributacaoMunicipio> _____________________________________________________________________________________________- <ns1:ItemListaServico>14.01</ns1:ItemListaServico> <ns1:CodigoTributacaoMunicipio>14.01 / 1401</ns1:CodigoTributacaoMunicipio> __________________________________________________________________________________________ <ns1:ItemListaServico>14.01</ns1:ItemListaServico> <ns1:CodigoTributacaoMunicipio>0001401</ns1:CodigoTributacaoMunicipio> ________________________________________________________________________________________________ <ns1:ItemListaServico>14.01</ns1:ItemListaServico> <ns1:CodigoTributacaoMunicipio>0140107</ns1:CodigoTributacaoMunicipio> Alguém pode me ajudar? Obrigado. Att. Pedro Direne