Finding applied customer ledger entries

Cem_Karaer

In the form 61

Form - OnOpenForm()
RESET;

IF Rec."Entry No." <> 0 THEN BEGIN
  CreateCustLedgEntry := Rec;
  IF CreateCustLedgEntry."Document Type" = 0 THEN
    Heading := Text000
  ELSE
    Heading := FORMAT(CreateCustLedgEntry."Document Type");
  Heading := Heading + ' ' + CreateCustLedgEntry."Document No.";

  FindApplnEntriesDtldtLedgEntry;
  SETCURRENTKEY("Entry No.");
  SETRANGE("Entry No.");

  IF CreateCustLedgEntry."Closed by Entry No." <> 0 THEN BEGIN
    "Entry No." := CreateCustLedgEntry."Closed by Entry No.";
    MARK(TRUE);
  END;

  SETCURRENTKEY("Closed by Entry No.");
  SETRANGE("Closed by Entry No.",CreateCustLedgEntry."Entry No.");
  IF FIND('-') THEN
    REPEAT
      MARK(TRUE);
    UNTIL NEXT = 0;

  SETCURRENTKEY("Entry No.");
  SETRANGE("Closed by Entry No.");
END;

MARKEDONLY(TRUE);

FindApplnEntriesDtldtLedgEntry()
DtldCustLedgEntry1.SETCURRENTKEY("Cust. Ledger Entry No.");
DtldCustLedgEntry1.SETRANGE("Cust. Ledger Entry No.",CreateCustLedgEntry."Entry No.");
DtldCustLedgEntry1.SETRANGE(Unapplied,FALSE);
IF DtldCustLedgEntry1.FIND('-') THEN BEGIN
  REPEAT
    IF DtldCustLedgEntry1."Cust. Ledger Entry No." =
      DtldCustLedgEntry1."Applied Cust. Ledger Entry No."
    THEN BEGIN
      DtldCustLedgEntry2.INIT;
      DtldCustLedgEntry2.SETCURRENTKEY("Applied Cust. Ledger Entry No.","Entry Type");
      DtldCustLedgEntry2.SETRANGE(
        "Applied Cust. Ledger Entry No.",DtldCustLedgEntry1."Applied Cust. Ledger Entry No.");
      DtldCustLedgEntry2.SETRANGE("Entry Type",DtldCustLedgEntry2."Entry Type"::Application);
      DtldCustLedgEntry2.SETRANGE(Unapplied,FALSE);
      IF DtldCustLedgEntry2.FIND('-') THEN BEGIN
        REPEAT
          IF DtldCustLedgEntry2."Cust. Ledger Entry No." <>
            DtldCustLedgEntry2."Applied Cust. Ledger Entry No."
          THEN BEGIN
            SETCURRENTKEY("Entry No.");
            SETRANGE("Entry No.",DtldCustLedgEntry2."Cust. Ledger Entry No.");
            IF FIND('-') THEN
              MARK(TRUE);
          END;
        UNTIL DtldCustLedgEntry2.NEXT = 0;
      END;
    END ELSE BEGIN
      SETCURRENTKEY("Entry No.");
      SETRANGE("Entry No.",DtldCustLedgEntry1."Applied Cust. Ledger Entry No.");
      IF FIND('-') THEN
        MARK(TRUE);
    END;
  UNTIL DtldCustLedgEntry1.NEXT = 0;
END;

What is the point here?

Savatage

Do you have a specific question about all that code you posted - or do you want to know the use of finding applied entries?

The code finds all the related entries for whatever you are looking for.

Marks them & then displays the marked items.