feat(valleywide): recover VWP Orders VB6 source from D: backup drive
Recovered Darv's VB6 source for the Valley Wide Plastering Orders application from the D: backup drive (label "Backup", 8 TB, 5.3 TB used). This is the first time we've had the actual source — prior session only had a single frmPayroll.frm from the AD server. Three project variants identified across two snapshots: - Full-Project/ (2,129 files, 124 MB) — D:\Office-Estimates\Darv\Full\Project\ - Kingston-Project/ (2,189 files, 130 MB) — D:\Office-Estimates\Darv\Kingston\Project\ - Source/ (170 files, 559 MB) — D:\Office-Estimates\Darv\Source\ wholesale - SOURCE-HOLD/ (3 files, 1 MB) — D:\Office-Estimates\Darv\SOURCE HOLD\ Latest ORDERS_C.vbp date is 2020-06-09 (Kingston snapshot). Production Orders_10A.exe was live as of April 2024 — open question whether newer source exists on other backup drives Mike will scan next. Also includes per-category and per-keyword analysis CSVs from a WizTree file-list export, plus the analyzer script that produced them (re-runnable for the next drive's CSV). VMs (VWIN7-DW.vdi 8.3 GB + XP-for-ORDERS_copy.vdi 2.8 GB), the live VWP.mdb, and the 393 MB raw WizTree CSV stay on disk only — gitignored. Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,998 @@
|
||||
VERSION 5.00
|
||||
Object = "{8DDE6232-1BB0-11D0-81C3-0080C7A2EF7D}#3.0#0"; "Flp32a30.ocx"
|
||||
Begin VB.Form frmLotList
|
||||
Caption = "Lot Information List"
|
||||
ClientHeight = 8595
|
||||
ClientLeft = 60
|
||||
ClientTop = 7245
|
||||
ClientWidth = 6975
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 8595
|
||||
ScaleWidth = 6975
|
||||
Begin LpLib.fpList lstInvoice
|
||||
Height = 1245
|
||||
Left = 60
|
||||
TabIndex = 12
|
||||
Top = 7110
|
||||
Width = 6855
|
||||
_Version = 196608
|
||||
_ExtentX = 12091
|
||||
_ExtentY = 2196
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Enabled = -1 'True
|
||||
MousePointer = 0
|
||||
Object.TabStop = 0 'False
|
||||
BackColor = -2147483643
|
||||
ForeColor = -2147483640
|
||||
Columns = 7
|
||||
Sorted = 0
|
||||
LineWidth = 1
|
||||
SelDrawFocusRect= -1 'True
|
||||
ColumnSeparatorChar= 9
|
||||
ColumnSearch = -1
|
||||
ColumnWidthScale= 2
|
||||
RowHeight = -1
|
||||
MultiSelect = 0
|
||||
WrapList = 0 'False
|
||||
WrapWidth = 0
|
||||
SelMax = -1
|
||||
AutoSearch = 1
|
||||
SearchMethod = 0
|
||||
VirtualMode = 0 'False
|
||||
VRowCount = 0
|
||||
DataSync = 3
|
||||
ThreeDInsideStyle= 1
|
||||
ThreeDInsideHighlightColor= -2147483633
|
||||
ThreeDInsideShadowColor= -2147483627
|
||||
ThreeDInsideWidth= 1
|
||||
ThreeDOutsideStyle= 1
|
||||
ThreeDOutsideHighlightColor= -2147483628
|
||||
ThreeDOutsideShadowColor= -2147483632
|
||||
ThreeDOutsideWidth= 1
|
||||
ThreeDFrameWidth= 0
|
||||
BorderStyle = 0
|
||||
BorderColor = -2147483642
|
||||
BorderWidth = 1
|
||||
ThreeDOnFocusInvert= 0 'False
|
||||
ThreeDFrameColor= -2147483633
|
||||
Appearance = 2
|
||||
BorderDropShadow= 0
|
||||
BorderDropShadowColor= -2147483632
|
||||
BorderDropShadowWidth= 3
|
||||
ScrollHScale = 2
|
||||
ScrollHInc = 0
|
||||
ColsFrozen = 0
|
||||
ScrollBarV = 1
|
||||
NoIntegralHeight= 0 'False
|
||||
HighestPrecedence= 0
|
||||
AllowColResize = 0
|
||||
AllowColDragDrop= 0
|
||||
ReadOnly = 0 'False
|
||||
VScrollSpecial = 0 'False
|
||||
VScrollSpecialType= 0
|
||||
EnableKeyEvents = -1 'True
|
||||
EnableTopChangeEvent= -1 'True
|
||||
DataAutoHeadings= -1 'True
|
||||
DataAutoSizeCols= 2
|
||||
SearchIgnoreCase= -1 'True
|
||||
ScrollBarH = 1
|
||||
VirtualPageSize = 0
|
||||
VirtualPagesAhead= 0
|
||||
ExtendCol = 0
|
||||
ColumnLevels = 1
|
||||
ListGrayAreaColor= -2147483637
|
||||
GroupHeaderHeight= -1
|
||||
GroupHeaderShow = 0 'False
|
||||
AllowGrpResize = 0
|
||||
AllowGrpDragDrop= 0
|
||||
MergeAdjustView = 0 'False
|
||||
ColumnHeaderShow= -1 'True
|
||||
ColumnHeaderHeight= -1
|
||||
GrpsFrozen = 0
|
||||
BorderGrayAreaColor= -2147483637
|
||||
ExtendRow = 0
|
||||
DataField = ""
|
||||
OLEDragMode = 0
|
||||
OLEDropMode = 0
|
||||
EnableClickEvent= -1 'True
|
||||
Redraw = -1 'True
|
||||
ResizeRowToFont = 0 'False
|
||||
TextTipMultiLine= 0
|
||||
ColDesigner = "frmLotList2.frx":0000
|
||||
End
|
||||
Begin LpLib.fpList lstPOWO
|
||||
Height = 1065
|
||||
Left = 60
|
||||
TabIndex = 11
|
||||
Top = 5700
|
||||
Width = 6855
|
||||
_Version = 196608
|
||||
_ExtentX = 12091
|
||||
_ExtentY = 1879
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "MS Sans Serif"
|
||||
Size = 8.25
|
||||
Charset = 0
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Enabled = -1 'True
|
||||
MousePointer = 0
|
||||
Object.TabStop = -1 'True
|
||||
BackColor = -2147483643
|
||||
ForeColor = -2147483640
|
||||
Columns = 6
|
||||
Sorted = 0
|
||||
LineWidth = 1
|
||||
SelDrawFocusRect= -1 'True
|
||||
ColumnSeparatorChar= 9
|
||||
ColumnSearch = -1
|
||||
ColumnWidthScale= 2
|
||||
RowHeight = -1
|
||||
MultiSelect = 0
|
||||
WrapList = 0 'False
|
||||
WrapWidth = 0
|
||||
SelMax = -1
|
||||
AutoSearch = 1
|
||||
SearchMethod = 0
|
||||
VirtualMode = 0 'False
|
||||
VRowCount = 0
|
||||
DataSync = 3
|
||||
ThreeDInsideStyle= 1
|
||||
ThreeDInsideHighlightColor= -2147483633
|
||||
ThreeDInsideShadowColor= -2147483627
|
||||
ThreeDInsideWidth= 1
|
||||
ThreeDOutsideStyle= 1
|
||||
ThreeDOutsideHighlightColor= -2147483628
|
||||
ThreeDOutsideShadowColor= -2147483632
|
||||
ThreeDOutsideWidth= 1
|
||||
ThreeDFrameWidth= 0
|
||||
BorderStyle = 0
|
||||
BorderColor = -2147483642
|
||||
BorderWidth = 1
|
||||
ThreeDOnFocusInvert= 0 'False
|
||||
ThreeDFrameColor= -2147483633
|
||||
Appearance = 2
|
||||
BorderDropShadow= 0
|
||||
BorderDropShadowColor= -2147483632
|
||||
BorderDropShadowWidth= 3
|
||||
ScrollHScale = 2
|
||||
ScrollHInc = 0
|
||||
ColsFrozen = 0
|
||||
ScrollBarV = 1
|
||||
NoIntegralHeight= 0 'False
|
||||
HighestPrecedence= 0
|
||||
AllowColResize = 0
|
||||
AllowColDragDrop= 0
|
||||
ReadOnly = 0 'False
|
||||
VScrollSpecial = 0 'False
|
||||
VScrollSpecialType= 0
|
||||
EnableKeyEvents = -1 'True
|
||||
EnableTopChangeEvent= -1 'True
|
||||
DataAutoHeadings= -1 'True
|
||||
DataAutoSizeCols= 2
|
||||
SearchIgnoreCase= -1 'True
|
||||
ScrollBarH = 1
|
||||
VirtualPageSize = 0
|
||||
VirtualPagesAhead= 0
|
||||
ExtendCol = 0
|
||||
ColumnLevels = 1
|
||||
ListGrayAreaColor= -2147483637
|
||||
GroupHeaderHeight= -1
|
||||
GroupHeaderShow = 0 'False
|
||||
AllowGrpResize = 0
|
||||
AllowGrpDragDrop= 0
|
||||
MergeAdjustView = 0 'False
|
||||
ColumnHeaderShow= 0 'False
|
||||
ColumnHeaderHeight= -1
|
||||
GrpsFrozen = 0
|
||||
BorderGrayAreaColor= -2147483637
|
||||
ExtendRow = 0
|
||||
DataField = ""
|
||||
OLEDragMode = 0
|
||||
OLEDropMode = 0
|
||||
EnableClickEvent= -1 'True
|
||||
Redraw = -1 'True
|
||||
ResizeRowToFont = 0 'False
|
||||
TextTipMultiLine= 0
|
||||
ColDesigner = "frmLotList2.frx":047C
|
||||
End
|
||||
Begin VB.CommandButton cmdSetYard
|
||||
Caption = "Setup Yard List"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 9.75
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 240
|
||||
Left = 3427
|
||||
TabIndex = 9
|
||||
Top = 3795
|
||||
Width = 1770
|
||||
End
|
||||
Begin VB.CommandButton cmdYard
|
||||
Caption = "Yard Order"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 9.75
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 240
|
||||
Left = 5565
|
||||
TabIndex = 8
|
||||
Top = 3795
|
||||
Width = 1320
|
||||
End
|
||||
Begin VB.CommandButton cmdExit
|
||||
Caption = "E&xit"
|
||||
BeginProperty Font
|
||||
Name = "MS Sans Serif"
|
||||
Size = 9.75
|
||||
Charset = 0
|
||||
Weight = 700
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 240
|
||||
Left = 2145
|
||||
TabIndex = 7
|
||||
Top = 3795
|
||||
Width = 915
|
||||
End
|
||||
Begin VB.ListBox lstPayroll
|
||||
Height = 1425
|
||||
Left = 60
|
||||
TabIndex = 6
|
||||
Top = 4095
|
||||
Width = 6855
|
||||
End
|
||||
Begin VB.ListBox lstPO
|
||||
Height = 1425
|
||||
Left = 60
|
||||
TabIndex = 5
|
||||
Top = 2340
|
||||
Width = 6855
|
||||
End
|
||||
Begin VB.ListBox lstRepairs
|
||||
Height = 1035
|
||||
Left = 60
|
||||
TabIndex = 2
|
||||
Top = 1065
|
||||
Width = 6855
|
||||
End
|
||||
Begin VB.Label lblPOWOList
|
||||
AutoSize = -1 'True
|
||||
Caption = "Billable PO/WO 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 = 60
|
||||
TabIndex = 14
|
||||
Top = 5505
|
||||
Width = 1710
|
||||
End
|
||||
Begin VB.Label lblInvoiceList
|
||||
AutoSize = -1 'True
|
||||
Caption = "Invoice 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 = 60
|
||||
TabIndex = 13
|
||||
Top = 6900
|
||||
Width = 1005
|
||||
End
|
||||
Begin VB.Label lblMatPO
|
||||
AutoSize = -1 'True
|
||||
Caption = "Payroll Information"
|
||||
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 = 60
|
||||
TabIndex = 10
|
||||
Top = 3780
|
||||
Width = 1590
|
||||
End
|
||||
Begin VB.Label lblPO
|
||||
AutoSize = -1 'True
|
||||
Caption = "Orders 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 = 60
|
||||
TabIndex = 4
|
||||
Top = 2130
|
||||
Width = 930
|
||||
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 = 60
|
||||
TabIndex = 3
|
||||
Top = 855
|
||||
Width = 930
|
||||
End
|
||||
Begin VB.Line Line1
|
||||
BorderWidth = 3
|
||||
X1 = 15
|
||||
X2 = 6975
|
||||
Y1 = 810
|
||||
Y2 = 810
|
||||
End
|
||||
Begin VB.Label lblLot
|
||||
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 = 15
|
||||
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 = 300
|
||||
Left = 60
|
||||
TabIndex = 0
|
||||
Top = 360
|
||||
Width = 6855
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "frmLotList"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
Dim mstrWTYPE As String, mstrWDone As String, mboolPROJ As Boolean
|
||||
|
||||
Private Sub cmdExit_Click()
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Sub cmdSetYard_Click()
|
||||
Dim oRS As Recordset, oRSS As Recordset
|
||||
Dim strSQL As String, strSql2 As String
|
||||
|
||||
On Error GoTo Error_EH
|
||||
|
||||
strSQL = "SELECT * FROM tblOrdMatrl WHERE not x_flag and Order_Id = " & lstPO.ItemData(lstPO.ListIndex)
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
|
||||
|
||||
If Not oRS.EOF Then
|
||||
strSql2 = "SELECT * FROM tblYardOrder"
|
||||
Set oRSS = New Recordset
|
||||
oRSS.Open strSql2, goConn, adOpenKeyset, adLockOptimistic
|
||||
Else
|
||||
MsgBox "No Order Items to Process", vbOKOnly, "No Items"
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Do Until oRS.EOF
|
||||
With oRSS
|
||||
.AddNew
|
||||
!Lot_ID = oRS!Lot_ID
|
||||
!inv_no = oRS!inv_no
|
||||
!Desc = oRS!Desc
|
||||
!qty = oRS!o_qty
|
||||
!qtyIssue = oRS!o_qty
|
||||
!po_num = oRS!po_num
|
||||
!createuser = gstrLOGIN
|
||||
.Update
|
||||
oRS!x_flag = vbChecked
|
||||
oRS.Update
|
||||
oRS.MoveNext
|
||||
End With
|
||||
Loop
|
||||
|
||||
Exit Sub
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotList - Module cmdSetYard"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Sub cmdYard_Click()
|
||||
frmShowYardMat.Show 1
|
||||
End Sub
|
||||
|
||||
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
|
||||
|
||||
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
|
||||
|
||||
|
||||
Call POWOLoad
|
||||
Call RepairLoad
|
||||
Call OrderLoad
|
||||
Call PayrollLoad
|
||||
Call InvoiceLoad
|
||||
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
|
||||
Dim lngRET As Long, aTabs(2) As Long
|
||||
|
||||
On Error GoTo Error_EH
|
||||
|
||||
aTabs(0) = 50
|
||||
aTabs(1) = 95
|
||||
aTabs(2) = 170
|
||||
' aTabs(3) = 190
|
||||
|
||||
strSQL = "SELECT Repair_id, Proj_lot, Scheduled, completed, punch, yrend1, yrend2, wo, repair, backcharge from tblrepair WHERE lot_id = " & gintLOTID & " ORDER BY scheduled"
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
lngRET = SendMessage(lstRepairs.hwnd, LB_SETTABSTOPS, 3, aTabs(0))
|
||||
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 = "WARRANTY"
|
||||
ElseIf oRS!backcharge Then
|
||||
strTYPE = "BACKCHARGE"
|
||||
Else
|
||||
strTYPE = "UNKNOWN"
|
||||
End If
|
||||
strLine = ""
|
||||
strLine = Field2Str(oRS!scheduled) & vbTab & Field2Str(oRS!completed) & vbTab
|
||||
' strLine = Field2Str(oRS!scheduled) & " " & Field2Str(oRS!completed) & " "
|
||||
strLine = strLine & strTYPE & vbTab & Field2Str(oRS!proj_lot)
|
||||
' 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 InvoiceLoad()
|
||||
Dim oRS As Recordset
|
||||
Dim strSQL As String, strLine As String, strTYPE As String, strWORK As String, strINVT As String
|
||||
'dim
|
||||
|
||||
On Error GoTo Error_EH
|
||||
|
||||
|
||||
strSQL = "SELECT * FROM tblARINVOICE WHERE lot_id = " & gintLOTID & " ORDER BY INVOICE_DATE"
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
lstInvoice.Clear
|
||||
|
||||
Do Until oRS.EOF
|
||||
With lstInvoice
|
||||
strINVT = oRS!inv_type
|
||||
If strINVT = "L" Then
|
||||
strTYPE = "LATH"
|
||||
ElseIf strINVT = "S" Then
|
||||
strTYPE = "STUCCO"
|
||||
ElseIf strINVT = "PE" Then
|
||||
strTYPE = "PAINT EXTERIOR"
|
||||
ElseIf strINVT = "PF" Then
|
||||
strTYPE = "PAINT FINAL"
|
||||
ElseIf strINVT = "PI" Then
|
||||
strTYPE = "PAINT INTERNAL"
|
||||
ElseIf strINVT = "V" Then
|
||||
strTYPE = "STONE"
|
||||
Else
|
||||
strTYPE = "UNKNOWN"
|
||||
End If
|
||||
|
||||
' mstrWDone = Field2Str(oRS!workdone)
|
||||
' Call GetWorkType
|
||||
' strWORK = mstrWTYPE
|
||||
|
||||
strLine = ""
|
||||
strLine = Field2Str2(oRS!Trans_ID) & vbTab & Field2Str(oRS!invoice_date) & vbTab
|
||||
strLine = strLine & Field2Str(oRS!invoice_no) & vbTab & Field2Str(strTYPE) & vbTab
|
||||
' strLine = strLine & Field2Str(oRS!strWORK) & vbTab & Field2Str2(oRS!NON_TAX_AMT) ' & vbTab
|
||||
strLine = strLine & Field2Str(oRS!sales_code) & vbTab & Format(Field2Str2(oRS!amount), "#,#.00") & vbTab & Format(Field2Str2(oRS!non_tax_amt), "#,#.00")
|
||||
' strLine = strLine & Field2Str(oRS!SALES_CODE) & vbTab & Field2Str2(oRS!NON_TAX_AMT) ' & vbTab
|
||||
' strLine = Field2Str(oRS!scheduled) & " " & Field2Str(oRS!completed) & " "
|
||||
' strLine = strLine & strTYPE & vbTab & Field2Str(oRS!proj_lot)
|
||||
' 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 InvoiceLoad"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Sub GetWorkType()
|
||||
Dim strSQL As String, oRSW As Recordset
|
||||
|
||||
strSQL = "SELECT * FROM tblcboWorkType WHERE WTCode = '" & mstrWDone & "'"
|
||||
Set oRSW = New Recordset
|
||||
oRSW.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
If Not oRSW.EOF Then
|
||||
mstrWTYPE = Field2Str(oRSW!worktype)
|
||||
End If
|
||||
|
||||
oRSW.Close
|
||||
End Sub
|
||||
|
||||
Private Sub PayrollLoad()
|
||||
Dim oRS As Recordset
|
||||
Dim strSQL As String, strLine As String, strTYPE As String, strWORK As String
|
||||
Dim lngRET As Long, aTabs(3) As Long
|
||||
|
||||
On Error GoTo Error_EH
|
||||
|
||||
aTabs(0) = 40
|
||||
aTabs(1) = 120
|
||||
aTabs(2) = 145
|
||||
aTabs(3) = 190
|
||||
|
||||
strSQL = "SELECT * FROM tblTime WHERE lot_id = " & gintLOTID ' & " ORDER BY Order_Date"
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
lngRET = SendMessage(lstPayroll.hwnd, LB_SETTABSTOPS, 4, aTabs(0))
|
||||
lstPayroll.Clear
|
||||
|
||||
Do Until oRS.EOF
|
||||
With lstPayroll
|
||||
If Field2Str(oRS!pay_type) = "L" Then
|
||||
strTYPE = "LATH"
|
||||
ElseIf Field2Str(oRS!pay_type) = "C" Then
|
||||
strTYPE = "SCAFFOLD"
|
||||
ElseIf Field2Str(oRS!pay_type) = "S" Then
|
||||
strTYPE = "STUCCO"
|
||||
ElseIf Field2Str(oRS!pay_type) = "Y" Then
|
||||
strTYPE = "SYNTHETIC"
|
||||
ElseIf Field2Str(oRS!pay_type) = "V" Then
|
||||
strTYPE = "STONE"
|
||||
ElseIf Field2Str(oRS!pay_type) = "X" Then
|
||||
strTYPE = "PAINT"
|
||||
End If
|
||||
mstrWDone = Field2Str(oRS!WorkDone)
|
||||
Call GetWorkType
|
||||
strWORK = mstrWTYPE
|
||||
|
||||
' If Field2Str(oRS!workdone) = "C" Then
|
||||
' strWORK = "COMPLETE"
|
||||
' ElseIf Field2Str(oRS!workdone) = "B" Then
|
||||
' strWORK = "BROWN"
|
||||
' ElseIf Field2Str(oRS!workdone) = "F" Then
|
||||
' strWORK = "FENCE"
|
||||
' ElseIf Field2Str(oRS!workdone) = "T" Then
|
||||
' strWORK = "TEXTURE"
|
||||
' ElseIf Field2Str(oRS!workdone) = "W" Then
|
||||
' strWORK = "WORK ORDER"
|
||||
' ElseIf Field2Str(oRS!workdone) = "U" Then
|
||||
' strWORK = "CMU WALL"
|
||||
' ElseIf Field2Str(oRS!workdone) = "P" Then
|
||||
' strWORK = "PARTIAL"
|
||||
' ElseIf Field2Str(oRS!workdone) = "R" Then
|
||||
' strWORK = "REPAIR"
|
||||
' ElseIf Field2Str(oRS!workdone) = "S" Then
|
||||
' strWORK = "SCRATCH"
|
||||
' ElseIf Field2Str(oRS!workdone) = "Z" Then
|
||||
' strWORK = "DOWN"
|
||||
' ElseIf Field2Str(oRS!workdone) = "Y" Then
|
||||
' strWORK = "UP"
|
||||
' End If
|
||||
|
||||
strLine = strTYPE & vbTab & strWORK & vbTab
|
||||
strLine = strLine & Field2Str(oRS!paydt) & vbTab & Format(Field2Str(oRS!pay_amt), "#,#.00")
|
||||
' strLine = strLine & Field2Str(oRS!prdate) & vbTab & Format(Field2Str(oRS!pay_amt), "#,#.00")
|
||||
.AddItem strLine
|
||||
.ItemData(.NewIndex) = Field2Long(oRS!idnum)
|
||||
End With
|
||||
oRS.MoveNext
|
||||
Loop
|
||||
oRS.Close
|
||||
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotList - Module PayrollLoad"
|
||||
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 OrderLoad()
|
||||
Dim oRS As Recordset
|
||||
Dim strSQL As String, strLine As String
|
||||
Dim strTYPE As String, strDESC As String
|
||||
Dim lngRET As Long, aTabs(3) As Long
|
||||
|
||||
On Error GoTo Error_EH
|
||||
|
||||
aTabs(0) = 45
|
||||
aTabs(1) = 70
|
||||
aTabs(2) = 145
|
||||
aTabs(3) = 190
|
||||
|
||||
strSQL = "SELECT order_id, ponum, m_type, po_num, order_date, supplier from tblOrders WHERE lot_id = " & gintLOTID
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
lngRET = SendMessage(lstPO.hwnd, LB_SETTABSTOPS, 4, aTabs(0))
|
||||
lstPO.Clear
|
||||
|
||||
Do Until oRS.EOF
|
||||
With lstPO
|
||||
Call SetType(oRS!m_type, strDESC)
|
||||
|
||||
strLine = Field2Str(oRS!order_date) & vbTab & Field2Str(oRS!ponum) & vbTab
|
||||
strLine = strLine & Field2Str(oRS!po_num) & vbTab & strDESC & vbTab & Field2Str(oRS!supplier)
|
||||
.AddItem strLine
|
||||
.ItemData(.NewIndex) = oRS!order_id
|
||||
End With
|
||||
oRS.MoveNext
|
||||
Loop
|
||||
oRS.Close
|
||||
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "Form LotList - Module OrderLoad"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
Private Sub FormShow()
|
||||
On Error GoTo Error_EH
|
||||
|
||||
If lstRepairs.ListCount = 0 Then
|
||||
lstRepairs.Enabled = False
|
||||
Else
|
||||
lstRepairs.Enabled = True
|
||||
End If
|
||||
If lstInvoice.ListCount = 0 Then
|
||||
lstInvoice.Enabled = False
|
||||
Else
|
||||
lstInvoice.Enabled = True
|
||||
End If
|
||||
If lstPOWO.ListCount = 0 Then
|
||||
lstPOWO.Enabled = False
|
||||
Else
|
||||
lstPOWO.Enabled = True
|
||||
End If
|
||||
If lstPO.ListCount = 0 Then
|
||||
lstPO.Enabled = False
|
||||
Else
|
||||
lstPO.Enabled = True
|
||||
End If
|
||||
If lstPayroll.ListCount = 0 Then
|
||||
lstPayroll.Enabled = False
|
||||
Else
|
||||
lstPayroll.Enabled = True
|
||||
End If
|
||||
|
||||
' 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 = " & Field2Long(oRS!PROJ_ID)
|
||||
' 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 lstInvoice_DblClick()
|
||||
MsgBox "Mouse has been DblClicked", vbOKOnly
|
||||
End Sub
|
||||
|
||||
Private Sub lstPayroll_DblClick()
|
||||
|
||||
lstPO.ListIndex = -1
|
||||
lstRepairs.ListIndex = -1
|
||||
Load frmPayroll
|
||||
frmPayroll.chkLOOK = vbChecked
|
||||
frmPayroll.Show 1
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub lstPO_DblClick()
|
||||
Dim oRS As Recordset
|
||||
Dim strSQL As String
|
||||
|
||||
lstPayroll.ListIndex = -1
|
||||
lstRepairs.ListIndex = -1
|
||||
glngORDERID = lstPO.ItemData(lstPO.ListIndex)
|
||||
strSQL = "SELECT * FROM tblOrders WHERE order_id = " & glngORDERID
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
If oRS!ponum > 0 Then
|
||||
glngORDERID = Field2Long(oRS!ponum)
|
||||
frmShowPO.Show 1
|
||||
Else
|
||||
' glngORDERID = 0
|
||||
frmShowOrderMat.Show 1
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub lstPOWO_DblClick()
|
||||
|
||||
lstPO.ListIndex = -1
|
||||
lstRepairs.ListIndex = -1
|
||||
lstPayroll.ListIndex = -1
|
||||
lstInvoice.ListIndex = -1
|
||||
Load frmPOWOLot
|
||||
frmPOWOLot.chkLOOK = vbChecked
|
||||
frmPOWOLot.Show 1
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub lstRepairs_DblClick()
|
||||
|
||||
lstPayroll.ListIndex = -1
|
||||
lstPO.ListIndex = -1
|
||||
|
||||
gintREPAIRID = lstRepairs.ItemData(lstRepairs.ListIndex)
|
||||
frmShowRepair.Show 1
|
||||
End Sub
|
||||
|
||||
Private Sub POWOLoad()
|
||||
Dim oRS As Recordset, intYN As Integer
|
||||
Dim strSQL As String
|
||||
Dim strLine As String
|
||||
On Error GoTo Error_EH
|
||||
|
||||
strSQL = "SELECT * FROM tblPOWO WHERE LOT_ID = " & gintLOTID ' & "'"
|
||||
Set oRS = New Recordset
|
||||
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
|
||||
|
||||
lstPOWO.Clear
|
||||
|
||||
Do Until oRS.EOF
|
||||
With lstPOWO
|
||||
strLine = Field2Str(oRS!repair_id) & vbTab & Field2Str(oRS!builder_PO) & vbTab & Field2Str(oRS!invoice_no) & vbTab & Field2Str(oRS!Desc)
|
||||
.AddItem strLine
|
||||
End With
|
||||
|
||||
oRS.MoveNext
|
||||
Loop
|
||||
|
||||
If lstPOWO.ListCount Then
|
||||
lstPOWO.ListIndex = 0
|
||||
mboolPROJ = False
|
||||
lstPOWO.Enabled = True
|
||||
Else
|
||||
lstPOWO.ListIndex = -1
|
||||
lstPOWO.Enabled = False
|
||||
' Call FormClear
|
||||
End If
|
||||
Exit Sub
|
||||
|
||||
Error_EH:
|
||||
gstrMODULE = "FormLotList - Module POWOLoad"
|
||||
Call ErrorHandler2
|
||||
gstrMODULE = ""
|
||||
Exit Sub
|
||||
End Sub
|
||||
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user