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/frmCrews.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

2808 lines
85 KiB
Plaintext
Raw Blame History

VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "Crystl32.OCX"
Object = "{8DDE6232-1BB0-11D0-81C3-0080C7A2EF7D}#3.0#0"; "Flp32a30.ocx"
Begin VB.Form frmCrews
BorderStyle = 1 'Fixed Single
Caption = "Lath and Stucco Crews"
ClientHeight = 8490
ClientLeft = 150
ClientTop = 435
ClientWidth = 15105
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8490
ScaleWidth = 15105
StartUpPosition = 3 'Windows Default
Begin VB.CheckBox chkHrly
Caption = "Hourly Crew"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5145
TabIndex = 62
Top = 30
Visible = 0 'False
Width = 1350
End
Begin VB.TextBox txtTOTRate
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 7410
TabIndex = 57
Top = 3780
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtTRRate
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 7410
TabIndex = 56
Top = 3240
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtPOTRate
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 7410
TabIndex = 55
Top = 2670
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtPRRate
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 7410
TabIndex = 54
Top = 2130
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtBRN
Height = 285
Left = 6390
TabIndex = 50
Top = 4620
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtTEXTURE
Height = 285
Left = 6390
TabIndex = 49
Top = 4905
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtSCR
Height = 285
Left = 6390
TabIndex = 48
Top = 4335
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtProjCode
BackColor = &H8000000F&
Enabled = 0 'False
Height = 285
Left = 6060
MaxLength = 6
TabIndex = 46
Top = 1260
Width = 930
End
Begin VB.CheckBox chkAllRates
Caption = "All Proj Rates"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 7350
TabIndex = 45
Top = 5610
Width = 1425
End
Begin VB.CheckBox chkAllCrew
Caption = "All Crews"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 7350
TabIndex = 44
Top = 5340
Width = 1335
End
Begin VB.CheckBox chkRateInactive
Caption = "Rate Inactive"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 7515
TabIndex = 43
Top = 45
Width = 1380
End
Begin VB.CommandButton cmdDelProj
Caption = "Delete Project"
Enabled = 0 'False
Height = 555
Left = 6270
TabIndex = 42
Top = 5340
Visible = 0 'False
Width = 990
End
Begin VB.CommandButton cmdClose
Caption = "Close Project"
Enabled = 0 'False
Height = 555
Left = 7455
TabIndex = 41
Top = 5910
Width = 990
End
Begin VB.CommandButton cmdSave2
Caption = "Save Project"
Enabled = 0 'False
Height = 555
Left = 6270
TabIndex = 26
Top = 5910
Width = 990
End
Begin VB.CommandButton cmdAddProj
Caption = "Add Project"
Enabled = 0 'False
Height = 555
Left = 5070
TabIndex = 38
Top = 5910
Width = 990
End
Begin VB.CheckBox chkRates
Caption = "Show Project Rates"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 7695
TabIndex = 37
Top = 945
Value = 1 'Checked
Visible = 0 'False
Width = 720
End
Begin LpLib.fpList lstProj
Height = 2055
Left = 75
TabIndex = 33
Top = 6165
Width = 4875
_Version = 196608
_ExtentX = 8599
_ExtentY = 3625
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 = 4
Sorted = 1
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 = "frmCrews.frx":0000
End
Begin VB.CheckBox chkINACTIVE
Caption = "Inactive Crew"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 7515
TabIndex = 32
Top = 330
Width = 1470
End
Begin VB.TextBox txtEmpNo
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6390
TabIndex = 17
Top = 1860
Width = 975
End
Begin VB.CommandButton cmdExit
Caption = "&Exit"
Height = 555
Left = 7455
TabIndex = 29
TabStop = 0 'False
Top = 6480
Width = 990
End
Begin VB.CommandButton cmdSave
Caption = "&Save Crew"
Enabled = 0 'False
Height = 555
Left = 6270
TabIndex = 27
Top = 6480
Width = 990
End
Begin VB.CommandButton cmdAdd
Caption = "&Add Crew"
Enabled = 0 'False
Height = 555
Left = 5070
TabIndex = 28
TabStop = 0 'False
Top = 6480
Width = 990
End
Begin VB.TextBox txtDA
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6390
MaxLength = 9
TabIndex = 24
Top = 3780
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtQU
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6390
MaxLength = 9
TabIndex = 23
Top = 3525
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtSB
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6390
MaxLength = 9
TabIndex = 25
Top = 4050
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtMN
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6390
MaxLength = 9
TabIndex = 22
Top = 3240
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtSM
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6390
MaxLength = 9
TabIndex = 21
Top = 2955
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtSA
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6390
MaxLength = 9
TabIndex = 20
Top = 2670
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtPrimRate
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6390
MaxLength = 9
TabIndex = 19
Top = 2385
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtMetal
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6390
MaxLength = 9
TabIndex = 18
Top = 2130
Visible = 0 'False
Width = 975
End
Begin VB.TextBox txtPhone
Alignment = 1 'Right Justify
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6060
MaxLength = 10
TabIndex = 16
Top = 960
Width = 1575
End
Begin VB.TextBox txtCrewBoss
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6060
MaxLength = 30
TabIndex = 15
Top = 660
Width = 3435
End
Begin VB.ComboBox cboType
Height = 315
ItemData = "frmCrews.frx":03D7
Left = 3180
List = "frmCrews.frx":03ED
Style = 2 'Dropdown List
TabIndex = 2
Top = 60
Width = 1755
End
Begin VB.ListBox lstCrew
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5520
Left = 75
Sorted = -1 'True
TabIndex = 0
Top = 495
Width = 4875
End
Begin LpLib.fpList lstCProj
Height = 6915
Left = 8820
TabIndex = 39
Top = 1560
Visible = 0 'False
Width = 6285
_Version = 196608
_ExtentX = 11086
_ExtentY = 12197
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 = 4
Sorted = 1
LineWidth = 1
SelDrawFocusRect= -1 'True
ColumnSeparatorChar= 9
ColumnSearch = 1
ColumnWidthScale= 2
RowHeight = -1
MultiSelect = 0
WrapList = 0 'False
WrapWidth = 0
SelMax = -1
AutoSearch = 2
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 = "frmCrews.frx":0425
End
Begin VB.TextBox txtProjDesc
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6060
TabIndex = 35
Top = 1560
Width = 3435
End
Begin Crystal.CrystalReport crCrew
Left = -15
Top = 45
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowState = 2
PrintFileLinesPerPage= 60
End
Begin VB.Label lblTOTRate
AutoSize = -1 'True
Caption = "Tuc OT Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 7410
TabIndex = 61
Top = 3570
Visible = 0 'False
Width = 990
End
Begin VB.Label lblTRRate
AutoSize = -1 'True
Caption = "Tuc Reg Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 7410
TabIndex = 60
Top = 3000
Visible = 0 'False
Width = 1065
End
Begin VB.Label lblOTRate
AutoSize = -1 'True
Caption = "Phx OT Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 7410
TabIndex = 59
Top = 2460
Visible = 0 'False
Width = 975
End
Begin VB.Label lblRegRate
AutoSize = -1 'True
Caption = "Phx Reg Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 7410
TabIndex = 58
Top = 1920
Visible = 0 'False
Width = 1050
End
Begin VB.Label lblTCTexture
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Three C Tex:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5370
TabIndex = 53
Top = 4950
Visible = 0 'False
Width = 930
End
Begin VB.Label lblTCBRN
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Three C Brown:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5190
TabIndex = 52
Top = 4665
Visible = 0 'False
Width = 1110
End
Begin VB.Label lblTCSCR
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Three C Scratch:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5085
TabIndex = 51
Top = 4380
Visible = 0 'False
Width = 1215
End
Begin VB.Label lblProjCode
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Project Code:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5010
TabIndex = 47
Top = 1260
Width = 960
End
Begin VB.Label lblType
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Select The Crew Type To Display A List:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 195
Left = 120
TabIndex = 1
Top = 120
Width = 2865
End
Begin VB.Label lblProjInst
BackColor = &H00C0FFFF&
Caption = $"frmCrews.frx":07F4
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1245
Left = 9645
TabIndex = 40
Top = 15
Width = 5490
End
Begin VB.Label lblProjName
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Project:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5430
TabIndex = 36
Top = 1590
Width = 540
End
Begin VB.Label lblProjID
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 7110
TabIndex = 34
Top = 1260
Width = 1860
End
Begin VB.Label lblEmpNo
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Employee No:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5310
TabIndex = 31
Top = 1920
Width = 990
End
Begin VB.Label lblInstructions
Caption = $"frmCrews.frx":08DD
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1320
Left = 5040
TabIndex = 30
Top = 7050
Width = 4545
End
Begin VB.Label lblDA
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Dash Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5520
TabIndex = 14
Top = 3840
Visible = 0 'False
Width = 810
End
Begin VB.Label lblCrewId
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Height = 315
Left = 6435
TabIndex = 13
Top = 285
Width = 975
End
Begin VB.Label lblQU
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Quernavaca Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5010
TabIndex = 12
Top = 3585
Visible = 0 'False
Width = 1320
End
Begin VB.Label lblSB
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Synthetic Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5235
TabIndex = 11
Top = 4110
Visible = 0 'False
Width = 1095
End
Begin VB.Label lblMN
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Monterrey Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5190
TabIndex = 10
Top = 3300
Visible = 0 'False
Width = 1140
End
Begin VB.Label lblSmooth
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Smooth Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5370
TabIndex = 9
Top = 3045
Visible = 0 'False
Width = 975
End
Begin VB.Label lblSand
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Sand Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5535
TabIndex = 8
Top = 2760
Visible = 0 'False
Width = 810
End
Begin VB.Label lblMetal
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Metal Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5505
TabIndex = 7
Top = 2235
Visible = 0 'False
Width = 825
End
Begin VB.Label lblPrimRate
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Lath Rate:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5580
TabIndex = 6
Top = 2505
Visible = 0 'False
Width = 750
End
Begin VB.Label lblPhone
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Phone #:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5325
TabIndex = 5
Top = 1020
Width = 660
End
Begin VB.Label lblName
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Crew Leader:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5055
TabIndex = 4
Top = 720
Width = 945
End
Begin VB.Label lblCrewNum
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Crew #:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 5820
TabIndex = 3
Top = 345
Width = 555
End
End
Attribute VB_Name = "frmCrews"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim moRSCREW As Recordset, moRSPRATE As Recordset, moRSCREWRATE As Recordset
Dim mintCREW As Integer, mlngProj As Long, mlngRATE As Long
Dim mboolAdding As Boolean, mboolNEW As Boolean, mintNCREW As Integer
Dim mboolHOURLY As Boolean
' lstCREW Height 3960 or 7470
' need to make it so the save keys work for just crews and for projects.
' make sure that if there is a project labor rate then that displays not the
' default labor rate.
'
Private Sub cboType_Click()
Call CrewLoad
If Len(cboType.Text) <> 0 Then
cmdAdd.Enabled = True
End If
End Sub
Private Sub LoadCProj()
Dim strSQL As String, oRS As Recordset, strLine As String
cmdAddProj.Enabled = False
cmdSave.Enabled = True
strSQL = "SELECT Proj_ID,Proj_Code, Proj_Desc, Proj_Cont FROM tblProject WHERE GotBid and Not Complete"
Set oRS = New Recordset
oRS.Open strSQL, goConn, adOpenDynamic, adLockOptimistic
frmCrews.Left = 0
frmCrews.Width = 15225
lstCProj.Clear
Do Until oRS.EOF
strLine = Field2Str2(oRS!PROJ_ID) & vbTab & Field2Str(oRS!Proj_Code) & vbTab & Field2Str(oRS!Proj_Cont) & vbTab & Field2Str(oRS!Proj_Desc)
lstCProj.AddItem strLine
oRS.MoveNext
Loop
End Sub
Private Sub chkAllCrew_Click()
If chkAllCrew = vbChecked Then
chkAllCrew.BackColor = &HC0FFFF
chkAllCrew.ForeColor = &HFF&
If cboType.ListIndex <> -1 Then
Call CrewLoad
End If
Else
chkAllCrew.BackColor = &H8000000F
chkAllCrew.ForeColor = &H80000012
If cboType.ListIndex <> -1 Then
Call CrewLoad
End If
End If
End Sub
Private Sub chkAllRates_Click()
If chkAllRates = vbChecked Then
chkAllRates.BackColor = &HC0FFFF
chkAllRates.ForeColor = &HFF&
If cboType.ListIndex <> -1 Then
Call ProjLoad
End If
Else
chkAllRates.BackColor = &H8000000F
chkAllRates.ForeColor = &H80000012
If cboType.ListIndex <> -1 Then
Call ProjLoad
End If
End If
End Sub
Private Sub chkRates_Click()
Dim intBOOKMARK As Integer
If cboType.ListIndex <> -1 Then
intBOOKMARK = lstCrew.ListIndex
If chkRates = vbChecked Then
' lstCrew.Enabled = False
lstCrew.Height = 3960
lstProj.Visible = True
txtProjCode.Visible = True
lblProjCode.Visible = True
txtProjDesc = ""
cmdAdd.Enabled = False
cmdAddProj.Enabled = True
Call ProjLoad
End If
If chkRates = vbUnchecked Then
lstProj.ListIndex = -1
lstCrew.Enabled = True
If cmdClose.Enabled = True Then
cmdClose.Enabled = False
Call FormShowCrew
End If
lstCProj.Visible = False
lblInstructions.Visible = True
cmdExit.Visible = True
frmCrews.Width = 9750
lstCrew.Height = 7470
lstProj.Visible = False
txtProjCode.Visible = False
lblProjCode.Visible = False
txtProjDesc = "Default Pay Rates for This Crew"
cmdAdd.Enabled = True
cmdAddProj.Enabled = False
End If
If lstCrew.Enabled <> False Or lstProj.ListCount = 0 Then
Call CrewLoad
End If
lstCrew.ListIndex = intBOOKMARK
Else
chkRates = vbUnchecked
MsgBox "Must Select A Crew Type Before Clicking Rate Checkbox", vbOKOnly, "Crew Type Required"
End If
' Call ProjLoad
End Sub
Private Sub cmdAdd_Click()
cmdAdd.Enabled = False
cmdSave.Enabled = True
cmdAddProj.Enabled = False
cmdSave2 = False
mboolAdding = True
mboolNEW = True
Call FormClear
' Call FormClearP
txtCrewBoss.SetFocus
End Sub
Private Sub cmdAddProj_Click()
' frmCrews.Width = 0
lstCProj.Visible = True
cmdAdd.Enabled = False
cmdSave.Enabled = False
cmdSave2.Enabled = True
' cmdExit.Visible = False
cmdExit.Visible = True
lblInstructions.Visible = False
cmdClose.Enabled = True
Call LoadCProj
' frmProjCur.Show
End Sub
Private Sub cmdClose_Click()
' frmCrews.Width = 0
lstCProj.Visible = False
cmdExit.Visible = True
frmCrews.Width = 9750
If lstProj.Visible <> True Then
lstCrew.Height = 5520
Else
lstCrew.Height = 5520
End If
lblInstructions.Visible = True
lstCProj.Clear
lstCrew.Enabled = True
lstCrew.SetFocus
cmdAdd.Enabled = True
cmdClose.Enabled = False
txtProjCode.Visible = False
lblProjCode.Visible = False
txtProjDesc = ""
' txtProjDesc = "Default Pay Rates for This Crew"
If lstProj.ListCount > 0 Then
Call lstProj_Click
Else
Call lstCrew_Click ' **** may need to change this to lstproj_click if lstproj.listcount > 0
End If
' Call LoadCProj
' frmProjCur.Show
End Sub
Private Sub cmdDelProj_Click()
Dim lngRATEID As Long, strSQLD As String
Dim intYN As Integer
lstProj.col = 0
lngRATEID = CLng(lstProj.ColText)
intYN = MsgBox("Do You Want To Delete This Project From This Crew (Y/N)?", vbYesNo, "Delete?")
If intYN = vbYes Then
strSQLD = "DELETE * FROM tblCREWRATE WHERE RATE_ID = " & lngRATEID
goConn.Execute strSQLD
cmdDelProj.Enabled = False
cmdSave2.Enabled = False
cmdAddProj.Enabled = True
Else
cmdDelProj.Enabled = False
cmdSave.Enabled = False
cmdAddProj.Enabled = True
End If
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
'Private Sub cmdPrint_Click()
' lstCrew.Enabled = True
' cmdAdd.Enabled = True
' cmdSave.Enabled = False
' cmdPrint.Enabled = False
' lblPrintInfo.Visible = False
' lblBegDate.Visible = False
' lblEndDate.Visible = False
' txtBegDate.Visible = False
' txtEndDate.Visible = False
' Call PrintPay
'End Sub
Private Sub cmdSave_Click()
Dim intBOOKMARK As Integer
intBOOKMARK = lstCrew.ListIndex
lstCrew.Enabled = True
cmdAdd.Enabled = True
cmdSave.Enabled = False
' cmdPrint.Enabled = False
' lblPrintInfo.Visible = False
' lblBegDate.Visible = False
' lblEndDate.Visible = False
' txtBegDate.Visible = False
' txtEndDate.Visible = False
Call FormSave
If lstCrew.ListCount >= intBOOKMARK + 1 Then
lstCrew.ListIndex = intBOOKMARK
End If
End Sub
Private Sub cmdSave2_Click()
Dim intBOOKMARK As Integer
intBOOKMARK = lstProj.ListIndex
lstProj.Enabled = True
' cmdAdd.Enabled = True
' cmdAddProj.Enabled = True
cmdAddProj.Enabled = False
cmdDelProj.Enabled = False
cmdSave2.Enabled = False
' cmdPrint.Enabled = False
' lblPrintInfo.Visible = False
' lblBegDate.Visible = False
' lblEndDate.Visible = False
' txtBegDate.Visible = False
' txtEndDate.Visible = False
txtMetal.Enabled = False
txtPrimRate.Enabled = False
txtSA.Enabled = False
txtSM.Enabled = False
txtMN.Enabled = False
txtQU.Enabled = False
txtDA.Enabled = False
txtSB.Enabled = False
Call FormSave2
lstProj.ListIndex = intBOOKMARK
End Sub
Private Sub Form_Activate()
Dim intResponse As Integer
Dim strSQL As String
On Error GoTo Error_EH
frmCrews.Width = 9750
Exit Sub
Error_EH:
gstrMODULE = "FormCrews - 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
mboolAdding = False
mboolNEW = False
frmCrews.Caption = "All Crews Except Repair - " & gstrLOGIN
' lstCrew.Height = 7470
' lstProj.Visible = False
' txtProjDesc = "Default Pay Rates for This Crew"
Call CrewLoad
If lstCrew.ListIndex <> -1 Then
If FormFindCrew() Then
Call FormShowCrew
End If
End If
' Call cmdTotal_Click
Exit Sub
Error_EH:
gstrMODULE = "FormCrews - 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
If chkAllCrew = vbChecked Then
strSQL = "SELECT crew_id, crew_boss from tblCrew WHERE type = '" & Left$(cboType, 1) & "'"
ElseIf chkAllCrew = vbUnchecked Then
strSQL = "SELECT crew_id, crew_boss from tblCrew WHERE Inactive = False and type = '" & Left$(cboType, 1) & "'"
End If
Set oRS = New Recordset
oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
lstCrew.Clear
Do Until oRS.EOF
With lstCrew
If Len(Field2Str(oRS!Crew_Boss)) < 14 Then
strLine = Format(Field2Str(oRS!Crew_Boss), "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@") & vbTab & Field2Str(oRS!CREW_ID)
ElseIf Len(Field2Str(oRS!Crew_Boss)) > 20 Then
strLine = Format(Field2Str(oRS!Crew_Boss), "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@") & vbTab & Field2Str(oRS!CREW_ID)
Else
strLine = Format(Field2Str(oRS!Crew_Boss), "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@") & vbTab & Field2Str(oRS!CREW_ID)
End If
.AddItem strLine
.ItemData(.NewIndex) = oRS!CREW_ID
End With
oRS.MoveNext
Loop
If lstCrew.ListCount Then
lstCrew.ListIndex = 0
Else
lstCrew.ListIndex = -1
Call FormClear
End If
Exit Sub
Error_EH:
gstrMODULE = "FormCrews - Module CrewLoad"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub ProjLoad()
Dim oRSS As Recordset
Dim strSQLR As String, intCREWID As Integer
Dim strLine As String, intTEST As Integer
On Error GoTo Error_EH
intCREWID = lstCrew.ItemData(lstCrew.ListIndex)
If chkAllRates = vbChecked Then
strSQLR = "SELECT rate_id, proj_id, proj_code, proj_desc, crew_id FROM tblCREWRATE WHERE crew_id = " & intCREWID
ElseIf chkAllRates = vbUnchecked Then
strSQLR = "SELECT rate_id, proj_id, proj_code, proj_desc, crew_id FROM tblCREWRATE WHERE not INACTIVE and crew_id = " & intCREWID
End If
Set oRSS = New Recordset
oRSS.Open strSQLR, goConn, adOpenForwardOnly, adLockReadOnly
lstProj.Clear
Do Until oRSS.EOF
With lstProj
strLine = Field2Str2(oRSS!Rate_id) & vbTab & " " & Field2Str(oRSS!Proj_Code) & vbTab & Field2Str(oRSS!Proj_Desc) & vbTab & Field2Str2(oRSS!PROJ_ID) ' & vbTab & Field2Str2(oRSS!Rate_id)
.AddItem strLine
End With
oRSS.MoveNext
Loop
If lstProj.ListCount Then
lstProj.ListIndex = 0
Else
lstProj.ListIndex = -1
Call FormClearP
End If
Exit Sub
Error_EH:
gstrMODULE = "FormCrews - Module ProjLoad"
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 tblCrew "
strSQL = strSQL & "WHERE crew_Id = " & lstCrew.ItemData(lstCrew.ListIndex)
Set moRSCREW = New Recordset
moRSCREW.Open strSQL, goConn, adOpenDynamic, adLockOptimistic
If moRSCREW.EOF Then
FormFindCrew = False
mboolHOURLY = False
Else
FormFindCrew = True
If moRSCREW!Hourly Then
mboolHOURLY = True
Else
mboolHOURLY = False
End If
End If
Exit Function
Error_EH:
gstrMODULE = "FormCrews - Module FormFindCrew"
Call ErrorHandler2
gstrMODULE = ""
Exit Function
End Function
Private Function FormFindProj() As Boolean
Dim strSQL As String, lngRATEID As Long
On Error GoTo Error_EH
' strSQL = "SELECT * "
' strSQL = strSQL & "FROM tblCREWRATE "
' strSQL = strSQL & "WHERE crew_Id = " & lstCrew.ItemData(lstCrew.ListIndex)
' Set moRSCREW = New Recordset
' moRSCREW.Open strSQL, goConn, adOpenDynamic, adLockOptimistic
lstProj.col = 4
lngRATEID = Field2Long(lstProj.ColText)
strSQL = "SELECT * FROM tblCREWRATE WHERE Rate_ID = " & lngRATEID
Set moRSPRATE = New Recordset
moRSPRATE.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
If moRSPRATE.EOF Then
' If moRSCREW.EOF Then
FormFindProj = False
' FormFindCrew = False
Else
FormFindProj = True
' FormFindCrew = True
End If
Exit Function
Error_EH:
gstrMODULE = "FormCrews - Module FormFindProj"
Call ErrorHandler2
gstrMODULE = ""
Exit Function
End Function
Private Sub FormShowProj()
Dim strSQL As String, lngRATEID As Long
Dim oRS As Recordset
On Error GoTo Error_EH
' lstProj.col = 4
' lngRATEID = Field2Long(lstProj.ColText)
' strSQL = "SELECT * FROM tblCREWRATE WHERE Rate_ID = " & lngRATEID
' Set moRSPRATE = New Recordset
' moRSPRATE.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
With moRSPRATE
If Left$(cboType, 1) = "L" Then
lblPrimRate.Caption = "Lath:"
lblSand.Caption = "Wrap:"
lblSmooth.Caption = "Wrap-Lath Rate:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = True
lblMetal.Visible = True
txtSA.Visible = True
lblSand.Visible = True
txtDA.Visible = False
lblDA.Visible = False
txtQU.Visible = False
lblQU.Visible = False
txtSM.Visible = True
lblSmooth.Visible = True
txtSB.Visible = False
lblSB.Visible = False
txtMN.Visible = False
lblMN.Visible = False
txtSCR.Visible = False
lblTCSCR.Visible = False
txtBRN.Visible = False
lblTCBRN.Visible = False
txtTEXTURE.Visible = False
lblTCTexture.Visible = False
' if mboolhourly and
End If
ElseIf Left$(cboType, 1) = "S" Then
lblPrimRate.Caption = "Skip:"
lblSand.Caption = "Sand:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = False
lblMetal.Visible = False
txtDA.Visible = True
lblDA.Visible = True
txtQU.Visible = True
lblQU.Visible = True
txtSM.Visible = True
lblSmooth.Visible = True
txtSA.Visible = True
lblSand.Visible = True
txtSB.Visible = True
lblSB.Visible = True
txtMN.Visible = True
lblMN.Visible = True
txtSCR.Visible = True
lblTCSCR.Visible = True
txtBRN.Visible = True
lblTCBRN.Visible = True
txtTEXTURE.Visible = True
lblTCTexture.Visible = True
End If
ElseIf Left$(cboType, 1) = "V" Then
lblPrimRate.Caption = "Stone:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = False
lblMetal.Visible = False
txtDA.Visible = False
lblDA.Visible = False
txtQU.Visible = False
lblQU.Visible = False
txtSM.Visible = False
lblSmooth.Visible = False
txtSA.Visible = False
lblSand.Visible = False
txtSB.Visible = False
lblSB.Visible = False
txtMN.Visible = False
lblMN.Visible = False
txtSCR.Visible = False
lblTCSCR.Visible = False
txtBRN.Visible = False
lblTCBRN.Visible = False
txtTEXTURE.Visible = False
lblTCTexture.Visible = False
End If
ElseIf Left$(cboType, 1) = "C" Then
lblPrimRate.Caption = "Up:"
lblSand.Caption = "Down:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = False
lblMetal.Visible = False
txtDA.Visible = False
lblDA.Visible = False
txtQU.Visible = False
lblQU.Visible = False
txtSM.Visible = False
lblSmooth.Visible = False
txtSA.Visible = True
lblSand.Visible = True
txtSB.Visible = False
lblSB.Visible = False
txtMN.Visible = False
lblMN.Visible = False
txtSCR.Visible = False
lblTCSCR.Visible = False
txtBRN.Visible = False
lblTCBRN.Visible = False
txtTEXTURE.Visible = False
lblTCTexture.Visible = False
End If
ElseIf Left$(cboType, 1) = "Q" Then
lblPrimRate.Caption = "Rate:"
lblSand.Visible = False
txtSA.Visible = False
' lblSand.Caption = "Down:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = False
lblMetal.Visible = False
txtDA.Visible = False
lblDA.Visible = False
txtQU.Visible = False
lblQU.Visible = False
txtSM.Visible = False
lblSmooth.Visible = False
' txtSA.Visible = True
' lblSand.Visible = True
txtSB.Visible = False
lblSB.Visible = False
txtMN.Visible = False
lblMN.Visible = False
txtSCR.Visible = False
lblTCSCR.Visible = False
txtBRN.Visible = False
lblTCBRN.Visible = False
txtTEXTURE.Visible = False
lblTCTexture.Visible = False
End If
ElseIf Left$(cboType, 1) = "X" Then
lblPrimRate.Caption = "Rate:"
lblSand.Visible = False
txtSA.Visible = False
' lblSand.Caption = "Down:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = False
lblMetal.Visible = False
txtDA.Visible = False
lblDA.Visible = False
txtQU.Visible = False
lblQU.Visible = False
txtSM.Visible = False
lblSmooth.Visible = False
' txtSA.Visible = True
' lblSand.Visible = True
txtSB.Visible = False
lblSB.Visible = False
txtMN.Visible = False
lblMN.Visible = False
txtSCR.Visible = False
lblTCSCR.Visible = False
txtBRN.Visible = False
lblTCBRN.Visible = False
txtTEXTURE.Visible = False
lblTCTexture.Visible = False
End If
End If
lblCrewId.Caption = Field2Str(!CREW_ID)
txtCrewBoss = Field2Str(!Crew_Boss)
' txtPhone = Field2Str(!phone)
' txtEmpNo = Field2Str(!EmpNo)
txtPrimRate = Format(Field2Str2(!lath_skip), "#0.00")
txtMetal = Format(Field2Str2(!METAL), "#0.00#")
txtSA = Format(Field2Str2(!sand), "#0.00")
txtSM = Format(Field2Str2(!Smooth), "#0.00")
txtQU = Format(Field2Str2(!qu), "#0.00")
txtDA = Format(Field2Str2(!dash), "#0.00")
txtMN = Format(Field2Str2(!mn), "#0.00")
txtSB = Format(Field2Str2(!syn), "#0.00")
txtSCR = Format(Field2Str2(!scr), "#0.00")
txtBRN = Format(Field2Str2(!brn), "#0.00")
txtTEXTURE = Format(Field2Str2(!tex), "#0.00")
' txtPRRate = Format(Field2Str2(!PReg), "#0.00")
' txtPOTRate = Format(Field2Str2(!POT), "#0.00")
' txtTRRate = Format(Field2Str2(!TReg), "#0.00")
' txtTOTRate = Format(Field2Str2(!TOT), "#0.00")
txtProjCode = Field2Str(!Proj_Code)
txtProjDesc = Field2Str(!Proj_Desc)
chkRateInactive = Field2CheckBox(!inactive)
' chkBiWeekly = Field2CheckBox(!BiWeekly)
End With
Exit Sub
Error_EH:
gstrMODULE = "FormCrews - Module FormShowProj"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub FormShowCrew()
Dim strSQL As String, lngRATEID As Long
Dim oRS As Recordset
On Error GoTo Error_EH
' lstProj.col = 4
' lngRATEID = Field2Long(lstProj.ColText)
' strSQL = "SELECT * FROM tblCREWRATE WHERE Rate_ID = " & lngRATEID
' Set moRSPRATE = New Recordset
' moRSPRATE.Open strSQL, goConn, adOpenKeyset, adLockOptimistic
With moRSCREW
If Left$(cboType, 1) = "L" Then
lblPrimRate.Caption = "Lath:"
lblSand.Caption = "Wrap:"
lblSmooth.Caption = "Wrap-Lath Rate:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = True
lblMetal.Visible = True
lblSand.Visible = True
txtSA.Visible = True
txtSM.Visible = True
lblSmooth.Visible = True
txtDA.Visible = False
lblDA.Visible = False
txtQU.Visible = False
lblQU.Visible = False
' txtSA.Visible = False
txtSB.Visible = False
lblSB.Visible = False
txtMN.Visible = False
lblMN.Visible = False
txtSCR.Visible = False
lblTCSCR.Visible = False
txtBRN.Visible = False
lblTCBRN.Visible = False
txtTEXTURE.Visible = False
lblTCTexture.Visible = False
If mboolHOURLY Then
lblRegRate.Visible = True
txtPRRate.Visible = True
lblOTRate.Visible = True
txtPOTRate.Visible = True
lblTRRate.Visible = True
txtTRRate.Visible = True
lblTOTRate.Visible = True
txtTOTRate.Visible = True
Else
lblRegRate.Visible = False
txtPRRate.Visible = False
lblOTRate.Visible = False
txtPOTRate.Visible = False
lblTRRate.Visible = False
txtTRRate.Visible = False
lblTOTRate.Visible = False
txtTOTRate.Visible = False
End If
End If
ElseIf Left$(cboType, 1) = "S" Then
lblPrimRate.Caption = "Skip:"
lblSand.Caption = "Sand:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = False
lblMetal.Visible = False
txtDA.Visible = True
lblDA.Visible = True
txtQU.Visible = True
lblQU.Visible = True
txtSM.Visible = True
lblSmooth.Visible = True
txtSA.Visible = True
lblSand.Visible = True
txtSB.Visible = True
lblSB.Visible = True
txtMN.Visible = True
lblMN.Visible = True
txtSCR.Visible = True
lblTCSCR.Visible = True
txtBRN.Visible = True
lblTCBRN.Visible = True
txtTEXTURE.Visible = True
lblTCTexture.Visible = True
If mboolHOURLY Then
lblRegRate.Visible = True
txtPRRate.Visible = True
lblOTRate.Visible = True
txtPOTRate.Visible = True
lblTRRate.Visible = True
txtTRRate.Visible = True
lblTOTRate.Visible = True
txtTOTRate.Visible = True
Else
lblRegRate.Visible = False
txtPRRate.Visible = False
lblOTRate.Visible = False
txtPOTRate.Visible = False
lblTRRate.Visible = False
txtTRRate.Visible = False
lblTOTRate.Visible = False
txtTOTRate.Visible = False
End If
End If
ElseIf Left$(cboType, 1) = "V" Then
lblPrimRate.Caption = "Stone:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = False
lblMetal.Visible = False
txtDA.Visible = False
lblDA.Visible = False
txtQU.Visible = False
lblQU.Visible = False
txtSM.Visible = False
lblSmooth.Visible = False
txtSA.Visible = False
lblSand.Visible = False
txtSB.Visible = False
lblSB.Visible = False
txtMN.Visible = False
lblMN.Visible = False
txtSCR.Visible = False
lblTCSCR.Visible = False
txtBRN.Visible = False
lblTCBRN.Visible = False
txtTEXTURE.Visible = False
lblTCTexture.Visible = False
End If
ElseIf Left$(cboType, 1) = "C" Then
lblPrimRate.Caption = "Up:"
lblSand.Caption = "Down:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = False
lblMetal.Visible = False
txtDA.Visible = False
lblDA.Visible = False
txtQU.Visible = False
lblQU.Visible = False
txtSM.Visible = False
lblSmooth.Visible = False
txtSA.Visible = True
lblSand.Visible = True
txtSB.Visible = False
lblSB.Visible = False
txtMN.Visible = False
lblMN.Visible = False
txtSCR.Visible = False
lblTCSCR.Visible = False
txtBRN.Visible = False
lblTCBRN.Visible = False
txtTEXTURE.Visible = False
lblTCTexture.Visible = False
If mboolHOURLY Then
lblRegRate.Visible = True
txtPRRate.Visible = True
lblOTRate.Visible = True
txtPOTRate.Visible = True
lblTRRate.Visible = True
txtTRRate.Visible = True
lblTOTRate.Visible = True
txtTOTRate.Visible = True
Else
lblRegRate.Visible = False
txtPRRate.Visible = False
lblOTRate.Visible = False
txtPOTRate.Visible = False
lblTRRate.Visible = False
txtTRRate.Visible = False
lblTOTRate.Visible = False
txtTOTRate.Visible = False
End If
End If
ElseIf Left$(cboType, 1) = "Q" Then
lblPrimRate.Caption = "Rate:"
lblSand.Visible = False
txtSA.Visible = False
' lblSand.Caption = "Down:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = False
lblMetal.Visible = False
txtDA.Visible = False
lblDA.Visible = False
txtQU.Visible = False
lblQU.Visible = False
txtSM.Visible = False
lblSmooth.Visible = False
' txtSA.Visible = False
' lblSand.Visible = False
txtSB.Visible = False
lblSB.Visible = False
txtMN.Visible = False
lblMN.Visible = False
txtSCR.Visible = False
lblTCSCR.Visible = False
txtBRN.Visible = False
lblTCBRN.Visible = False
txtTEXTURE.Visible = False
lblTCTexture.Visible = False
End If
ElseIf Left$(cboType, 1) = "X" Then
lblPrimRate.Caption = "Rate:"
lblSand.Visible = False
txtSA.Visible = False
' lblSand.Caption = "Down:"
If gbytSECURITY = 1 Or gbytSECURITY = 10 Then
txtPrimRate.Visible = True
lblPrimRate.Visible = True
txtMetal.Visible = False
lblMetal.Visible = False
txtDA.Visible = False
lblDA.Visible = False
txtQU.Visible = False
lblQU.Visible = False
txtSM.Visible = False
lblSmooth.Visible = False
' txtSA.Visible = True
' lblSand.Visible = True
txtSB.Visible = False
lblSB.Visible = False
txtMN.Visible = False
lblMN.Visible = False
txtSCR.Visible = False
lblTCSCR.Visible = False
txtBRN.Visible = False
lblTCBRN.Visible = False
txtTEXTURE.Visible = False
lblTCTexture.Visible = False
End If
End If
lblCrewId.Caption = Field2Str(!CREW_ID)
txtCrewBoss = Field2Str(!Crew_Boss)
txtPhone = Field2Str(!phone)
txtEmpNo = Field2Str(!EmpNo)
txtPrimRate = Format(Field2Str2(!lath_skip), "#0.00")
txtMetal = Format(Field2Str2(!METAL), "#0.00#")
txtSA = Format(Field2Str2(!sand), "#0.00")
txtSM = Format(Field2Str2(!Smooth), "#0.00")
txtQU = Format(Field2Str2(!qu), "#0.00")
txtDA = Format(Field2Str2(!dash), "#0.00")
txtMN = Format(Field2Str2(!mn), "#0.00")
txtSB = Format(Field2Str2(!syn), "#0.00")
txtSCR = Format(Field2Str2(!scr), "#0.00")
txtBRN = Format(Field2Str2(!brn), "#0.00")
txtTEXTURE = Format(Field2Str2(!tex), "#0.00")
' txtPRRate = Format(Field2Str2(!PReg), "#0.00")
' txtPOTRate = Format(Field2Str2(!PReg), "#0.00")
' txtPRRate = Format(Field2Str2(!PReg), "#0.00")
' txtPRRate = Format(Field2Str2(!PReg), "#0.00")
txtProjDesc = "Default Pay Rates for This Crew"
chkINACTIVE = Field2CheckBox(!inactive)
' chkBiWeekly = Field2CheckBox(!BiWeekly)
End With
Exit Sub
Error_EH:
gstrMODULE = "FormCrews - Module FormShowCrew"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub FormClearC() ' ****Find Out Everwhere this sub is called
lblCrewId.Caption = ""
txtCrewBoss = ""
txtPhone = ""
txtEmpNo = ""
txtMetal = 0
txtPrimRate = 0
txtSA = 0
txtSM = 0
txtMN = 0
txtQU = 0
txtDA = 0
txtSB = 0
txtSCR = 0
txtBRN = 0
txtTEXTURE = 0
txtPRRate = 0
txtPOTRate = 0
txtTRRate = 0
txtTOTRate = 0
txtProjCode = ""
txtProjDesc = ""
chkINACTIVE = vbUnchecked
chkRateInactive = vbUnchecked
End Sub
Private Sub FormClearP() ' ****Find Out Everwhere this sub is called
' lblCrewId.Caption = ""
' txtCrewBoss = ""
' txtPhone = ""
' txtEmpNo = ""
txtMetal = 0
txtPrimRate = 0
txtSA = 0
txtSM = 0
txtMN = 0
txtQU = 0
txtDA = 0
txtSB = 0
txtSCR = 0
txtBRN = 0
txtTEXTURE = 0
txtPRRate = 0
txtPOTRate = 0
txtTRRate = 0
txtTOTRate = 0
txtProjCode = ""
txtProjDesc = ""
' chkINACTIVE = vbUnchecked
chkRateInactive = vbUnchecked
End Sub
Private Sub FormClear() ' ****Find Out Everwhere this sub is called
lblCrewId.Caption = ""
txtCrewBoss = ""
txtPhone = ""
txtEmpNo = ""
txtMetal = 0
txtPrimRate = 0
txtSA = 0
txtSM = 0
txtMN = 0
txtQU = 0
txtDA = 0
txtSB = 0
txtSCR = 0
txtBRN = 0
txtTEXTURE = 0
txtPRRate = 0
txtPOTRate = 0
txtTRRate = 0
txtTOTRate = 0
txtProjCode = ""
txtProjDesc = ""
chkINACTIVE = vbUnchecked
chkRateInactive = vbUnchecked
End Sub
Private Sub FieldsSave()
Dim strLOT As String, test As String
Dim oRSMAX As Recordset
Dim strSQL As String
On Error GoTo 0
' On Error GoTo Error_EH
With moRSCREW
!U_USER = gstrLOGIN
!Update = Date
!Crew_Boss = Str2Field(txtCrewBoss)
!phone = Str2Field(txtPhone)
!Type = Left$(Str2Field(cboType), 1)
!METAL = Str2Field(txtMetal)
!lath_skip = Str2Field(txtPrimRate)
!sand = Str2Field(txtSA)
!qu = Str2Field(txtQU)
!dash = Str2Field(txtDA)
!Smooth = Str2Field(txtSM)
!syn = Str2Field(txtSB)
!mn = Str2Field(txtMN)
!scr = Str2Field(txtSCR)
!brn = Str2Field(txtBRN)
!tex = Str2Field(txtTEXTURE)
!EmpNo = Format(Field2Str2(txtEmpNo), "0000000")
!inactive = chkINACTIVE
' !BiWeekly = chkBiWeekly
End With
' test = moRSCREW.EditMode
moRSCREW.Update
' Call CrewLoad
If mboolNEW Then
strSQL = "SELECT Max(CREW_ID) as MAXCrewID from tblCrew"
Set oRSMAX = New Recordset
oRSMAX.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly
mintNCREW = oRSMAX!maxCrewID
oRSMAX.Close
moRSPRATE.AddNew
moRSPRATE!C_USER = gstrLOGIN
moRSPRATE!Create = Date
moRSPRATE!PROJ_ID = 99999
moRSPRATE!Proj_Code = "BASIC"
moRSPRATE!Proj_Desc = "DEFAULT PAY RATE"
moRSPRATE!CREW_ID = mintNCREW
moRSPRATE!U_USER = gstrLOGIN
moRSPRATE!Update = Date
moRSPRATE!Crew_Boss = Str2Field(txtCrewBoss)
moRSPRATE!Type = Left$(Str2Field(cboType), 1)
moRSPRATE!METAL = Str2Field(txtMetal)
moRSPRATE!lath_skip = Str2Field(txtPrimRate)
moRSPRATE!sand = Str2Field(txtSA)
moRSPRATE!qu = Str2Field(txtQU)
moRSPRATE!dash = Str2Field(txtDA)
moRSPRATE!Smooth = Str2Field(txtSM)
moRSPRATE!syn = Str2Field(txtSB)
moRSPRATE!mn = Str2Field(txtMN)
moRSPRATE!scr = Str2Field(txtSCR)
moRSPRATE!brn = Str2Field(txtBRN)
moRSPRATE!tex = Str2Field(txtTEXTURE)
moRSPRATE!EmpNo = Format(Field2Str2(txtEmpNo), "0000000")
moRSPRATE!inactive = chkRateInactive
moRSPRATE.Update
End If
If mboolAdding Then
Call CrewLoad
If FormFindCrew() Then
Call FormShowCrew
End If
Else
Call CrewLoad
End If
Exit Sub
Error_EH:
If Err.Number = -2147467259 Then
MsgBox "Duplicate Lot Record - This will not be saved - ReEnter", , "Duplicate Record"
Resume Next
End If
gstrMODULE = "FormCrews - Module FieldsSave"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub FieldsSaveP()
Dim strLOT As String, test As String
On Error GoTo 0
' On Error GoTo Error_EH
' If mboolNEW Then
' moRSPRATE.AddNew
' moRSPRATE!C_USER = gstrLOGIN
' moRSPRATE!Create = Date
' moRSPRATE!PROJ_ID = 99999
' moRSPRATE!PROJ_CODE = "BASIC"
' moRSPRATE!PROJ_DESC = "DEFAULT PAY RATE"
' moRSPRATE!CREW_ID = mintNCREW
' End If
With moRSPRATE
!U_USER = gstrLOGIN
!Update = Date
!Crew_Boss = Str2Field(txtCrewBoss)
' !phone = Str2Field(txtPhone)
!Type = Left$(Str2Field(cboType), 1)
!METAL = Str2Field(txtMetal)
!lath_skip = Str2Field(txtPrimRate)
!sand = Str2Field(txtSA)
!qu = Str2Field(txtQU)
!dash = Str2Field(txtDA)
!Smooth = Str2Field(txtSM)
!syn = Str2Field(txtSB)
!mn = Str2Field(txtMN)
!scr = Str2Field(txtSCR)
!brn = Str2Field(txtBRN)
!tex = Str2Field(txtTEXTURE)
!EmpNo = Format(Field2Str2(txtEmpNo), "0000000")
!inactive = chkRateInactive
' !EMPNO = Format(Field2Str2(txtEmpNo), "0000000")
' !inactive = chkINACTIVE
' !BiWeekly = chkBiWeekly
End With
' test = moRSCREW.EditMode
moRSPRATE.Update
Call ProjLoad
If mboolAdding Then
Call ProjLoad
If FormFindProj() Then
Call FormShowProj
End If
End If
Exit Sub
Error_EH:
If Err.Number = -2147467259 Then
MsgBox "Duplicate Rate Record - This will not be saved - ReEnter", , "Duplicate Record"
Resume Next
End If
gstrMODULE = "FormCrews - Module FieldsSaveP"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub FormSave()
Dim strName As String
On Error GoTo Error_EH
If mboolAdding Then
moRSCREW.AddNew
moRSCREW!C_USER = gstrLOGIN
End If
' Store the controls to the recordset
Call FieldsSave
If mboolAdding Then
mboolAdding = False
End If
If mboolNEW Then
mboolNEW = False
End If
Exit Sub
Error_EH:
Call ErrorHandler(moRSCREW.ActiveConnection)
Exit Sub
End Sub
Private Sub FormSave2()
Dim strName As String
On Error GoTo Error_EH
' If mboolAdding Then
' moRSCREW.AddNew
' moRSCREW!C_USER = gstrLOGIN
' End If
' Store the controls to the recordset
Call FieldsSaveP
' If mboolAdding Then
' mboolAdding = False
' End If
Exit Sub
Error_EH:
Call ErrorHandler(moRSPRATE.ActiveConnection)
Exit Sub
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 moRSCREW.State = adStateOpen Then
moRSCREW.Close
End If
Exit Sub
Error_EH:
If Err = 3219 Then
Resume Next
End If
End Sub
Private Sub lstCProj_DblClick()
Dim strSQL As String, oRS As Recordset, intBOOKMARK As Integer
Dim strPROJID As String, strPROJCODE As String, strPROJDESC As String
On Error GoTo Error_EH
strSQL = "SELECT * FROM tblCREWRATE"
Set oRS = New Recordset
oRS.Open strSQL, goConn, adOpenDynamic, adLockOptimistic
lstCProj.col = 1
strPROJCODE = lstCProj.ColText
lstCProj.col = 0
strPROJID = lstCProj.ColText
lstCProj.col = 3
strPROJDESC = lstCProj.ColText
If Not oRS.EOF Then
oRS.AddNew
oRS!CREW_ID = Field2Str2(moRSCREW!CREW_ID)
oRS!Crew_Boss = Field2Str(moRSCREW!Crew_Boss)
oRS!Type = Field2Str(moRSCREW!Type)
oRS!METAL = 0
oRS!lath_skip = 0
oRS!sand = 0
oRS!Smooth = 0
oRS!mn = 0
oRS!dash = 0
oRS!syn = 0
oRS!qu = 0
oRS!scr = 0
oRS!brn = 0
oRS!tex = 0
' oRS!METAL = Field2Str2(moRSCREW!METAL)
' oRS!lath_skip = Field2Str(moRSCREW!lath_skip)
' oRS!sand = Field2Str2(moRSCREW!sand)
' oRS!Smooth = Field2Str2(moRSCREW!Smooth)
' oRS!mn = Field2Str2(moRSCREW!mn)
' oRS!dash = Field2Str2(moRSCREW!dash)
' oRS!syn = Field2Str2(moRSCREW!syn)
' oRS!qu = Field2Str2(moRSCREW!qu)
oRS!Current = Field2Str(moRSCREW!Current)
oRS!EmpNo = Field2Str2(moRSCREW!EmpNo)
oRS!Create = Date
oRS!C_USER = gstrLOGIN
oRS!PROJ_ID = strPROJID
oRS!Proj_Code = strPROJCODE
oRS!Proj_Desc = strPROJDESC
oRS.Update
End If
intBOOKMARK = lstProj.ListIndex
Call ProjLoad
lstProj.ListIndex = intBOOKMARK
Exit Sub
Error_EH:
If Err = -2147467259 Then
MsgBox "This Project Is A Duplicate For This Crew - Select Again", vbOKOnly, "Duplicate Project"
' oRS.Close
Exit Sub
End If
gstrMODULE = "Form Crews - Module lstCrew_Click"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub lstCrew_Click()
On Error GoTo Error_EH
If lstCrew.ListIndex <> -1 Then
If FormFindCrew() Then
Call FormShowCrew
mintCREW = lstCrew.ItemData(lstCrew.ListIndex)
' If mboolHOURLY Then
' chkHrly.BackColor = &H8080FF
' Else
' chkHrly.BackColor = &H8000000F
' End If
Call ProjLoad
Else
lstCrew.Clear
Call FormClear
End If
End If
Exit Sub
Error_EH:
gstrMODULE = "Form Crews - Module lstCrew_Click"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub lstCrew_DblClick()
' txtBegDate = ""
' txtEndDate = ""
cmdAdd.Enabled = True
' cmdAdd.Enabled = False
cmdAddProj.Enabled = False
' cmdPrint.Enabled = True
cmdSave.Enabled = True
cmdSave2.Enabled = False
' lblPrintInfo.Visible = True
' lblBegDate.Visible = True
' lblEndDate.Visible = True
' txtBegDate.Visible = True
' txtEndDate.Visible = True
txtCrewBoss.SetFocus
End Sub
Private Sub lstProj_Click()
On Error GoTo Error_EH
If lstProj.ListIndex <> -1 Then
If FormFindProj() Then
Call FormShowProj
' mintCREW = lstProj.ItemData(lstProj.ListIndex)
Else
lstProj.Clear
Call FormClearP
End If
End If
Exit Sub
Error_EH:
gstrMODULE = "Form Crews - Module lstProj_Click"
Call ErrorHandler2
gstrMODULE = ""
Exit Sub
End Sub
Private Sub lstProj_DblClick()
' txtBegDate = ""
' txtEndDate = ""
' cmdAddProj.Enabled = False
cmdAddProj.Enabled = True
cmdDelProj.Enabled = True
cmdSave2.Enabled = True
cmdSave.Enabled = False
cmdAdd.Enabled = False
txtMetal.Enabled = True
txtPrimRate.Enabled = True
txtSA.Enabled = True
txtSM.Enabled = True
txtMN.Enabled = True
txtQU.Enabled = True
txtDA.Enabled = True
txtSB.Enabled = True
' txtProjCode = ""
' txtProjDesc = ""
' lblPrintInfo.Visible = True
' lblBegDate.Visible = True
' lblEndDate.Visible = True
' txtBegDate.Visible = True
' txtEndDate.Visible = True
' txtCrewBoss.SetFocus
txtPrimRate.SetFocus
End Sub
Private Sub txtCrewBoss_GotFocus()
Call FieldSelect(txtCrewBoss)
End Sub
Private Sub txtCrewBoss_LostFocus()
txtCrewBoss = UCase(txtCrewBoss)
End Sub
Private Sub txtDA_GotFocus()
Call FieldSelect(txtDA)
End Sub
Private Sub txtEmpNo_GotFocus()
Call FieldSelect(txtEmpNo)
End Sub
Private Sub txtMetal_GotFocus()
Call FieldSelect(txtMetal)
End Sub
Private Sub txtMN_GotFocus()
Call FieldSelect(txtMN)
End Sub
Private Sub txtPhone_GotFocus()
Call FieldSelect(txtPhone)
End Sub
Private Sub txtPrimRate_GotFocus()
Call FieldSelect(txtPrimRate)
End Sub
Private Sub txtQU_GotFocus()
Call FieldSelect(txtQU)
End Sub
Private Sub txtSA_GotFocus()
Call FieldSelect(txtSA)
End Sub
Private Sub txtSB_GotFocus()
Call FieldSelect(txtSB)
End Sub
Private Sub txtSM_GotFocus()
Call FieldSelect(txtSM)
End Sub
'Private Sub PrintPay()
'Dim strDate As String, strSQL As String, intSUP As Integer
'Dim oRS As Recordset, intYN As Integer
'Dim strSELECT As String
'Dim strBegDate As String, strEndDate As String
'Dim intBYear As String, intBMonth As String, intBDay As String
'Dim intEYear As String, intEMonth As String, intEDay As String
' On Error GoTo Error_EH
' gboolPRINT = True
' intYN = MsgBox("Do You Want To Print to the Printer?", vbYesNo, "Window or Printer")
' If gboolPRINT Then
' intBYear = Mid(txtBegDate, 7, 4)
' intBDay = Format(Mid(txtBegDate, 4, 2), "00")
' intBMonth = Format(Mid(txtBegDate, 1, 2), "00")
' intEYear = Mid(txtEndDate, 7, 4)
' intEDay = Format(Mid(txtEndDate, 4, 2), "00")
' intEMonth = Format(Mid(txtEndDate, 1, 2), "00")
' crCrew.ReportFileName = App.Path & "\CrewPayByDate.rpt"
' crCrew.Formulas(3) = "Z_BegDate = Date(" & intBYear & "," & intBMonth & "," & intBDay & ")"
' crCrew.Formulas(4) = "Z_Crew = " & mintCREW
' crCrew.Formulas(5) = "Z_EndDate = Date(" & intEYear & "," & intEMonth & "," & intEDay & ")"
' If intYN = vbYes Then
' crCrew.Destination = crptToPrinter
' Else
' crCrew.Destination = crptToWindow
' End If
' crCrew.Action = 1
' gboolPRINT = False
' End If
' Exit Sub
'Error_EH:
' gstrMODULE = "Form Crew - Module PrintPay"
' Call ErrorHandler2
' gstrMODULE = ""
' Exit Sub
'End Sub
Reference in New Issue View Git Blame Copy Permalink