[GELÖST] Inhalt eines Feldes löschen mit CLEAR?

[Freestyler]

Hallo und guten Morgen allerseits,

Ich hab ein Zahlungseingangsbuchblatt mit ca. 500 Zeilen, alles ZAHLUNGEN von Debitoren.

Das sind per DataPort importierte Datensätze.

Nun meckert NAV 5.00 beim Buchen, dass einige Ausgleichs-ID ins leere laufen, weil keine entsprechenden Debitorenposten existieren (weil vorher die existierende Papier-VK-Rechnung noch nicht vom Sachbearbeiter verbucht wurde und kein Debitorposten zum Ausgleich greifbar ist)

Da ich nun vermeiden wollte 500 Datensätze manuell zu ändern, hab ich mir folgenden C/AL Code ausgedacht, den ich im Buchblatt unter Button Funktion, Menüeintrag Loeschen im Trigger <Control1140008> - OnPush() unterbringe, aber irgendwas läuft schief, er löscht mir die Felder Ausgleich mit Belegart / Belegnr. nicht:

Code:


GenJnLine.RESET;
GenJnLine.SETCURRENTKEY("Journal Template Name","Journal Batch Name","Line No.");
GenJnLine.SETRANGE("Journal Template Name", 'ZAHLGEING');
GenJnLine.SETRANGE("Journal Batch Name",'2007-01');
GenJnLine.SETRANGE("Applies-to Doc. Type","Applies-to Doc. Type"::Invoice);

IF GenJnLine.FINDSET THEN

  REPEAT
     
    CustLedEntry.SETRANGE("Document Type","Document Type"::Invoice);
    CustLedEntry.SETRANGE("Document No.",GenJnLine."Applies-to Doc. No.");
    CustLedEntry.SETRANGE("Customer No.",GenJnLine."Account No.");

    IF NOT CustLedEntry.FINDSET THEN BEGIN

     GenJnLine2.RESET;
     GenJnLine2.SETCURRENTKEY("Journal Template Name","Journal Batch Name","Line No.");
     GenJnLine2.SETRANGE("Journal Template Name", 'ZAHLGEING');
     GenJnLine2.SETRANGE("Journal Batch Name",'2007-01');
     GenJnLine2.SETRANGE("Line No.",GenJnLine."Line No.");
     GenJnLine2.SETRANGE("Applies-to Doc. Type","Applies-to Doc. Type"::Invoice);
     GenJnLine2.SETRANGE("Applies-to Doc. No.",GenJnLine."Applies-to Doc. No.");
     GenJnLine2.SETRANGE("Account No.",GenJnLine."Account No.");

     IF GenJnLine2.FINDSET THEN BEGIN

      REPEAT

        CLEAR(GenJnLine2."Applies-to Doc. No.");
        CLEAR(GenJnLine2."Applies-to Doc. Type");
        IF GenJnLine2.Amount > 0 THEN
          GenJnLine2.Amount := GenJnLine2.Amount * (-1.0);

      UNTIL GenJnLine2.NEXT(+1) = 0;

    END;

   END;

  UNTIL GenJnLine.NEXT(+1) = 0;

END;



Er meckert, dass REPEAT UNTIL nicht aufgeht. Und irgendwie löscht er nix.
Ich will praktisch von den Zeilen im Buchblatt ausgehend, dass der Code mit dem Kriterium Ausgleich mit Belegnr. und Debitornr. in die Debitorposten geht, wenn er dort nix findet, dann gibt es keinen Debitorposten zum Ausgleich, dann soll der Code eben wieder zurückspringen und das Feld Ausgleich mit Belegnr. inhaltlich löschen.

Was mach ich falsch?
Bin gestern bis 3 Uhr nachts dran gesessen und hab die Lösung nicht gefunden :(

Danke im Voraus!

Zuletzt geändert von Freestyler am 11. August 2010 12:01, insgesamt 1-mal geändert.

Da dürften ein paar Kleinigkeiten nicht stimmen, aber in der Hauptsache fehlt wohl ein modify.

Da dürften ein paar Kleinigkeiten nicht stimmen, aber in der Hauptsache fehlt wohl ein modify.

Danke!

Genau das war es, puuh!

Hier die Lösung:

Code:

GenJnLine.RESET;
GenJnLine.SETCURRENTKEY("Journal Template Name","Journal Batch Name","Line No.");
GenJnLine.SETRANGE("Journal Template Name", 'ZAHLGEING');
GenJnLine.SETRANGE("Journal Batch Name",'2006-10');
GenJnLine.SETRANGE("Applies-to Doc. Type","Applies-to Doc. Type"::Invoice);

IF GenJnLine.FINDFIRST THEN BEGIN

  REPEAT

    OldCustLedgEntry.RESET;
    OldCustLedgEntry.SETCURRENTKEY("Document No.");
    OldCustLedgEntry.SETRANGE("Document No.",GenJnLine."Applies-to Doc. No.");
    OldCustLedgEntry.SETRANGE("Document Type",GenJnLine."Applies-to Doc. Type");
    OldCustLedgEntry.SETRANGE("Customer No.",GenJnLine."Account No.");
    OldCustLedgEntry.SETRANGE(Open,TRUE);

    IF NOT OldCustLedgEntry.FINDFIRST THEN BEGIN

      GenJnLine2.RESET;
      GenJnLine2.SETCURRENTKEY("Journal Template Name","Journal Batch Name","Line No.");
      GenJnLine2.SETRANGE("Journal Template Name", 'ZAHLGEING');
      GenJnLine2.SETRANGE("Journal Batch Name",'2006-10');
      GenJnLine2.SETRANGE("Applies-to Doc. Type","Applies-to Doc. Type"::Invoice);
      GenJnLine2.SETRANGE("Applies-to Doc. No.",GenJnLine."Applies-to Doc. No.");
      //GenJnLine2.SETRANGE("Line No.",GenJnLine."Line No.");

      IF GenJnLine2.FINDFIRST THEN BEGIN

      GenJnLine2."Applies-to Doc. No." := '';
      IF GenJnLine2.Amount > 0 THEN
        GenJnLine2.Amount := GenJnLine2.Amount * (-1);
      GenJnLine2.MODIFY;

      END;

    END;

  UNTIL GenJnLine.NEXT(+1) = 0;

END;