9. August 2010 20:31
EDIT: megapeinlich, jetzt läuft es, Lösung hab ich gefunden, denn natürlich muss es heißen:
SETFILTER (...,'<%1',01062006D); => hab total vergessen, dass ich ja alles VOR dem 1.6.06 killen möchte, aber der Code da unten nur am 1.6.06 angeschlagen hat *am Kopf klatsch*
Sorry für den neuen Thread!°
URSPRUNGSPOSTING:
Argh, normalerweise saug ich mir so einen Pipifax Code aus den Fingern und er läuft.
Irgendwie scheine ich heute kein Glück zu haben, ich seh den Wald nimmer.
In Tab 81 möcht ich für Buchblatt-Vorlage ZAHLUNGEING, Buchblattname 2006-05 pro Datensatz die Felder "Ausgleich mit Belegart"::leer bzw. "Ausgleich mit ID" := leer setzen.
Hierzu hab ich mir nen Report gestrickt, um mir die Schreibarbeit für ein Repeat Until zu sparen.
Gen. Journal Line - OnPreDataItem():- Code:
RESET;
SETCURRENTKEY("Journal Template Name","Journal Batch Name","Line No.");
SETRANGE("Journal Template Name",'ZAHLGEING');
SETRANGE("Journal Batch Name",'2006-05');
SETRANGE("Posting Date",010606D);
SETRANGE("Document Type","Gen. Journal Line"."Document Type"::Payment);
SETRANGE("Document No.",'ZE-2006-05');
SETRANGE("Account Type","Gen. Journal Line"."Account Type"::Customer);
SETRANGE("Account No.",'55562');
Gen. Journal Line - OnAfterGetRecord()- Code:
CLEAR("Applies-to Doc. No.");
CLEAR("Applies-to Doc. Type");
MODIFY;
Ich habs statt mit CLEAR vorher versucht mit der Zuweisung := ' ' bzw. := Rec.Feld:" " => nix gebracht.
Ein VALIDATE hab ich auch versucht, schließlich kann man mit Drilldown F6 Ausgleich mit ID in die Deb.Posten eintauchen.
Funzt auch nicht.
Naja, zum letzten Mal heute, danke im Voraus, wenn mir jemand hilft oder nen Hinweis gibt, wo ich suchen muß?
Sonst bastle ich mir schnell ne Codeunit mit explizit REPEAT ... UNTIL