5. Oktober 2010 20:52
Rec.RESET;
CLEARMARKS;
V_String:='';
Fenster.OPEN(Text50000);
Fenster.INPUT(1,V_String);
Fenster.CLOSE;
RL.RESET;
t:='*' + UPPERCASE(V_String) + '*';
RL.SETFILTER(RL.URL1,t);
IF RL.FINDSET THEN REPEAT
RI:=RL."Record ID";
RR:=RI.GETRECORD;
IF RR.NUMBER=36 THEN BEGIN
IF Rec.GET(RR.FIELDINDEX(1).VALUE,RR.FIELDINDEX(2).VALUE) THEN MARK:=TRUE;
END;
UNTIL RL.NEXT=0;
MARKEDONLY:=TRUE;
RR:=RI.GETRECORD;
6. Oktober 2010 17:04
6. Oktober 2010 19:00