Finding Available Inventory when posting sales order

slmaluwa

hello

I am trying to get the available qty of an item at a particular location at the time posting the order. Earlier another developer has used ItemLedgerEntry as follows:

dvQTY := 0;
    recItemLedger.RESET;
    recItemLedger.SETCURRENTKEY("Item No.","Entry Type","Variant Code","Drop Shipment","Location Code","Posting Date");
    recItemLedger.SETRANGE("Item No.",recSalesLine."No.");
    recItemLedger.SETRANGE("Variant Code",recSalesLine."Variant Code");
    recItemLedger.SETRANGE("Location Code",recSalesLine."Location Code");
    recItemLedger.SETFILTER("Remaining Quantity",'<>0');

    
    IF recItemLedger.FIND('-') THEN BEGIN
      REPEAT
        DVQty := DVQty + recItemLedger."Remaining Quantity";
      UNTIL recItemLedger.NEXT = 0;
    END;

Now, can't I do the same think in a much faster way using this method?

recItem.RESET;
    recItem.SETRANGE("No.",recSalesLine."No.");
    recItem.SETFILTER("Location Filter",recSalesLine."Location Code");
    IF recItem.FIND('-') THEN
       recItem.CALCFIELDS(Inventory);

    DVQty := recItem.Inventory;
    recItem.RESET;

Do you see any mistake here. I think it doesn't return the qty as required.

i4tost

Yes, you miss Variant code.
Actually it is better to use CALCSUMS in original developer code

slmaluwa

Hi
Yes, I missed it. Actually, I am yet to understand what exactly this Variant means? Never came across it and the company also only interested in the cost of item in a location

So, suppose, I also add "Variant filter". Which code you recommend to use?

nunomaia

Or trying to be perfect replace FIND(‘-’) with a FINDFIDST

ara3n

dvQTY := 0;
    recItemLedger.RESET;
    recItemLedger.SETCURRENTKEY(change this key to to what that has the following fields and  has remaining qty as sumindex field);
    recItemLedger.SETRANGE("Item No.",recSalesLine."No.");
    recItemLedger.SETRANGE("Variant Code",recSalesLine."Variant Code");
    recItemLedger.SETRANGE("Location Code",recSalesLine."Location Code");
   recItemLedger.SETRANGE(Open,,true);
   recItemLedger.calcsums("remaining quantity");
  dvQTY :=  recItemLedger."remaining quantity";

kapamarou

Why do you need this? If it is just informative then ok.
Where is it going to be used?