Dynamics Community Forum Thread Details

I'm trying to make item reclassification journal by code but when I put it in, it keeps saying must assign a lot number. Here is the code snippet. Basically I put the item journal line with reservation entry by code. but still get the problem of assigning lot number. Could you please help me to find the problem?

 if LotNoInfo.FindSet() then
            repeat
                LotNoInfo.CalcFields(Inventory);
                if ((LotNoInfo."Expire Date" <= TodayDate) or
                    (LotNoInfo."Retest Date" <= TodayDate)) and
                   (LotNoInfo.Inventory > 0) then begin
                    ItemLedgEntry.Reset();
                    ItemLedgEntry.SetRange("Item No.", LotNoInfo."Item No.");
                    ItemLedgEntry.SetRange("Lot No.", LotNoInfo."Lot No.");
                    ItemLedgEntry.SetFilter("Remaining Quantity", '>0');
                    if ItemLedgEntry.FindSet() then
                        repeat
                            WarehouseEntry.Reset();
                            WarehouseEntry.SetRange("Item No.", ItemLedgEntry."Item No.");
                            WarehouseEntry.SetRange("Lot No.", ItemLedgEntry."Lot No.");
                            WarehouseEntry.SetRange("Location Code", ItemLedgEntry."Location Code");
                            WarehouseEntry.SetRange("Reference No.", ItemLedgEntry."Document No.");
                            if WarehouseEntry.FindLast() and (WarehouseEntry."Bin Code" <> '') then begin
                                LineNo += 10000;
                                ItemReclassJournalLine.Init();
                                ItemReclassJournalLine."Entry Type" := ItemReclassJournalLine."Entry Type"::Transfer;
                                ItemReclassJournalLine."Journal Template Name" := ItemReclassJournalTemplate.Name;
                                ItemReclassJournalLine."Journal Batch Name" := ItemReclassJournalBatch.Name;
                                ItemReclassJournalLine."Line No." := LineNo;
                                ItemReclassJournalLine."Posting Date" := TodayDate;
                                ItemReclassJournalLine."Document No." := 'ttttt';
                                ItemReclassJournalLine.Validate("Item No.", LotNoInfo."Item No.");
                                ItemReclassJournalLine.Validate("Location Code", ItemLedgEntry."Location Code");
                                ItemReclassJournalLine.Validate("Variant Code", ItemLedgEntry."Variant Code");
                                ItemReclassJournalLine.Description := 'ttttt';
                                ItemReclassJournalLine.Validate(Quantity, ItemLedgEntry."Remaining Quantity");
                                ItemReclassJournalLine.Validate("New Location Code", 'tttt');
                                ItemReclassJournalLine.Validate("New Bin Code", 'tttt');
                                ItemReclassJournalLine.Validate("Lot No.", LotNoInfo."Lot No.");
                                ItemReclassJournalLine.Validate("New Lot No.", LotNoInfo."Lot No.");
                                ItemReclassJournalLine.Validate("Bin Code", WarehouseEntry."Bin Code");
                                ItemReclassJournalLine.Insert();
                                EntryNo := 0;
                                ReservEntry.Reset();
                                if ReservEntry.FindLast() then
                                    EntryNo := ReservEntry."Entry No.";
                                EntryNo += 1;
                                ReservEntry.Init();
                                ReservEntry."Entry No." := EntryNo; 
                                ReservEntry."Item No." := ItemReclassJournalLine."Item No.";
                                ReservEntry."Variant Code" := ItemReclassJournalLine."Variant Code";
                                ReservEntry."Location Code" := ItemReclassJournalLine."Location Code";
                                ReservEntry."Lot No." := LotNoInfo."Lot No.";
                                ReservEntry."New Lot No." := LotNoInfo."Lot No.";
                                ReservEntry."Quantity (Base)" := ItemLedgEntry."Remaining Quantity";
                                ReservEntry."Reservation Status" := ReservEntry."Reservation Status"::Surplus;
                                ReservEntry."Source Type" := DATABASE::"Item Journal Line";
                                ReservEntry."Source Subtype" := ItemReclassJournalLine."Entry Type".AsInteger();
                                ReservEntry."Source ID" := ItemReclassJournalLine."Journal Template Name";
                                ReservEntry."Source Batch Name" := ItemReclassJournalLine."Journal Batch Name";
                                //ReservEntry."Source Ref. No." := ItemReclassJournalLine."Line No.";
                                ReservEntry."Positive" := true;
                                ReservEntry.Insert();
                                ReservEntry.Modify();
                            end;
                        until ItemLedgEntry.Next() = 0;
                end;
            until LotNoInfo.Next() = 0;

No record found.