24. März 2009 09:23
24. März 2009 16:02
Record.SETCURRENTKEY(Field1);
Record.SETRANGE(Field1, Value1);
IF Record.FINDSET THEN
REPEAT
Record.Field1 := Value2;
Record.MODIFY;
UNTIL Record.NEXT = 0;
Record.SETCURRENTKEY(Field1);
Record.SETRANGE(Field1, Value1);
IF Record.FINDSET THEN
REPEAT
Record2.GET(Record1.Primary_Key);
Record2.Field1 := Value2;
Record2.MODIFY;
UNTIL Record.NEXT = 0;
24. März 2009 20:04
Record.SETCURRENTKEY(Field1);
Record.SETRANGE(Field1, Value1);
IF Record.FINDSET THEN
REPEAT
Record.Field2 := Value2;
ChangeValueInSecondInstance(Record);
Record.MODIFY;
UNTIL Record.NEXT = 0;
EXIT;
FUNCTION ChangeValueInSecondInstance(Record)
IF Record.Field1 = 1 THEN BEGIN
Record2.GET(Record1.Key1);
Record2.Field2 := 0;
Record2.MODIFY;
END;
END;
25. März 2009 09:17
IF MandantRec.FIND('-') THEN
REPEAT
GlobalRec.CHANGECOMPANY(MandantRec.Name);
IF GlobalRec.GET(Record.Code) THEN BEGIN
IF (GlobalRec.Description <> Record.Description) THEN BEGIN
GlobalRec := Record;
GlobalRec.MODIFY;
END;
UNTIL MandantRec.NEXT = 0;
25. März 2009 10:30
mandantrec.setfilter(name,'<>%1',companyname);
25. März 2009 10:58
25. März 2009 11:42
globrec := record;
26. März 2009 21:38
27. März 2009 09:21
1. April 2009 15:50