sync: auto-sync from GURU-5070 at 2026-06-14 05:33:01
Author: Mike Swanson Machine: GURU-5070 Timestamp: 2026-06-14 05:33:01
This commit is contained in:
@@ -0,0 +1,377 @@
|
||||
VERSION 5.00
|
||||
Begin VB.Form frmLotList3
|
||||
Caption = "Lot Information List"
|
||||
ClientHeight = 8595
|
||||
ClientLeft = 60
|
||||
ClientTop = 345
|
||||
ClientWidth = 6975
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 8595
|
||||
ScaleWidth = 6975
|
||||
StartUpPosition = 3 'Windows Default
|
||||
Begin VB.ListBox lstMatPO
|
||||
Height = 1425
|
||||
Left = 60
|
||||
TabIndex = 7
|
||||
Top = 4200
|
||||
Width = 6855
|
||||
End
|
||||
Begin VB.ListBox lstPO
|
||||
Height = 1230
|
||||
Left = 60
|
||||
TabIndex = 5
|
||||
Top = 2580
|
||||
Width = 6855
|
||||
End
|
||||
Begin VB.ListBox lstRepairs
|
||||
Height = 1035
|
||||
Left = 60
|
||||
TabIndex = 2
|
||||
Top = 1200
|
||||
Width = 6855
|
||||
End
|
||||
Begin VB.Label lblMatPO
|
||||
AutoSize = -1 'True
|
||||
Caption = "Material Purchase Orders"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 195
|
||||
Left = 120
|
||||
TabIndex = 6
|
||||
Top = 3900
|
||||
Width = 2160
|
||||
End
|
||||
Begin VB.Label lblPO
|
||||
AutoSize = -1 'True
|
||||
Caption = "Special Purchase Orders"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 195
|
||||
Left = 120
|
||||
TabIndex = 4
|
||||
Top = 2340
|
||||
Width = 2115
|
||||
End
|
||||
Begin VB.Label lblRepairs
|
||||
AutoSize = -1 'True
|
||||
Caption = "Repair List"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 195
|
||||
Left = 120
|
||||
TabIndex = 3
|
||||
Top = 960
|
||||
Width = 930
|
||||
End
|
||||
Begin VB.Line Line1
|
||||
BorderWidth = 3
|
||||
X1 = 0
|
||||
X2 = 6960
|
||||
Y1 = 900
|
||||
Y2 = 900
|
||||
End
|
||||
Begin VB.Label Label3
|
||||
Alignment = 2 'Center
|
||||
Caption = "Lot Information"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 13.5
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 315
|
||||
Left = 60
|
||||
TabIndex = 1
|
||||
Top = 60
|
||||
Width = 6795
|
||||
End
|
||||
Begin VB.Label lblProjLot
|
||||
Alignment = 2 'Center
|
||||
BorderStyle = 1 'Fixed Single
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 9.75
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 375
|
||||
Left = 60
|
||||
TabIndex = 0
|
||||
Top = 480
|
||||
Width = 6855
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmLotList3"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
|
||||
Private Sub Form_Activate()
|
||||
Dim intResponse As Integer
|
||||
Dim strSQL As String
|
||||
|
||||
On Error GoTo Error_EH
|
||||
|
||||
Exit Sub
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotList - Module Form_Activate"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
|
||||
|
||||
If Shift = 4 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub Form_KeyPress(KeyAscii As Integer)
|
||||
If KeyAscii = 13 Then
|
||||
SendKeys "{TAB}"
|
||||
KeyAscii = 0
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Form_Load()
|
||||
On Error GoTo Error_EH
|
||||
|
||||
Call POLoad
|
||||
Call RepairLoad
|
||||
Call MatPOLoad
|
||||
If FormFind() Then
|
||||
Call FormShow
|
||||
Else
|
||||
Unload Me
|
||||
End If
|
||||
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotList - Module Form_Load"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Sub RepairLoad()
|
||||
Dim oRS As Recordset
|
||||
Dim strSQL As String, strLine As String, strTYPE As String
|
||||
On Error GoTo Error_EH
|
||||
|
||||
strSQL = "SELECT Repair_id, Proj_lot, Scheduled, completed, punch, yrend1, yrend2, wo, repair from tblrepair WHERE lot_id = " & gintLOTID & " ORDER BY scheduled"
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
lstRepairs.Clear
|
||||
|
||||
Do Until oRS.EOF
|
||||
With lstRepairs
|
||||
If oRS!punch Then
|
||||
strTYPE = "PUNCH "
|
||||
ElseIf oRS!yrend1 Then
|
||||
strTYPE = "1 YEAR END"
|
||||
ElseIf oRS!yrend2 Then
|
||||
strTYPE = "2 YEAR END"
|
||||
ElseIf oRS!wo Then
|
||||
strTYPE = "PO WORK "
|
||||
ElseIf oRS!repair Then
|
||||
strTYPE = "REPAIR "
|
||||
End If
|
||||
strLine = ""
|
||||
strLine = Field2Str(oRS!scheduled) & " " & Field2Str(oRS!completed) & " "
|
||||
strLine = strLine & strTYPE & " " & Field2Str(oRS!proj_lot)
|
||||
.AddItem strLine
|
||||
.ItemData(.NewIndex) = oRS!repair_id
|
||||
End With
|
||||
oRS.MoveNext
|
||||
Loop
|
||||
oRS.Close
|
||||
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotList - Module RepairLoad"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Sub MatPOLoad()
|
||||
Dim oRS As Recordset
|
||||
Dim strSQL As String, strLine As String, strTYPE As String
|
||||
On Error GoTo Error_EH
|
||||
|
||||
strSQL = "SELECT lot_id, order_date, m_type, po_num FROM tblOrders WHERE ponum = 0 and lot_id = " & gintLOTID & " ORDER BY Order_Date"
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
lstMatPO.Clear
|
||||
|
||||
Do Until oRS.EOF
|
||||
With lstMatPO
|
||||
If Field2Str(oRS!m_type) = "L" Then
|
||||
strTYPE = "LATH "
|
||||
ElseIf Field2Str(oRS!m_type) = "B" Then
|
||||
strTYPE = "BROWN "
|
||||
ElseIf Field2Str(oRS!m_type) = "A" Then
|
||||
strTYPE = "SAND "
|
||||
ElseIf Field2Str(oRS!m_type) = "T" Then
|
||||
strTYPE = "TEXTURE "
|
||||
ElseIf Field2Str(oRS!m_type) = "P" Then
|
||||
strTYPE = "PREORDER"
|
||||
ElseIf Field2Str(oRS!m_type) = "S" Then
|
||||
strTYPE = "SCRATCH "
|
||||
End If
|
||||
strLine = strTYPE & vbTab & Field2Str(oRS!order_date) & vbTab & Field2Str(oRS!po_num)
|
||||
.AddItem strLine
|
||||
.ItemData(.NewIndex) = oRS!lot_id
|
||||
End With
|
||||
oRS.MoveNext
|
||||
Loop
|
||||
oRS.Close
|
||||
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotList - Module MatPOLoad"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Sub POLoad()
|
||||
Dim oRS As Recordset
|
||||
Dim strSQL As String, strLine As String
|
||||
On Error GoTo Error_EH
|
||||
|
||||
strSQL = "SELECT ponum, towhom, desc, date from tblPOrder WHERE lot_id = " & gintLOTID
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
lstPO.Clear
|
||||
|
||||
Do Until oRS.EOF
|
||||
With lstPO
|
||||
strLine = Field2Str(oRS!Date) & vbTab & Field2Str(oRS!ponum) & vbTab
|
||||
strLine = strLine & Field2Str(oRS!towhom) & vbTab & Field2Str(oRS!Desc)
|
||||
.AddItem strLine
|
||||
.ItemData(.NewIndex) = oRS!ponum
|
||||
End With
|
||||
oRS.MoveNext
|
||||
Loop
|
||||
oRS.Close
|
||||
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotList - Module POLoad"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Sub FormShow()
|
||||
On Error GoTo Error_EH
|
||||
|
||||
' mboolSHOW = True
|
||||
' mboolSHOW = False
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotList - Module FormShow"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Function FormFind() As Boolean
|
||||
Dim strSQL As String, strProj As String, strMEMO As String
|
||||
Dim oRS As Recordset, oRSS As Recordset
|
||||
|
||||
On Error GoTo Error_EH
|
||||
|
||||
strSQL = "SELECT * "
|
||||
strSQL = strSQL & "FROM tblLotInfo "
|
||||
strSQL = strSQL & "WHERE Lot_ID = " & gintLOTID
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, _
|
||||
adOpenKeyset, adLockPessimistic
|
||||
|
||||
strProj = "SELECT * "
|
||||
strProj = strProj & "FROM tblproject "
|
||||
strProj = strProj & "WHERE proj_ID = " & Field2Integer(oRS!proj_id)
|
||||
Set oRSS = New Recordset
|
||||
oRSS.Open strProj, goConn, _
|
||||
adOpenKeyset, adLockPessimistic
|
||||
|
||||
If oRSS.EOF Then
|
||||
|
||||
End If
|
||||
|
||||
If oRS.EOF Then
|
||||
FormFind = False
|
||||
Else
|
||||
FormFind = True
|
||||
lblProjLot.Caption = oRSS!proj_code & " " & oRS!lot_no & " " & oRSS!proj_desc
|
||||
End If
|
||||
oRS.Close
|
||||
oRSS.Close
|
||||
Exit Function
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotList - Module FormFind"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Function
|
||||
End Function
|
||||
|
||||
Private Sub lstPO_DblClick()
|
||||
gintPONUM = lstPO.ItemData(lstPO.ListIndex)
|
||||
frmShowPO.Show 1
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub lstRepairs_DblClick()
|
||||
' If Not lstRepairs.ListIndex Then
|
||||
' Else
|
||||
' MsgBox "There are no Repairs Listed", vbOKOnly, "No Repairs"
|
||||
' Exit Sub
|
||||
' End If
|
||||
gintREPAIRID = lstRepairs.ItemData(lstRepairs.ListIndex)
|
||||
frmShowRepair.Show 1
|
||||
End Sub
|
||||
Reference in New Issue
Block a user