ItemJournalLine.INIT; ItemJournalLine.VALIDATE("Posting Date",WORKDATE); ..... ItemJournalLine.VALIDATE("Document Date",WORKDATE); CreateReservEntry.SetDates( 0D, 0D); CreateReservEntry.CreateReservEntryFor( DATABASE::"Item Journal Line", ItemJournalLine."Entry Type", ItemJournalLine."Journal Template Name", ItemJournalLine."Journal Batch Name", 0, ItemJournalLine."Line No.", ItemJournalLine."Qty. per Unit of Measure", ItemJournalLine.Quantity, ItemJournalLine."Quantity (Base)", "Serial No.", ''); CreateReservEntry.CreateEntry( ItemJournalLine."Item No.", ItemJournalLine."Variant Code", ItemJournalLine."Location Code", ItemJournalLine.Description, ItemJournalLine."Posting Date", ItemJournalLine."Document Date", 0, 3); ItemJnlPostLine.RUN(ItemJournalLine);
CreateReservEntry.CreateReservEntryFor( DATABASE::"Sales Line", SalesLine."Document Type", SalesLine."Document No.", '', 0, SalesLine."Line No.", SalesLine."Qty. per Unit of Measure", ABS(SalesLine.Quantity), SomeSerialNo, SomeLotNo); CreateReservEntry.CreateEntry( SalesLine."No.", '', SalesLine."Location Code", SalesLine.Description, 0D, SalesLine."Shipment Date", 0, 3);