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