Reprt section trgger

Hi all Friends

my problem is that i have following code in a report section named Print single record ,BODY(2)

PrintSingleRec, Body (2) - OnPreSection()

IF (ItemDimValue <> TempSalesInvoiceLine.Description) THEN BEGIN
ItemDimValue := TempSalesInvoiceLine.Description;
SizeDimValue:='';
LineAmount := 0;
GroupQty := 0;
UOM := '';
TempSalesInvoiceLine1.RESET;
TempSalesInvoiceLine1.SETFILTER(Description,'%1',ItemDimValue);
IF TempSalesInvoiceLine1.FIND('-') THEN
REPEAT
SizeDimValue += TempSalesInvoiceLine1."Description 2" + ', ';
GroupQty += TempSalesInvoiceLine1.Quantity;
ListPrice := TempSalesInvoiceLine1."Unit Price Incl. of Tax";
UOM := TempSalesInvoiceLine1."Unit of Measure";
"Disc%" := TempSalesInvoiceLine1."Line Discount %";
IF TempSalesInvoiceLine1."Line Discount %" <> 0 THEN
"UnitPriceExcl.VAT" := TempSalesInvoiceLine1."Unit Price Incl. of Tax" -
(TempSalesInvoiceLine1."Unit Price Incl. of Tax" * (TempSalesInvoiceLine1."Line Discount %"/100))
ELSE
"UnitPriceExcl.VAT" := TempSalesInvoiceLine1."Unit Price Incl. of Tax";

IF (TempSalesInvoiceLine.Type <> TempSalesInvoiceLine.Type :: "G/L Account") AND
(TempSalesInvoiceLine."No." <> RoundOffAc) THEN BEGIN
LineAmount += TempSalesInvoiceLine1."Amount To Customer";
SubTotal += TempSalesInvoiceLine1."Amount To Customer";
TfTotal += (TempSalesInvoiceLine1."Line Amount"+TempSalesInvoiceLine1."Line Discount Amount");
LineDiscAmount += TempSalesInvoiceLine1."Line Discount Amount";
END;
UNTIL TempSalesInvoiceLine1.NEXT=0;
//CurrReport.SHOWOUTPUT(TRUE);
BlankRow += 1;
END ELSE BEGIN
CurrReport.SHOWOUTPUT(FALSE);
END;
// Added By Devendra Gupta on 19/10/2010 for Round Off Value Start
IF (TempSalesInvoiceLine1.Type = TempSalesInvoiceLine1.Type :: "G/L Account") AND
(TempSalesInvoiceLine1."No." = RoundOffAc) THEN BEGIN
RoundOffAmt := TempSalesInvoiceLine."Amount To Customer";
CurrReport.SHOWOUTPUT(FALSE);
BlankRow -= 1;
END;

// Added By Devendra Gupta on 19/10/2010 for Round Off Value End
IF TempSalesInvoiceLine."Unit of Measure" <> '' THEN BEGIN
TFlag:=FALSE;TArrNum:=0;
ArrUnitExist(TempSalesInvoiceLine."Unit of Measure",TFlag,TArrNum);
IF TFlag=TRUE THEN
ArrQty[TArrNum] += TempSalesInvoiceLine.Quantity
ELSE BEGIN
ArrUnit[TArrNum] := TempSalesInvoiceLine."Unit of Measure";
ArrQty[TArrNum] := TempSalesInvoiceLine.Quantity;
END;
END;
TaxAmount += TempSalesInvoiceLine."Tax Amount";


now my question is that how can i manage this code in RTC report?

please help me I waisted so many time in this.

plzzz