296 lines
8.3 KiB
Plaintext
296 lines
8.3 KiB
Plaintext
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
|
|
|