Kurze Erklärung:
(Meine Tabelle:) TabelleY. = Tabelle soll spätere Werte speichern "Entry" (momentan leer) (Felder: ID(Eindeutiger Schlüssel)BelegNr.,ZeilenNr.(Secoundary Key))
Ich gehe mit der Tabelle "Sales Line" und dessen Filter in die Form + Subform mit TabelleY (Tablebox). Daher habe ich im Rec. die Felder "Document No." "und Line.No". diese beiden Felder wĂĽrde ich gerne als Filter gegen meine Felder (BelegNr. u. ZeilenNr.) in TabelleY stellen. Wenn Werte in TabelleY vorhanden sind soll ein Filter auf TabelleY gemacht werden damit in der Subform nur Auftrag relevante Daten stehen. Wenn er keine Werte findet dann soll er von mir festgelegte Werte in die TabelleY schreiben. Mein Problem ist nun das ich nicht einfach ein SETFILTER oder ein SETRANGE benutzen kann da dieser Wert beim ersten Aufruf noch nicht in der TabelleY vorhanden ist.
Wie muss dieser Filter aussehen?
Quellcode:
- Code: Alles auswählen
carchecks.SETCURRENTKEY(carchecks."Belegnr.",carchecks."Zeilennr.");
// Hier sollte eigentlich ein SETFILTER/SETRANGE stehen.
IF NOT ((carchecks."Belegnr." = Rec."Document No.") AND (carchecks."Zeilennr." = Rec."Line No.")) THEN BEGIN
Carcheck.SETRANGE(Carcheck.Kategorie,Carcheck.Kategorie::UVV);
IF Carcheck.FIND('-') THEN
REPEAT
carchecks.FINDLAST;
carchecks.ID := carchecks.ID +1;
carchecks."Belegnr." := "Document No.";
carchecks."Kd-Nr." := "Sell-to Customer No.";
carchecks."Zeilennr." := "Line No.";
carchecks."Zeilennr." := "Line No.";
carchecks.Bezeichnug := Carcheck.Bezeichnung;
carchecks."KFZ-Kennzeichen" := "Customer Car No.";
carchecks."Erstell Datum" := TODAY;
carchecks.Kategorie := carchecks.Kategorie::UVV;
carchecks."Mängel?" := FALSE;
carchecks."Nicht prĂĽfbar" := FALSE;
carchecks.Bemerkung := '';
carchecks.INSERT;
UNTIL Carcheck.NEXT = 0;
END ELSE
carchecks.SETRANGE(carchecks."Belegnr.","Document No.");