A Inteligência da Reforma Tributária
Encapsulada em Pascal.

// USO DA CLASSE DA REFORMA COM DUAS PROCEDURES

var
  Ok: Boolean;
  NotaF: NotaFiscal;
  Item: TDetCollectionItem;
  i: Integer;
begin
  Nota := ACBrNFe1.NotasFiscais.Add;
  NotaF.NFe.Ide.natOp  := 'VENDA NOTA';
  NotaF.NFe.Ide.modelo := 55;   // 65 para NFC-e
  NotaF.NFe.Ide.serie  := 1;
  NotaF.NFe.Ide.nNF    := 10;
  // ...demais tags...
  for i := 0 to 10 do
  begin
    Item := NotaF.NFe.Det.New;
    Item.Prod.cProd := '123456';
    Item.Prod.cEAN  := '7896523206646';
    Item.Prod.xProd := 'PRODUTO TESTE COM REFORMA';
    Item.Prod.NCM   := '61051000';
    Nota_Produto_RT(NotaF, Item);    // REFORMA DO ITEM
  end;
  NotaF.NFe.Total.ICMSTot.vBC   := 0;
  NotaF.NFe.Total.ICMSTot.vICMS := 0;
  Nota_Total_RT(NotaF);    // REFORMA TOTAL
  // ...demais tags
end;