Erro básico ao gerar fechamento do cálculo do IBS e CBS

[Ale Hexata]

Esse é o codigo que tento gerar para atender a legislação no entanto algumas tags estão me atrapalhando e gerando erros:

<IBSCBS>
    <CST>000</CST>
    <cClassTrib>000001</cClassTrib>
    <gIBSCBS>
        <vBC>1000.00</vBC>
        <gIBSUF>
            <pIBSUF>0.1000</pIBSUF>
            <vIBSUF>1.00</vIBSUF>
        </gIBSUF>
        <gIBSMun>
            <pIBSMun>0.0000</pIBSMun>
            <vIBSMun>0.00</vIBSMun>
        </gIBSMun>
        <vIBS>1.00</vIBS>
        <gCBS>
            <pCBS>0.9000</pCBS>
            <vCBS>9.00</vCBS>
        </gCBS>
    </gIBSCBS>
</IBSCBS>

 

 

meu código:

 

      IBSCBS.CST := cst000;
      IBSCBS.cClassTrib := '000001';
      IBSCBS.indDoacao := tieNao;

      IBSCBS.gIBSCBS.vBC := auxvalorproduto;

  //DESTACANDO A IBS

     auxaliquotaibsuf:=0.1000;

      auxaliquotacbs:=0.9000;

     auxvalorproduto:=10.000;

      IBSCBS.gIBSCBS.gIBSUF.pIBSUF := auxaliquotaibsuf;
      IBSCBS.gIBSCBS.gIBSUF.vIBSUF := auxaliquotaibsuf * auxvalorproduto / 100;

      IBSCBS.gIBSCBS.gIBSUF.gDif.pDif := 0;
      IBSCBS.gIBSCBS.gIBSUF.gDif.vDif := 0;

      IBSCBS.gIBSCBS.gIBSUF.gDevTrib.vDevTrib := 0;

      IBSCBS.gIBSCBS.gIBSUF.gRed.pRedAliq := 0;
      IBSCBS.gIBSCBS.gIBSUF.gRed.pAliqEfet := 0;

      IBSCBS.gIBSCBS.gIBSMun.pIBSMun := 0;
      IBSCBS.gIBSCBS.gIBSMun.vIBSMun := 0;

      IBSCBS.gIBSCBS.gIBSMun.gDif.pDif := 0;
      IBSCBS.gIBSCBS.gIBSMun.gDif.vDif := 0;

      IBSCBS.gIBSCBS.gIBSMun.gDevTrib.vDevTrib := 0;

      IBSCBS.gIBSCBS.gIBSMun.gRed.pRedAliq := 0;
      IBSCBS.gIBSCBS.gIBSMun.gRed.pAliqEfet := 0;

 

  //DESTACANDO A CBS

      IBSCBS.gIBSCBS.gCBS.pCBS := auxaliquotacbs;
      IBSCBS.gIBSCBS.gCBS.vCBS := auxaliquotacbs * auxvalorproduto / 100;

      IBSCBS.gIBSCBS.gCBS.gDif.pDif := 0;
      IBSCBS.gIBSCBS.gCBS.gDif.vDif := 0;

      IBSCBS.gIBSCBS.gCBS.gDevTrib.vDevTrib := 0;

      IBSCBS.gIBSCBS.gCBS.gRed.pRedAliq := 0;
      IBSCBS.gIBSCBS.gCBS.gRed.pAliqEfet := 0;

 

Erro apresentado: 

               Valor da Aliquota Efetiva do IBS da UF calculado incorretamente

 

estou errando em algo básico?

 

Tentei sumprir essa parte do gRed no ACBRXMLWRITER no entanto comentando o código nessa parte ainda assim não desaparece as tags zeradas:

 

  // Grava a tag no arquivo - Quando não existir algum conteúdo
  if ((ocorrencias = 1) and (EstaVazio)) then
  begin
   // Result := CreateElement(Tag);    linha comentada
    exit;
  end;

 

Algum amigo que tenha um exemplo prático do preechimento validado que possa me ajudar? 

 

 

 

Editado 31 Dezembro, 2025 por Ale Hexata
esclarecer melhor

[BigWings]

2 minutos atrás, Ale Hexata disse:

Erro apresentado: 

               Valor da Aliquota Efetiva do IBS da UF calculado incorretamente

estou errando em algo básico?

Está informando algo de compra governamental?

Informando 0 para o pRedAliq e pAliqEfet não deveria ter a rejeição, a menos que esteja preenchendo dados de compra governamental, nesse caso você precisa calcular o pAliqEfet.

[Ale Hexata]

Comentei o codigo abaixo que havia nao percebido do exemplo e agora sim passou, muito grato meu amigo, Feliz ano novo!    

 

{
    NotaF.NFe.Ide.gCompraGov.tpEnteGov := tcgEstados;
    NotaF.NFe.Ide.gCompraGov.pRedutor := 5;
    NotaF.NFe.Ide.gCompraGov.tpOperGov := togFornecimento;

    }

[BigWings]

Obrigado por reportar.

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