azcomputerguru/claudetools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
claudetools/clients/valleywide/app-modernization/source-code/Full-Project/VWP_Current/frmProjNotes.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

1937 lines
55 KiB
Plaintext
Raw Permalink Blame History

VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "Crystl32.OCX"
Begin VB.Form frmProjNotes
Caption = "Project Notes & Information"
ClientHeight = 9180
ClientLeft = 60
ClientTop = 345
ClientWidth = 10050
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 9180
ScaleWidth = 10050
StartUpPosition = 3 'Windows Default
Begin VB.TextBox txtPE
Height = 315
Left = 1245
TabIndex = 91
Top = 8175
Width = 1095
End
Begin VB.TextBox txtOpt
Height = 315
Left = 4020
TabIndex = 89
Top = 7080
Width = 1095
End
Begin VB.TextBox txtPF
Height = 315
Left = 1245
TabIndex = 88
Top = 8550
Width = 1095
End
Begin VB.TextBox txtPI
Height = 315
Left = 1230
TabIndex = 87
Top = 7800
Width = 1095
End
Begin VB.TextBox txtStucco
Height = 315
Left = 1230
TabIndex = 86
Top = 7440
Width = 1095
End
Begin VB.TextBox txtLath
Height = 315
Left = 1230
TabIndex = 85
Top = 7080
Width = 1095
End
Begin VB.CheckBox chkPHXTUC
Caption = "Metro PHX"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 8340
TabIndex = 76
Top = 6375
Width = 1680
End
Begin VB.TextBox txtWrapPctg
Height = 315
Left = 7470
TabIndex = 74
Top = 6405
Width = 765
End
Begin VB.CheckBox chkWrap
Alignment = 1 'Right Justify
Caption = "Wrap Ins."
Height = 255
Left = 5775
TabIndex = 73
Top = 6435
Width = 1020
End
Begin VB.CheckBox chkPCMNT
Caption = "Use Plstc Cement w/ 3 coat stucco"
Height = 480
Left = 5640
TabIndex = 72
Top = 3150
Width = 1665
End
Begin VB.CheckBox chk2Dates
Caption = "2 Dates"
Height = 270
Left = 7545
TabIndex = 69
Top = 4815
Width = 900
End
Begin VB.TextBox txtDue2
Alignment = 2 'Center
Height = 315
Left = 7080
TabIndex = 68
Top = 4800
Width = 435
End
Begin VB.TextBox txtSplit
Height = 315
Left = 9345
TabIndex = 67
Top = 3480
Width = 495
End
Begin VB.TextBox txtBagSand
Height = 315
Left = 9345
TabIndex = 64
Top = 2580
Width = 495
End
Begin VB.CheckBox chkBagSand
Caption = "Use Bag Sand"
Height = 255
Left = 8520
TabIndex = 63
Top = 2940
Width = 1485
End
Begin VB.Frame fraRGard
Caption = " R-Guard Size "
Height = 915
Left = 7335
TabIndex = 60
Top = 3255
Width = 1860
Begin VB.OptionButton optRGard
Caption = "Pyro Paper"
Height = 225
Index = 2
Left = 165
TabIndex = 71
Top = 645
Width = 1440
End
Begin VB.OptionButton optRGard
Caption = "1 in R Guard"
Height = 225
Index = 1
Left = 165
TabIndex = 62
Top = 405
Width = 1410
End
Begin VB.OptionButton optRGard
Caption = "1/2 in R Guard"
Height = 195
Index = 0
Left = 165
TabIndex = 61
Top = 195
Value = -1 'True
Width = 1560
End
End
Begin VB.CheckBox chkZMetal
Caption = "Use Z-Metal"
Height = 255
Left = 5640
TabIndex = 59
Top = 2860
Width = 1290
End
Begin VB.CheckBox chkStone
Caption = "Stone Only"
Height = 195
Left = 7680
TabIndex = 14
Top = 2400
Width = 1215
End
Begin VB.CheckBox chkApt
Caption = "AparTment/Commercial"
Height = 195
Left = 5640
TabIndex = 13
Top = 2125
Width = 2040
End
Begin VB.TextBox txtDesc
Height = 315
Left = 5535
MaxLength = 50
TabIndex = 29
Top = 7605
Width = 4485
End
Begin VB.TextBox txtTaxCode
Height = 315
Left = 9120
TabIndex = 57
Top = 6090
Width = 915
End
Begin VB.TextBox txtTaxAuth
Height = 315
Left = 6600
MaxLength = 15
TabIndex = 54
Top = 6090
Width = 1425
End
Begin VB.ComboBox cboProjType
Height = 315
ItemData = "frmProjNotes.frx":0000
Left = 6615
List = "frmProjNotes.frx":0010
Style = 2 'Dropdown List
TabIndex = 52
Top = 4200
Width = 3375
End
Begin VB.TextBox txtBillDay
Alignment = 2 'Center
Height = 315
Left = 6615
TabIndex = 21
Top = 5115
Width = 435
End
Begin VB.CommandButton cmdContractor
Caption = "Contractor Info"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 7005
TabIndex = 49
TabStop = 0 'False
Top = 8010
Width = 1395
End
Begin VB.CheckBox chkPLReq
Caption = "PreLien Required:"
Height = 195
Left = 5640
TabIndex = 15
Top = 2370
Width = 1695
End
Begin VB.CheckBox chkPreLien
Caption = "PreLien Done"
Height = 195
Left = 7680
TabIndex = 16
Top = 2700
Width = 1350
End
Begin VB.TextBox txtSigned
Height = 315
Left = 7500
TabIndex = 46
Top = 480
Width = 1815
End
Begin VB.TextBox txtVWPSuper
Height = 315
Left = 6600
TabIndex = 27
Top = 5775
Width = 3435
End
Begin VB.TextBox txtSandZone
Height = 315
Left = 9135
MaxLength = 1
TabIndex = 26
Top = 5460
Width = 915
End
Begin VB.CheckBox chkSilica
Caption = "Use Silica Sand"
Height = 255
Left = 6975
TabIndex = 18
Top = 2940
Width = 1515
End
Begin VB.CheckBox chkBB
Caption = "Use Blackboard"
Height = 195
Left = 5640
TabIndex = 17
Top = 2615
Width = 1635
End
Begin Crystal.CrystalReport crMain
Left = 9480
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 348160
PrintFileLinesPerPage= 60
End
Begin VB.CheckBox chkCondo
Caption = "Condo/Townhome"
Height = 195
Left = 5640
TabIndex = 11
Top = 1880
Width = 1695
End
Begin VB.TextBox txtLocation
Height = 315
Left = 5520
TabIndex = 28
Top = 6990
Width = 4485
End
Begin VB.CommandButton cmdPrintSuper
Caption = "Print Supers &Report"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 7005
TabIndex = 43
TabStop = 0 'False
Top = 8610
Width = 1395
End
Begin VB.CommandButton cmdPrint
Caption = "&Print Status Sheet"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 5505
TabIndex = 42
TabStop = 0 'False
Top = 8610
Width = 1395
End
Begin VB.TextBox txtStandards
Height = 2610
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Top = 3480
Width = 5235
End
Begin VB.CheckBox chkOpt
Caption = "Bill Options with Stucco"
Height = 195
Left = 7680
TabIndex = 8
Top = 1500
Width = 2415
End
Begin VB.TextBox txtRetention
Height = 315
Left = 6600
TabIndex = 25
Top = 5460
Width = 915
End
Begin VB.TextBox txtMAS90
Height = 315
Left = 9135
TabIndex = 24
Top = 5145
Width = 915
End
Begin VB.TextBox txtInvoice
Height = 315
Left = 9135
MaxLength = 3
TabIndex = 23
Top = 4815
Width = 915
End
Begin VB.TextBox txtDue
Alignment = 2 'Center
Height = 315
Left = 6615
TabIndex = 22
Top = 4800
Width = 435
End
Begin VB.TextBox txtYards
Height = 315
Left = 9135
TabIndex = 20
Top = 4500
Width = 915
End
Begin VB.TextBox txtLots
Height = 315
Left = 6615
TabIndex = 19
Top = 4500
Width = 915
End
Begin VB.CommandButton cmdDate
Caption = "&Date/Time Stamp"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 5505
TabIndex = 32
TabStop = 0 'False
Top = 8010
Width = 1395
End
Begin VB.CheckBox chkPrice
Caption = "Pricing Complete"
Height = 195
Left = 5640
TabIndex = 9
Top = 1635
Width = 1815
End
Begin VB.CheckBox chkPlans
Caption = "Plans Completely Transfered"
Height = 195
Left = 7680
TabIndex = 12
Top = 2100
Width = 2415
End
Begin VB.CheckBox chkSetup
Caption = "Setup of Project is Complete"
Height = 195
Left = 7680
TabIndex = 10
Top = 1800
Width = 2415
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 = 555
Left = 8505
TabIndex = 31
TabStop = 0 'False
Top = 8610
Width = 1395
End
Begin VB.CommandButton cmdSave
Caption = "&Save"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 8505
TabIndex = 30
Top = 8010
Width = 1395
End
Begin VB.TextBox txtNotes
Height = 2610
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Top = 540
Width = 5235
End
Begin VB.CheckBox chkOpenings
Caption = "Use 50% Openings"
Height = 195
Left = 5640
TabIndex = 7
Top = 1390
Width = 1755
End
Begin VB.CheckBox chkFHA
Caption = "FHA Metal"
Height = 195
Left = 5640
TabIndex = 5
Top = 1145
Width = 1755
End
Begin VB.CheckBox chkComplete
Caption = "Contract Completed"
Height = 255
Left = 5640
TabIndex = 4
Top = 840
Width = 1815
End
Begin VB.CheckBox chkGotBid
Caption = "Awarded Contract"
Height = 255
Left = 5640
TabIndex = 3
Top = 120
Width = 1815
End
Begin VB.CheckBox chkCombined
Caption = "Bill Lath && Stucco Together"
Height = 195
Left = 7680
TabIndex = 6
Top = 1200
Width = 2415
End
Begin VB.Label lblStone
Caption = "Stone should be entered in Options with the Billing Code of STONE or WSTONE"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 780
Left = 3150
TabIndex = 93
Top = 7635
Width = 2010
End
Begin VB.Label lblOptCode
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Option: "
Height = 195
Index = 1
Left = 3315
TabIndex = 92
Top = 7095
Width = 555
End
Begin VB.Label lblPaintExt
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Paint Exterior: "
Height = 195
Left = 135
TabIndex = 90
Top = 8235
Width = 1020
End
Begin VB.Label lblPaintFin
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Paint Final: "
Height = 195
Left = 330
TabIndex = 84
Top = 8610
Width = 825
End
Begin VB.Label lblPaintInt
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Paint Interior: "
Height = 195
Left = 180
TabIndex = 83
Top = 7875
Width = 975
End
Begin VB.Label lblStucco
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Stucco: "
Height = 195
Left = 555
TabIndex = 82
Top = 7500
Width = 600
End
Begin VB.Label lblLath
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Lath: "
Height = 195
Left = 750
TabIndex = 81
Top = 7140
Width = 405
End
Begin VB.Label lblOption
AutoSize = -1 'True
Caption = "Plan Option Sales Codes"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 3105
TabIndex = 80
Top = 6825
Width = 2010
End
Begin VB.Label lblHouse
AutoSize = -1 'True
Caption = "Main Plan Sales Codes"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 465
TabIndex = 79
Top = 6825
Width = 1860
End
Begin VB.Label lblBillCodes
AutoSize = -1 'True
Caption = "Default Billing Codes For The The Billing Grid - This Project Only"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 180
TabIndex = 78
Top = 6420
Width = 5205
End
Begin VB.Label lblPHXTUC
Caption = "Checked Tucson Unchecked PHX"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 8370
TabIndex = 77
Top = 6600
Width = 1665
End
Begin VB.Label lblWrapPctg
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Wrap %: "
Height = 195
Left = 6885
TabIndex = 75
Top = 6465
Width = 645
End
Begin VB.Label lblInvDue
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Inv Due 1&&2:"
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 = 5430
TabIndex = 70
Top = 4845
Width = 1125
End
Begin VB.Label lblUnder16
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Under 16"
Height = 195
Left = 9262
TabIndex = 66
Top = 3255
Width = 660
End
Begin VB.Label lblBagSand
AutoSize = -1 'True
Caption = "BagSand"
Height = 195
Left = 9225
TabIndex = 65
Top = 2370
Width = 660
End
Begin VB.Label lblDesc
AutoSize = -1 'True
Caption = "Extended Description:"
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 = 5550
TabIndex = 58
Top = 7380
Width = 1890
End
Begin VB.Label lblTaxCode
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Tax Code:"
Height = 195
Left = 8340
TabIndex = 56
Top = 6150
Width = 735
End
Begin VB.Label lblTaxAuth
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Taxing Authority:"
Height = 195
Left = 5355
TabIndex = 55
Top = 6165
Width = 1185
End
Begin VB.Label lblProjType
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Project Type:"
Height = 195
Left = 5610
TabIndex = 53
Top = 4275
Width = 945
End
Begin VB.Label lblDDone
BorderStyle = 1 'Fixed Single
Height = 315
Left = 6600
TabIndex = 51
Top = 3750
Width = 540
End
Begin VB.Label lblLotsDone
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Lots Done:"
Height = 195
Left = 5730
TabIndex = 50
Top = 3795
Width = 780
End
Begin VB.Label lblVWPSuper
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "VWP Super:"
Height = 195
Left = 5655
TabIndex = 48
Top = 5835
Width = 885
End
Begin VB.Label lblSigned
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Contract Signed:"
Height = 195
Left = 6180
TabIndex = 47
Top = 540
Width = 1185
End
Begin VB.Label lblStreets
AutoSize = -1 'True
Caption = "Cross Streets:"
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 = 5580
TabIndex = 45
Top = 6750
Width = 1200
End
Begin VB.Label lblSandZone
Caption = "Sand Zone:"
Height = 195
Left = 8205
TabIndex = 44
Top = 5520
Width = 855
End
Begin VB.Label lblStandards
Caption = "Project Standards"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 105
TabIndex = 41
Top = 3225
Width = 1575
End
Begin VB.Label lblRetention
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Retention %:"
Height = 195
Left = 5640
TabIndex = 40
Top = 5520
Width = 900
End
Begin VB.Label lblMAS90
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "CMS Customer #:"
Height = 195
Left = 7830
TabIndex = 39
Top = 5205
Width = 1245
End
Begin VB.Label lblInv
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Invoice Code:"
Height = 390
Left = 8505
TabIndex = 38
Top = 4770
Width = 615
WordWrap = -1 'True
End
Begin VB.Label lblDueDate
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Paymnt Due:"
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 = 5415
TabIndex = 37
Top = 5160
Width = 1140
WordWrap = -1 'True
End
Begin VB.Label lblYards
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Estimated Yardage:"
Height = 195
Left = 7695
TabIndex = 36
Top = 4560
Width = 1380
End
Begin VB.Label lblLots
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Estimated Lots:"
Height = 195
Left = 5475
TabIndex = 35
Top = 4530
Width = 1080
End
Begin VB.Label lblCompleteDate
BorderStyle = 1 'Fixed Single
Height = 315
Left = 7500
TabIndex = 34
Top = 840
Width = 1815
End
Begin VB.Label lblAwardDate
BorderStyle = 1 'Fixed Single
Height = 315
Left = 7500
TabIndex = 33
Top = 120
Width = 1815
End
Begin VB.Label lblProject
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 315
Left = 180
TabIndex = 0
Top = 120
Width = 5175
End
End
Attribute VB_Name = "frmProjNotes"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim moRSProj As Recordset
Dim mboolSHOW As Boolean, mboolFLAG As Boolean, mstrINVIN As String, mstrINVOUT As String
Dim mstrPROJLOT As String, mintLOTS As Integer, mboolLOADED As Boolean
Private Sub chkApt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkBagSand_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub GetInvCode()
Dim strSQL As String, strSELECT As String, strInvCode As String
Dim oRS As Recordset, strCOUNT As String
If mboolLOADED = True Then
strSQL = "SELECT * FROM tblPROJECT WHERE Inv = '" & txtInvoice & "'"
Set oRS = New Recordset
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockOptimistic
If Not oRS.EOF Then
strCOUNT = oRS.RecordCount
strSELECT = txtInvoice & " Has Already Been Used As An Invoice Code " & vbCrLf
strSELECT = strSELECT & strCOUNT & " Times - Select A New Invoice Code"
MsgBox strSELECT, vbOKOnly, "Change Invoice Code"
txtInvoice = ""
txtInvoice.SetFocus
' txtInvoice.SetFocus
End If
End If
' mstrPROJLOT = Trim(Field2Str(moRSProj!Proj_Desc)) & " - " & Trim(Field2Str(moRS!lot_no))
' lblProjectLot = mstrPROJLOT
' txtHName = Field2Str(moRS!Owner)
' txtHAddress = Field2Str(moRS!address)
End Sub
Private Sub chkBB_Click()
If chkBB = vbChecked Then
fraRGard.Enabled = False
optRGard(0).Enabled = False
optRGard(1).Enabled = False
optRGard(2).Enabled = False
optRGard(0).Value = False
optRGard(1).Value = False
optRGard(2).Value = False
ElseIf chkBB = vbUnchecked Then
fraRGard.Enabled = True
optRGard(0).Enabled = True
optRGard(1).Enabled = True
optRGard(2).Enabled = True
optRGard(0).Value = True
optRGard(1).Value = False
optRGard(2).Value = False
Else
fraRGard.Enabled = False
optRGard(0).Enabled = False
optRGard(1).Enabled = False
optRGard(2).Enabled = False
optRGard(0).Value = False
optRGard(1).Value = False
optRGard(2).Value = False
End If
End Sub
Private Sub chkBB_LostFocus()
If chkBB = vbChecked Then
fraRGard.Enabled = False
optRGard(0).Enabled = False
optRGard(1).Enabled = False
optRGard(2).Enabled = False
optRGard(0).Value = False
optRGard(1).Value = False
optRGard(2).Value = False
ElseIf chkBB = vbUnchecked Then
fraRGard.Enabled = True
optRGard(0).Enabled = True
optRGard(1).Enabled = True
optRGard(2).Enabled = False
optRGard(0).Value = True
optRGard(1).Value = False
optRGard(2).Value = False
Else
fraRGard.Enabled = False
optRGard(0).Enabled = False
optRGard(1).Enabled = False
optRGard(2).Enabled = False
optRGard(0).Value = False
optRGard(1).Value = False
optRGard(2).Value = False
End If
End Sub
Private Sub chkBB_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkCombined_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkComplete_Click()
If chkComplete = vbChecked Then
lblCompleteDate = Date
End If
If chkComplete = vbUnchecked Then
lblCompleteDate = ""
End If
End Sub
Private Sub chkComplete_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkCondo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkFHA_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkGotBid_Click()
If chkGotBid = vbChecked Then
lblAwardDate = Date
End If
If chkGotBid = vbUnchecked Then
lblAwardDate = ""
End If
End Sub
Private Sub chkGotBid_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkOpenings_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkOpt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkPHXTUC_Click()
If chkPHXTUC = vbChecked Then
chkPHXTUC.Caption = "Tucson"
ElseIf chkPHXTUC = vbUnchecked Then
chkPHXTUC.Caption = "METRO Phx"
End If
End Sub
Private Sub chkPlans_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkPLReq_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkPreLien_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkPrice_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkSetup_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub chkSilica_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdSave.Enabled = True
End Sub
Private Sub cmdContractor_Click()
gintPAYID = moRSProj!cont_id
frmContractor.Show 1
End Sub
Private Sub cmdDate_Click()
txtNotes = txtNotes & " " & Date & " " & gstrLOGIN & " - "
txtNotes.SetFocus
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdPrint_Click()
Dim strSQL As String
On Error GoTo Error_EH
gintCOPY = 1
gintPRINT = 1
frmReport.Show 1
strSQL = "{tblProject.Proj_id} = " & gintPROJID
crMain.ReportFileName = App.Path & "\ProjectStatus.rpt"
crMain.SelectionFormula = strSQL
crMain.CopiesToPrinter = gintCOPY
' crMain.Destination = crptToWindow
crMain.Destination = gintDEST
crMain.Action = 1
Exit Sub
Error_EH:
gstrMODULE = "Form ProjNotes - Module cmdPrint"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub cmdPrintSuper_Click()
Dim strSQL As String
On Error GoTo Error_EH
gintCOPY = 1
gintPRINT = 1
frmReport.Show 1
strSQL = "{tblProject.Proj_id} = " & gintPROJID
crMain.ReportFileName = App.Path & "\ProjectSuper.rpt"
crMain.SelectionFormula = strSQL
crMain.CopiesToPrinter = gintCOPY
' crMain.Destination = crptToWindow
crMain.Destination = gintDEST
crMain.Action = 1
Exit Sub
Error_EH:
gstrMODULE = "Form ProjNotes - Module cmdPrint"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub cmdSave_Click()
On Error GoTo Error_EH
' Store the controls to the recordset
Call FieldsSave
cmdSave.Enabled = False
Exit Sub
Error_EH:
gstrMODULE = "Form ProjNotes - Module cmdSave"
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
If Not cmdSave.Enabled Then
Call DataHasChanged
End If
End Sub
Private Sub DataHasChanged()
cmdSave.Enabled = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
' If mboolFLAG Then
' Exit Sub
' End If
If KeyAscii = 13 And Not mboolFLAG Then
SendKeys "{TAB}"
KeyAscii = 0
End If
End Sub
Private Sub Form_Load()
'***FIX On Error GoTo Error_EH
mboolLOADED = False
If gbytSECURITY < 3 Then
Else
Call FormClear3
End If
mboolFLAG = False
If FormFind() Then
Call FormShow
Else
MsgBox "No Information Was Found For This Project", vbOKOnly, "No Information"
Unload Me
End If
mboolLOADED = True
Exit Sub
Error_EH:
gstrMODULE = "Form ProjNotes - Module Form_Load"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub FormClear()
txtMAS90 = ""
txtYards = 0
txtRetention = 0
txtLots = 0
txtInvoice = ""
txtDue = ""
txtDue2 = ""
chk2Dates = vbUnchecked
' chkINACTIVE = vbUnchecked
txtBillDay = ""
txtNotes = ""
txtStandards = ""
txtLocation = ""
txtSandZone = 0
txtVWPSuper = ""
txtSigned = ""
chkFHA = vbUnchecked
chkGotBid = vbUnchecked
chkComplete = vbUnchecked
chkCombined = vbUnchecked
chkPlans = vbUnchecked
chkSetup = vbUnchecked
chkPHXTUC = vbUnchecked
chkPrice = vbUnchecked
chkOpt = vbUnchecked
chkStone = vbUnchecked
chkOpenings = vbUnchecked
chkCondo = vbUnchecked
chkApt = vbUnchecked
chkPLReq = vbChecked
chkPreLien = vbUnchecked
chkZMetal = vbUnchecked
cboProjType.ListIndex = -1
lblProject = ""
lblAwardDate = ""
lblCompleteDate = ""
txtTaxCode = ""
txtTaxAuth = ""
txtDesc = ""
txtLath = ""
txtStucco = ""
txtPI = ""
txtPE = ""
txtPF = ""
txtOpt = ""
End Sub
Private Sub FormClear2()
' frmProjNotes.Enabled = False
txtMAS90.Enabled = False ' = ""
txtYards.Enabled = False ' = 0
txtRetention.Enabled = False ' = 0
txtLots.Enabled = False ' = 0
txtInvoice.Enabled = False ' = ""
txtDue.Enabled = False ' = ""
txtDue2.Enabled = False ' = ""
chk2Dates.Enabled = False ' = vbUnchecked
' chkINACTIVE = vbUnchecked
txtBillDay.Enabled = False ' = ""
txtNotes.Enabled = False ' = ""
txtStandards.Enabled = False ' = ""
txtLocation.Enabled = False ' = ""
txtSandZone.Enabled = False ' = 0
txtVWPSuper.Enabled = False ' = ""
txtSigned.Enabled = False ' = ""
chkFHA.Enabled = False ' = vbUnchecked
chkGotBid.Enabled = False ' = vbUnchecked
chkComplete.Enabled = False ' = vbUnchecked
chkCombined.Enabled = False ' = vbUnchecked
chkPlans.Enabled = False ' = vbUnchecked
chkSetup.Enabled = False ' = vbUnchecked
chkPrice.Enabled = False ' = vbUnchecked
chkOpt.Enabled = False ' = vbUnchecked
chkStone.Enabled = False ' = vbUnchecked
chkOpenings.Enabled = False ' = vbUnchecked
chkCondo.Enabled = False ' = vbUnchecked
chkApt.Enabled = False ' = vbUnchecked
chkPLReq.Enabled = False ' = vbChecked
chkPreLien.Enabled = False ' = vbUnchecked
chkZMetal.Enabled = False ' = vbUnchecked
cboProjType.Enabled = False ' .ListIndex = -1
lblProject.Enabled = False ' = ""
optRGard(0).Enabled = False
optRGard(1).Enabled = False
optRGard(2).Enabled = False
chkPCMNT.Enabled = False
lblAwardDate = ""
txtSplit.Enabled = False
txtBagSand.Enabled = False
chkBagSand.Enabled = False
chkSilica.Enabled = False
chkBB.Enabled = False
lblCompleteDate = ""
txtTaxCode.Enabled = False ' = ""
txtTaxAuth.Enabled = False ' = ""
txtDesc.Enabled = False ' = ""
cmdSave.Enabled = False
cmdContractor.Enabled = False
cmdDate.Enabled = False
cmdPrint.Enabled = False
cmdPrintSuper.Enabled = False
txtLath.Enabled = False
txtStucco.Enabled = False
txtPI.Enabled = False
txtPE.Enabled = False
txtPF.Enabled = False
txtOpt.Enabled = False
End Sub
Private Sub FormClear3()
' frmProjNotes.Enabled = False
' txtMAS90.Enabled = False ' = ""
txtYards.Enabled = False ' = 0
txtRetention.Enabled = False ' = 0
' txtLots.Enabled = False ' = 0
' txtInvoice.Enabled = False ' = ""
txtDue.Enabled = False ' = ""
txtDue2.Enabled = False ' = ""
chk2Dates.Enabled = False ' = vbUnchecked
' chkINACTIVE = vbUnchecked
txtBillDay.Enabled = False ' = ""
txtNotes.Enabled = False ' = ""
txtStandards.Enabled = False ' = ""
txtLocation.Enabled = False ' = ""
txtSandZone.Enabled = False ' = 0
' txtVWPSuper.Enabled = False ' = ""
' txtSigned.Enabled = False ' = ""
chkFHA.Enabled = False ' = vbUnchecked
chkGotBid.Enabled = False ' = vbUnchecked
chkComplete.Enabled = False ' = vbUnchecked
chkCombined.Enabled = False ' = vbUnchecked
chkPlans.Enabled = False ' = vbUnchecked
' chkSetup.Enabled = False ' = vbUnchecked
chkPrice.Enabled = False ' = vbUnchecked
' chkOpt.Enabled = False ' = vbUnchecked
chkStone.Enabled = False ' = vbUnchecked
chkOpenings.Enabled = False ' = vbUnchecked
chkCondo.Enabled = False ' = vbUnchecked
chkApt.Enabled = False ' = vbUnchecked
chkPLReq.Enabled = False ' = vbChecked
' chkPreLien.Enabled = False ' = vbUnchecked
chkZMetal.Enabled = False ' = vbUnchecked
cboProjType.Enabled = False ' .ListIndex = -1
lblProject.Enabled = False ' = ""
optRGard(0).Enabled = False
optRGard(1).Enabled = False
optRGard(2).Enabled = False
chkPCMNT.Enabled = False
lblAwardDate = ""
txtSplit.Enabled = False
txtBagSand.Enabled = False
chkBagSand.Enabled = False
chkSilica.Enabled = False
chkBB.Enabled = False
lblCompleteDate = ""
' txtTaxCode.Enabled = False ' = ""
' txtTaxAuth.Enabled = False ' = ""
txtDesc.Enabled = False ' = ""
' cmdSave.Enabled = False
cmdContractor.Enabled = False
cmdDate.Enabled = False
cmdPrint.Enabled = False
cmdPrintSuper.Enabled = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim intResponse As Integer, strMSG As String
If cmdSave.Enabled Then
strMSG = "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 FieldsSave
Case vbNo
Case vbCancel
Cancel = True
Exit Sub
End Select
End If
If moRSProj.State = adStateOpen Then
moRSProj.Close
End If
End Sub
Private Function FormFind() As Boolean
Dim strSQL As String, strPlan As String, strMEMO As String
On Error GoTo Error_EH
strSQL = "SELECT * "
strSQL = strSQL & "FROM tblProject "
strSQL = strSQL & "WHERE Proj_ID = " & gintPROJID
Set moRSProj = New Recordset
moRSProj.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
If moRSProj.EOF Then
FormFind = False
Else
Call LotCount
FormFind = True
End If
Exit Function
Error_EH:
gstrMODULE = "Form ProjNotes - Module FormFind"
Call ErrorHandler2
gstrMODULE = ""
Exit Function
End Function
Private Sub FormShow()
Dim strSQL As String
Dim oRS As Recordset
'***FIX On Error GoTo Error_EH
With moRSProj
lblDDone = Field2Str2(mintLOTS)
txtMAS90 = Field2Str(!ar)
txtInvoice = Field2Str(!inv)
txtLots = Field2Str(!lots)
txtYards = Field2Str(!yards)
txtRetention = Field2Str(!retention)
txtDue = Field2Str(!DueDate)
txtDue2 = Field2Str(!duedate2)
chk2Dates = Field2CheckBox(!twodates)
' chkINACTIVE = Field2CheckBox(!INACTIVE)
txtBillDay = Field2Str(!inv_due)
txtNotes = Field2Str(!notes)
txtSandZone = Field2Str(!zone)
txtVWPSuper = Field2Str(!vwp_sup)
txtSigned = Field2Str(!signed)
chkPLReq = Field2CheckBox(!plien_req)
chkPreLien = Field2CheckBox(!plien_done)
chkOpt = Field2CheckBox(!opt)
chkStone = Field2CheckBox(!stone)
chkGotBid = Field2CheckBox(!gotbid)
chkComplete = Field2CheckBox(!complete)
chkCombined = Field2CheckBox(!bill)
chkSetup = Field2CheckBox(!setup)
chkPrice = Field2CheckBox(!price)
chkPHXTUC = Field2CheckBox(!PHX_TUS)
If chkPHXTUC = vbChecked Then
chkPHXTUC.Caption = "Tucson"
ElseIf chkPHXTUC = vbUnchecked Then
chkPHXTUC.Caption = "METRO Phx"
End If
chkFHA = Field2CheckBox(!FHA)
chkPlans = Field2CheckBox(!plans)
chkOpenings = Field2CheckBox(!use_open)
chkCondo = Field2CheckBox(!condo)
chkApt = Field2CheckBox(!Apt)
chkBB = Field2CheckBox(!bb)
chkPCMNT = Field2CheckBox(!plcmnt)
chkSilica = Field2CheckBox(!silica)
chkZMetal = Field2CheckBox(!zmetal)
chkWrap = Field2CheckBox(!Wrap)
txtWrapPctg = Format(Field2Str(!WPctg), "#0.00##")
txtStandards = Field2Str(!standards)
txtLocation = Field2Str(!Location)
txtTaxCode = Field2Str(!taxcode)
txtDesc = Field2Str(!Desc)
txtTaxAuth = Field2Str(!City)
lblProject.Caption = Field2Str(!Proj_Code) & " - " & Field2Str(!Proj_Desc) & " - " & Field2Str(!PROJ_ID)
lblAwardDate.Caption = Field2Str(!gb_date)
lblCompleteDate.Caption = Field2Str(!cm_date)
If !p_type = "T" Then
cboProjType = "Condo/Townhome"
ElseIf !p_type = "R" Then
cboProjType = "Residential Homes"
ElseIf !p_type = "M" Then
cboProjType = "Commercial"
ElseIf !p_type = "A" Then
cboProjType = "Apartments"
End If
optRGard(0) = Field2CheckBox(!rg12)
optRGard(1) = Field2CheckBox(!rg1)
optRGard(2) = Field2CheckBox(!pyro)
chkBagSand = Field2CheckBox(!BagSand)
txtBagSand = Format(Field2Str2(!bagdollars), "###.00")
txtSplit = Format(Field2Str2(!splitcst), "###.00")
txtLath = Field2Str(!LATH)
txtStucco = Field2Str(!Stucco)
txtPI = Field2Str(!PaintInt)
txtPE = Field2Str(!PaintExt)
txtPF = Field2Str(!PaintFNL)
txtOpt = Field2Str(!Option)
End With
If gbytSECURITY > 3 Then
chkGotBid.Enabled = False
chkComplete.Enabled = False
' txtLocation.Enabled = False
txtStandards.Enabled = False
End If
If gbytSECURITY = 1 Or gbytSECURITY = 7 Then
chkPreLien.Enabled = True
chkPLReq.Enabled = True
Else
chkPreLien.Enabled = False
chkPLReq.Enabled = False
End If
mboolSHOW = False
' If gbytSECURITY <> 1 Then
If gbytSECURITY < 3 Then
Else
Call FormClear3
End If
Exit Sub
Error_EH:
gstrMODULE = "Form ProjNotes - Module FormShow"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub FieldsSave()
Dim strLOT As String
On Error GoTo Error_EH
With moRSProj
!yards = Str2Field(txtYards)
!lots = Str2Field(txtLots)
!inv = Str2Field(txtInvoice)
!twodates = chk2Dates
!DueDate = Str2Field(txtDue)
!duedate2 = Str2Field(txtDue2)
!inv_due = Str2Field(txtBillDay)
!retention = Str2Field(txtRetention)
!notes = Str2Field(txtNotes)
!ar = Str2Field(txtMAS90)
!gb_date = Str2Field(lblAwardDate)
!cm_date = Str2Field(lblCompleteDate)
!standards = Str2Field(txtStandards)
!Location = Str2Field(txtLocation)
!signed = Str2Field(txtSigned)
!vwp_sup = Str2Field(txtVWPSuper)
!plien_req = chkPLReq
!plien_done = chkPreLien
!gotbid = chkGotBid
!plans = chkPlans
!setup = chkSetup
!price = chkPrice
!Wrap = chkWrap
!PHX_TUS = chkPHXTUC
!WPctg = Str2Field(txtWrapPctg)
!zone = Integer2Field(txtSandZone)
!complete = chkComplete
!bill = chkCombined
!FHA = chkFHA
!use_open = chkOpenings
!opt = chkOpt
!Apt = chkApt
!stone = chkStone
!condo = chkCondo
!bb = chkBB
!plcmnt = chkPCMNT
!silica = chkSilica
!City = Str2Field(txtTaxAuth)
!taxcode = Str2Field(txtTaxCode)
!Desc = Str2Field(txtDesc)
!zmetal = chkZMetal
!UUser = gstrLOGIN
!Update = Date
If cboProjType = "Condo/Townhome" Then
!p_type = "T"
ElseIf cboProjType = "Residential Homes" Then
!p_type = "R"
ElseIf cboProjType = "Commercial" Then
!p_type = "M"
ElseIf cboProjType = "Apartments" Then
!p_type = "A"
End If
!rg1 = optRGard(1)
!rg12 = optRGard(0)
!pyro = optRGard(2)
!BagSand = chkBagSand
!bagdollars = txtBagSand
!splitcst = txtSplit
!LATH = Str2Field(txtLath)
!Stucco = Str2Field(txtStucco)
!PaintInt = Str2Field(txtPI)
!PaintExt = Str2Field(txtPE)
!PaintFNL = Str2Field(txtPF)
!Option = Str2Field(txtOpt)
End With
moRSProj.Update
If FormFind() Then
Call FormShow 'xxxxxxxxxxxxxxxxxx
Else
Call FormClear
End If
Exit Sub
Error_EH:
gstrMODULE = "Form ProjNotes - Module FieldsSave"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub optRGard_Click(Index As Integer)
cmdSave.Enabled = True
End Sub
Private Sub txtDesc_GotFocus()
Call FieldSelect(txtDesc)
End Sub
Private Sub txtDesc_LostFocus()
txtDesc.Text = UCase(txtDesc.Text)
End Sub
Private Sub txtDue_GotFocus()
Call FieldSelect(txtDue)
End Sub
Private Sub txtDue2_GotFocus()
Call FieldSelect(txtDue2)
End Sub
'Private Sub txtInvoice_Change()
'Private Sub txtInvoice_ datachanged()
' txtInvoice = UCase(txtInvoice)
' Call GetInvCode
'End Sub
Private Sub txtInvoice_GotFocus()
Call FieldSelect(txtInvoice)
mstrINVIN = txtInvoice
End Sub
Private Sub txtInvoice_LostFocus()
Dim strMSG As String
txtInvoice = UCase(txtInvoice)
mstrINVOUT = txtInvoice
If mstrINVOUT <> mstrINVIN Then
Call GetInvCode
End If
' strMSG = "Remember That Invoice Code Should Be 3 Charaters" & vbCrLf
' strMSG = strMSG & "Or Less So That The Invoice Number Will Be" & vbCrLf
' strMSG = strMSG & "10 Charcters or Less. ie (PDR3333ST2)"
' MsgBox strMSG, vbOKOnly, "Check Invoice Code Length"
End Sub
Private Sub txtLath_GotFocus()
Call FieldSelect(txtLath)
End Sub
Private Sub txtLath_LostFocus()
txtLath = UCase(txtLath)
End Sub
Private Sub txtLocation_GotFocus()
Call FieldSelect(txtLocation)
End Sub
Private Sub txtLocation_LostFocus()
txtLocation = UCase(txtLocation)
End Sub
Private Sub txtLots_GotFocus()
Call FieldSelect(txtLots)
End Sub
Private Sub txtMAS90_GotFocus()
Call FieldSelect(txtMAS90)
End Sub
Private Sub txtMAS90_LostFocus()
txtMAS90 = UCase(txtMAS90)
End Sub
Private Sub txtNotes_GotFocus()
mboolFLAG = True
txtNotes.SelStart = 63000
End Sub
Private Sub txtNotes_LostFocus()
mboolFLAG = False
txtNotes = UCase(txtNotes)
End Sub
Private Sub txtOpt_GotFocus()
Call FieldSelect(txtOpt)
End Sub
Private Sub txtOpt_LostFocus()
txtOpt = UCase(txtOpt)
End Sub
Private Sub txtPE_GotFocus()
Call FieldSelect(txtPE)
End Sub
Private Sub txtPE_LostFocus()
txtPE = UCase(txtPE)
End Sub
Private Sub txtPF_GotFocus()
Call FieldSelect(txtPF)
End Sub
Private Sub txtPF_LostFocus()
txtPF = UCase(txtPF)
End Sub
Private Sub txtPI_GotFocus()
Call FieldSelect(txtPI)
End Sub
Private Sub txtPI_LostFocus()
txtPI = UCase(txtPI)
End Sub
Private Sub txtRetention_GotFocus()
Call FieldSelect(txtRetention)
End Sub
Private Sub txtSigned_GotFocus()
Call FieldSelect(txtSigned)
End Sub
Private Sub txtSigned_LostFocus()
Dim lngPOS As Long
lngPOS = InStr(1, txtSigned, "/", 1)
If Not IsDate(txtSigned) Then
If lngPOS = 0 Then
If Len(txtSigned) > 0 Then
txtSigned = Format(txtSigned, "00/00/####")
If Not IsDate(txtSigned) Then
MsgBox "The Date You Entered is not Valid - ReEnter"
txtSigned.SetFocus
End If
End If
Else
MsgBox "Invalid Date Format, Enter as 12312009", , "Invalid Date - ReEnter"
txtSigned.SetFocus
End If
End If
End Sub
Private Sub txtStandards_GotFocus()
mboolFLAG = True
txtStandards.SelStart = 63000
End Sub
Private Sub txtStandards_LostFocus()
mboolFLAG = False
txtStandards = UCase(txtStandards)
End Sub
Private Sub txtStucco_GotFocus()
Call FieldSelect(txtStucco)
End Sub
Private Sub txtStucco_LostFocus()
txtStucco = UCase(txtStucco)
End Sub
Private Sub txtTaxAuth_GotFocus()
Call FieldSelect(txtTaxAuth)
End Sub
Private Sub txtTaxAuth_LostFocus()
txtTaxAuth = UCase(txtTaxAuth)
End Sub
Private Sub txtTaxCode_GotFocus()
Call FieldSelect(txtTaxCode)
End Sub
Private Sub txtTaxCode_LostFocus()
txtTaxCode = UCase(txtTaxCode)
End Sub
Private Sub txtVWPSuper_GotFocus()
Call FieldSelect(txtVWPSuper)
End Sub
Private Sub txtVWPSuper_LostFocus()
txtVWPSuper = UCase(txtVWPSuper)
End Sub
Private Sub txtYards_GotFocus()
Call FieldSelect(txtYards)
End Sub
Private Sub txtYards_LostFocus()
txtYards = UCase(txtYards)
End Sub
Private Sub LotCount()
Dim oRS As Recordset
Dim strSQL As String
strSQL = "SELECT Proj_id, lorder, L_Flg FROM tblLotInfo WHERE l_flg = 'P' and Proj_id = " & gintPROJID
Set oRS = New Recordset
oRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
mintLOTS = oRS.RecordCount
End Sub
Reference in New Issue View Git Blame Copy Permalink