Erro no fonte do ACBR ao tratar o retorno da NFse Nacional sem enviar os dados da reforma tributária

[Sandro Andre Reghelin]

Senhores, abri um outro tópico de manhã sobre um erro que aconteceu após eu atualizar os schemas da Nfse nacional, que foi respondido que precisava atualizar umas DLL, bom atualizei a DLL e resolveu o problema do outro tópico e acho que pode ter dado uma pista sobre o meu problema aqui...

ao tentar enviar a NFse deu o erro na imagem em anexo...

 

[Sandro Andre Reghelin]

continuando debugando cheguei a esse ponto onde ocorre o erro (imagem em anexo) , a NodeName esta preenchido com a  string 'DPS'

 

 

[Juliomar Marchetti]

tem a ver com a libxml2

[Sandro Andre Reghelin]

27 minutos atrás, Juliomar Marchetti disse:

tem a ver com a libxml2

Sim foi essa dll que atualizei...

[Sandro Andre Reghelin]

51 minutos atrás, Juliomar Marchetti disse:

tem a ver com a libxml2

acho que achei o problema nesse caso em compilo o meu sistema com a configuração Debug configuration 32-bit Windows platform e baixei as dll de 64, devria usar as de 32...

mas aí soluciono o erro, xmlNode e continua o erro que abri o tópico...aqui ao enviar a nfse ....403.....

Editado 8 Outubro, 2025 por Sandro Andre Reghelin

[BigWings]

Em 30/09/2025 at 08:13, Sandro Andre Reghelin disse:

O link que entrei para ver se o cadastro do cliente foi esse:

https://www.producaorestrita.nfse.gov.br/EmissorNacional/Login?ReturnUrl=%2fEmissorNacional%2f

E o mesmo que vc usou? nesse se entrar com o certificado do cliente aparece os dados do meu cliente....

Você consegue iniciar a emissão de nota?

Aqui com o meu certificado (que não é MEI) também aparecem os dados da empresa, mas é só colocar a data que já bloqueia:

[Sandro Andre Reghelin]

16 horas atrás, BigWings disse:

Você consegue iniciar a emissão de nota?

Aqui com o meu certificado (que não é MEI) também aparecem os dados da empresa, mas é só colocar a data que já bloqueia:

Sim até gerei duas em homologação mas não cheguei a efetivar elas... 

 

[Sandro Andre Reghelin]

Em 06/10/2025 at 15:30, Fabiano Hoffmann disse:

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);

 

Boa tarde, ainda não resolvi meu B.O com essa NFSe de Curitiba, abusando da sua boa vontade...como você carrega o certificado digital, eu mantive a carga como era antes, desse modo:

with NFSe.Configuracoes, qrFilial do
  begin
    NFSe.SSL.SSLType := LT_TLSv1_2;
    with Certificados do
    begin

      NumeroSerie := StringReplace(FieldByName('NFe_NumeroSerie_Certificado').AsString,
        ' ', EmptyStr, [rfReplaceAll]);

      if StringReplace(FieldByName('nfse_senha_cert').AsString, ' ', EmptyStr,
        [rfReplaceAll]) <> EmptyStr then
        Senha := AnsiString(StringReplace(FieldByName('nfse_senha_cert').AsString, ' ',
          EmptyStr, [rfReplaceAll]));
    end;
  end;

[Sandro Andre Reghelin]

Pode fechar o tópico, agradeço a ajuda de todos...descobri o erro...

O servidor que está sendo utilizado para desenvolver não tinha a raiz de certificado instalada...aí para o provedor atual de Curitiba funciona bem...mas ao mandar no ambiente nacional...não....descobri testando o envio em outra máquina com a raiz instalada...

 

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.