uses
  NFSeTributacaoRT, ACBrNFSeX;

var
  RT: TNFSeTributacaoRT;
  Valores: TRTCValores;
begin
  // Cria instância
  RT := TNFSeTributacaoRT.New(ACBrNFSeX1);

  try
    // Configura informações obrigatórias
    RT.Finalidade(fnfsRegular)
      .IndFinal(False)  // Não é para consumo pessoal
      .CIndOp('12345');  // Código da operação

    // Configura valores para cálculo
    Valores.vServ := 1000;
    Valores.descIncond := 0;
    Valores.vISSQN := 50;

    RT.Valores(Valores)
      .Aliquotas(0.10, 0.05, 0.20)  // 10% UF, 5% Mun, 20% CBS
      .Reducoes(0, 0, 0, 0);        // Sem reduções

    // Calcula e aplica
    RT.CalcularEAplicar(2024);

    // Obtém resultado
    ShowMessageFmt('IBS Total: R$ %.2f', [RT.Resultado.vIBSTot]);

  finally
    RT.Free;
  end;
end;

var
  RT: TNFSeTributacaoRT;
  Dest: TRTCDestinatario;
  Imov: TRTCImovel;
  Valores: TRTCValores;
begin
  RT := TNFSeTributacaoRT.New(ACBrNFSeX1);

  try
    // Configurações da operação
    RT.Finalidade(fnfsRegular)
      .IndFinal(False)
      .CIndOp('VENDA_SERV')
      .TpOper(togVenda)
      .TpEnteGov(tcgEstadual, 'Secretaria da Fazenda')
      .IndDest(idTomadorAdquirenteDestinatarioIguais);

    // Configura destinatário
    Dest.CNPJ := '12345678901234';
    Dest.xNome := 'Empresa Cliente Ltda';
    Dest.ender.cMun := 3550308;  // São Paulo
    Dest.ender.xLgr := 'Rua das Flores';
    Dest.ender.nro := '123';
    Dest.ender.xBairro := 'Centro';

    RT.Destinatario(Dest);

    // Configura valores
    Valores.vServ := 5000;
    Valores.descIncond := 100;
    Valores.vISSQN := 150;
    Valores.vPIS := 25;
    Valores.vCOFINS := 115;
    Valores.vLiq := 4900;

    RT.Valores(Valores)
      .Aliquotas(0.12, 0.08, 0.25)  // 12% UF, 8% Mun, 25% CBS
      .Reducoes(0.10, 0.05, 0.15, 0.20)  // Reduções específicas
      .CreditoPresumido(0.05, 0.10); // Créditos presumidos

    // Localidade de incidência
    RT.LocalidadeIncid(3550308, 'São Paulo - SP');

    // Calcula e aplica todos os dados
    RT.CalcularEAplicar(2024);

    // Exibe resultados
    with RT.Resultado do
    begin
      Memo.Lines.Add(Format('Base de Cálculo: R$ %.2f', [vBC]));
      Memo.Lines.Add(Format('IBS UF: R$ %.2f', [vIBSUF]));
      Memo.Lines.Add(Format('IBS Município: R$ %.2f', [vIBSMun]));
      Memo.Lines.Add(Format('CBS: R$ %.2f', [vCBS]));
      Memo.Lines.Add(Format('Total da Nota: R$ %.2f', [vTotNF]));
    end;

  finally
    RT.Free;
  end;
end;

vServ: Currency;        // Valor do serviço
descIncond: Currency;   // Desconto incondicional
vCalcReeRepRes: Currency; // Valor calculado de reembolso/repasse
vISSQN: Currency;       // Valor do ISSQN
vPIS: Currency;         // Valor do PIS
vCOFINS: Currency;      // Valor do COFINS
vLiq: Currency;         // Valor líquido

AnoReferencia: Word;    // Ano de referência para cálculo
vBC: Currency;          // Base de cálculo
pIBSUF: Double;         // Alíquota IBS UF
vIBSUF: Currency;       // Valor IBS UF
pIBSMun: Double;        // Alíquota IBS Município
vIBSMun: Currency;      // Valor IBS Município
pCBS: Double;           // Alíquota CBS
vCBS: Currency;         // Valor CBS
vTotNF: Currency;       // Total da nota