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