Item Journal Posting with Tracking Spec.

mr_ash

Hi,
I need your help with posting Item Journal Lines...
Usually I'm doing this like follows:

ItemJournalLine.INIT;
ItemJournalLine.VALIDATE("Posting Date",WORKDATE);
...
ItemJournalLine.VALIDATE(Quantity,1);
ItemJnlPostLine.RUN(ItemJournalLine);

Post without insert item journal line to the database... but right now I have a problem - how sholud I add support for the Item Tracking Specification?
Create reservation entry for non existing item journal line???

mr_ash

OK, I've got this. Create Reservation Entry codeunit (99000830) is the key.
For example:

   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);

mr_ash

OK, I've got this. Create Reservation Entry codeunit (99000830) is the key.
For example:

   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);