VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "Tabctl32.ocx"
Begin VB.Form frmMain 
   ClientHeight    =   11205
   ClientLeft      =   12270
   ClientTop       =   915
   ClientWidth     =   13110
   ControlBox      =   0   'False
   Icon            =   "Cmdproc-1.frx":0000
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   11205
   ScaleWidth      =   13110
   Begin VB.TextBox txtMonitor 
      Alignment       =   2  'Center
      Height          =   285
      Left            =   10200
      TabIndex        =   80
      Text            =   "wdtCommandProcessor"
      Top             =   0
      Width           =   1875
   End
   Begin VB.CommandButton cmdClearSpoolFiles 
      Caption         =   "Clear Spool Files"
      Height          =   255
      Left            =   4740
      TabIndex        =   79
      Top             =   7200
      Width           =   1335
   End
   Begin VB.FileListBox filBuffers 
      Height          =   480
      Left            =   11280
      TabIndex        =   77
      Top             =   8220
      Visible         =   0   'False
      Width           =   2055
   End
   Begin VB.CheckBox chkUseITC 
      Caption         =   "Use Inner Task Communications"
      Height          =   255
      Left            =   4380
      TabIndex        =   76
      Top             =   9240
      Value           =   1  'Checked
      Width           =   2715
   End
   Begin VB.Timer EndTimer 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   1320
      Top             =   540
   End
   Begin VB.Timer processTimer 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   3900
      Top             =   9120
   End
   Begin VB.Timer sendTimer 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   3480
      Top             =   9120
   End
   Begin VB.ListBox lstSend 
      Height          =   645
      Left            =   60
      TabIndex        =   72
      Top             =   10500
      Width           =   12975
   End
   Begin VB.ListBox lstRecvd 
      Height          =   645
      Left            =   60
      TabIndex        =   71
      Top             =   9540
      Width           =   12975
   End
   Begin VB.CheckBox chkDumper 
      Caption         =   "Dumper"
      Height          =   255
      Left            =   9120
      TabIndex        =   70
      Top             =   4020
      Width           =   975
   End
   Begin VB.ListBox lstIncome 
      Height          =   840
      Left            =   60
      TabIndex        =   69
      Top             =   8400
      Width           =   12975
   End
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   6960
      TabIndex        =   64
      Text            =   "Text1"
      Top             =   7020
      Visible         =   0   'False
      Width           =   4155
   End
   Begin VB.PictureBox Picture1 
      Height          =   1455
      Left            =   11790
      ScaleHeight     =   1395
      ScaleWidth      =   1095
      TabIndex        =   61
      Top             =   5010
      Width           =   1155
      Begin VB.ComboBox cboMoveQUE 
         Height          =   315
         ItemData        =   "Cmdproc-1.frx":030A
         Left            =   60
         List            =   "Cmdproc-1.frx":0326
         TabIndex        =   66
         Text            =   "Empty2"
         Top             =   750
         Width           =   1035
      End
      Begin VB.CommandButton cmdMove2Q1 
         Caption         =   "MOVE"
         Height          =   255
         Left            =   60
         TabIndex        =   62
         Top             =   1080
         Width           =   945
      End
      Begin VB.Label Label4 
         Caption         =   "Move FROM"
         Height          =   195
         Left            =   90
         TabIndex        =   67
         Top             =   30
         Width           =   945
      End
      Begin VB.Label lblFromTab 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Gen"
         Height          =   315
         Left            =   60
         TabIndex        =   63
         Tag             =   "0"
         Top             =   240
         Width           =   975
         WordWrap        =   -1  'True
      End
      Begin VB.Label Label6 
         Caption         =   "To"
         Height          =   195
         Left            =   0
         TabIndex        =   68
         Top             =   540
         Width           =   855
      End
   End
   Begin VB.PictureBox picCount 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   7
      Left            =   12150
      ScaleHeight     =   225
      ScaleWidth      =   675
      TabIndex        =   59
      Top             =   4440
      Width           =   705
      Begin VB.Label lblCount 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "999"
         Height          =   225
         Index           =   7
         Left            =   -150
         TabIndex        =   60
         Top             =   0
         Width           =   795
      End
   End
   Begin VB.PictureBox picCount 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   6
      Left            =   10980
      ScaleHeight     =   225
      ScaleWidth      =   675
      TabIndex        =   57
      Top             =   4440
      Width           =   705
      Begin VB.Label lblCount 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "999"
         Height          =   225
         Index           =   6
         Left            =   -150
         TabIndex        =   58
         Top             =   0
         Width           =   795
      End
   End
   Begin VB.ListBox List1 
      Height          =   840
      ItemData        =   "Cmdproc-1.frx":0357
      Left            =   10500
      List            =   "Cmdproc-1.frx":0370
      TabIndex        =   52
      Top             =   3390
      Width           =   2535
   End
   Begin VB.CommandButton cmdBottom 
      Caption         =   "Bottom"
      Height          =   255
      Left            =   12300
      TabIndex        =   51
      Top             =   3120
      Width           =   735
   End
   Begin VB.PictureBox picCount 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   5
      Left            =   9720
      ScaleHeight     =   225
      ScaleWidth      =   675
      TabIndex        =   48
      Top             =   4440
      Width           =   705
      Begin VB.Label lblCount 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "999"
         Height          =   225
         Index           =   5
         Left            =   210
         TabIndex        =   49
         Top             =   0
         Width           =   435
      End
   End
   Begin VB.PictureBox picCount 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   4
      Left            =   8520
      ScaleHeight     =   225
      ScaleWidth      =   675
      TabIndex        =   46
      Top             =   4440
      Width           =   705
      Begin VB.Label lblCount 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "999"
         Height          =   225
         Index           =   4
         Left            =   -150
         TabIndex        =   47
         Top             =   0
         Width           =   795
      End
   End
   Begin VB.PictureBox picCount 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   3
      Left            =   7290
      ScaleHeight     =   225
      ScaleWidth      =   675
      TabIndex        =   44
      Top             =   4440
      Width           =   705
      Begin VB.Label lblCount 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "999"
         Height          =   225
         Index           =   3
         Left            =   -150
         TabIndex        =   45
         Top             =   0
         Width           =   795
      End
   End
   Begin VB.PictureBox picCount 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   2
      Left            =   6060
      ScaleHeight     =   225
      ScaleWidth      =   675
      TabIndex        =   42
      Top             =   4440
      Width           =   705
      Begin VB.Label lblCount 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "999"
         Height          =   225
         Index           =   2
         Left            =   -120
         TabIndex        =   43
         Top             =   0
         Width           =   765
      End
   End
   Begin VB.PictureBox picCount 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   1
      Left            =   4890
      ScaleHeight     =   225
      ScaleWidth      =   675
      TabIndex        =   41
      Top             =   4440
      Width           =   705
      Begin VB.Label lblCount 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "999"
         Height          =   225
         Index           =   1
         Left            =   -120
         TabIndex        =   50
         Top             =   0
         Width           =   765
      End
   End
   Begin VB.PictureBox picCount 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   255
      Index           =   0
      Left            =   3570
      ScaleHeight     =   225
      ScaleWidth      =   675
      TabIndex        =   39
      Top             =   4440
      Width           =   705
      Begin VB.Label lblCount 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "999"
         Height          =   225
         Index           =   0
         Left            =   0
         TabIndex        =   40
         Top             =   0
         Width           =   645
      End
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   1815
      Left            =   3150
      TabIndex        =   26
      Top             =   4740
      Width           =   9885
      _ExtentX        =   17436
      _ExtentY        =   3201
      _Version        =   393216
      Tabs            =   8
      TabsPerRow      =   8
      TabHeight       =   520
      TabCaption(0)   =   "Gen"
      TabPicture(0)   =   "Cmdproc-1.frx":03E9
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "lblGroups(0)"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "lstPGroup(0)"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).ControlCount=   2
      TabCaption(1)   =   "Svc"
      TabPicture(1)   =   "Cmdproc-1.frx":0405
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "lblGroups(1)"
      Tab(1).Control(1)=   "lstPGroup(1)"
      Tab(1).ControlCount=   2
      TabCaption(2)   =   "Engr"
      TabPicture(2)   =   "Cmdproc-1.frx":0421
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "lblGroups(2)"
      Tab(2).Control(1)=   "lstPGroup(2)"
      Tab(2).ControlCount=   2
      TabCaption(3)   =   "SP"
      TabPicture(3)   =   "Cmdproc-1.frx":043D
      Tab(3).ControlEnabled=   0   'False
      Tab(3).Control(0)=   "lblGroups(3)"
      Tab(3).Control(1)=   "lstPGroup(3)"
      Tab(3).ControlCount=   2
      TabCaption(4)   =   "IE"
      TabPicture(4)   =   "Cmdproc-1.frx":0459
      Tab(4).ControlEnabled=   0   'False
      Tab(4).Control(0)=   "lblGroups(4)"
      Tab(4).Control(1)=   "lstPGroup(4)"
      Tab(4).ControlCount=   2
      TabCaption(5)   =   "FAB"
      TabPicture(5)   =   "Cmdproc-1.frx":0475
      Tab(5).ControlEnabled=   0   'False
      Tab(5).Control(0)=   "lblGroups(5)"
      Tab(5).Control(1)=   "lstPGroup(5)"
      Tab(5).ControlCount=   2
      TabCaption(6)   =   "Empty1"
      TabPicture(6)   =   "Cmdproc-1.frx":0491
      Tab(6).ControlEnabled=   0   'False
      Tab(6).Control(0)=   "lblGroups(6)"
      Tab(6).Control(1)=   "lstPGroup(6)"
      Tab(6).ControlCount=   2
      TabCaption(7)   =   "Empty2"
      TabPicture(7)   =   "Cmdproc-1.frx":04AD
      Tab(7).ControlEnabled=   0   'False
      Tab(7).Control(0)=   "lblGroups(7)"
      Tab(7).Control(1)=   "lstPGroup(7)"
      Tab(7).ControlCount=   2
      Begin VB.ListBox lstPGroup 
         Height          =   1035
         Index           =   7
         ItemData        =   "Cmdproc-1.frx":04C9
         Left            =   -74940
         List            =   "Cmdproc-1.frx":04CB
         MultiSelect     =   2  'Extended
         TabIndex        =   54
         Top             =   540
         Width           =   8505
      End
      Begin VB.ListBox lstPGroup 
         Height          =   1035
         Index           =   6
         ItemData        =   "Cmdproc-1.frx":04CD
         Left            =   -74940
         List            =   "Cmdproc-1.frx":04CF
         MultiSelect     =   2  'Extended
         TabIndex        =   53
         Top             =   540
         Width           =   8505
      End
      Begin VB.ListBox lstPGroup 
         Height          =   1035
         Index           =   5
         ItemData        =   "Cmdproc-1.frx":04D1
         Left            =   -74940
         List            =   "Cmdproc-1.frx":04D3
         MultiSelect     =   2  'Extended
         TabIndex        =   32
         Top             =   540
         Width           =   8505
      End
      Begin VB.ListBox lstPGroup 
         Height          =   1035
         Index           =   4
         ItemData        =   "Cmdproc-1.frx":04D5
         Left            =   -74940
         List            =   "Cmdproc-1.frx":04D7
         MultiSelect     =   2  'Extended
         TabIndex        =   31
         Top             =   540
         Width           =   8505
      End
      Begin VB.ListBox lstPGroup 
         Height          =   1035
         Index           =   3
         ItemData        =   "Cmdproc-1.frx":04D9
         Left            =   -74940
         List            =   "Cmdproc-1.frx":04DB
         MultiSelect     =   2  'Extended
         TabIndex        =   30
         Top             =   540
         Width           =   8505
      End
      Begin VB.ListBox lstPGroup 
         Height          =   1035
         Index           =   2
         ItemData        =   "Cmdproc-1.frx":04DD
         Left            =   -74940
         List            =   "Cmdproc-1.frx":04DF
         MultiSelect     =   2  'Extended
         TabIndex        =   29
         Top             =   540
         Width           =   8505
      End
      Begin VB.ListBox lstPGroup 
         Height          =   1035
         Index           =   1
         ItemData        =   "Cmdproc-1.frx":04E1
         Left            =   -74940
         List            =   "Cmdproc-1.frx":04E3
         MultiSelect     =   2  'Extended
         TabIndex        =   28
         Top             =   540
         Width           =   8505
      End
      Begin VB.ListBox lstPGroup 
         Height          =   1035
         Index           =   0
         ItemData        =   "Cmdproc-1.frx":04E5
         Left            =   60
         List            =   "Cmdproc-1.frx":04E7
         MultiSelect     =   2  'Extended
         TabIndex        =   27
         Top             =   540
         Width           =   8505
      End
      Begin VB.Label lblGroups 
         Caption         =   "Not used"
         Height          =   195
         Index           =   7
         Left            =   -74940
         TabIndex        =   56
         Top             =   330
         Width           =   4335
      End
      Begin VB.Label lblGroups 
         Caption         =   "Not used"
         Height          =   195
         Index           =   6
         Left            =   -74940
         TabIndex        =   55
         Top             =   330
         Width           =   4335
      End
      Begin VB.Label lblGroups 
         Caption         =   "FAB"
         Height          =   195
         Index           =   5
         Left            =   -74940
         TabIndex        =   38
         Top             =   330
         Width           =   4335
      End
      Begin VB.Label lblGroups 
         Caption         =   "IE"
         Height          =   195
         Index           =   4
         Left            =   -74940
         TabIndex        =   37
         Top             =   330
         Width           =   4335
      End
      Begin VB.Label lblGroups 
         Caption         =   "HWFAB/ELECENG/HWQC/HWSERVICE/SPFAB/SPSVPAK/SPTPARK/SPENGPS3"
         Height          =   195
         Index           =   3
         Left            =   -74940
         TabIndex        =   36
         Top             =   330
         Width           =   4335
      End
      Begin VB.Label lblGroups 
         Caption         =   "Engr/NEWPROD"
         Height          =   195
         Index           =   2
         Left            =   -74955
         TabIndex        =   35
         Top             =   330
         Width           =   4335
      End
      Begin VB.Label lblGroups 
         Caption         =   "Recv/Super/Service/CHECKOUT/QCCAGE"
         Height          =   195
         Index           =   1
         Left            =   -74940
         TabIndex        =   34
         Top             =   330
         Width           =   4335
      End
      Begin VB.Label lblGroups 
         Caption         =   "Purch/Electr/DOCKC/SUP5SI/ELECENG"
         Height          =   195
         Index           =   0
         Left            =   60
         TabIndex        =   33
         Top             =   330
         Width           =   4335
      End
   End
   Begin VB.CheckBox UseSpooler 
      Caption         =   "Use Spooler"
      Height          =   225
      Left            =   3510
      TabIndex        =   23
      Top             =   3150
      Value           =   1  'Checked
      Width           =   1845
   End
   Begin VB.ListBox lstError 
      Height          =   840
      Left            =   90
      TabIndex        =   22
      Top             =   7500
      Width           =   12975
   End
   Begin VB.ListBox lstCounts 
      Height          =   840
      Left            =   11430
      TabIndex        =   19
      Top             =   6600
      Width           =   1635
   End
   Begin VB.ComboBox cboPrinterList 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      ItemData        =   "Cmdproc-1.frx":04E9
      Left            =   90
      List            =   "Cmdproc-1.frx":04EB
      TabIndex        =   18
      Text            =   "Printer Names"
      Top             =   6570
      Width           =   11265
   End
   Begin VB.ListBox lstCheckIn 
      Height          =   1815
      Left            =   90
      TabIndex        =   17
      Top             =   4680
      Width           =   3015
   End
   Begin VB.CommandButton cmdEnd 
      Caption         =   "&Quit"
      Height          =   360
      Left            =   12180
      TabIndex        =   0
      Top             =   0
      Width           =   855
   End
   Begin VB.ListBox lstReply2 
      BackColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   465
      TabIndex        =   15
      Top             =   3645
      Width           =   9990
   End
   Begin VB.ListBox lstReply1 
      Height          =   255
      Left            =   465
      TabIndex        =   13
      Top             =   3405
      Width           =   10005
   End
   Begin VB.OptionButton CheckACAD 
      Caption         =   "Servicing ACAD"
      Height          =   195
      Left            =   4050
      TabIndex        =   11
      Top             =   4185
      Value           =   -1  'True
      Width           =   1695
   End
   Begin VB.OptionButton FileErrInd 
      Caption         =   "error processing"
      Height          =   255
      Left            =   5400
      TabIndex        =   7
      Top             =   3150
      Width           =   1575
   End
   Begin VB.Timer Timer2 
      Interval        =   1000
      Left            =   780
      Top             =   540
   End
   Begin VB.CommandButton cmdClearDisplay 
      Caption         =   "Clear Display"
      Height          =   255
      Left            =   60
      TabIndex        =   6
      Top             =   3135
      Width           =   1575
   End
   Begin VB.TextBox txtCheckFileFreq 
      Height          =   285
      Left            =   1575
      TabIndex        =   3
      Text            =   "1000"
      Top             =   4275
      Width           =   735
   End
   Begin VB.Timer Timer1 
      Interval        =   5000
      Left            =   240
      Top             =   540
   End
   Begin VB.CheckBox ChkLogging 
      Caption         =   "Logging Commands to file"
      Height          =   255
      Left            =   -15
      TabIndex        =   2
      Top             =   3930
      Value           =   1  'Checked
      Width           =   2175
   End
   Begin VB.ListBox LstPrint 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Fixedsys"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2760
      Left            =   0
      TabIndex        =   1
      Top             =   360
      Width           =   13050
   End
   Begin VB.Label lblTog 
      Alignment       =   1  'Right Justify
      Caption         =   "0"
      Height          =   255
      Left            =   6120
      TabIndex        =   78
      Top             =   7200
      Width           =   495
   End
   Begin VB.Label lblPkt 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   90
      TabIndex        =   20
      Top             =   6960
      Width           =   4455
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "*CAD*SYYYYMMDDHHMMSS000111222333444555666"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   90
      TabIndex        =   21
      Top             =   7200
      Width           =   4455
   End
   Begin VB.Label lblfrmMain 
      Caption         =   "Command Processor"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   0
      TabIndex        =   75
      Top             =   0
      Width           =   10155
   End
   Begin VB.Label lblToApp 
      Height          =   255
      Left            =   60
      TabIndex        =   74
      Top             =   10200
      Width           =   12915
   End
   Begin VB.Label lblITC 
      Caption         =   "Inner Task Communications"
      Height          =   255
      Left            =   60
      TabIndex        =   73
      Top             =   9240
      Width           =   3255
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Caption         =   "All"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   3240
      TabIndex        =   65
      Top             =   4440
      Width           =   375
   End
   Begin VB.Label lblReplySt 
      Caption         =   "replycmpl.que exists"
      Height          =   195
      Index           =   1
      Left            =   5910
      TabIndex        =   25
      Top             =   4155
      Width           =   1545
   End
   Begin VB.Label lblReplySt 
      Caption         =   "reply.que exists"
      Height          =   195
      Index           =   0
      Left            =   5910
      TabIndex        =   24
      Top             =   3945
      Width           =   1155
   End
   Begin VB.Label lstReply2Cnt 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   45
      TabIndex        =   16
      Top             =   3645
      Width           =   375
   End
   Begin VB.Label lstReply1Cnt 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   45
      TabIndex        =   14
      Top             =   3405
      Width           =   375
   End
   Begin VB.Label lblReply 
      Height          =   255
      Left            =   4080
      TabIndex        =   12
      Top             =   3915
      Width           =   1695
   End
   Begin VB.Label ErrorCondition 
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   7020
      TabIndex        =   10
      Top             =   3120
      Width           =   3435
   End
   Begin VB.Label CADRecs 
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   2730
      TabIndex        =   9
      Top             =   3135
      Width           =   735
   End
   Begin VB.Label Label2 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Cadprint Recs"
      Height          =   255
      Left            =   1650
      TabIndex        =   8
      Top             =   3135
      Width           =   1095
   End
   Begin VB.Label lblScan 
      Height          =   255
      Left            =   2310
      TabIndex        =   5
      Top             =   3930
      Width           =   1695
   End
   Begin VB.Label Label1 
      Caption         =   "Check file frequency (milliseconds)"
      Height          =   420
      Left            =   0
      TabIndex        =   4
      Top             =   4185
      Width           =   1575
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdBottom_Click()
   frmMain.LstPrint.ListIndex = frmMain.LstPrint.ListCount - 1
End Sub
Private Sub cmdClearDisplay_Click()
   LstPrint.Clear
End Sub

Private Sub cmdClearSpoolFiles_Click()
   frmMain.filBuffers.Path = temppath$
   frmMain.filBuffers.Refresh
   mx = 0
   For ix = 0 To frmMain.filBuffers.ListCount - 1
      ax$ = frmMain.filBuffers.List(ix)
      If InStr(ax$, "CMDBF") <> 0 Then
         KillIt (temppath$ + ax$)
      End If
   Next
   TogCount = mx
   frmMain.lblTog.Caption = Str(TogCount)

End Sub

Private Sub cmdEnd_Click()
'   On Error Resume Next
   Unhook
   Open MessageFileName$ For Output As #26 'using #26
   Print #26, "I Have Been Terminated"
   Close #26
   Call PrintLog("I Have Been Terminated")
   EndTimer.Enabled = True
End Sub

Private Sub cmdMove2Q1_Click()
'
'  this routine moves any command to any Queue
'
   nn = Val(lblFromTab.Tag)
   mm = -1
   For ixtab = 0 To SSTab1.Tabs - 1
      If cboMoveQUE.List(cboMoveQUE.ListIndex) = SSTab1.TabCaption(ixtab) Then
         mm = ixtab
         Exit For
      End If
   Next
   If mm = -1 Then Exit Sub
   If nn <> mm Then
      imx = 0
      Do While imx <= lstPGroup(nn).ListCount - 1
         If lstPGroup(nn).Selected(imx) Then
            lstPGroup(mm).AddItem lstPGroup(nn).List(imx)
            lstPGroup(nn).RemoveItem (imx)
         Else
            imx = imx + 1
         End If
      Loop
   End If
End Sub
Private Sub cmdTestMessage_Click()
   frmQueHandler.Show
End Sub
Private Sub EndTimer_Timer()
   End
End Sub

Private Sub ErrorCondition_DblClick()
   ErrorCondition.Caption = ""
End Sub


Private Sub Form_Load()
   '
   ' +MonitorNib
   '
   frmMonitorNib.txtID.Text = "wdtCommandProcessor"
   frmMonitorNib.Show
   frmMonitorNib.Visible = False
   '
   ' -MonitorNib
   '
   Set rcvListBox = frmMain.lstRecvd
   MyWnd = frmMain.hwnd
   lstError.AddItem "Start Time:" + Format(Now, "hh:nn:ss yyyy/mm/dd")
   Call InitVars
   Hook
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   '
   ' +MonitorNib
   Unload frmMonitorNib
   ' -MonitorNib
   '
End Sub

Private Sub Form_Resize()
             positsize$ = "   Top:  " + Str(Me.top)
positsize$ = positsize$ + "  Left:  " + Str(Me.left)
positsize$ = positsize$ + " Width:  " + Str(Me.Width)
positsize$ = positsize$ + "Height:  " + Str(Me.Height)

lblfrmMain.ToolTipText = positsize$

End Sub

'
' Example Connection Requirements
'
'Private Sub Form_Load()
'   Set rcvListBox = lstRecvd
'   ToName = "QMGR"                ' Application to Connect to
'   MyName = "CMDPRC"              ' This Application window
'   MyWnd = Me.hwnd
'   Hook
'
'   Me.Show
'   Me.Caption = MyName
'   lblToApp.Caption = "Connecting to: " + ToName + "   Status: Not Found" 'Status message
'   processTimer.Enabled = True    ' Timer to process incoming messages
'   sendTimer.Enabled = True       ' Timer to send out going responses
'End Sub
'Private Sub Form_Unload(Cancel As Integer)
'   Unhook
'End Sub
'
'
'Private Sub processTimer_Timer()
''
'' This timer checks to see if any messages have been received and need to be Processed
''
'   processTimer.Interval = 1000  ' set the timer to once a second
'   Do While lstRecvd.ListCount > 0
'      Msg$ = lstRecvd.List(0)
'      lstRecvd.RemoveItem (0)
'      '
'      ' process the message
'      '
'      Msg$ = Msg$ + " Back " + Date$ + " " + Time$
'      '
'      ' send the response
'      '
'      lstSend.AddItem Msg$
'   Loop
'
'End Sub
'
'Private Sub sendTimer_Timer()
''
''  This timer Watches for Connectivity to be able to send messages.
''
'   sendTimer.Interval = 1000
'   ToWnd = FindWindow(vbNullString, ToName)  'look for App to connect To
'   If ToWnd = 0& Then
'      lblToApp.Caption = "Connecting to: " + ToName + "   Status: Not Found"
'      lblToApp.BackColor = &HC0C0FF
'      SendStatus = "Disconnected"
'   Else
'      lblToApp.Caption = "Connected to: " + ToName + "   Status: Found " + Hex$(ToWnd)
'      lblToApp.BackColor = &HC0FFC0
'      SendStatus = "Connected"
'   End If
'   '
'   ' if App exists then send the messages in the Send ListBox
'   '
'   If SendStatus = "Connected" Then
'      Do While lstSend.ListCount > 0
'         Msg$ = lstSend.List(0)
'         lstSend.RemoveItem (0)
'         Call SendAMessage(Msg$)
'      Loop
'   End If
' End Sub
'
Private Sub Label5_DblClick()
   For iix = 0 To picCount.Count - 1
      If Label5.BackColor = &HFF Then
         picCount(iix).BackColor = &H8000000F
         picCount(iix).ToolTipText = ""
      Else
         picCount(iix).BackColor = &HFF
         picCount(iix).ToolTipText = "Queue Paused"
      End If
   Next
   If Label5.BackColor = &HFF Then
      Label5.BackColor = &H8000000F
   Else
      Label5.BackColor = &HFF
   End If

End Sub

Private Sub lblCount_DblClick(Index As Integer)
'
' pause/unpause print queue
'
'&H8000000F& clear
'&H000000FF& red
'
'picCount(Index).BackColor = &HFF
'picCount(Index).BackColor = &H8000000F
   If picCount(Index).BackColor = &HFF Then
      picCount(Index).BackColor = &H8000000F
      picCount(Index).ToolTipText = ""
   Else
      picCount(Index).BackColor = &HFF
      picCount(Index).ToolTipText = "Queue Paused"
   End If
End Sub

Private Sub lblPkt_Click()
   lblPkt.Caption = ""
End Sub

Private Sub List1_DblClick()
   l$ = List1.List(List1.ListIndex)
   Select Case l$
      Case "Show Test Message"
         frmQueHandler.Show
      Case "Show BOM"
         frmBOM.Show
      Case "Show Assem View"
         frmCheckAssembly.Show
      Case "Show Spooler"
         frmPSSpooler.Show
      Case "Show File Watcher"
         frmFileWatch.Show
      Case "Show Folder Copier"
         frmFolderCopy.Show
      Case "Show PDF Printer"
         frmPDF.Show
      Case Else
   End Select

End Sub

Private Sub lstCounts_Click()
   lstCounts.Clear
   ict = lstCheckIn.ListCount
   lstCounts.AddItem "ckin=" + Trim$(Str$(ict))
   For ixxx = 0 To lstPGroup.Count - 1
      ict = lstPGroup(ixxx).ListCount
      lstCounts.AddItem "grp" + Trim$(Str$(ixxx)) + "=" + Trim$(Str$(ict))
   Next
End Sub
Function MakePGroupPacket$()
   ict = lstCheckIn.ListCount
   Pkt$ = LPad$(Trim$(Str$(ict)), 3)
   For ixxx = 0 To lstPGroup.Count - 1
      ict = lstPGroup(ixxx).ListCount
      vv$ = LPad$(Trim$(Str$(ict)), 3)
      If vv$ = "   " Then vv$ = "  0"
      Pkt$ = Pkt$ + vv$
   Next
   MakePGroupPacket$ = LPad$(Format$(Now, "yyyymmddhhmmss"), 14) + Pkt$
End Function
Private Sub lstCounts_GotFocus()
   lstCounts.Clear
   ict = lstCheckIn.ListCount
   lstCounts.AddItem "ckin=" + Trim$(Str$(ict))
   For ixxx = 0 To lstPGroup.Count - 1
      ict = lstPGroup(ixxx).ListCount
      lstCounts.AddItem "grp" + Trim$(Str$(ixxx)) + "=" + Trim$(Str$(ict))
   Next
End Sub

Private Sub LstPrint_DblClick()
   LstPrint.Clear
End Sub

Public Sub lstReply2Cnt_DblClick()
   lstReply2Cnt.BackColor = QBColor(12)
   On Error GoTo frOpps
   DoEvents
   
   Open "C:\replies.dat" For Output As #17   'using #17
      For idre = 0 To lstReply2.ListCount - 1
         jff$ = lstReply2.List(idre)
         Print #17, jff$
      Next
   Close #17

   If (Not (ExistsNew(Reply$))) And (ExistsNew(ReplyComplete$)) Then
      PurgeIt (ReplyComplete$)
   End If
   
   Call FlushReplies
   lstReply2Cnt.BackColor = QBColor(15)
frOppsOut:
Exit Sub

frOpps:
   Close #17
   Resume frOppsOut
End Sub

Private Sub processTimer_Timer()
'
' This timer checks to see if any messages have been received and need to be Processed
'
   If chkUseITC.value = 1 Then
      lblITC.BackColor = &HC0FFC0
      processTimer.Interval = 1000  ' set the timer to once a second
      Do While lstRecvd.ListCount > 0
         Msg$ = lstRecvd.List(0)
         lstRecvd.RemoveItem (0)
         frmMain.lstIncome.AddItem Msg$
      Loop
   Else
      lblITC.BackColor = &HC0C0FF
   End If
End Sub

Private Sub sendTimer_Timer()
'
'  This timer Watches for Connectivity to be able to send messages.
'
   If chkUseITC.value = 1 Then
      lblITC.BackColor = &HC0FFC0
      sendTimer.Interval = 1000
      ToWnd = FindWindow(vbNullString, ToName)  'look for App to connect To
      If ToWnd = 0& Then
         lblToApp.Caption = "Connecting to: " + ToName + "   Status: Not Found"
         lblToApp.BackColor = &HC0C0FF
         SendStatus = "Disconnected"
      Else
         lblToApp.Caption = "Connected to: " + ToName + "   Status: Found " + Hex$(ToWnd)
         lblToApp.BackColor = &HC0FFC0
         SendStatus = "Connected"
      End If
      '
      ' if App exists then send the messages in the Send ListBox
      '
      If SendStatus = "Connected" Then
         Do While lstSend.ListCount > 0
            Msg$ = lstSend.List(0)
            lstSend.RemoveItem (0)
            Call SendAMessage(Msg$)
         Loop
      End If
   Else
      sendTimer.Interval = 3000
      lblToApp.BackColor = &HC0C0FF
      lblToApp.Caption = "Inner Task Communications Disabled"
      lblITC.BackColor = &HC0C0FF
      SendStatus = "Disconnected"
   End If
End Sub
'

Private Sub SSTab1_Click(PreviousTab As Integer)
   nn = SSTab1.Tab
   lblFromTab.Caption = SSTab1.TabCaption(nn)
   lblFromTab.Tag = Trim(Str(nn))
   
End Sub


Private Sub Timer1_Timer()
   If Timer1.Tag = "Busy" Then Exit Sub
   Timer1.Tag = "Busy"
   lblScan.Caption = "Scanning"
   DoEvents
   Call StartSystem
   lblScan.Caption = "Flush Replies"
   Call FlushReplies
   lblScan.Caption = "idle"
   Timer1.Tag = ""
End Sub

Private Sub Timer2_Timer()
   FileTimer = FileTimer - 1
   If FileTimer <= 0 Then FileTimer = 0
'''''''''''''''''''   Call WDTServer
   '
   ' +MonitorNib
   '
   ' (once per second)
   txtMonitor.BackColor = frmMonitorNib.BackColor
   ' -MonitorNib
   On Error GoTo Timer2_ERROR
   xz% = 0: yz% = 0
   xz% = FileLen(ACADIncome$)
   yz% = FileLen(ACADWait$)
   CADRecs.Caption = Str$((xz% + yz%) \ 79)
   lblReply.Caption = "replys=" + Str$(replies) + "  | " + Str$(replies2)
   If ExistsNew(Reply$) Then
      lblReplySt(0).BackColor = QBColor(15)
   Else
      lblReplySt(0).BackColor = QBColor(14)
   End If
   If ExistsNew(ReplyComplete$) Then
      lblReplySt(1).BackColor = QBColor(15)
   Else
      lblReplySt(1).BackColor = QBColor(14)
   End If
   If replies2 >= 2 Then
      If (Not (ExistsNew(Reply$))) And (ExistsNew(ReplyComplete$)) Then
        'PurgeIt (ReplyComplete$)
      End If
      If replies2 > 60 Then
         Constipation% = 1
      End If
      
   Else
      Constipation% = 0
   End If
   For ixxx = 0 To lblCount.Count - 1
      lblCount(ixxx).Caption = Trim(Str(lstPGroup(ixxx).ListCount))
   Next
   lstReply1Cnt.Caption = Str$(lstReply1.ListCount)
   lstReply2Cnt.Caption = Str$(lstReply2.ListCount)
   DoEvents
   Exit Sub
Timer2_ERROR:
   Resume Next
End Sub


Private Sub txtCheckFileFreq_Change()
   Tl% = Val(txtCheckFileFreq.Text)
   If Tl% > 200 Then
      Timer1.Interval = Tl%
   Else
      Timer1.Interval = 500
   End If
End Sub


Private Sub txtMonitor_DblClick()
   '
   ' +MonitorNib
   frmMonitorNib.Visible = True
   ' -MonitorNib

End Sub