Estou alterando meu sistema para atender a cidade Guarapuava-Pr, para NFSe provedor IPM, preciso de um ajuda na configuração do ACBR

[Sandro Andre Reghelin]

Alguém teria a configuração que devo usar para gerar as NFse para Guarapuava-Pr, estou confuso em como alimentar o Xml, olhei no programa de exemplo mas...

ali o Provedor IPM esta relacionado nos que permitem mais de um item por nota, mas no link que recebi entre as alterações está que será permitido somente um item por Nota, vejam abaixo:

A partir de 01/01/2026 entra em vigor a obrigatoriedade de integração com o Ambiente de Dados Nacional das Notas Fiscais de Serviço Eletrônicas, entram em vigor novas regras

- Obrigatoriedade do envio do NBS (Nomenclatura Brasileira de Serviço), conforme documentação nacional https://www.gov.br/nfse/pt-br/biblioteca/documentacao-tecnica/documentacao-atual/anexo_b-nbs2-lista_servico_nacional-snnfse.xlsx;

- Obrigatoriedade de envio de somente 1 Item/Serviço por Nota Fiscal;

- Obrigatoriedade de utilização da Lista de Serviço da Lei Complementar nº 116/2003 com o desdobramento nacional, conforme documentação nacional https://www.gov.br/nfse/pt-br/mei-e-demais-empresas/codigos-de-tributacao-nacional-nbs;

 

[Sandro Andre Reghelin]

Consegui gerar o XMl, acredito que corretamente pois passou na validação dos Schemas...

mas ao enviar esta me retornando o erro:

 Cod: X999 Descrição: Erro de Conexão: Erro Interno: 12175
Erro HTTP: 0
URL: https://guarapuava.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao
Erro: 12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor
Falha Enviando a Requisição. Erro: 12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor
Solução: 

a configuração que uso:

NFSe.Configuracoes.Certificados.ArquivoPFX  := '';
    NFSe.Configuracoes.Certificados.Senha       := '';
    NFSe.Configuracoes.Certificados.NumeroSerie := '';
   
    NFSe.SSL.DescarregarCertificado;

    with NFSe.Configuracoes.Geral, qrFilial 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%.';

      ConsultaLoteAposEnvio := True;
      ConsultaAposCancelar  := True;

      //CNPJPrefeitura          := qry.FieldByName('CNPJDAPREFEITURA').AsString;
      Emitente.CNPJ           := RetiraSeparadores(FieldByName('cnpj').AsString);
      Emitente.InscMun        := FieldByName('inscricaomunicipal').AsString;
      Emitente.RazSocial      := FieldByName('razao').AsString;
      Emitente.WSUser         := FieldByName('nfse_userwebservice').AsString;
      Emitente.WSSenha        := FieldByName('nfse_senhawebservice').AsString;
      Emitente.WSFraseSecr    := '';
      Emitente.WSChaveAcesso  := '';
      Emitente.WSChaveAutoriz := '';
     
    end;

    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;

    With NFSE.Configuracoes.WebServices do
    begin
      AguardarConsultaRet := 20000;
      AjustaAguardaConsultaRet := True;
      Tentativas          := 10;
      IntervaloTentativas := 3000;
      TimeOut    := 15000;
      Salvar     := True;
      Ambiente   :=  StrToTpAmb(Ok,IntToStr(AmbienteNFSe));
      Visualizar := True;
      Salvar     := True;
      ProxyHost  := EmptyStr;
      ProxyPort  := EmptyStr;
      ProxyUser  := EmptyStr;
      ProxyPass  := EmptyStr;
      UF         := qrFilial.FieldByName('estado').AsString;
      QuebradeLinha := ';';
    end;

with NFSe.Configuracoes.geral, qrFilial do
    begin
      NFSe.LerCidades;
      CodigoMunicipio := StrToIntDef(FieldByName('CodigoMunicipioIBGE').AsString, 0);
      if not bGuarapuavaPr then
      begin
        Provedor        := proPadraoNacional;
        if qrfilial.FieldByName('usa_reftrib_nfse').AsString = 'S' then
        begin
          LayoutNFSe      := lnfsPadraoNacionalv101 ;
          Versao          := ve101;
          LayoutNFSe      := lnfsPadraoNacionalv101;
        end
        else
        begin
          LayoutNFSe      := lnfsPadraoNacionalv1;
          Versao          := ve100;
          LayoutNFSe      := lnfsPadraoNacionalv1;
        end;
      end
      else
      begin
       // ProVedor       := proIPM;
        LayoutNFSe     := lnfsProvedor;
      end;
    end;

 

Editado 13 Fevereiro por Sandro Andre Reghelin
complementar informação

[Juliomar Marchetti]

sugestão remove os WITH muitas vezes eles ocasionam problemas sem a gente perceber

 

e aqui só configure

NFSe.Configuracoes.Geral.SSLLib        := libWinCrypt;

 

[Sandro Andre Reghelin]

5 horas atrás, Juliomar Marchetti disse:

sugestão remove os WITH muitas vezes eles ocasionam problemas sem a gente perceber

 

e aqui só configure

NFSe.Configuracoes.Geral.SSLLib        := libWinCrypt;

 

vou testar aqui

 

[Sandro Andre Reghelin]

Em 16/02/2026 at 09:09, Juliomar Marchetti disse:

sugestão remove os WITH muitas vezes eles ocasionam problemas sem a gente perceber

 

e aqui só configure

NFSe.Configuracoes.Geral.SSLLib        := libWinCrypt;

 

Pode fechar o tópico, o erro era na maquina que estava testando, windows antigo...testei em uma maquina windows 11 e foi....

 

[Juliomar Marchetti]

Obrigado por reportar.

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