Optimizing Tables in Job Scheduler

OBJECT Table 50009 optemize
{
  OBJECT-PROPERTIES
  {
    Date=03/02/06;
    Time=[ 8:06:17 PM];
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
  }
  FIELDS
  {
    { 1   ;   ;Table ID            ;Integer        }
  }
  KEYS
  {
    {    ;Table ID                                 }
  }
  CODE
  {

    BEGIN
    END.
  }
}

OBJECT Form 50009 optemize
{
  OBJECT-PROPERTIES
  {
    Date=03/02/06;
    Time=10:30:27 PM;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    Width=8000;
    Height=8000;
    Visible=No;
    TimerInterval=150;
    OnOpenForm=BEGIN
                 IF ISCLEAR(wscript) THEN
                   CREATE(wscript);
               END;

    OnQueryCloseForm=BEGIN
                       IF State = 100 THEN
                         EXIT(FALSE)
                       ELSE
                         EXIT(TRUE);
                     END;

    OnTimer=BEGIN
              IF State = 0 THEN BEGIN
                 IF NOT Optemize.FIND('-') THEN
                   CurrForm.CLOSE;
                 tableinformation.SETRANGE("Table No.",Optemize."Table ID");
                 IF tableinformation.FIND('-') THEN BEGIN
                   State := 2;
                   EXIT;
                 END ELSE
                   State := 1
              END;

              IF State = 1 THEN BEGIN
                IF Optemize.NEXT = 0 THEN
                   CurrForm.CLOSE;
                 tableinformation.SETRANGE("Table No.",Optemize."Table ID");
                 IF tableinformation.FIND('-') THEN BEGIN
                    State := 2;
                 END ELSE BEGIN
                    State := 0;
                 END;

              END;

              IF State = 2 THEN
                wscript.SendKeys('%f');
              IF State = 3 THEN
                wscript.SendKeys('b');
              IF State = 4 THEN
                wscript.SendKeys('i');
              IF State = 5 THEN
                wscript.SendKeys('%B');
              IF State = 6 THEN
                wscript.SendKeys('+{F7}');

              IF State = 7 THEN
                wscript.SendKeys('table no.');

              IF State = 8 THEN
                wscript.SendKeys('{TAB}');
              IF State = 9 THEN
                wscript.SendKeys(FORMAT(Optemize."Table ID"));
              IF State = 10 THEN
                wscript.SendKeys('^{DOWN}');
              IF State = 11 THEN
                wscript.SendKeys('{ENTER}');
              IF State = 12 THEN
                wscript.SendKeys('^a');
              IF State = 13 THEN BEGIN
                wscript.SendKeys('%o');
                wscript.SendKeys('y');
              END;

              IF State = 100 THEN BEGIN
                wscript.SendKeys('{ESC}');
                wscript.SendKeys('{ESC}');
                wscript.SendKeys('{ESC}');

              END;

              IF State = 100 THEN
                State := 0;

              State += 1;
            END;

  }
  CONTROLS
  {
  }
  CODE
  {
    VAR
      State@1000000000 : Integer;
      wscript@1000000001 : Automation "{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B} 1.0:{72C24DD5-D70A-438B-8A42-98424B88AFB8}:'Windows Script Host Object Model'.WshShell";
      Optemize@1000000002 : Record 50009;
      tableinformation@1000000003 : Record 2000000028;
      var@1000000004 : Variant;

    BEGIN
    END.
  }
}