...
DataItemTableView=SORTING(Number);
DataItemVarName=KitSalesLine;
OnPreDataItem=BEGIN
IF (SalesLine.Type <> SalesLine.Type::Item) OR NOT SalesLine."Kit Item" THEN
CurrReport.BREAK;
// Delete the following lines.
IF NOT Item.GET(SalesLine."No.") THEN
CLEAR(Item);
CASE Cust."Components on Sales Orders" OF
Cust."Components on Sales Orders"::"Do Not Show":
CurrReport.BREAK;
Cust."Components on Sales Orders"::" ":
CASE Item."Components on Sales Orders" OF
Item."Components on Sales Orders"::"Do Not Show":
CurrReport.BREAK;
Item."Components on Sales Orders"::" ":
IF SalesSetup."Components on Sales Orders" = SalesSetup."Components on Sales Orders"::"Do Not Show" THEN
CurrReport.BREAK;
END;
END;
// End of the lines.
TempKitSalesLine.DELETEALL;
KitManagement.GetKitSalesLinesToPrint(SalesLine,TempKitSalesLine);
TempKitSalesLine.SETRANGE(Type,TempKitSalesLine.Type::Item);
SETRANGE(Number,1,TempKitSalesLine.COUNT);
END;
...
...
DataItemTableView=SORTING(Number);
DataItemVarName=KitSalesLine;
OnPreDataItem=BEGIN
IF (SalesLine.Type <> SalesLine.Type::Item) OR NOT SalesLine."Kit Item" THEN
CurrReport.BREAK;
// Add the following lines.
IF KitManagement.SkipShowingKitCompOnSale("Sales Header"."Sell-to Customer No.",SalesLine."No.") THEN
CurrReport.BREAK;
// End of the lines.
TempKitSalesLine.DELETEALL;
KitManagement.GetKitSalesLinesToPrint(SalesLine,TempKitSalesLine);
TempKitSalesLine.SETRANGE(Type,TempKitSalesLine.Type::Item);
SETRANGE(Number,1,TempKitSalesLine.COUNT);
END;
...