VERSION 5.00 Begin VB.Form frmQueHandler BackColor = &H00C0C0C0& Caption = "Que Test Messages" ClientHeight = 1575 ClientLeft = 90 ClientTop = 5355 ClientWidth = 11865 LinkTopic = "Form1" PaletteMode = 1 'UseZOrder ScaleHeight = 1575 ScaleWidth = 11865 Begin VB.CommandButton cmdPrintText Caption = "PrintText" Height = 195 Left = 10320 TabIndex = 17 Top = 510 Width = 975 End Begin VB.CommandButton Command1 Caption = "Move Ref" Height = 225 Left = 9210 TabIndex = 16 Top = 480 Width = 975 End Begin VB.TextBox StatusBar1 BackColor = &H00C0C0C0& BeginProperty Font Name = "Fixedsys" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 0 TabIndex = 15 Text = "StatusBar1" Top = 1200 Width = 11775 End Begin VB.CommandButton cmdWire Caption = "Wire Diag." Height = 195 Left = 8160 TabIndex = 14 Top = 480 Width = 975 End Begin VB.TextBox UserName Height = 285 Left = 2280 TabIndex = 13 Text = "FEDUCIA" Top = 360 Width = 1455 End Begin VB.CommandButton cmdSend Appearance = 0 'Flat BackColor = &H80000005& Caption = "SEND COMMAND" Height = 495 Left = 10320 TabIndex = 11 Top = 0 Width = 1455 End Begin VB.CommandButton cmdQuit Caption = "&Cancel" Height = 375 Left = 0 TabIndex = 10 Top = 0 Width = 615 End Begin VB.TextBox XmitCommand BeginProperty Font Name = "Fixedsys" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 Left = 0 TabIndex = 9 Text = "Text2" Top = 840 Width = 11775 End Begin VB.CommandButton cmdMoveBack Caption = "Move Back" Height = 195 Left = 9240 TabIndex = 8 Top = 240 Width = 975 End Begin VB.CommandButton cmdMoveOut Caption = "Move Out" Height = 195 Left = 9240 TabIndex = 7 Top = 0 Width = 975 End Begin VB.CommandButton cmdMoveIn Caption = "Move In" Height = 195 Left = 8160 TabIndex = 6 Top = 240 Width = 975 End Begin VB.CommandButton cmdPrint Caption = "Print File" Height = 195 Left = 8160 TabIndex = 5 Top = 0 Width = 975 End Begin VB.TextBox PrinterName Height = 285 Left = 6240 TabIndex = 4 Text = "PrinterName" Top = 0 Width = 1815 End Begin VB.TextBox FileToActOn Height = 285 Left = 2280 TabIndex = 1 Text = "9002028C" Top = 0 Width = 1455 End Begin VB.ListBox lstPrinters Height = 255 Left = 6240 TabIndex = 0 Top = 360 Width = 1815 End Begin VB.Label Label3 Alignment = 1 'Right Justify Caption = "User Name" Height = 255 Left = 720 TabIndex = 12 Top = 360 Width = 1455 End Begin VB.Label Label2 Alignment = 1 'Right Justify Caption = "Printer Name" Height = 255 Left = 4680 TabIndex = 3 Top = 0 Width = 1455 End Begin VB.Label Label1 Alignment = 1 'Right Justify Caption = "File To Act On" Height = 255 Left = 720 TabIndex = 2 Top = 0 Width = 1455 End End Attribute VB_Name = "frmQueHandler" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cmdMoveBack_Click() XmitCommand.Text = MakeCmd$("B") End Sub Private Sub cmdMoveIn_Click() XmitCommand.Text = MakeCmd$("I") End Sub Private Sub cmdMoveOut_Click() XmitCommand.Text = MakeCmd$("O") End Sub Private Sub cmdPrint_Click() XmitCommand.Text = MakeCmd$("P") End Sub Private Sub cmdPrintText_Click() XmitCommand.Text = MakeCmd$("T") End Sub Private Sub cmdQuit_Click() frmQueHandler.Hide End Sub Private Sub cmdSend_Click() StatusBar1.Text = "Creating Income File" DoEvents Open INCOME$ For Output As #4 'using #4 p$ = RPad$(XmitCommand.Text, CQueSize%) Print #4, p$ Close #4 StatusBar1.Text = "Income File Created" DoEvents StatusBar1.Text = "Activating Handshake File" Call Fcopy(COMPLETE2$, COMPLETE$, Rc%) DoEvents StatusBar1.Text = "Idle" End Sub Private Sub Command1_Click() XmitCommand.Text = MakeCmd$("R") End Sub Private Sub cmdWire_Click() XmitCommand.Text = MakeCmd$("W") End Sub Private Sub Form_Load() For i = 1 To lptI% lstPrinters.AddItem Place$(i) Next PrinterName.Text = Place$(1) End Sub Private Sub lstPrinters_DblClick() t$ = lstPrinters.Text PrinterName.Text = t$ End Sub Public Function MakeCmd$(TypeOfCmd$) WhoEver$ = UserName.Text M$ = TypeOfCmd$ Select Case TypeOfCmd$ Case "P", "W" ''''''print P Part Printer Banner1 Date Product Number mesg type '''''' 1<---8--><---10---><---10---><-----14-----><------15----->X M$ = M$ + RPad$(FileToActOn.Text, 8) ' PART M$ = M$ + RPad$(PrinterName.Text, 10) ' PRINTER M$ = M$ + RPad$(WhoEver$, 10) ' BANNER M$ = M$ + RPad$(Format$(Now, "YYYYMMDDHHMMSS"), 14) M$ = M$ + RPad$(FileToActOn.Text, 15) ' PRODUCT NO If TypeOfCmd$ = "W" Then M$ = M$ + "6" ' MESSAGE TYPE Else M$ = M$ + "1" ' MESSAGE TYPE End If Case "I", "O", "B", "R" ''''''ck out O Part# Product # Directory New Name Date '''''' in 1<---8--><------15-----><---10---><--8---><-----14-----> '''''' back M$ = M$ + RPad$(FileToActOn.Text, 8) ' PART M$ = M$ + RPad$(FileToActOn.Text, 15) ' PRODUCT NO M$ = M$ + RPad$(WhoEver$, 10) ' BANNER M$ = M$ + RPad$(FileToActOn.Text, 8) ' PART M$ = M$ + RPad$(Format$(Now, "YYYYMMDDHHMMSS"), 14) Case "E" ''''''ie move E Part# Product # Directory IE Dir Date '''''' 1<---8--><------15-----><---10---><--10----><-----14-----> M$ = M$ + RPad$(FileToActOn.Text, 8) ' PART M$ = M$ + RPad$(FileToActOn.Text, 15) ' PRODUCT NO M$ = M$ + RPad$(WhoEver$, 10) ' BANNER M$ = M$ + RPad$(WhoEver$, 10) ' BANNER M$ = M$ + RPad$(Format$(Now, "YYYYMMDDHHMMSS"), 14) Case "T" M$ = M$ + RPad$(FileToActOn.Text, 10) ' PART M$ = M$ + RPad$(PrinterName.Text, 10) ' PRINTER Case Else End Select MakeCmd$ = M$ End Function