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>
2026-05-16 17:36:02 -07:00
parent 7386460f55
commit 5359e7c49e
4426 changed files with 4478036 additions and 0 deletions
--- a/clients/valleywide/app-modernization/source-code/Full-Project/VWP_Inv/frmLotChLog.frm
+++ b/clients/valleywide/app-modernization/source-code/Full-Project/VWP_Inv/frmLotChLog.frm
@@ -0,0 +1,371 @@
+VERSION 5.00
+Begin VB.Form frmLotChLog 
+   Caption         =   "Changes Log"
+   ClientHeight    =   4305
+   ClientLeft      =   60
+   ClientTop       =   345
+   ClientWidth     =   9885
+   KeyPreview      =   -1  'True
+   LinkTopic       =   "Form1"
+   ScaleHeight     =   4305
+   ScaleWidth      =   9885
+   StartUpPosition =   3  'Windows Default
+   Begin VB.CommandButton cmdExit 
+      Caption         =   "&Exit"
+      Height          =   555
+      Left            =   6840
+      TabIndex        =   11
+      TabStop         =   0   'False
+      Top             =   3660
+      Width           =   1395
+   End
+   Begin VB.ListBox lstChange 
+      Height          =   4155
+      Left            =   60
+      TabIndex        =   0
+      Top             =   60
+      Width           =   5055
+   End
+   Begin VB.Label lblOType 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   1635
+      Left            =   6240
+      TabIndex        =   13
+      Top             =   1920
+      Width           =   3555
+      WordWrap        =   -1  'True
+   End
+   Begin VB.Label lblODate 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   315
+      Left            =   6240
+      TabIndex        =   12
+      Top             =   1560
+      Width           =   2955
+   End
+   Begin VB.Label lblOrderType 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "Reason:"
+      Height          =   195
+      Left            =   5550
+      TabIndex        =   10
+      Top             =   1980
+      Width           =   600
+   End
+   Begin VB.Label lblOrderDate 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "Change Date:"
+      Height          =   195
+      Left            =   5160
+      TabIndex        =   9
+      Top             =   1620
+      Width           =   990
+   End
+   Begin VB.Label lblSupplyName 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   315
+      Left            =   6240
+      TabIndex        =   8
+      Top             =   1200
+      Width           =   2955
+   End
+   Begin VB.Label lblSupplier 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "User:"
+      Height          =   195
+      Left            =   5775
+      TabIndex        =   7
+      Top             =   1275
+      Width           =   375
+   End
+   Begin VB.Label lblPONum 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   315
+      Left            =   6240
+      TabIndex        =   6
+      Top             =   840
+      Width           =   2955
+   End
+   Begin VB.Label lblPO 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "Action:"
+      Height          =   195
+      Left            =   5655
+      TabIndex        =   5
+      Top             =   900
+      Width           =   495
+   End
+   Begin VB.Label lblProjDesc 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   315
+      Left            =   6240
+      TabIndex        =   4
+      Top             =   480
+      Width           =   3645
+   End
+   Begin VB.Label lblLotNo 
+      Alignment       =   1  'Right Justify
+      BorderStyle     =   1  'Fixed Single
+      Height          =   315
+      Left            =   7275
+      TabIndex        =   3
+      Top             =   120
+      Width           =   810
+   End
+   Begin VB.Label lblProjCode 
+      BorderStyle     =   1  'Fixed Single
+      Height          =   315
+      Left            =   6240
+      TabIndex        =   2
+      Top             =   120
+      Width           =   1005
+   End
+   Begin VB.Label lblName 
+      Alignment       =   1  'Right Justify
+      AutoSize        =   -1  'True
+      Caption         =   "Lot:"
+      Height          =   195
+      Left            =   5880
+      TabIndex        =   1
+      Top             =   180
+      Width           =   270
+   End
+End
+Attribute VB_Name = "frmLotChLog"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+Dim moRSCHANGE As Recordset
+
+Dim mboolAdding As Boolean
+
+Private Sub cmdExit_Click()
+   Unload Me
+End Sub
+
+Private Sub Form_Activate()
+Dim intResponse As Integer
+Dim strSQL As String
+
+   On Error GoTo Error_EH
+   
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "FormLotChangeLog - Module Form_Activate"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+
+End Sub
+
+Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
+Dim ShiftDown, AltDown, CtrlDown
+
+   If Shift = 4 Then
+      Exit Sub
+   End If
+   ShiftDown = (Shift And vbShiftMask) > 0
+   AltDown = (Shift And vbAltMask) > 0
+   CtrlDown = (Shift And vbCtrlMask) > 0
+
+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 CrewLoad
+   If lstChange.ListIndex <> -1 Then
+      If FormFindCrew() Then
+         Call FormShowCrew
+      End If
+   End If
+'   Call cmdTotal_Click
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "FormLotChangeLog - Module Form_Load"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Sub CrewLoad()
+Dim oRS As Recordset
+Dim strSQL As String
+Dim strLine As String
+   On Error GoTo Error_EH
+   
+   strSQL = "SELECT action, chgdate, change_id FROM tblLotChange WHERE lot_id = " & gintLOTID & " ORDER BY chgdate"
+   Set oRS = New Recordset
+   oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
+   
+   lstChange.Clear
+
+   Do Until oRS.EOF
+      With lstChange
+         strLine = Field2Str(oRS!Chgdate) & vbTab & Field2Str(oRS!Action)
+         .AddItem strLine
+         .ItemData(.NewIndex) = oRS!change_id
+      End With
+
+      oRS.MoveNext
+   Loop
+   
+   If lstChange.ListCount Then
+      lstChange.ListIndex = 0
+   Else
+      lstChange.ListIndex = -1
+      Call FormClear
+   End If
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "FormLotChangeLog - Module CrewLoad"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Function FormFindCrew() As Boolean
+Dim strSQL As String
+   On Error GoTo Error_EH
+   
+   strSQL = "SELECT * "
+   strSQL = strSQL & "FROM tblLotChange "
+   strSQL = strSQL & "WHERE Change_Id = " & lstChange.ItemData(lstChange.ListIndex)
+
+   Set moRSCHANGE = New Recordset
+   
+   moRSCHANGE.Open strSQL, goConn, _
+             adOpenKeyset, adLockPessimistic
+   
+   If moRSCHANGE.EOF Then
+      FormFindCrew = False
+   Else
+      FormFindCrew = True
+   End If
+   Exit Function
+   
+Error_EH:
+   gstrMODULE = "FormLotChangeLog - Module FormFindCrew"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Function
+End Function
+
+Private Sub FormShowCrew()
+Dim strSQL As String, strSql2 As String
+Dim oRS As Recordset, oRSS As Recordset
+
+   On Error GoTo Error_EH
+   
+   With moRSCHANGE
+      lblODate.Caption = Field2Str(!Chgdate)
+      lblSupplyName = Field2Str(!User)
+      lblPONum.Caption = Field2Str(!Action)
+      lblOType.Caption = Field2Str(!reason)
+      strSQL = "SELECT proj_id,Lot_no FROM tblLotInfo WHERE lot_id = " & Field2Str(!Lot_id)
+      Set oRS = New Recordset
+      oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
+      If Not oRS.EOF Then
+         strSql2 = "SELECT proj_code, proj_desc FROM tblProject WHERE proj_id = " & Field2Str(oRS!proj_id)
+         Set oRSS = New Recordset
+         oRSS.Open strSql2, goConn, adOpenForwardOnly, adLockReadOnly
+         If Not oRSS.EOF Then
+            lblLotNo.Caption = Field2Str(oRS!lot_no)
+            lblProjCode.Caption = Field2Str(oRSS!proj_code)
+            lblProjDesc.Caption = Field2Str(oRSS!proj_desc)
+         End If
+      End If
+   End With
+   
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "FormLotChangeLog - Module FormShowCrew"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+End Sub
+
+Private Sub FormClear()
+   lblLotNo.Caption = ""
+   lblProjDesc.Caption = ""
+   lblProjCode.Caption = ""
+   lblOType.Caption = ""
+   lblODate.Caption = ""
+   lblPONum.Caption = ""
+   lblSupplyName.Caption = ""
+End Sub
+
+
+Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
+Dim intResponse As Integer, strMSG As String
+   On Error GoTo Error_EH
+'   If cmdSave.Enabled Then
+   
+'       strMSG = "Crew Data Has Been Changed"
+'       strMSG = strMSG & Chr(13) & Chr(10)
+'       strMSG = strMSG & "Save Changes ?"
+'       intResponse = MsgBox(strMSG, vbQuestion + vbYesNoCancel, Me.Caption)
+'       Select Case intResponse
+'           Case vbYes
+'               Call FormSave
+               
+'           Case vbNo
+               
+'           Case vbCancel
+'               Cancel = True
+'               Exit Sub
+'        End Select
+'   End If
+   
+   If moRSCHANGE.State = adStateOpen Then
+      moRSCHANGE.Close
+   End If
+   Exit Sub
+   
+Error_EH:
+   If Err = 3219 Then
+      Resume Next
+   End If
+End Sub
+
+Private Sub lstChange_Click()
+   On Error GoTo Error_EH
+   
+   If lstChange.ListIndex <> -1 Then
+      If FormFindCrew() Then
+         Call FormShowCrew
+      Else
+         lstChange.Clear
+         Call FormClear
+      End If
+   End If
+   Exit Sub
+   
+Error_EH:
+   gstrMODULE = "Form Crews - Module lstChange_Click"
+   Call ErrorHandler2
+   gstrMODULE = ""
+   Exit Sub
+
+End Sub
+
+