27. Juni 2009 23:10
14. Januar 2010 11:39
14. Januar 2010 12:26
  LotNo := 'TestCharge';
  CreateReservEntry.CreateReservEntryFor(
  DATABASE::"Purchase Line",
  Rec."Document Type",
  Rec."Document No.",
  '',
  0,
  Rec."Line No.",
  Rec."Qty. per Unit of Measure",
  Rec."Quantity (Base)",
  '',
  LotNo);
PurchHeader.GET(1,"Document No.");
CreateReservEntry.CreateEntry(
  Rec."No.",
  Rec."Variant Code",
  Rec."Location Code",
  Rec.Description,
  Rec."Expected Receipt Date",
  PurchHeader."Posting Date",0,3);