Options

FINDFIRST used with REPEAT..UNTIL

AndwianAndwian Member Posts: 627
edited 2011-05-21 in NAV Three Tier
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?
Regards,
Andwian

Comments

Sign In or Register to comment.