cesar_moura

Companheiros em minhas pesquisas e estudos para implantar a Reforma Tributária no meu ERP descobri os Links abaixo que me auxiliaram muito e achei que seria importante repassar para vocês. Layout NFe http://moc.sped.fazenda.pr.gov.br/Leiaute.html Tabela CST cClasTrib IBS;CBS https://dfe-portal.svrs.rs.gov.br/DFE/ClassificacaoTributaria tabela NCM on-line https://portalunico.siscomex.gov.br/classif/#/sumario?perfil=publico Regras de Validacao IBS CBS http://moc.sped.fazenda.pr.gov.br/RegrasDeValidação.html

Obrigado aos colegas, reinstalei o ACBr e o erro não ocorreu mais. RESOLVIDO.

Tiago, obrigado pela atenção. Veja abaixo como fica o XML gerado pelo projeto exemplo do ACBr (ACBrNFe_Exemplo.exe) quando informo Prod.tpCredPresIBSZFM := tcpNenhum e comento as tag's para que não sejam alimentadas // IBSCBS.gCredPresIBSZFM.competApur := Date; // IBSCBS.gCredPresIBSZFM.tpCredPresIBSZFM := tcpBensInformaticaOutros; // IBSCBS.gCredPresIBSZFM.vCredPresIBSZFM := 100; da erro na validção devido o formato da TAG <gCredPresIBSZFM> que é escrita assim no XML52251119347086000151550010000074851995364174-nfe.xml52251119347086000151550010000074851995364174-nfe.xml: <gCredPresIBSZFM> <competApur>1899-12</competApur> <tpCredPresIBSZFM/> </gCredPresIBSZFM> como a TAG é escrita dessa forma nao passa na validação, tem alguma UNIT com problema. 52251119347086000151550010000074851995364174-nfe.xml

Josafar, existe um Projeto em Delphi como exemplo para você emitir NFe com as tag's dos impostos da Reforma Tributaria na pasta "C:\PROJETOS\ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi\ACBrNFe_Exemplo.dpr" Abra esse projeto com o seu Delphi executa, informa os parâmetros e pode gerar uma NFe (com dados fictícios) com ou sem as tag's da Reforma Tributaria.

Tiago, obrigado pela atenção porque realmente não estou entendendo o que ocorre, mas abaixo te mostro o que acontece quando faço o que me orientou, quando gero um documento nfe no projeto de exemplo do ACBr (ACBrNFe_Exemplo.exe) marcando a opção de "Gera os campos da Reforma Tributaria" ocorre esse erro na validação e a construção da TAG "gCredPresIBSZFM" que não deveria haver ainda fica errada, erro na validação veja como fica a TAG "gCredPresIBSZFM" no XML <gCredPresIBSZFM> <competApur>1899-12</competApur> <tpCredPresIBSZFM/> </gCredPresIBSZFM> Não consegui entender o que ocorre, se atualizar os fontes do ACBr e gerar uma NFe marcando os campos da reforma tributaria acontecerá a mesma coisa. Lembrando que esse projeto do ACBr (ACBrNFe_Exemplo.exe) gera NFe e NFCe fiz as alterações no modelo de documento NFe Emfim...

Tiago, saudações parceiro. vc afirma que "colocando Prod.tpCredPresIBSZFM := tcpNenhum;" passa SEM ERRO na validação do XML porem no inicio vc fala "olhando o exemplo do componente voçês estão declarando a tag tpCredPresIBSZFM dentro dos dados do produto, mais assim dá erro no eschema xml" sendo que a declaração "Prod.tpCredPresIBSZFM := tcpNenhum". esta dentro dos dados do produto. Os fontes do ACBr estão atualizados mas o projeto de exemplo de NFE não passa na validação do XML devido a essa tag "gCredPresIBSZFM" ser inserida no grupo de impostos IBSCBS mesmo declarando "Prod.tpCredPresIBSZFM := tcpNenhum". O XML que o ACBr gera no projeto de exemplo da NFe esta anexado abaixo. não estou conseguindo resolver esse erro e estou parado nisso, obrigado. 52251119347086000151550010000745101472097908-nfe.xml

o erro esta na tag <competApur>2025-11</competApur> retornando a mensagem "IS NOT A VALID DATE" DELPHI IBSCBS.gCredPresIBSZFM.competApur := Date; IBSCBS.gCredPresIBSZFM.tpCredPresIBSZFM := tcpBensInformaticaOutros; IBSCBS.gCredPresIBSZFM.vCredPresIBSZFM := 100; XML <gCredPresIBSZFM> <competApur>2025-11</competApur> <tpCredPresIBSZFM>4</tpCredPresIBSZFM> <vCredPresIBSZFM>100.00</vCredPresIBSZFM> </gCredPresIBSZFM>

sim, fontes atualizados e Schema também. Não consigo passar para frente devido a esse erro.

Presados colegas, não estou conseguindo validar o XML esse grupo UB a tag <gCredPresIBSZFM> mesmo não sendo informada esta gerando esse erro na validação --> 1871 - Element '{http://www.portalfiscal.inf.br/nfe}gCredPresIBSZFM': Missing chidl elements(s). Expected is'{http://www.portalfiscal.inf.br/nfe}vCredPresIBSZFM). A TAG foi escrita assim no XML, me parece que esta incompleta. <gCredPresIBSZFM> <competApur>1899-12</competApur> <tpCredPresIBSZFM/> </gCredPresIBSZFM> segue abaixo o XML. 52251119347086000151550010000039821903833153-nfe.xml

SAUDACOES COLEGAS DO ACBr na pagina da receita federal: https://www.gov.br/receitafederal/pt-br/assuntos/noticias/2025/julho/receita-federal-libera-ferramenta-oficial-de-calculo-da-reforma-tributaria-sobre-o-consumo Consta essa declaração sobre a Calculadora Tributaria: "Um novo modelo de cooperação entre contribuinte e Fisco Mais do que uma entrega tecnológica, essa iniciativa representa uma mudança estrutural no relacionamento entre o contribuinte e a Administração Tributária. A lógica tradicional de autodeclaração, em que o contribuinte calcula isoladamente os tributos devidos, dá lugar a um modelo cooperado: o contribuinte informa os dados da operação, e a Calculadora aplica as regras legais de forma padronizada, transparente e auditável. Esse novo arranjo fortalece a confiança mútua, promove segurança jurídica, reduz a complexidade e torna o cumprimento das obrigações tributárias mais claro, previsível e tecnicamente verificável. Ao adotar esse modelo, cria-se um ambiente mais simples, seguro e alinhado à realidade operacional dos agentes econômicos." Acredito que esse novo modelo é o melhor CONCEITO a ser adotado para apropriar os impostos, alíquotas, valores e fundamentação da lei tributaria para as OPERAÇÕES. Consegui avançar com as TAG's que deveram popular os arquivos XML's da NFe, CTe, NFCe e também na instalação da Calculadora Tributaria usando WSL, meu objetivo agora é justamente interagir com a Calculadora via JASON mas não consegui montar uma operação válida com o Banco de Dados da Calculadora o exemplo explanado nesse POST não funciona na minha instalação apesar de já ter baixado e atualizado o Banco de Dados, se alguém conseguiu outros resultados com a Calculadora Fiscal e publicar aqui seria muito bom.

Instalei a Calculadora OFF-LINE e com esses parametros nao consegui o resultado que foi demonstrado, ele retorna um erro informando que o NCM nao existe. Vou baixar a calculadora novamente para atualizar o banco de dados e ver se resolve.

Inicio TNFeStatusServico ERRO: Erro Interno: 12007 Erro HTTP: 0 URL: https://homolog.sefaz.go.gov.br/nfe/services/NFeStatusServico4?wsdl Erro: 12007 - O nome do servidor não pode ser resolvido ESTAVA TRABALHANDO NA SEFAZ DE GOIAS MAS AGORA ESTA FORA, SERA QUE VAI ESTABILIZAR ???? Fiquei animado em saber que conseguiu autorizar uma nfe com as tags IBS/CBS mas me deparei com a SEFAZ Homologacao fora do ar.

Eu estou optando por usar a Calculadora Tributária da Receita Federal vejam os links abaixo. Eu disponibilizei em um tópico aqui sobre a Reforma Tributaria uma rotina em Delphi que usa a técnica JSON/REST para interagir com a calculadora tributaria. https://www.gov.br/receitafederal/pt-br/assuntos/noticias/2025/julho/receita-federal-libera-ferramenta-oficial-de-calculo-da-reforma-tributaria-sobre-o-consumo https://piloto-cbs.tributos.gov.br/servico/calculadora-consumo/calculadora

Bom dia Sergio, consegue postar o XML para avaliarmos ?

Boa tarde HASA, ainda a mesma situação, a tag vIBSUF é alterada para o valor ZERO após o envio do XML da NFe para o ambiente de HOMOLOGAÇÃO da SEFASZ. Ai ficamos sem entender, como citei anteriormente o XML é alterado mas apenas com a inserção do protocolo de autorização. Se algum colega conseguiu ter o XML NFe aceito pelo ambiente de HOMOLOGAÇÃO, por favor nos informe.

Pessoal do ACBr, saudações. Abaixo publico um procedimento que faz interface com a Calculadora Tributária usando a técnica JSON/REST. O objetivo de obter da Calculadora Fiscal os valores de IBS/CBS/IS para alimentar as TAG´s do Grupo UB da NFe modelo 55. Ainda não obtive sucesso após enviar um XML NFe com as TAG´s do Grupo UB devidamente preenchidas para o ambiente de HOMOLOGAÇÃO é sempre retornado o erro "1080 total de IBS UF difere da soma dos itens". Se algum dos nossos colegas já conseguiram enviar um XML NFe com sucesso gostaria de analisar o mesmo. Segue a publicação. -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----- CLASSES A DECLARAR uses System.Net.HttpClient, System.JSON, System.SysUtils, System.Net.HttpClientComponent, System.Net.URLClient, System.StrUtils; ----- LAYOUT DA REQUISIÇÃO JSON "id": "string", // Identificador único da requisição "versao": "string", // Versão da estrutura ou da API "dataHoraEmissao": "string", // Data e hora da emissão da operação (formato ISO 8601) "municipio": "integer", // Código IBGE do município do FATO GERADOR "uf": "string", // Sigla da unidade federativa do FATO GERADOR (ex: "SP", "BA") "itens": "numero": "integer", // Número sequencial do item "ncm": "string", // Código NCM do produto "nbs": "string|null", // Código NBS do serviço (ou null se não aplicável) "quantidade": "Currency", // Quantidade comercializada "unidade": "string", // Unidade de medida (ex: "KG", "UN") "cst": "string", // Código de Situação Tributária (CST) "baseCalculo": "Currency", // Valor da base de cálculo "cClassTrib": "string", // Código de Classificação Tributária (vinculado ao CST) "impostoSeletivo": null, // Reservado para futura inclusão do IS (Imposto Seletivo) "tributacaoRegular": null // Reservado para detalhamento de regime regular ----- DECLARAÇÃO DA PROCEDURE DA REQUISIÇÃO JSON procedure MontarJsonOperacaoTributaria(const AId: string; const AVersao: string; const ADataHoraEmissao: string; const AMunicipio: Integer; const AUF: string; const ANumero: Integer; const ANCM: string; const ANBS: string; const AQuantidade: Double; const AUnidade: string; const ACST: string; const ABaseCalculo: Currency; const AClasseTributaria: string; var JsonSaida: string); ----- PROCEDURE procedure TFrmConsultaNotaFiscal.MontarJsonOperacaoTributaria( const AId: string; const AVersao: string; const ADataHoraEmissao: string; const AMunicipio: Integer; const AUF: string; const ANumero: Integer; const ANCM: string; const ANBS: string; const AQuantidade: Double; const AUnidade: string; const ACST: string; const ABaseCalculo: Currency; const AClasseTributaria: string; var JsonSaida: string); var HttpClient: THTTPClient; Response: IHTTPResponse; JsonBody: TStringStream; JsonText, ValorNBS: string; JsonRetorno: string; ValorIBS_UF, PercIBS_UF: Currency; ValorIBS_Mun, PercIBS_Mun: Currency; ValorCBS, PercCBS: Currency; begin // Tratar valor nulo do campo NBS if ANBS = '' then ValorNBS := 'null' else ValorNBS := '"' + ANBS + '"'; // Montagem manual do JSON (compatível com layout da API) JsonText := '{' + ' "id": "' + AId + '",' + ' "versao": "' + AVersao + '",' + ' "dataHoraEmissao": "' + ADataHoraEmissao + '",' + ' "municipio": ' + IntToStr(AMunicipio) + ',' + ' "uf": "' + AUF + '",' + ' "itens": [' + ' {' + ' "numero": ' + IntToStr(ANumero) + ',' + ' "ncm": "' + ANCM + '",' + ' "nbs": ' + ValorNBS + ',' + ' "quantidade": ' + FloatToStr(AQuantidade) + ',' + ' "unidade": "' + AUnidade + '",' + ' "cst": "' + ACST + '",' + ' "baseCalculo": ' + CurrToStr(ABaseCalculo) + ',' + ' "cClassTrib": "' + AClasseTributaria + '",' + ' "impostoSeletivo": null,' + ' "tributacaoRegular": null' + ' }' + ' ]' + '}'; ListaErrosPCNDes.Lines.add('--> JSON: ' + JsonText); JsonBody := TStringStream.Create(JsonText, TEncoding.UTF8); HttpClient := THTTPClient.Create; try HttpClient.ContentType := 'application/json'; // Envio para a API Response := HttpClient.Post('https://piloto-cbs.tributos.gov.br/servico/calculadora-consumo/api/calculadora/regime-geral', JsonBody); ShowMessage('Status -> ' + IntToStr(Response.StatusCode)); // Exibição do retorno if Response.StatusCode = 200 then Begin // Chama a procedure para extrair os tributos do JSON de retorno JsonRetorno := Response.ContentAsString(TEncoding.UTF8); showmessage('vai extrair os dados do JSON'); ExtraiTributosDoJson(JsonRetorno, ValorIBS_UF, PercIBS_UF, ValorIBS_Mun, PercIBS_Mun, ValorCBS, PercCBS); End else ShowMessage('Combinação CST/cClasstrib INVALIDA!!'); finally JsonBody.Free; HttpClient.Free; end; end; ----- DECLARAÇÃO DA PROCEDURE QUE SINTETISA OS RESULTADOS DA REQUISIÇÃO JSON procedure ExtraiTributosDoJson(const JsonRetorno: string; out ValorIBS_UF, PercIBS_UF: Currency; out ValorIBS_Mun, PercIBS_Mun: Currency; out ValorCBS, PercCBS: Currency); ----- PROCEDURE procedure TFrmConsultaNotaFiscal.ExtraiTributosDoJson(const JsonRetorno: string; out ValorIBS_UF, PercIBS_UF: Currency; out ValorIBS_Mun, PercIBS_Mun: Currency; out ValorCBS, PercCBS: Currency); var Root, Obj1, TribCalc, IBSCBS, gIBSCBS, gIBSUF, gIBSMun, gCBS: TJSONObject; Parsed: TJSONValue; ValorStr: string; function ParseCurrency(const S: string): Currency; begin Result := 0; try ValorStr := StringReplace(S, '.', ',', [rfReplaceAll]); // Corrige separador decimal Result := StrToCurr(ValorStr); except on E: Exception do ShowMessage('Erro ao converter valor: ' + S + sLineBreak + E.Message); end; end; begin // Inicializa os valores ValorIBS_UF := 0; PercIBS_UF := 0; ValorIBS_Mun := 0; PercIBS_Mun := 0; ValorCBS := 0; PercCBS := 0; Parsed := TJSONObject.ParseJSONValue(JsonRetorno); if not Assigned(Parsed) then begin ShowMessage('JSON inválido ou vazio.'); Exit; end; try Root := Parsed as TJSONObject; try Obj1 := (Root.Values['objetos'] as TJSONArray).Items[0] as TJSONObject; TribCalc := Obj1.Values['tribCalc'] as TJSONObject; IBSCBS := TribCalc.Values['IBSCBS'] as TJSONObject; gIBSCBS := IBSCBS.Values['gIBSCBS'] as TJSONObject; gIBSUF := gIBSCBS.Values['gIBSUF'] as TJSONObject; gIBSMun := gIBSCBS.Values['gIBSMun'] as TJSONObject; gCBS := gIBSCBS.Values['gCBS'] as TJSONObject; // Extrai com segurança usando ParseCurrency PercIBS_UF := ParseCurrency(gIBSUF.Values['pIBSUF'].Value); ListaErrosPCNDes.Lines.add(' '); ListaErrosPCNDes.Lines.add('--> PercIBS_UF: ' + CurrToStr(PercIBS_UF)); ValorIBS_UF := ParseCurrency(gIBSUF.Values['vIBSUF'].Value); ListaErrosPCNDes.Lines.add(' '); ListaErrosPCNDes.Lines.add('--> ValorIBS_UF: ' + CurrToStr(ValorIBS_UF)); PercIBS_Mun := ParseCurrency(gIBSMun.Values['pIBSMun'].Value); ListaErrosPCNDes.Lines.add(' '); ListaErrosPCNDes.Lines.add('--> PercIBS_Mun: ' + CurrToStr(PercIBS_Mun)); ValorIBS_Mun := ParseCurrency(gIBSMun.Values['vIBSMun'].Value); ListaErrosPCNDes.Lines.add(' '); ListaErrosPCNDes.Lines.add('--> ValorIBS_Mun: ' + CurrToStr(ValorIBS_Mun)); PercCBS := ParseCurrency(gCBS.Values['pCBS'].Value); ListaErrosPCNDes.Lines.add(' '); ListaErrosPCNDes.Lines.add('--> PercCBS: ' + CurrToStr(PercCBS)); ValorCBS := ParseCurrency(gCBS.Values['vCBS'].Value); ListaErrosPCNDes.Lines.add(' '); ListaErrosPCNDes.Lines.add('--> ValorCBS: ' + CurrToStr(ValorCBS)); except on E: Exception do ShowMessage('Erro ao extrair tributos do JSON: ' + E.Message); end; finally Parsed.Free; end; end; --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

SAUDAÇÕES colegas do ACBr. link: https://www.gov.br/receitafederal/pt-br/assuntos/noticias/2025/julho/receita-federal-libera-ferramenta-oficial-de-calculo-da-reforma-tributaria-sobre-o-consumo algum colega já estudou esse assunto ou já esta utilizando ou tem uma opinião sobre esse recurso da Receita Federal ?? A ideia parece muito boa mas ainda não vi nenhuma abordagem sobre ela no nosso forum.

Juliomar, estou estudando aqui sobre esse recurso, obrigado pela dica.

Desculpe Juliomar, pode me passar mais detalhes de como fazer isso ?

Após enviar o arquivo xml da NFe que possui tag´s sobre IBS e CBS para a SEFAZ no ambiente de homologação o xml da nfe gerado com a tag " IBSCBSTot.gIBS.gIBSUFTot.vIBSUF" preenchida com o respectivo valor é retornado com o erro "1080 Rejeição: Total de IBS UF difere da soma dos itens." após esse retorno de erro de envio, quando abro o respectivo arquivo XML a referida TAG (IBSCBSTot.gIBS.gIBSUFTot.vIBSUF) esta com valor zerado. Eu sei que existe alteração nesse referido arquivo xml após ser enviado mas, o que é alterado é que no final desse arquivo é acrescentado o protocolo de autorização que foi gerado pela SEFAZ mas o que esta ocorrendo nesse caso é a alteração dessa tag (IBSCBSTot.gIBS.gIBSUFTot.vIBSUF) para valor zero.

Pessoal consegui descobrir em um post aqui no fórum, são essas funções abaixo. Obrigado. var_CodigoBarras := ACBrBoleto1.Banco.MontarCodigoBarras(ACBrBoleto1.ListadeBoletos[0]); Var_CodigoBarraBoleto := ACBrBoleto1.Banco.MontarLinhaDigitavel(var_CodigoBarras,ACBrBoleto1.ListadeBoletos[0]);

pessoal, saudações. Preciso gravar o código de barras do boleto gerado pelo ACBrBoleto em uma tabela de títulos financeiros no meu banco de dados como faço para acessar essa informação no componente ? ou tenho que criar esse código de barras a partir do TACBrBarCode ? obrigado.

ok, exclui o numero do Certificado Digital, retornou esse erro.

Italo, fiz essa simulação com os parâmetros sugeridos.

Boa tarde Italo. Retornou "Erro ao ler informações do Certificado. Provavelmente a Senha esta errada" essa é a configuração ACBrCTe1.SSL.SSLType := LT_TLSv1_2; ACBrCTe1.Configuracoes.Geral.SSLLib := libOpenSSL; ACBrCTe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; ACBrCTe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; ACBrCTe1.Configuracoes.Geral.SSLXmlSignLib:= xsLibXml2; // ACBrCTe1.Configuracoes.Certificados.Certificado := CTe_CaminhoCertificado; ACBrCTe1.Configuracoes.Certificados.NumeroSerie := CTe_CertDigitalSerie; ACBrCTe1.Configuracoes.Certificados.Senha := CTe_CertDigitalSenha; ACBrCTe1.Configuracoes.Geral.FormaEmissao := teNormal; ACBrCTe1.Configuracoes.Geral.Salvar := True; ACBrCTe1.Configuracoes.Certificados.ArquivoPFX := CTe_CaminhoCertificado; ACBrCTe1.Configuracoes.Certificados.DadosPFX := CTe_CertDigitalSerie; //***************** versao 3.00 ACBrCTe1.Configuracoes.Geral.VersaoDF := pcteConversaoCTe.ve300; // ACBrCTe1.Configuracoes.Geral.PathSalvar := edtPathLogs.Text; ACBrCTe1.Configuracoes.WebServices.UF := CTe_SEFAZUF;