Tables Collection?

Comments

• Options

  jsoage Member Posts: 9

  2004-08-13

  Hope this helps,
  

  VAR
    v_AllObjects@1000000000 : Record 2000000038;
    v_RecRef@1000000001 : RecordRef;
    v_FldRef@1000000002 : FieldRef;
    v_I@1000000003 : Integer;
    v_Modify@1000000004 : Boolean
  BEGIN
    WITH v_AllObjects DO BEGIN
      SETRANGE("Object type", "Object type"::Table);
      SETFILTER("Object ID", '<%1', 2000000001); // Non-system tables
      IF FIND('-') THEN
        REPEAT
          v_RecRef.OPEN("Object ID");
          v_Modify := FALSE;
          FOR v_I := 1 TO v_RecRef.FIELDCOUNT DO BEGIN
            v_FldRef := v_RecRef.FIELDINDEX(v_I);
  // +++ << Your code here >>
            IF <Your conditions> THEN BEGIN
              v_FldRef.VALIDATE(<Your value>);
              v_Modify := TRUE;
            END;
  // ---
          END;
  // +++ << Your code here >>
            IF v_Modify THEN v_RecRef.MODIFY(<TRUE/FALSE>)
  // ---
          v_RecRef.CLOSE;
        UNTIL NEXT = 0;
    END;
  END;
  

  0
• Options

  mstallmann Member Posts: 138

  2004-08-13

  Thank you for your help...You're a stud...
  
  Just needed to add one more loop...thought I'd put it up there for future users looking for same solution...
  
  
  
  VAR
  v_AllObjects@1000000000 : Record 2000000038;
  v_RecRef@1000000001 : RecordRef;
  v_FldRef@1000000002 : FieldRef;
  v_I@1000000003 : Integer;
  v_Modify@1000000004 : Boolean
  BEGIN
  WITH v_AllObjects DO BEGIN
  SETRANGE("Object type", "Object type"::Table);
  SETFILTER("Object ID", '<%1', 2000000001); // Non-system tables
  IF FIND('-') THEN
  REPEAT
  v_RecRef.OPEN("Object ID");
  v_Modify := FALSE;
  
  *Add* IF v_RecRef.FIND('-') THEN BEGIN
  *Add* REPEAT
  FOR v_I := 1 TO v_RecRef.FIELDCOUNT DO BEGIN
  v_FldRef := v_RecRef.FIELDINDEX(v_I);
  // +++ << Your code here >>
  IF <Your conditions> THEN BEGIN
  v_FldRef.VALIDATE(<Your value>);
  v_Modify := TRUE;
  END;
  *Add* UNTIL RecRef.NEXT=0;
  *Add* END;
  // ---
  END;
  // +++ << Your code here >>
  IF v_Modify THEN v_RecRef.MODIFY(<TRUE/FALSE>)
  // ---
  v_RecRef.CLOSE;
  UNTIL NEXT = 0;
  END;
  END;

  www.Oztera.com

  0