Skip to main content

Notifications

Small and medium business | Business Central, N...
Suggested answer

You must assign a lot number

Posted on by 14
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;
  • JC-10102114-0 Profile Picture
    JC-10102114-0 14 on at
    You must assign a lot number
    Hi gdrenteria,
     
    I appreciate you r URLs. However, the links are already checked and were not working :c
  • gdrenteria Profile Picture
    gdrenteria 10,951 Most Valuable Professional on at
  • JC-10102114-0 Profile Picture
    JC-10102114-0 14 on at
    You must assign a lot number
    Thank you for the reply Ramiz. However, the problem is not solved with adding the code :c
  • Suggested answer
    Ramiz Profile Picture
    Ramiz 275 on at
    You must assign a lot number
    Hi,

    Try adding this.
     
    ReservationEntry.Validate("Item Tracking", ReservationEntry."Item Tracking"::"Lot No.");

     

Under review

Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.

Helpful resources

Quick Links

November Spotlight Star - Khushbu Rajvi

Congratulations to a top community star!

Forum Structure Changes Complete!

🔔 Be sure to subscribe to the new forums you are interested in to stay up to date! 🔔

Dynamics 365 Community Platform update – Oct 28

Welcome to the next edition of the Community Platform Update. This is a status …

Leaderboard

#1
André Arnaud de Calavon Profile Picture

André Arnaud de Cal... 290,900 Super User 2024 Season 2

#2
Martin Dráb Profile Picture

Martin Dráb 229,275 Most Valuable Professional

#3
nmaenpaa Profile Picture

nmaenpaa 101,156

Leaderboard

Featured topics

Product updates

Dynamics 365 release plans