azcomputerguru/claudetools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
adbc9601bfb2c28ba67ea2143863aa7d72e47c71
claudetools/clients/valleywide/app-modernization/source-code/Full-Project/VWP_Current/frmRepairLot.frm
Mike Swanson 5359e7c49e 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:27 -07:00

835 lines
23 KiB
Plaintext
Raw Blame History

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmRepairLot
Caption = "Repair Schedule"
ClientHeight = 5430
ClientLeft = 60
ClientTop = 345
ClientWidth = 11850
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 5430
ScaleWidth = 11850
StartUpPosition = 3 'Windows Default
Begin MSComCtl2.DTPicker dtpRepair
Height = 315
Left = 960
TabIndex = 1
Top = 840
Width = 1215
_ExtentX = 2143
_ExtentY = 556
_Version = 393216
Format = 94306305
CurrentDate = 40575
End
Begin VB.CommandButton cmdExit
Caption = "&Exit"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1500
TabIndex = 27
Top = 4800
Width = 1275
End
Begin VB.CommandButton cmdSave
Caption = "&Save"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 180
TabIndex = 26
Top = 4800
Width = 1275
End
Begin VB.ComboBox cboDArea
Height = 315
ItemData = "frmRepairLot.frx":0000
Left = 960
List = "frmRepairLot.frx":0022
Style = 2 'Dropdown List
TabIndex = 2
Top = 1200
Width = 1215
End
Begin VB.TextBox txtNotes
Height = 1335
Left = 4080
TabIndex = 25
Top = 3960
Width = 7635
End
Begin VB.TextBox txtDesc
Height = 1035
Left = 4080
MaxLength = 250
TabIndex = 24
Top = 2760
Width = 5595
End
Begin VB.TextBox txtBPhone
Alignment = 1 'Right Justify
Height = 315
Left = 960
MaxLength = 14
TabIndex = 4
Top = 2280
Width = 1215
End
Begin VB.TextBox txtEstTime
Alignment = 1 'Right Justify
Height = 315
Left = 8400
MaxLength = 3
TabIndex = 16
Top = 1920
Width = 1215
End
Begin VB.TextBox txtStory
Alignment = 1 'Right Justify
Height = 315
Left = 8400
MaxLength = 1
TabIndex = 15
Top = 1560
Width = 1215
End
Begin VB.TextBox txtBCWho
Height = 315
Left = 6120
MaxLength = 20
TabIndex = 17
Top = 2280
Width = 3495
End
Begin VB.Frame frmRepair
Caption = "Work Type"
Height = 2295
Left = 9840
TabIndex = 30
Top = 840
Width = 1875
Begin VB.CheckBox chkBC
Caption = "Back Charge:"
Height = 375
Left = 300
TabIndex = 23
Top = 1800
Width = 1400
End
Begin VB.CheckBox chkWarrenty
Caption = "Warranty:"
Height = 315
Left = 300
TabIndex = 22
Top = 1500
Width = 1400
End
Begin VB.CheckBox chkWO
Caption = "WorkOrder:"
Height = 315
Left = 300
TabIndex = 21
Top = 1200
Width = 1400
End
Begin VB.CheckBox chkYr2
Caption = "2nd Year End:"
Height = 375
Left = 300
TabIndex = 20
Top = 840
Width = 1400
End
Begin VB.CheckBox chkYr1
Caption = "1st Year End:"
Height = 315
Left = 300
TabIndex = 19
Top = 540
Width = 1400
End
Begin VB.CheckBox chkPunch
Caption = "Punch:"
Height = 255
Left = 300
TabIndex = 18
Top = 240
Width = 1400
End
End
Begin VB.TextBox txtVWPSuper
Height = 315
Left = 8400
MaxLength = 14
TabIndex = 13
Top = 840
Width = 1215
End
Begin VB.TextBox txtHPhone
Alignment = 1 'Right Justify
Height = 315
Left = 3300
MaxLength = 14
TabIndex = 12
Top = 1560
Width = 1215
End
Begin VB.TextBox txtHAddress
Height = 315
Left = 3300
MaxLength = 30
TabIndex = 11
Top = 1200
Width = 3315
End
Begin VB.TextBox txtHName
Height = 315
Left = 3300
MaxLength = 20
TabIndex = 10
Top = 840
Width = 3315
End
Begin VB.TextBox txtBillAmt
Alignment = 1 'Right Justify
Height = 315
Left = 960
MaxLength = 10
TabIndex = 9
Top = 4080
Width = 1215
End
Begin VB.TextBox txtBillDate
Alignment = 1 'Right Justify
Height = 315
Left = 960
MaxLength = 10
TabIndex = 8
Top = 3720
Width = 1215
End
Begin VB.CheckBox chkBilled
Alignment = 1 'Right Justify
Caption = "Billed:"
Height = 195
Left = 420
TabIndex = 7
Top = 3420
Width = 1035
End
Begin VB.TextBox txtBPOAmt
Alignment = 1 'Right Justify
Height = 315
Left = 960
MaxLength = 10
TabIndex = 6
Top = 3000
Width = 1215
End
Begin VB.TextBox txtBPO
Height = 315
Left = 960
MaxLength = 15
TabIndex = 5
Top = 2640
Width = 1215
End
Begin VB.TextBox txtBContact
Height = 315
Left = 960
MaxLength = 20
TabIndex = 3
Top = 1920
Width = 2175
End
Begin VB.ComboBox cboRCrew
Height = 315
Left = 7200
Style = 2 'Dropdown List
TabIndex = 14
Top = 1200
Width = 2415
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Area:"
Height = 195
Left = 465
TabIndex = 48
Top = 1320
Width = 375
End
Begin VB.Label lblNotes
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Notes:"
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 = 3360
TabIndex = 47
Top = 4020
Width = 690
End
Begin VB.Label lblDesc
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Description of Work:"
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 = 2280
TabIndex = 46
Top = 2820
Width = 1770
End
Begin VB.Label lblBPhone
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Phone:"
Height = 195
Left = 330
TabIndex = 45
Top = 2340
Width = 510
End
Begin VB.Label lblEstTime
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Estimated # of Minutes to Complete Repair:"
Height = 195
Left = 5325
TabIndex = 44
Top = 1980
Width = 3060
End
Begin VB.Label lblStory
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "# of Stories:"
Height = 195
Left = 7530
TabIndex = 43
Top = 1680
Width = 855
End
Begin VB.Label lblBCWho
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Back Charge Who:"
Height = 195
Left = 4680
TabIndex = 42
Top = 2400
Width = 1365
End
Begin VB.Label lblVWPSuper
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "VWP Superintendent:"
Height = 195
Left = 6840
TabIndex = 41
Top = 960
Width = 1545
End
Begin VB.Label lblHPhone
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Telephone:"
Height = 195
Left = 2385
TabIndex = 40
Top = 1680
Width = 810
End
Begin VB.Label lblHAddress
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Address:"
Height = 195
Left = 2580
TabIndex = 39
Top = 1320
Width = 615
End
Begin VB.Label lblHName
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Name:"
Height = 195
Left = 2730
TabIndex = 38
Top = 960
Width = 465
End
Begin VB.Label lblBillDate
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Billed Date:"
Height = 195
Left = 30
TabIndex = 37
Top = 3840
Width = 810
End
Begin VB.Label lblBillAmt
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Billed Amt:"
Height = 195
Left = 105
TabIndex = 36
Top = 4200
Width = 735
End
Begin VB.Label lblHOInfo
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Homeowner Information:"
Height = 195
Left = 3360
TabIndex = 35
Top = 600
Width = 1725
End
Begin VB.Label lblBAmt
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Amount:"
Height = 195
Left = 255
TabIndex = 34
Top = 3120
Width = 585
End
Begin VB.Label lblBPO
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "P.O.:"
Height = 195
Left = 480
TabIndex = 33
Top = 2760
Width = 360
End
Begin VB.Label lblBContact
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Contact:"
Height = 195
Left = 240
TabIndex = 32
Top = 2040
Width = 600
End
Begin VB.Label lblBuilderInfo
AutoSize = -1 'True
Caption = "Builder Information:"
Height = 195
Left = 840
TabIndex = 31
Top = 1620
Width = 1350
End
Begin VB.Label lblScheduled
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Scheduled:"
Height = 195
Left = 120
TabIndex = 29
Top = 960
Width = 810
End
Begin VB.Label lblProjectLot
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 315
Left = 3300
TabIndex = 28
Top = 120
Width = 5055
End
Begin VB.Label lblCrew
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Crew:"
Height = 195
Left = 6720
TabIndex = 0
Top = 1320
Width = 405
End
End
Attribute VB_Name = "frmRepairLot"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim moRSRepair As Recordset
Dim moRS As Recordset, moRSProj As Recordset
Dim mboolSHOW As Boolean, mboolAdding As Boolean
Dim mintREPAIRID As Integer
Dim mstrPROJLOT As String
Private Sub CrewLoad()
Dim oRSRCrew As Recordset
Dim strSQL As String, intRows As Integer
Dim row, col As Long
On Error GoTo Error_EH
strSQL = "SELECT RC_ID, Name FROM tblRCrew"
Set oRSRCrew = New Recordset
oRSRCrew.Open strSQL, goConn, _
adOpenForwardOnly, adLockReadOnly
oRSRCrew.MoveLast
oRSRCrew.MoveFirst
intRows = oRSRCrew.RecordCount
Do Until oRSRCrew.EOF
cboRCrew.AddItem oRSRCrew("Name")
cboRCrew.ItemData(cboRCrew.NewIndex) = Field2Long(oRSRCrew("RC_ID"))
oRSRCrew.MoveNext
Loop
oRSRCrew.Close
Exit Sub
Error_EH:
gstrMODULE = "Form RepairLot - Module CrewLoad"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdSave_Click()
If Len(cboDArea.Text) = 0 Then
MsgBox "You Must Enter The Area Of Town Before Saving", vbOKOnly, "Select An Area"
cboDArea.SetFocus
Exit Sub
End If
Call FormSave
Unload Me
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
dtpRepair.Value = Date
Call CrewLoad
Call FormClear
Call GetLotInfo
Exit Sub
Error_EH:
gstrMODULE = "Form RepairLot - Module Form_Load"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub FieldsSave()
Dim strLOT As String
On Error GoTo Error_EH
moRSRepair.AddNew
With moRSRepair
!scheduled = dtpRepair.Value
!builder_contact = Str2Field(txtBContact)
!builder_phone = Str2Field(txtBPhone)
!builder_PO = Str2Field(txtBPO)
!PO_Amt = Str2Field(txtBPOAmt)
!bill_date = Str2Field(txtBillDate)
!bill_amt = Str2Field(txtBillAmt)
!Owner_Name = Str2Field(txtHName)
!Owner_address = Str2Field(txtHAddress)
!Owner_phone = Str2Field(txtHPhone)
!VWP_Super = Str2Field(txtVWPSuper)
!storys = Str2Field(txtStory)
!est_time = Str2Field(txtEstTime)
!bc_who = Str2Field(txtBCWho)
!Desc = Str2Field(txtDesc)
!notes = Str2Field(txtNotes)
!Area = Left((cboDArea.Text), 1)
!billed = chkBilled
!punch = chkPunch
!yrend1 = chkYr1
!yrend2 = chkYr2
!wo = chkWO
!repair = chkWarrenty
!backcharge = chkBC
!repair_crew = cboRCrew.ListIndex + 1
!UpdateUser = gstrLOGIN
!Updated = Date
!proj_lot = lblProjectLot.Caption
!createuser = gstrLOGIN
!Proj_ID = gintPROJID
!Lot_id = gintLOTID
End With
moRSRepair.Update
Exit Sub
Error_EH:
If Err.Number = -2147467259 Then
Resume Next
End If
gstrMODULE = "Form RepairLot - Module FieldsSave"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub FormClear()
txtBContact = ""
txtBPhone = ""
txtBPO = ""
txtBPOAmt = 0
txtBillDate = ""
txtBillAmt = 0
txtHName = ""
txtHAddress = ""
txtHPhone = ""
txtVWPSuper = ""
txtStory = ""
txtEstTime = 0
txtBCWho = ""
txtDesc = ""
txtNotes = ""
cboDArea.ListIndex = -1
chkBilled = vbUnchecked
chkPunch = vbUnchecked
chkYr1 = vbUnchecked
chkYr2 = vbUnchecked
chkWO = vbUnchecked
chkWarrenty = vbUnchecked
chkBC = vbUnchecked
cboRCrew.ListIndex = -1
lblProjectLot = ""
End Sub
Private Sub FormSave()
On Error GoTo Error_EH
' Store the controls to the recordset
Call FieldsSave
Exit Sub
Error_EH:
Call ErrorHandler(moRSRepair.ActiveConnection)
Exit Sub
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If moRSRepair.State = adStateOpen Then
moRSRepair.Close
End If
End Sub
Private Sub txtBContact_GotFocus()
Call FieldSelect(txtBContact)
End Sub
Private Sub txtBContact_LostFocus()
txtBContact = UCase(txtBContact)
End Sub
Private Sub txtBCWho_GotFocus()
Call FieldSelect(txtBCWho)
End Sub
Private Sub txtBCWho_LostFocus()
txtBCWho = UCase(txtBCWho)
End Sub
Private Sub txtBillAmt_GotFocus()
Call FieldSelect(txtBillAmt)
End Sub
Private Sub txtBillDate_GotFocus()
Call FieldSelect(txtBillDate)
End Sub
Private Sub txtBillDate_LostFocus()
Dim lngPOS As Long
lngPOS = InStr(1, txtBillDate, "/", 1)
If lngPOS = 0 Then
If Len(txtBillDate) > 0 Then
txtBillDate = Format(txtBillDate, "00/00/####")
If Not IsDate(txtBillDate) Then
MsgBox "The Date You Entered is not Valid - ReEnter"
txtBillDate.SetFocus
End If
End If
Else
MsgBox "Invalid Date Format, Enter as 12312009", , "Invalid Date - ReEnter"
txtBillDate.SetFocus
End If
End Sub
Private Sub txtBPhone_GotFocus()
Call FieldSelect(txtBPhone)
End Sub
Private Sub txtBPO_GotFocus()
Call FieldSelect(txtBPO)
End Sub
Private Sub txtBPOAmt_GotFocus()
Call FieldSelect(txtBPOAmt)
End Sub
Private Sub txtDesc_GotFocus()
' Call FieldSelect(txtDesc)
End Sub
Private Sub txtDesc_LostFocus()
txtDesc = UCase(txtDesc)
End Sub
Private Sub txtEstTime_GotFocus()
Call FieldSelect(txtEstTime)
End Sub
Private Sub txtHAddress_GotFocus()
Call FieldSelect(txtHAddress)
End Sub
Private Sub txtHAddress_LostFocus()
txtHAddress = UCase(txtHAddress)
End Sub
Private Sub txtHName_GotFocus()
Call FieldSelect(txtHName)
End Sub
Private Sub txtHName_LostFocus()
txtHName = UCase(txtHName)
End Sub
Private Sub txtHPhone_GotFocus()
Call FieldSelect(txtHPhone)
End Sub
Private Sub txtNotes_GotFocus()
' txtNotes.MaxLength = Len(txtNotes)
' Call FieldSelect(txtNotes)
End Sub
Private Sub txtNotes_LostFocus()
txtNotes = UCase(txtNotes)
End Sub
Private Sub txtStory_GotFocus()
Call FieldSelect(txtStory)
End Sub
Private Sub txtVWPSuper_GotFocus()
Call FieldSelect(txtVWPSuper)
End Sub
Private Sub txtVWPSuper_LostFocus()
txtVWPSuper = UCase(txtVWPSuper)
End Sub
Private Sub GetLotInfo()
Dim strSQL As String, strSELECT As String, strREPAIR As String
strREPAIR = "SELECT * FROM tblRepair WHERE Repair_id = 1"
Set moRSRepair = New Recordset
moRSRepair.Open strREPAIR, goConn, adOpenKeyset, adLockOptimistic
strSQL = "SELECT * FROM tblLotInfo WHERE lot_id = " & gintLOTID
Set moRS = New Recordset
moRS.Open strSQL, goConn, adOpenForwardOnly, adLockOptimistic
If Not moRS.EOF Then
strSELECT = "SELECT * FROM tblProject WHERE proj_id = " & Field2Long(moRS!Proj_ID)
' strSELECT = "SELECT * FROM tblProject WHERE proj_id = " & Field2Integer(moRS!proj_id)
Set moRSProj = New Recordset
moRSProj.Open strSELECT, goConn, adOpenForwardOnly, adLockOptimistic
End If
mstrPROJLOT = Trim(Field2Str(moRSProj!Proj_Desc)) & " - " & Trim(Field2Str(moRS!lot_no))
lblProjectLot = mstrPROJLOT
txtHName = Field2Str(moRS!Owner)
txtHAddress = Field2Str(moRS!address)
If moRS!TWOSTORY = True Then
txtStory = 2
Else
txtStory = 1
End If
End Sub
Reference in New Issue View Git Blame Copy Permalink