Ir para conteúdo
  • Cadastre-se

Anadilson Marx

Membros
  • Total de ítens

    159
  • Registro em

  • Última visita

Tudo que Anadilson Marx postou

  1. Veja o anexont-004-se-cgnfse-novo-layout-rtc-v2-00-20251210.pdf
  2. Parece que essa mensagem não tem nada a ver com o erro
  3. Boa tarde, Conseguindo emitir NFSe para Juiz de Fora? Tenho recebido rejeição ao informar essas tags
  4. Veja o AnexoVIII-CorrelacaoItemNBSIndOpCClassTrib_IBSCBS_V1.00.00.xlsx AnexoVIII-CorrelacaoItemNBSIndOpCClassTrib_IBSCBS_V1.00.00.xlsx Veja a correlação entre NBS, IndOp e CClassTrib AnexoVIII-CorrelacaoItemNBSIndOpCClassTrib_IBSCBS_V1.00.00.xlsx
  5. E Belo Horizonte na data de hoje 15/12 ainda não consegui. Mensagem de retorno da prefeitura: Código : RNG9999 Mensagem: Erro não catalogado. Correção: Ocorreu um erro inesperado.
  6. No ambiente de homologação (teste) mude para a versão 1.01. => lnfsPadraoNacionalv101
  7. AnexoVIII-CorrelacaoItemNBSIndOpCClassTrib_IBSCBS_V1.00.00.xlsx
  8. Aparentemente já aceitando a versão 1.01 mas sem informar as tags de ibscbs. étodo Executado: Gerar NFSe Parâmetros de Envio Parâmetros de Retorno Data de Envio : 10/12/2025 Numero do Prot: Numero da Nota: Link : Sucesso : False Mensagem de retorno da prefeitura: Código : RNG9999 Mensagem: Erro n�o catalogado. Correção: Ocorreu um erro inesperado. --------- Código : X999 Mensagem: Erro de Conex�o: Stream read error Correção: --------- NFS-e Numero....: 1034 Cod. Verificacao: Prestador.......: Tomador.........: Anadilson Ferreira Marx
  9. Seguindo o fluxo: ACBNFeNotasFiscais.pas -> LerXml() linha 523 -> ACBrNFeXmlReader -> LerXml linha 167 -> ACBrNFeXmlReader -> LerXml linha 167 -> ACBrXmlDocument -> XMLParseDoc() linha 1365 -> ACBrLibXML2.pas -> XmlParseDoc() linha 844 Quando o conteúdo do xml em "cur" possuí "&" na descrição de produto falha ao ler o xml. Porém é gerado e autorizado perfeitamente, mas não consigo lê-lo depois quando preciso. \\Fontes\ACBrDFe\ACBrLibXml2.pas function xmlParseDoc(const cur: xmlCharPtr): xmlDocPtr; begin if InitLibXml2Interface and Assigned(_xmlParseDoc) then Result := _xmlParseDoc(cur) // linha 844 else Result := nil; end; Contornei com StringReplace() mas acho que o ACBr já poderia fazer o tratamento.
  10. As tags são geradas somente com a versão 1.01 : ACBrNFSeX.Configuracoes.Geral.LayoutNFSe := lnfsPadraoNacionalv101; Mas ainda não está sendo aceito. Com a versão v1.00 : ACBrNFSeX.Configuracoes.Geral.LayoutNFSe := lnfsPadraoNacionalv1; É aceito mas não comtempla as tags de IBSCBS
  11. Debugado tudo... ACBrProviderBase.pas procedure TACBrNFSeXProvider.SalvarPDFNfse(const aNome: string; const aPDF: AnsiString); var aPath, aNomeArq: string; aConfig: TConfiguracoesNFSe; begin aConfig := TConfiguracoesNFSe(FAOwner.Configuracoes); aPath := aConfig.Arquivos.GetPathNFSe(0, aConfig.Geral.Emitente.CNPJ, aConfig.Geral.Emitente.DadosEmitente.InscricaoEstadual); aNomeArq := PathWithDelim(aPath) + aNome + '-nfse.pdf'; WriteToTXT(aNomeArq, aPDF, False, False); end; Não pega o path do PDF ANomeArq fica: 'C:\FortePlus ERP\Bin\Nota Fiscal Eletronica de Serviço\NFSe\202511\31062002225794827000145000000000000325113640312586-nfse.pdf'
  12. Em: ACBrNFSeXWebserviceBase function TACBrNFSeXWebservice.GravarJSON(NomeArquivo, ConteudoXML: String; const aPath: String): Boolean; var SoNome, SoPath: String; begin Result := False; try SoNome := ExtractFileName(NomeArquivo); if EstaVazio(SoNome) then raise EACBrDFeException.Create('Nome de arquivo não informado'); SoPath := ExtractFilePath(NomeArquivo); if EstaVazio(SoPath) then SoPath := aPath; if EstaVazio(SoPath) then SoPath := FPConfiguracoes.Arquivos.PathSalvar; SoPath := PathWithDelim(SoPath); ConteudoXML := StringReplace(ConteudoXML, '<-><->', '', [rfReplaceAll]); if not DirectoryExists(SoPath) then ForceDirectories(SoPath); NomeArquivo := SoPath + SoNome; WriteToTXT(NomeArquivo, ConteudoXML, False, False); Result := True; except on E: Exception do GerarException('Erro ao salvar.', E); end; end; Aqui é que ele atlera. No ExtratFilePath('20251128085256-con-nfse-chv-soap.json') vai retornar vazio aí ele usa: SoPath := FPConfiguracoes.Arquivos.PathSalvar; Até aí tudo bem, para salvar os arquivos. Mas ele mantém esse, e não respeita o Path do PDF
  13. Em: TACBrDFeReport.GetPathPDF está Result := Trim(FPathPDF); e if FUsaSeparadorPathPDF then False o Result está: 'C:\FortePlus ERP\Bin\Nota Fiscal Eletronica de Serviço\PDF\' mas não respeitou
  14. Bom dia, Nesse "codigo_verificacao" está a chave com 50 dígitos. Em: ACBrNFSeX.DANFSE.PathPDF está: 'C:\FortePlus ERP\Bin\Nota Fiscal Eletronica de Serviço\PDF\' mas salva somente "C:\FortePlus ERP\Bin\Nota Fiscal Eletronica de Serviço\NFSe\202511". Debuguei aqui mas não encontrei o porque de não respeitar a pasta própria para "PDF"
  15. Desculpe pelos trechos a mais, mas é um conteúdo pra teste da funcionalidade da ACBrNFSeX.ObterDANFSE()
  16. // Não está respeitando a psta para salvar. Salvando em: ..\Nota Fiscal Eletronica de Serviço\NFSe\202511 ACBrNFSeX.DANFSE.PathPDF := dm.QrExecutaSQL.FieldByName('pathpdfserv').AsString; ACBrNFSeX.DANFSE.UsaSeparadorPathPDF := False; ACBrNFSeX.SSL.HTTPGet('https://adn.producaorestrita.nfse.gov.br/danfse'); ACBrNFSeX.ObterDANFSE(DataSource.DataSet.FieldByName('codigo_verificacao').AsString); //ChecarResposta(tmConsultarNFSePorChave); //ACBrNFSeX.DANFSE.ImprimirDANFSePDF; ArqPdf := ACBrNFSeX.DANFSE.PathPDF + DataSource.DataSet.FieldByName('codigo_verificacao').AsString + '-nfse.pdf'; Achou := FilesExists(ArqPdf); O objetivo é salvar o arquivo obtido na pasta conforme o informado em: ACBrNFSeX.DANFSE.PathPDF e não em: ..\Nota Fiscal Eletronica de Serviço\NFSe\202511
  17. Entendido. Obrigado
  18. Cidade/UF: Belo Horizonte / MG Previsão de Mudança: 1º de outubro de 2025 Tipo de Mudança: Padrão Nacional Fonte/Documentação: https://prefeitura.pbh.gov.br/noticias/belo-horizonte-adere-ao-emissor-nacional-de-nota-fiscal-de-servico-eletronica Alteração realizada no arquivo ACBrNFSeXServicosRTC.ini
  19. Acho que por enquanto só a: ACBrNFSeX.Configuracoes.Geral.LayoutNFSe := lnfsPadraoNacionalv1; E ficar de olho nas datas em anexo Belo Horizonte adere ao Emissor Nacional de Nota Fiscal de Serviço Eletrônica.pdf
  20. Bom dia a todos. Consegui fazer o download do pdf: ACBrNFSeX.SSL.HTTPGet('https://adn.producaorestrita.nfse.gov.br/danfse'); ACBrNFSeX.ObterDANFSE(DataSource.DataSet.FieldByName('codigo_verificacao').AsString); ChecarResposta(tmConsultarNFSePorChave); // Não está respeitando a pasta para salvar. Salvando em: ...\Bin\Nota Fiscal Eletronica de Serviço\NFSe\202511 ACBrNFSeX.DANFSE.PathPDF := dm.QrExecutaSQL.FieldByName('pathpdfserv').AsString; ACBrNFSeX.DANFSE.ImprimirDANFSePDF; Porém não está salvando na pasta correta, que seria: ...\Bin\Nota Fiscal Eletronica de Serviço\PDF
  21. Anadilson Marx

    Obter PDF do DANFSE

    Boa tarde amigos, Não estou conseguindo "Obter PDF do DANFSE". Passo uma chave válida. Inclusive consultando pelo navegador, obtenho do download corretamente do PDF A opção "Consutar NFSe por Chave" o resultado é satisfatório.
  22. Bom dia. Sim, Juliomar, eu vi e tentei emitir em ambas as versões. Na versaõ 1.0 funciona normal, mas não emite as tags de IBSCBS e na versão 1.10 dá o erro de versão. Estou emitindo em regime de homologação na prefeitura de Belo Horizonte, BHISS.
  23. Estou com o mesmo erro: Parâmetros de Retorno Data de Envio : 17/11/2025 Numero do Prot: Numero da Nota: Link : Sucesso : False Mensagem de retorno da prefeitura: Código : RNG9997 Mensagem: Erro de esquema. Correção: The 'versao' attribute is invalid - The value '1.01' is invalid according to its datatype 'http://www.sped.fazenda.gov.br/nfse:TVerNFSe' - The Pattern constraint failed. --------- Código : X203 Mensagem: N�o foi retornado nenhuma NFSe. Correção: ---------
  24. Descupe, queria dizer: USO LoadXMLX(ACBrNFe1.InutNFe.XML, MyWebBrowser, DataSource.DataSet.FieldByName('protocolo').AsString + '.xml', 0); Mas já achei o problema aqui. Obrigado
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.