Fabiano Hoffmann

Verifique se os schemas estão corretos

Atualizou os schemas?

https://www.producaorestrita.nfse.gov.br/EmissorNacional/

Vi que essa cidade vai usar o padrão nacional direto né? então seta o paramentro assim ACBrNFSeX1.Configuracoes.Geral.LayoutNFSe := lnfsPadraoNacionalv101; Lembrando que tem schemas novos para essa versão

Consegui enviar, porém mandando somente essas tags retorno

Bom dia, parou de dar o erro RNG9999 para vocês?

Bom dia, Vou dizer como fiz para conseguir emitir a nota. Primeiramente pedi para meu cliente fazer o cadastro no site https://www.producaorestrita.nfse.gov.br/EmissorNacional/ apos cadastro feito e com certificado do cliente na mão, fiz uma nota no site para ver como seria o xml deles. Após isso peguei o exemplo do acbr e fui ajustando, conforme dando erro eu vinha no forum e pesquisava se alguém já tinha passado por isso, ai corrigia aquele e partia para o próximo até chegar no envio. Lendo e vendo este video do tópico também me ajudou.

Não, esses campos servem para outros provedores que utilizam de login e senha, para o nacional eu não alimento eles.

Boa tarde, Faço exatamente dessa forma que você faz, vou te mandar aqui vai que te ajuda em algo. function ConfigurarNFSeX.... begin Result := True; try //Abre as querys que serão utilizadas AbrirQuery(nf); ACBrNFSeX1.NotasFiscais.Clear; //Configura o componente ACBR ACBrNFSeX1.Configuracoes.Certificados.ArquivoPFX := ''; ACBrNFSeX1.Configuracoes.Certificados.Senha := ''; ACBrNFSeX1.Configuracoes.Certificados.NumeroSerie := ''; ACBrNFSeX1.Configuracoes.Geral.Versao := LerVersao(); ACBrNFSeX1.Configuracoes.Geral.Provedor := LerProvedor(); ACBrNFSeX1.Configuracoes.Geral.LayoutNFSe := lnfsPadraoNacionalv1; ACBrNFSeX1.SSL.DescarregarCertificado; with ACBrNFSeX1.Configuracoes.Geral do begin SSLLib := libWinCrypt; SSLCryptLib := cryWinCrypt; SSLXmlSignLib := xsLibXml2; SSLHttpLib := httpWinHttp; Salvar := True; ExibirErroSchema := True; RetirarAcentos := False; IdentarXML := True; RetirarEspacos := True; FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; FormaEmissao := svgFormaEmissaoNFE; ConsultaLoteAposEnvio := True; ConsultaAposCancelar := True; CNPJPrefeitura := qry.FieldByName('CNPJDAPREFEITURA').AsString; Emitente.CNPJ := qry.FieldByName('NROINSCRICAO').asString; Emitente.InscMun := qry.FieldByName('INSCRICAOMUNICIPAL').asString; Emitente.RazSocial := qry.FieldByName('NOME').asString; Emitente.WSUser := qry.FieldByName('SERVICO_WEBSERVICES_LOGIN').AsString; Emitente.WSSenha := qry.FieldByName('SERVICO_WEBSERVICES_SENHA').AsString; Emitente.WSFraseSecr := ''; Emitente.WSChaveAcesso := ''; Emitente.WSChaveAutoriz := ''; end; with ACBrNFSeX1.Configuracoes.WebServices do begin Ambiente := LerAmbienteNFServico; Visualizar := True; Salvar := True; UF := qry.FieldByName('ESTADO').AsString; AguardarConsultaRet := 20000; AjustaAguardaConsultaRet := True; Tentativas := 15; TimeOut := 15000; IntervaloTentativas := 3000; end; // A propriedade CodigoMunicipio tem que ser a ultima a receber o seu valor // Pois ela se utiliza das demais configurações ACBrNFSeX1.LerCidades; ACBrNFSeX1.Configuracoes.Geral.CodigoMunicipio := StrToIntDef(qry.FieldByName('CIDIBGE').AsString, 0); except on e : exception do begin //erro aqui end; end; end; Após isso só gerar o xml, ler o certificado e emitir ACBrNFSeX1.Emitir(qry.FieldByName('NOTAFISCAL').asString, meUnitario);

Sim, foi este mesmo. Testei ele com certificado aqui e deu certo. No teu caso não é isso então.

Bom dia, eu tive um problema parecido. Tive que pedir para o cliente se cadastrar no ambiente de homologação, criar o login e senha, mesmo tendo o certificado, só então eu consegui emitir a nota. É uma tentativa.

Muito obrigado @Italo Giurizzato Junior

Bom dia Binhara, Você tem toda a razão, eu já tinha feito o cadastro neste ambiente e gerado uma nota diretamente pelo "site", porem na comunicação com o webservices retornava o erro citado e eu não imaginei que poderia ser erro no cadastro tendo em vista que o cliente já emite nota para a prefeitura de Curitiba no ambiente atual, depois que você falou eu fui conferir e realmente faltava um zero na inscrição municipal. Muito obrigado pela ajuda. RESOLVIDO

Fala Binhara, tudo bem? Então, eu não alterei o ini porque o componente ACBrNFSeX tem uma propriedade, eu só mudo ela conforme abaixo. ACBrNFSeX1.Configuracoes.Geral.LayoutNFSe := lnfsPadraoNacionalv1;

Boa tarde, Depois de conversar com o @Andre Heidemann ele me deu umas dicas de como solucionar o problema dele, fui investigar e achei o ponto que estava me causando a Falha. No meu exemplo quem emite a DCe é o transportador porque ele tem certificado, então ele gera o DCE para o envio do produto da pessoa A(Fisica) para a pessoa B(Fisica). O problema que ao montar a chave sempre pegava o cnpj ou cpf do emitente, no meu caso quem está gerando(emitindo) é o tranportador e não a Pessoa A, com isso causava o erro de ID de chave e se eu tentar colocar o CNPJ da transportadora no Emitente da erro que ele tem inscrição estadual. No manual tem uma parte em que diz quem pode compor a chave de acesso. Alterei na unit ACBrDCe.XmlWriter segue em anexo para avaliação. case DCe.Ide.tpEmit of teFisco: xCNPJCPF := DCe.Fisco.CNPJ; teMarketplace: xCNPJCPF := DCe.Marketplace.CNPJ; teEmissorProprio: xCNPJCPF := DCe.emit.CNPJCPF; else xCNPJCPF := DCe.Transportadora.CNPJ; end; //xCNPJCPF := DCe.emit.CNPJCPF; ACBrDCe.XmlWriter.pas