Sandro Andre Reghelin

vou testar aqui

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;

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;

Descobri o erro aqui esqueci de mudar a propriedade LayoutNFSe, agora funcionou.... pode fechar o tópico...

bom dia consegui resolver seguindo a sugestão pode fechar o tópico....

Preciso pegar o erro de schemas ao tentar cancelar uma nfse em ambiente nacional, uso o seguinte código: InfCancelamento := TInfEvento.Create; try with InfCancelamento.pedRegEvento do begin tpAmb := NFSe.Configuracoes.WebServices.AmbienteCodigo; verAplic := 'ITSOFTINFSeN-1.0'; dhEvento := Now; chNFSe := 'QYYW4B0C'; //qrNFSe.FieldByName('CodigoVerificacao').AsString; nPedRegEvento := 1; tpEvento := ACBrNFSeXConversao.teCancelamento; cMotivo := StrToIntDef(sCodCancelamento, 1); xMotivo := sMotivoCancelamento; end; NFSe.EnviarEvento(InfCancelamento); finally InfCancelamento.Free; end; coloquei no chNfse um valor errado para estourar o erro de validarSchemas. como faço para pegar esse erro após o NFSe.EnviarEvento(InfCancelamento)? Resumindo o problema ele da erro dentro da procedure ValidarSchemas no Providerbase, mas não achei onde pego esse retorno...

Dei uma mexida no meu fonte e joguei as configurações: NFSe.Configuracoes.Geral.Versao := ve101; NFSe.Configuracoes.Geral.LayoutNFSe := lnfsPadraoNacionalv101; no fim da minha procedure de configuração, após configurar a cidade etc... ai deu esse erro: C:\Softin\DFe\NFSe\SchemasNac\PadraoNacional\1.01\DPS_v1.00.xsd Não encontrado ele procurou na pasta certar mas o arquivo errado...

no arquivo ACBrNFSeXServicos.ini Curitiba está assim: [4106902] Nome=Curitiba UF=PR Provedor=PadraoNacional

Estou testando o envio das tags da reforma tributária na NFSe, para cidade Curitiba-Pr, em ambiente nacional área de homologação Pelo que vi tem mudar a versão para envio para 1.01, mudei no meu fonte mas quando mando gerar o xml pelo acbr, que está atualizado até o dia 09/01/2026, ele sempre mantem internamente como versão 1.00 mudei a seguinte configuração: NFSe.Configuracoes.Geral.Versao := ve101; NFSe.Configuracoes.Geral.LayoutNFSe := lnfsPadraoNacionalv101; mas não funcionou? tem que mudar em outro lugar?

Estou com um problema estranho faz dias, estou tentando enviar a NFse de Curitiba em ambiente nacional, por um servidor Windows 2012 R2. sempre que tento enviar da o erro: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"/> <title>403 - Forbidden: Access is denied.</title> <style type="text/css"> <!-- 403 Em outras máquinas vai normalmente, inclusive em um servidor que tenho com Windows Server 2008 R2. debuguei os fontes e cheguei nesse ponto onde estoura o erro(ver imagem em anexo). Alguém teria ima ideia do que pode ser, ja atualizamos os servir, verificamos a raiz do certificado, etc... e quando mando para outras cidade que usam provedor próprio funciona normalmente.

Estou tentando executar o método Nfse.ConsultarDPSPorChave(sNroIdDps) ele consulta e retorna a chave da NFse ok.. tento executar o método Nfse.ConsultarNFSePorChave(Nfse.webservice.ConsultaNFSeporRps.idNota) ele um xml com começo correto depois caracteres como se estivesse criptografado, ver arquivos em anexo. Estou efetuando a consulta para poder pegar os dados do XML da nota enviada, numero, etc... para notas que por algum motivo o meu sistema não conseguiu o retorno no momento do envio.... 000000000000000000000000000000000001-con-nfse-chv.json 000000000000000000000000000000000001-con-nfse-chv-soap.json 000000000000000000000000000000000001-lista-nfse-chv.json 000000000000000000000000000000000001-lista-nfse-chv-soap.json DPS410690220197036800014500080000000000917165-comp-nfse.json DPS410690220197036800014500080000000000917165-comp-nfse-soap.json DPS410690220197036800014500080000000000917165-con-nfse-rps.json DPS410690220197036800014500080000000000917165-con-nfse-rps-soap.json

atualizei o acbr agora pela manhã e resolveu o problema, por mim pode fechar o tópico

tenta abrir o fonte do ACBrNFe.XmlWriter, pelo delphi e coloca um ponto de parada na linha function que mencionei...para ver realmente se ele não está passando no fonte....

Estou conseguindo gerar as tags no xml , mas me da erro no validar os schemas: Falha na validação dos dados da nota: 50003 --> 1871 - Element '{http://www.portalfiscal.inf.br/nfe}vIBS': This element is not expected. Expected is ( {http://www.portalfiscal.inf.br/nfe}gCBS ). o xml esta ficando assim, veja imagem em anexo, acredito que o erro deva ser a tag VIbs que esta com valor zerado, vi que no programa de exemplo ela esta preenchida: // vIBS = vIBSUF + vIBSMun IBSCBS.gIBSCBS.vIBS := 100; tentei preencher com o valor gerado e sem o valor e mesmo assim acusa o erro estou com os schemas atualizados peguei na pasta : ...\\trunk2\Exemplos\ACBrDFe\Schemas\NFe

no programa que geras a tags no ACBR ele verificas a tag IBSCBS.CST se esta preenchida no momento de gerar no XML: na function TNFeXmlWriter.Gerar_IBSCBS da unit ACBrNFe.XmlWriter; faz esse processo...

Pode fechar o tópico achei aqui o erro...no pragrama que informa as tags IBSCBS.CST e IBSCBS.cClassTrib ai como estavam indo sem valor não gera XML

Estou enviando NFe´s em homologação os dados da reforma tributária, para testes estou gerando no xml as tags: exemplo: if sUsaReformaTrib = 'S' then begin dPrevEntrega := qrNotaFiscal.FieldByName('dtentrega').AsDateTime; cMunFGIBS := qrFilial.FieldByName('codigomunicipioibge').AsInteger; tpNFDebito := tdNenhum; tpNFCredito := tcNenhum; end; if sUsaReformaTrib = 'S' then begin IBSCBSTot.vBCIBSCBS := qrNotaFiscal.FieldByName('vlr_tot_bc_ibs_cbs').AsCurrency; IBSCBSTot.gIBS.vIBS := qrNotaFiscal.FieldByName('vir_tot_ibs_uf ').AsCurrency + qrNotaFiscal.FieldByName('vir_tot_ibs_mun ').AsCurrency; IBSCBSTot.gCBS.vCBS := qrNotaFiscal.FieldByName('vir_tot_cbs').AsCurrency; A NFe valida no Sefaz na área de homologação normalmente... mas no xml gerado não aparece nenhum dos campos e nem na impressão da Danfe, estou com o ACBR atualizado A dúvida é tem alguma configuração para isso? ou ainda não está implementado olhei o programa de exemplo e não vi nada que indique alguma mudança...

Agora compilou e achou o CSt000 deixei a minha classe USES assim: Windows, SysUtils, Classes, IB_Components, Variants, Forms, DateUtils, Dialogs, ACBrNFe, uProgresso, Messages, Controls, Jpeg, Graphics, Math, StrUtils, XMLIntf, XMLDoc, IB_Process, IB_Script, uIncluiVeiculo, ACBrNFeDANFeRLClass, ACBrDFeReport, ACBrNFe.XmlWriter , xmldom, ACBrDFeDANFeReport, ACBrNFeDANFEClass, msxmldom, ACBrBase, ACBrDFe, uLkJSON, IdHTTP, IdSSLOpenSSL, httpsend, XSBuiltIns, Xmlxform, ACBrNFe.Classes, ACBrDFeConfiguracoes, AcbrXmlDocument, ACBrNFe.Conversao, ACBrDFe.Conversao, pcnConversao, pcnConversaoNFe; Por mim pode fechar o tópico...se aparecer outra dúvida abro um novo...

Agora deixei a uses assim: Windows, SysUtils, Classes, IB_Components, Variants, Forms, DateUtils, Dialogs, ACBrNFe, uProgresso, Messages, Controls, Jpeg, Graphics, Math, StrUtils, XMLIntf, XMLDoc, IB_Process, IB_Script, uIncluiVeiculo, ACBrNFeDANFeRLClass, ACBrDFeReport, ACBrNFe.XmlWriter , xmldom, ACBrDFeDANFeReport, ACBrNFeDANFEClass, msxmldom, ACBrBase, ACBrDFe, uLkJSON, IdHTTP, IdSSLOpenSSL, httpsend, XSBuiltIns, Xmlxform,ACBrNFe.Classes, ACBrDFeConfiguracoes, acbrNFe.conversao, ACBrDFe.Conversao; ai deu o erro conforme imagem em anexo e vários outros peguei esse de exemplo... mas quando dou u m ctrl+click no moNFe ele abre a unit acbrnfe.conversao

tirei os pcnConversao, pcnConversaoNFe a minhas uses ficou: assim: Windows, SysUtils, Classes, IB_Components, Variants, Forms, DateUtils, Dialogs, ACBrNFe, uProgresso, Messages, Controls, Jpeg, Graphics, Math, StrUtils, XMLIntf, XMLDoc, IB_Process, IB_Script, uIncluiVeiculo, ACBrNFeDANFeRLClass, ACBrDFeReport, ACBrNFe.XmlWriter , xmldom, ACBrDFeDANFeReport, ACBrNFeDANFEClass, msxmldom, ACBrBase, ACBrDFe, uLkJSON, IdHTTP, IdSSLOpenSSL, httpsend, XSBuiltIns, Xmlxform,ACBrNFe.Classes, ACBrDFeConfiguracoes, ACBrDFe.Conversao; mas ao compilar estourou vários erros, veja abaixo: [DCC Error] dNFEletronica_2.pas(1186): E2003 Undeclared identifier: 'TpEmisToStr' [DCC Error] dNFEletronica_2.pas(1651): E2003 Undeclared identifier: 'moNFe' [DCC Error] dNFEletronica_2.pas(1653): E2003 Undeclared identifier: 'StrToVersaoDF' [DCC Error] dNFEletronica_2.pas(2942): E2003 Undeclared identifier: 'StrToTpAmb' if (nfe.pag.Items[0].tPag = fpSemPagamento) --> [DCC Error] dNFEletronica_2.pas(3653): E2008 Incompatible types

Estou começando a desenvolver o envio das tags de CBS e IBS para área de homologação da NFE e estou tendo o erro: reconhece IBSCBS.CST := cst000; achei o topico que um problema igual, tentei colocar nos meus fontes ACBrDFe.Conversao ai no compilar apareceu a msg [DCC Warning] dNFEletronica_2.pas(7): W1006 Unit 'pcnConversao' is deprecated e erros em locais que compilavava normalmente como: indIEDest := StrToindIEDest(bOK, '2') da o erro: [DCC Error] dNFEletronica_2.pas(3744): E2010 Incompatible types: 'string' and 'Boolean' sendo que o bok e bolleano... Atualizei o acbr ontem (11/11/2025) e agora cedo até apaguei a pasta DFE dos fontes e fiz novo update quando atualizo uso o apagarAcbr.bat como administrador...e depois faço update e uso o ACBrInstall_Trunk2.exe sempre mantendo o ACBrInstall_Trunk2.ini que tenho aqui já com as opções que uso... vi que o acbrdfe.conversao aparece com atualização até dia 31/10/2025 conforme imagem em anexo

a meu acbr foi atualizado até o dia 16/10/2025

Eu consigo emitir as notas normalmente tanto em homologação quanto em produção, conferi no site as notas estão la emitidas normalmente, mando cancelar funciona também.......o problema e esses retornos.... mando as notas assim: NFSE.Emitir(dmNFSe.qrConsulta.FieldByName('NumeroNota').AsString, meUnitario,False); ai o rertorno como está acima... tanto é que para conseguir gravar o xml tive que fazer assim: FieldByName('codigoverificacao').AsString := Nfse.NotasFiscais.Items[0].NFSe.CodigoVerificacao; FieldByName('XML').AsString := Nfse.NotasFiscais.Items[0].XmlNfse;

Continuo com o problema de retorno envio a NFSe de Curitiba no ambiente nacional e tanto em área de homologação como na produção no retorno a NFSE.WebService.Emite.XmlRetorno E NFSE.WebService.Emite.XmlEnvio está voltando em formato errado, sabem me dizer o porque? vejam os arquivos em anexo: XMLENVIO.txt XMLRETORNO.txt estou pegando o retorno assim: with qrNFSe do begin Edit; FieldByName('IdStatus').AsInteger := Ord(snfsArquivadaPrefeitura); FieldByName('DtRecepcao').AsDateTime := emite.Data; FieldByName('numerolote').AsInteger := StrToIntDef(Emite.NumeroLote,0); FieldByName('ProtocoloRecepcao').AsString := Emite.Protocolo; FieldByName('codigoverificacao').AsString := Nfse.NotasFiscais.Items[0].NFSe.CodigoVerificacao; FieldByName('XML').AsString := NFSE.WebService.Emite.XmlEnvio; FieldByName('XMLRetorno').AsString := NFSE.WebService.Emite.XmlRetorno; FieldByName('numnfsegerado').AsInteger := StrToIntDef(Emite.NumeroNota,0); FieldByName('SerieNfseGerada').AsString := sSerieNew; Post; //qrNFSe end;

a questão do cancelamento resolvi, mas ainda não descobri porque o Emite.XMl e Emite.xmlretorno e Emite.CodigoVerificacao estão retornando em branco, mesmo validando a Nfse no provedor nacional...