It looks like you're new here. Sign in or register to get started.
BuildWhereUsedList(Type : ' ,Item,Production BOM';No : Code[20];"Calc.Date" : Date;Level : Integer;Quantity : Decimal) IF Level > 30 THEN EXIT; IF Type = Type::"Production BOM" THEN BEGIN ItemAssembly.SETCURRENTKEY("Production BOM No."); ItemAssembly.SETRANGE("Production BOM No.",No); IF ItemAssembly.FIND('-') THEN REPEAT WhereUsedList."Entry No." := NextWhereUsedEntryNo; WhereUsedList."Item No." := ItemAssembly."No."; // Add this line WhereUsedList."Production BOM No." := ItemAssembly."Production BOM No."; // end Add WhereUsedList.Description := ItemAssembly.Description; WhereUsedList."Level Code" := Level; WhereUsedList."Quantity Needed" := Quantity * (1 + ItemAssembly."Scrap %" / 100) * UOMMgt.GetQtyPerUnitOfMeasure( ItemAssembly,
Comments
In the BuildWhereUsedList function
that should show up on the form then.