FINDFIRST used with REPEAT..UNTIL

Andwian

I found this code snippet in OBJECT Codeunit 99000854 Inventory Profile Offsetting in NAV 6 R2:

IF KitSalesLine.FINDFIRST THEN // --> in question.
        REPEAT
          InventoryProfile.INIT;
          InventoryProfile."Line No." := NextLineNo;
          InventoryProfile.TransferFromKitSalesLine(KitSalesLine,TempItemTrkgEntry);
          IF InventoryProfile.IsSupply THEN
            InventoryProfile.ChangeSign;
          InventoryProfile.INSERT;

        UNTIL KitSalesLine.NEXT = 0;

It sound strange for me since it is using FINDFIRST in combine with REPEAT..UNTIL statement, which I have learnt that we should combine REPEAT UNTIL with FINDSET.

While I see in NAV 5 SP1, like these:

IF KitSalesLine.FINDSET THEN
        REPEAT
          InventoryProfile.INIT;
          InventoryProfile."Line No." := LineNo;
          InventoryProfile.TransferFromKitSalesLine(KitSalesLine,TempItemTrkgEntry);
          IF InventoryProfile.IsSupply THEN
            InventoryProfile.ChangeSign;
          InventoryProfile.INSERT;
          LineNo := LineNo + 1;
        UNTIL KitSalesLine.NEXT = 0;

Does anybody knows that maybe there are some reasons or arguments in these?

Alex_Chow

It's a :bug:

Andwian

Thanks Alex!