Loop through Records

(0) Share

Report

Posted on by jsshivalik

3,099

I am looping thru all Custoemr records . Is it correct way . Customer_rec is of Record Datatype of Customer

    Customer_Rec.RESET;
    Customer_Rec.FINDFIRST;
    REPEAT
      Amt := 0;
      DbAmt := 0;
      CrAmt := 0;
      GlEntry.SETRANGE("Source No.",Customer_Rec."No.");
      IF GlEntry.FINDFIRST THEN REPEAT
        Amt += GlEntry.Amount;
      UNTIL GlEntry.NEXT=0;
      IF Amt > 0 THEN BEGIN
        DbAmt := Amt;
        CrAmt := 0;
        G_Debit += DbAmt;
      END;
      IF Amt < 0 THEN BEGIN
        DbAmt := 0;
        CrAmt := Amt;
        G_Credit += CrAmt;
      END;
    UNTIL Customer_Rec.NEXT = 0;

Thanks

*This post is locked for comments

I have the same question (0)

All responses (2)

Answers (0)

Suggested answer

Stefano Demiliani 37,166 Most Valuable Professional on at

Like (0)

Report

Best way:

IF CustomerRec.FINDSET THEN

REPEAT

...

UNTIL CustomerRec.NEXT=0.

Was this reply helpful? Yes No
Community Member on at

Like (0)

Report

I'd suggest naming variables like 'recCustomer' you may find it easier to type than Customer_Rec after a while.

Was this reply helpful? Yes No