Issue Making a Location Directed Pick and Putaway

bspencer

Hello, everyone.

I am having an issue with our established Navision installation. We are on 4.0 SP3 and have been running since 2006. I was asked to create a new warehouse location and make it directed pick and putaway. When I click the "Bin Mandatory" boolean on the Warehouse tab of the Location Card form, the message pops up that they system is going through the item ledger entries for open entries. The problem I am having is that it is running forever. This is my second attempt (in a testing environment). The first attempt resulted in the processing halting due to a table lock after letting it run all night. The second attempt has been running now for 5 hours. There are only 481685 records in the ILE table.

Am I doing something wrong? Again, I am simply trying to create a new warehouse location and set it up as directed pick and putaway (with zones, bins, etc.).

thanks for your help.

ara3n

are you on sql or native server? For C/Side you need to add code for setcurrentkey.

I suggest to contact your partner.

IF "Bin Mandatory" AND NOT xRec."Bin Mandatory" THEN BEGIN
  Window.OPEN(Text010);
  ItemLedgEntry.SETRANGE(Open,TRUE);
  ItemLedgEntry.SETRANGE("Location Code",Code);
  IF NOT ItemLedgEntry.ISEMPTY THEN
    ERROR(Text009,FIELDCAPTION("Bin Mandatory"));

  "Default Bin Selection" := "Default Bin Selection"::"Fixed Bin";
END;

bspencer

The back end is SQL.

ara3n

I looked at an older version. And the code is

  ItemLedgEntry.SETCURRENTKEY("Item No.",Open,"Variant Code",Positive,"Location Code");
  IF ItemLedgEntry.FINDFIRST THEN
    REPEAT
      ItemLedgEntry.SETRANGE("Item No.",ItemLedgEntry."Item No.");
      ItemLedgEntry.SETRANGE(Open,TRUE);
      ItemLedgEntry.SETRANGE("Location Code",Code);
      IF ItemLedgEntry.FINDLAST THEN
        ERROR(Text009,FIELDCAPTION("Bin Mandatory"));
      ItemLedgEntry.SETRANGE(Open);
      ItemLedgEntry.SETRANGE("Location Code");
      ItemLedgEntry.FINDLAST;
      ItemLedgEntry.SETRANGE("Item No.");
    UNTIL ItemLedgEntry.NEXT = 0;

Which doesn't make sense. I suggest to contact partner to change it.