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 frmPaySheet Caption = "Pay Sheet Information" ClientHeight = 6435 ClientLeft = 165 ClientTop = 735 ClientWidth = 8310 KeyPreview = -1 'True LinkTopic = "Form1" ScaleHeight = 6435 ScaleWidth = 8310 StartUpPosition = 3 'Windows Default Visible = 0 'False Begin LpLib.fpList lstPayInfo Height = 1620 Left = 120 TabIndex = 71 Top = 480 Width = 5055 _Version = 196608 _ExtentX = 8916 _ExtentY = 2857 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 = 0 'False BackColor = -2147483643 ForeColor = -2147483640 Columns = 7 Sorted = 0 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= 0 'False 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 = "frmPaySheet.frx":0000 End Begin VB.CommandButton cmdCREW Appearance = 0 'Flat Caption = "CREW" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1095 Left = 7905 TabIndex = 70 Top = 3075 Visible = 0 'False Width = 360 End Begin VB.TextBox txtIWYds BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 7050 TabIndex = 65 Top = 600 Width = 750 End Begin VB.TextBox txtWrapYds Alignment = 1 'Right Justify BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 6210 TabIndex = 64 Top = 600 Width = 750 End Begin VB.CheckBox chkBC Caption = "B/C" Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 7050 TabIndex = 63 Top = 3135 Width = 975 End Begin VB.CheckBox chkPaid Alignment = 1 'Right Justify BackColor = &H00FFFF00& Caption = "PaySheet Paid" Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 3300 TabIndex = 62 Top = 2220 Visible = 0 'False Width = 1695 End Begin VB.TextBox txtNotes Enabled = 0 'False Height = 915 Left = 1035 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 22 Top = 5490 Width = 7215 End Begin VB.TextBox txtMDesc Enabled = 0 'False Height = 375 Left = 1035 MaxLength = 40 TabIndex = 21 Top = 5070 Width = 5505 End Begin VB.CheckBox chkInvalid BackColor = &H0080FFFF& Caption = "Invalid PaySheet" Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 255 Left = 5670 TabIndex = 59 Top = 3855 Visible = 0 'False Width = 2175 End Begin VB.TextBox txtIFrames BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 7050 TabIndex = 56 Top = 2775 Width = 750 End Begin VB.TextBox txtFrames Alignment = 1 'Right Justify BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 6210 TabIndex = 55 Top = 2775 Width = 750 End Begin VB.TextBox txtIStYds BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 7050 TabIndex = 54 Top = 1695 Width = 750 End Begin VB.TextBox txtStYds Alignment = 1 'Right Justify BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 6210 TabIndex = 53 Top = 1695 Width = 750 End Begin VB.TextBox txtMDollars BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 7050 TabIndex = 51 Top = 3495 Width = 750 End Begin VB.TextBox txtIStone BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 7050 TabIndex = 49 Top = 2415 Width = 750 End Begin VB.TextBox txtICMU BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 7050 TabIndex = 48 Top = 2055 Width = 750 End Begin VB.TextBox txtIMetal BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 7050 TabIndex = 47 Top = 1335 Width = 750 End Begin VB.TextBox txtILYds BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 7050 TabIndex = 46 Top = 975 Width = 750 End Begin VB.TextBox txtLathYds Alignment = 1 'Right Justify BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 6210 TabIndex = 39 Top = 975 Width = 750 End Begin VB.TextBox txtMetalFt Alignment = 1 'Right Justify BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 6210 TabIndex = 38 Top = 1335 Width = 750 End Begin VB.TextBox txtCMUYds Alignment = 1 'Right Justify BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 6210 TabIndex = 37 Top = 2055 Width = 750 End Begin VB.TextBox txtMatYds Alignment = 1 'Right Justify BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 6210 TabIndex = 36 Top = 3135 Width = 750 End Begin VB.TextBox txtStone Alignment = 1 'Right Justify BackColor = &H0080FFFF& Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 6210 TabIndex = 35 Top = 2415 Width = 750 End Begin VB.TextBox txtFtMetal Height = 315 Left = 1020 TabIndex = 20 Top = 3240 Width = 1695 End Begin VB.TextBox txtYdge Height = 315 Left = 1020 TabIndex = 19 Top = 2880 Width = 1695 End Begin VB.ComboBox cboType Height = 315 ItemData = "frmPaySheet.frx":04E4 Left = 1020 List = "frmPaySheet.frx":0503 Style = 2 'Dropdown List TabIndex = 17 Top = 2160 Width = 1695 End Begin VB.CommandButton cmdSave Caption = "&Save" Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 Left = 6810 TabIndex = 24 Top = 4215 Width = 1455 End Begin VB.CommandButton cmdAddPS Caption = "&Add" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 Left = 5310 TabIndex = 3 Top = 4215 Width = 1455 End Begin VB.CommandButton cmdRePrint Caption = "Re&Print" Enabled = 0 'False BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 Left = 5310 TabIndex = 2 Top = 4665 Width = 1455 End Begin VB.CommandButton cmdExit Caption = "E&xit" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 Left = 6810 TabIndex = 1 Top = 4665 Width = 1455 End Begin LpLib.fpCombo cboWorkType Height = 315 Left = 1020 TabIndex = 18 Top = 2520 Width = 2115 _Version = 196608 _ExtentX = 3731 _ExtentY = 556 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 Text = "" Columns = 3 Sorted = 1 SelDrawFocusRect= -1 'True ColumnSeparatorChar= 9 ColumnSearch = 1 ColumnWidthScale= 2 RowHeight = -1 WrapList = 0 'False WrapWidth = 0 AutoSearch = 2 SearchMethod = 1 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 DataFieldList = "" ColumnEdit = -1 ColumnBound = -1 Style = 2 MaxDrop = 8 ListWidth = -1 EditHeight = -1 GrayAreaColor = -2147483633 ListLeftOffset = 0 ComboGap = -2 MaxEditLen = 150 VirtualPageSize = 0 VirtualPagesAhead= 0 ExtendCol = 0 ColumnLevels = 1 ListGrayAreaColor= -2147483637 GroupHeaderHeight= -1 GroupHeaderShow = 0 'False AllowGrpResize = 0 AllowGrpDragDrop= 0 MergeAdjustView = 0 'False ColumnHeaderShow= 0 'False ColumnHeaderHeight= -1 GrpsFrozen = 0 BorderGrayAreaColor= -2147483637 ExtendRow = 0 EnableClickEvent= -1 'True ListPosition = 0 ButtonThreeDAppearance= 0 OLEDragMode = 0 OLEDropMode = 0 Redraw = -1 'True AutoSearchFill = 0 'False AutoSearchFillDelay= 500 EditMarginLeft = 1 EditMarginTop = 1 EditMarginRight = 0 EditMarginBottom= 3 ResizeRowToFont = 0 'False TextTipMultiLine= 0 AutoMenu = -1 'True EditAlignH = 0 EditAlignV = 0 ColDesigner = "frmPaySheet.frx":0559 End Begin Crystal.CrystalReport crPAY Left = 7830 Top = 30 _ExtentX = 741 _ExtentY = 741 _Version = 348160 WindowState = 2 PrintFileLinesPerPage= 60 End Begin VB.Label Label5 Caption = "Crew" Height = 180 Left = 3765 TabIndex = 76 Top = 285 Width = 750 End Begin VB.Label Label4 Caption = "Metal" Height = 180 Left = 1980 TabIndex = 75 Top = 285 Width = 630 End Begin VB.Label Label3 Caption = "Yrds" Height = 180 Left = 1320 TabIndex = 74 Top = 285 Width = 480 End Begin VB.Label Label2 Caption = "Wrk" Height = 180 Left = 705 TabIndex = 73 Top = 285 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Typ" Height = 180 Left = 195 TabIndex = 72 Top = 285 Width = 390 End Begin VB.Label lblTexture BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 5220 TabIndex = 69 Top = 3810 Width = 390 End Begin VB.Label lblA Caption = "A" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Left = 7965 TabIndex = 68 Top = 120 Width = 225 End Begin VB.Label lblUpPntPay BackColor = &H0080FFFF& Caption = "Paint Pay Updated" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 240 Left = 6630 TabIndex = 67 Top = 5190 Visible = 0 'False Width = 1635 End Begin VB.Label lblWrap AutoSize = -1 'True Caption = "Wrap Yds:" Height = 195 Left = 5430 TabIndex = 66 Top = 630 Width = 750 End Begin VB.Label lblNotes Alignment = 1 'Right Justify Caption = "PaySheet Notes:" Height = 435 Left = 195 TabIndex = 61 Top = 5550 Width = 795 End Begin VB.Label lblMDesc Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Pay Desc." Height = 195 Left = 255 TabIndex = 60 Top = 5130 Width = 735 End Begin VB.Label txtWorkType Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Work Type:" Height = 195 Left = 120 TabIndex = 58 Top = 2580 Width = 840 End Begin VB.Label lblScaf Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Frames:" Height = 195 Left = 5625 TabIndex = 57 Top = 2835 Width = 555 End Begin VB.Label lblStucco Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Stucco Yds:" Height = 195 Left = 5310 TabIndex = 52 Top = 1755 Width = 870 End Begin VB.Label lblMisc Alignment = 1 'Right Justify Caption = "Misc. Pay Dollars" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 5370 TabIndex = 50 Top = 3555 Width = 1575 End Begin VB.Label lblOrder Alignment = 2 'Center Caption = "Orders / Issued" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 6180 TabIndex = 45 Top = 360 Width = 1575 End Begin VB.Label lblLath Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Lath Yds:" Height = 195 Left = 5505 TabIndex = 44 Top = 1035 Width = 675 End Begin VB.Label lblMetalLI Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Metal Ft:" Height = 195 Left = 5565 TabIndex = 43 Top = 1395 Width = 615 End Begin VB.Label lblCMU Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "CMU Yds:" Height = 195 Left = 5460 TabIndex = 42 Top = 2115 Width = 720 End Begin VB.Label lblMaterial Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Material Yds:" Height = 195 Left = 5265 TabIndex = 41 Top = 3195 Width = 915 End Begin VB.Label lblStone Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Stone SqFt:" Height = 195 Left = 5340 TabIndex = 40 Top = 2475 Width = 840 End Begin VB.Label txtCrewName BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 1860 TabIndex = 34 Top = 4680 Width = 3255 End Begin VB.Label txtCrew BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 1020 TabIndex = 33 Top = 4680 Width = 795 End Begin VB.Label txtMetal BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 1020 TabIndex = 32 Top = 4320 Width = 1695 End Begin VB.Label txtYRate BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 1020 TabIndex = 31 Top = 3945 Width = 1695 End Begin VB.Label txtAmount BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 1020 TabIndex = 30 Top = 3600 Width = 1695 End Begin VB.Label txtRPDate BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 3960 TabIndex = 29 Top = 4320 Width = 1155 End Begin VB.Label txtRPId BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 3960 TabIndex = 28 Top = 3960 Width = 1155 End Begin VB.Label txtCDate BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 3960 TabIndex = 27 Top = 3600 Width = 1155 End Begin VB.Label txtLogin BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 3960 TabIndex = 26 Top = 3240 Width = 1155 End Begin VB.Label txtRPCount BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 3960 TabIndex = 25 Top = 2880 Width = 1155 End Begin VB.Label txtPSNum BackColor = &H0080FFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 4155 TabIndex = 23 Top = 2505 Width = 1155 End Begin VB.Label lblRPCount Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Reprint Count:" Height = 195 Left = 2895 TabIndex = 16 Top = 2940 Width = 1020 End Begin VB.Label lblRPDate Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Date RePrinted:" Height = 195 Left = 2775 TabIndex = 15 Top = 4380 Width = 1140 End Begin VB.Label lblReprint Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "RePrinted By:" Height = 195 Left = 2940 TabIndex = 14 Top = 4020 Width = 975 End Begin VB.Label lblCDate Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Date Created:" Height = 195 Left = 2925 TabIndex = 13 Top = 3660 Width = 990 End Begin VB.Label lblCreate Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "CreatedBy:" Height = 195 Left = 3135 TabIndex = 12 Top = 3300 Width = 780 End Begin VB.Label lblPSNum Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Pay Sheet #:" Height = 195 Left = 3180 TabIndex = 11 Top = 2565 Width = 930 End Begin VB.Label lblCrew Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Crew:" Height = 195 Left = 585 TabIndex = 10 Top = 4740 Width = 405 End Begin VB.Label lblMRate Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Metal Rate:" Height = 195 Left = 165 TabIndex = 9 Top = 4380 Width = 825 End Begin VB.Label lblYRage Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Rate/Yard:" Height = 195 Left = 195 TabIndex = 8 Top = 4020 Width = 795 End Begin VB.Label lblAmt Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Amt. Paid:" Height = 195 Left = 270 TabIndex = 7 Top = 3660 Width = 720 End Begin VB.Label lblMetal Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Metal Ft:" Height = 195 Left = 375 TabIndex = 6 Top = 3300 Width = 615 End Begin VB.Label lblYardge Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Yardage:" Height = 195 Left = 345 TabIndex = 5 Top = 2940 Width = 645 End Begin VB.Label lblType Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Crew Type:" Height = 195 Left = 180 TabIndex = 4 Top = 2220 Width = 810 End Begin VB.Label lblPSheet Caption = "Pay Sheets for " BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 0 Top = 15 Width = 7035 End Begin VB.Menu mnuExit Caption = "Exit" End Begin VB.Menu mnuHelp Caption = "Help" End End Attribute VB_Name = "frmPaySheet" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim mintCREW As Integer, mstrCREW As String, mlngLOTID As Long Dim moRS As Recordset, moRSProj As Recordset, mboolAdding As Boolean Dim mlngTIME As Long, mboolPRINT As Boolean, mboolSTOP As Boolean Dim moRSPay As Recordset, moRSCREW As Recordset, mstrType As String Dim mboolOVERRIDE As Boolean, mstrPROJLOT As String, mboolPULTE As Boolean Dim mstrWDone As String, mstrWTYPE As String, mstrWPayType Dim mstrYdRate As String, mstrMetal As String, mboolNOCREW As Boolean, mboolBADCREW As Boolean Dim mintBOOKMARK As Integer, mstrCTYPE As String, mintPAYCREW As Integer, mboolNoPrint As Boolean Private Sub UpCrew() Dim oRS As Recordset Call PayLoad End Sub Private Sub SetInvalid() Dim intBOOKMARK As Integer Dim intYARDS As Integer, intMETAL As Integer If chkInvalid Then MsgBox "This PaySheet has already been marked Invalid", vbOKOnly, "Invalid Option" Exit Sub End If intBOOKMARK = lstPayInfo.ListIndex If Not chkPaid = vbChecked Then moRSPay!invalid = vbChecked moRSPay.Update If moRSPay!Type = "S" Then If moRSPay!worktype = "C" Or moRSPay!worktype = "P" Then intYARDS = Field2Str2(moRS!pystucco) moRS!pystucco = intYARDS - Int(Field2Long(moRSPay!pay_ydge)) moRS.Update End If End If If moRSPay!Type = "L" Then If moRSPay!worktype = "C" Or moRSPay!worktype = "P" Then intYARDS = Field2Str2(moRS!pylath) intMETAL = Field2Str2(moRS!pmetal) moRS!pmetal = intMETAL - Field2Integer(moRSPay!METAL) moRS!pylath = intYARDS - Field2Integer(moRSPay!pay_ydge) moRS.Update End If End If If moRSPay!worktype = "W" Or moRSPay!worktype = "R" Or moRSPay!worktype = "F" Or moRSPay!worktype = "U" Then intYARDS = Field2Str2(moRS!pmdollars) moRS!pmdollars = intYARDS - Field2Integer(moRSPay!pay_ydge) moRS.Update End If Call PayLoad Else MsgBox "This PaySheet Has Already Been Paid", vbOKOnly, "Already Paid" End If lstPayInfo.ListIndex = 0 lstPayInfo.ListIndex = intBOOKMARK End Sub Private Sub UpPaintPay() Dim intBOOKMARK As Integer Dim intYARDS As Integer, intMETAL As Integer Dim strWTYPE As String ' If chkInvalid Then ' MsgBox "This PaySheet has already been marked Invalid", vbOKOnly, "Invalid Option" ' Exit Sub ' End If intBOOKMARK = lstPayInfo.ListIndex cboWorkType.col = 1 strWTYPE = cboWorkType.ColText If strWTYPE = "PREP" Then moRS!PREPL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "PINT" Then moRS!PINTL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "PEXT" Then moRS!PEXTL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "IS" Then moRS!ISL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "ES" Then moRS!ESL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "2T" Then moRS!TwoTL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "OH" Then moRS!OHL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "FS" Then moRS!FSL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "F2" Then moRS!F2L = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "FG1" Then moRS!FG1L = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "FG2" Then moRS!FG2L = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "CC" Then moRS!CCL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "BT1" Then moRS!BT1L = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "BT2" Then moRS!BT2L = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "PO" Then moRS!POL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "CS" Then moRS!CSL = vbTrue moRS.Update lblUpPntPay.Visible = True ElseIf strWTYPE = "WH" Then moRS!WHL = vbTrue moRS.Update lblUpPntPay.Visible = True End If ' If Not chkPaid = vbChecked Then ' moRSPay!invalid = vbChecked ' moRSPay.Update ' If moRSPay!Type = "S" Then ' If moRSPay!worktype = "C" Or moRSPay!worktype = "P" Then ' intYARDS = Field2Str2(moRS!pystucco) ' moRS!pystucco = intYARDS - Int(Field2Long(moRSPay!pay_ydge)) ' moRS.Update ' End If ' End If ' If moRSPay!Type = "L" Then ' If moRSPay!worktype = "C" Or moRSPay!worktype = "P" Then ' intYARDS = Field2Str2(moRS!pylath) ' intMETAL = Field2Str2(moRS!pmetal) ' moRS!pmetal = intMETAL - Field2Integer(moRSPay!METAL) ' moRS!pylath = intYARDS - Field2Integer(moRSPay!pay_ydge) ' moRS.Update ' End If ' End If ' If moRSPay!worktype = "W" Or moRSPay!worktype = "R" Or moRSPay!worktype = "F" Or moRSPay!worktype = "U" Then ' intYARDS = Field2Str2(moRS!pmdollars) ' moRS!pmdollars = intYARDS - Field2Integer(moRSPay!pay_ydge) ' moRS.Update ' End If Call PayLoad ' Else ' MsgBox "This PaySheet Has Already Been Paid", vbOKOnly, "Already Paid" ' End If lstPayInfo.ListIndex = intBOOKMARK End Sub Private Sub cboType_LostFocus() Dim strTYPE As String If cboType.ListIndex > -1 Then strTYPE = Left(Str2Field(cboType.Text), 1) End If If strTYPE = "L" Then 'Or strTYPE = "R" Or strTYPE = "W" Then txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 Else txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF End If End Sub Private Sub WTLoad() Dim oRS As Recordset, strSQL As String Dim strID As String, strWT As String, strWTYPE As String cboWorkType.Clear strSQL = "SELECT * FROM tblCBOWorkType" Set oRS = New Recordset oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly If Not oRS.EOF Then Do Until oRS.EOF strID = (oRS!WTID) strWT = (oRS!WTCode) strWTYPE = (oRS!worktype) cboWorkType.AddItem strID & vbTab & strWT & vbTab & strWTYPE ' & vbTab & Format(strPHONE, "(###) ###-####") & vbTab & Format(strFAX, "(###) ###-####") oRS.MoveNext Loop End If If cboWorkType.ListCount Then cboWorkType.ListIndex = 0 Else cboWorkType.ListIndex = -1 End If End Sub Private Sub cboWorkType_LostFocus() Dim strTYPE As String, strWTYPE As String, strMSG As String strTYPE = Left(Str2Field(cboType), 1) mstrType = strTYPE If cboWorkType.ListIndex > -1 Then cboWorkType.col = 1 strWTYPE = cboWorkType.ColText ' strWTYPE = Left(Str2Field(cboWorkType), 1) mstrWTYPE = strWTYPE End If If strTYPE = "S" Then If strWTYPE = "Y" Or strWTYPE = "Z" Then ' If strWTYPE = "C" Or strWTYPE = "P" Or strWTYPE = "Y" Or strWTYPE = "Z" Then ' or strqtype="W" or strwtype = "F" or strwtypeThen MsgBox "Invalid Work Type has been selected, Select a valid worktype", vbOKOnly, "Invalid WorkType" cboWorkType.SetFocus Exit Sub End If If strWTYPE = "W" Or strWTYPE = "F" Or strWTYPE = "U" Or strWTYPE = "R" Then ' lblyardage.Caption = "Pay Amount" lblYardge.Caption = "Pay Amount" txtMDesc.Enabled = True txtNotes.Enabled = True End If ElseIf strTYPE = "L" Then If strWTYPE = "B" Or strWTYPE = "T" Or strWTYPE = "Y" Or strWTYPE = "Z" Or _ strWTYPE = "S" Or strWTYPE = "F" Or strWTYPE = "U" Then MsgBox "Invalid Work Type has been selected, Select a valid worktype", vbOKOnly, "Invalid WorkType" cboWorkType.SetFocus Exit Sub End If If strWTYPE = "W" Or strWTYPE = "F" Or strWTYPE = "U" Or strWTYPE = "R" Then ' lblyardage.Caption = "Pay Amount" lblYardge.Caption = "Pay Amount" txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF txtMDesc.Enabled = True txtNotes.Enabled = True End If '**** start here ' ElseIf strTYPE = "L" Then ' If strWTYPE = "B" Or strWTYPE = "T" Or strWTYPE = "Y" Or strWTYPE = "Z" Or _ ' strWTYPE = "S" Or strWTYPE = "F" Or strWTYPE = "U" Then ' MsgBox "Invalid Work Type has been selected, Select a valid worktype", vbOKOnly, "Invalid WorkType" ' cboWorkType.SetFocus ' Exit Sub ' End If ElseIf strTYPE = "V" Then If strWTYPE <> "C" And strWTYPE <> "W" Then MsgBox "Invalid Work Type has been selected, Select a valid worktype", vbOKOnly, "Invalid WorkType" cboWorkType.SetFocus Exit Sub End If If strWTYPE = "C" Then lblYardge.Caption = "Sq Feet" txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF End If If strWTYPE = "W" Then lblYardge.Caption = "Pay Amount" txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF txtMDesc.Enabled = True txtNotes.Enabled = True End If ElseIf strTYPE = "Y" Then If strWTYPE = "F" Or strWTYPE = "U" Or strWTYPE = "R" Or strWTYPE = "S" Or strWTYPE = "P" Or strWTYPE = "C" Or strWTYPE = "Y" Or strWTYPE = "Z" Then strMSG = "Invalid Work Type has been selected. Only 'T', 'B' or 'W' are allowed, Select a valid worktype" MsgBox strMSG, vbOKOnly, "Invalid WorkType" cboWorkType.SetFocus Exit Sub End If If strWTYPE = "B" Or strWTYPE = "T" Then ' lblYardge.Caption = "Sq Feet" txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF End If If strWTYPE = "W" Then lblYardge.Caption = "Pay Amount" txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF txtMDesc.Enabled = True txtNotes.Enabled = True End If ElseIf strTYPE = "C" Then If strWTYPE = "F" Or strWTYPE = "U" Or strWTYPE = "R" Or strWTYPE = "S" Or strWTYPE = "P" Or strWTYPE = "C" Or strWTYPE = "B" Or strWTYPE = "T" Then MsgBox "Invalid Work Type has been selected. Only 'Y', 'Z' or 'W' are allowed. Select a valid worktype", vbOKOnly, "Invalid WorkType" cboWorkType.SetFocus Exit Sub End If If strWTYPE = "Y" Or strWTYPE = "Z" Then lblYardge.Caption = "Frames" txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF End If If strWTYPE = "W" Then lblYardge.Caption = "Pay Amount" txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF txtMDesc.Enabled = True txtNotes.Enabled = True End If End If End Sub Private Sub cmdCREW_Click() Dim intCREW As Integer, strTYPE As String mintBOOKMARK = lstPayInfo.ListIndex lstPayInfo.col = 1 strTYPE = lstPayInfo.ColText If strTYPE = "W" Then strTYPE = "L" End If If moRSPay!paid Then MsgBox "This Pay Sheet Has Already Been Paid - Cannot Make Changes", vbOKOnly, "No Changes Allowed" cmdCREW.Visible = False mboolBADCREW = True Exit Sub End If intCREW = InputBox("Enter The Crew Number For This PaySheet", "PaySheet Crew", 0) mintPAYCREW = intCREW If Not IsNumeric(intCREW) Then MsgBox "Invalid Crew Entered - Must Be A Number Only", vbOKOnly, "Invalid Crew" mboolBADCREW = True Exit Sub End If mintCREW = intCREW Call GetCrew If mstrCTYPE <> strTYPE Then MsgBox "The Crew Type Is Incorrect - Enter A Different Crew", vbOKOnly, "Incorrect Crew Type" lstPayInfo.ListIndex = mintBOOKMARK cmdCREW.Visible = False mboolBADCREW = True Exit Sub End If Call CalcPay moRSPay!crewID = intCREW moRSPay.Update ' Call UpCrew 'This needs to be finished so it will load the crew lstPayInfo.ListIndex = mintBOOKMARK cmdCREW.Visible = False End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub LotLoad() Dim strSQL As String, strSql2 As String strSQL = "SELECT * FROM tblLotInfo where lot_id = " & gintLOTID Set moRS = New Recordset moRS.Open strSQL, goConn, adOpenDynamic, adLockOptimistic End Sub Private Sub ProjLoad() Dim strSQL As String strSQL = "SELECT * FROM tblProject where proj_id = " & gintPROJID Set moRSProj = New Recordset moRSProj.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly If Not moRSProj.EOF Then If moRSProj!cont_id = 146 Or moRSProj!cont_id = 864 Then mboolPULTE = True Else mboolPULTE = False End If End If End Sub Private Sub PayLoad() Dim oRS As Recordset Dim strSQL As String, boolBOOKMARK As Boolean Dim strLine As String, intBOOKMARK As Integer boolBOOKMARK = False ' strSQL = "SELECT idnum, lot_id, pay_type, workdone, pct_done, paydt, crew from tblTime WHERE lot_id =" & gintLOTID strSQL = "SELECT * from tblPaySheet WHERE lotid =" & gintLOTID Set oRS = New Recordset oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly If lstPayInfo.ListCount > 0 Then boolBOOKMARK = True intBOOKMARK = lstPayInfo.ListIndex End If lstPayInfo.Clear Do Until oRS.EOF With lstPayInfo mintCREW = Field2Integer(oRS!crewID) Call GetCrew strLine = Field2Long(oRS!payid) & vbTab & oRS!Type & vbTab & oRS!worktype & vbTab & oRS!pay_ydge & vbTab & IIf(oRS!METAL = 0, "", oRS!METAL) strLine = strLine & vbTab & IIf(oRS!paid, "Paid", (IIf(oRS!invalid, "InValid", (IIf(oRS!bc, "B/C", "Not Paid"))))) If oRS!paid Then strLine = strLine & vbTab & oRS!crewID & vbTab & mstrCREW End If .AddItem strLine ' .ItemData(.NewIndex) = Field2Long(oRS!payid) End With oRS.MoveNext Loop oRS.Close If lstPayInfo.ListCount Then If boolBOOKMARK Then lstPayInfo.ListIndex = intBOOKMARK boolBOOKMARK = False Else lstPayInfo.ListIndex = 0 End If Else strSQL = "SELECT * FROM tblPaySheet WHERE payid = 10" Set moRSPay = New Recordset moRSPay.Open strSQL, goConn, adOpenDynamic, adLockOptimistic End If End Sub Private Sub PayLoad2() Dim oRS As Recordset Dim strSQL As String Dim strLine As String, intBOOKMARK As Integer Dim lngRET As Long, aTabs(4) As Long aTabs(0) = 25 aTabs(1) = 50 aTabs(2) = 90 aTabs(3) = 150 aTabs(4) = 200 On Error Resume Next intBOOKMARK = lstPayInfo.ListIndex ' strSQL = "SELECT idnum, lot_id, pay_type, workdone, pct_done, paydt, crew from tblTime WHERE lot_id =" & gintLOTID strSQL = "SELECT * from tblPaySheet WHERE lotid =" & gintLOTID Set oRS = New Recordset oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly lngRET = SendMessage(lstPayInfo.hwnd, LB_SETTABSTOPS, 5, aTabs(0)) lstPayInfo.Clear Do Until oRS.EOF With lstPayInfo mintCREW = Field2Integer(oRS!crewID) Call GetCrew strLine = oRS!Type & vbTab & oRS!worktype & vbTab & oRS!pay_ydge & vbTab & IIf(oRS!METAL = 0, "", oRS!METAL) strLine = strLine & vbTab & IIf(oRS!paid, "Paid", (IIf(oRS!invalid, "InValid", (IIf(oRS!bc, "B/C", "Not Paid"))))) If oRS!paid Then strLine = strLine & vbTab & oRS!crewID & vbTab & mstrCREW End If .AddItem strLine .ItemData(.NewIndex) = Field2Long(oRS!payid) End With oRS.MoveNext Loop oRS.Close lstPayInfo.ListIndex = intBOOKMARK ' If lstPayInfo.ListCount Then ' lstPayInfo.ListIndex = 0 ' Else ' strSQL = "SELECT * FROM tblPaySheet WHERE payid = 10" ' Set moRSPay = New Recordset ' moRSPay.Open strSQL, goConn, adOpenDynamic, adLockOptimistic ' End If End Sub Private Sub GetCrew() Dim oRS As Recordset, strCTYPE As String Dim strSQL As String, lngFind As Long strSQL = "SELECT * from tblcrewrate WHERE not inactive and Proj_ID = " & gintPROJID & " and crew_id = " & mintCREW Set moRSCREW = New Recordset moRSCREW.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly If moRSCREW.EOF Then strSQL = "SELECT * from tblcrewrate WHERE not inactive and Proj_ID = 99999 and crew_id = " & mintCREW Set moRSCREW = New Recordset moRSCREW.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly End If If Not moRSCREW.EOF Then mstrCTYPE = Field2Str(moRSCREW!Type) mstrCREW = moRSCREW!Crew_Boss mboolNOCREW = False 'if moRSCREW ' mstrYdRate = moRSCREW!Lath_Skip ' mstrMetal = moRSCREW!Metal 'End If Else mstrCREW = "" mboolNOCREW = True End If ' moRSCREW.Close End Sub Private Sub GetCrewHold() Dim oRS As Recordset Dim strSQL As String, lngFind As Long strSQL = "SELECT * from tblcrewrate WHERE not inactive and Proj_ID = " & gintPROJID & " and crew_id = " & mintCREW Set oRS = New Recordset oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly If oRS.EOF Then strSQL = "SELECT * from tblcrewrate WHERE not inactive and Proj_ID = 99999 and crew_id = " & mintCREW Set oRS = New Recordset oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly End If If Not oRS.EOF Then mstrCREW = oRS!Crew_Boss 'if ors mstrYdRate = oRS!lath_skip mstrMetal = oRS!METAL 'End If Else mstrCREW = "" End If oRS.Close End Sub Private Sub cmdRePrint_Click() Dim strTYPE As String, strREPORT As String, intCOUNT As Integer Dim strSQL As String, i As Integer, intPAYCREW As Integer Dim intTOTAL As Integer, intYDS As Integer Dim strWORK As String, intResponse As Integer, strREPRINT As String On Error GoTo Error_EH mboolBADCREW = False If moRSPay!paid Then MsgBox "This PaySheet Has Already Been Paid, RePrint Not Allowed", vbOKOnly, "RePrint Not Allowed" cmdRePrint.Enabled = False cmdAddPS.Enabled = True Exit Sub End If gintCOPY = 1 strTYPE = Left(Str2Field(cboType.Text), 1) cboWorkType.col = 1 strWORK = cboWorkType.ColText ' strWORK = Left(Str2Field(cboWorkType.Text), 1) If strTYPE = "S" Then If strWORK = "C" Or strWORK = "P" Then ' intPAYCREW = InputBox("Enter The Crew Number", "Crew Number", 0) Call cmdCREW_Click If Not mboolBADCREW Then moRSPay!crewID = mintPAYCREW moRSPay.Update strREPORT = App.Path & "\RPstuccopay.rpt" Call LotChange(mstrPROJLOT, "STC Paysheet RePrint") ' Exit Sub End If ElseIf strWORK = "S" Then intPAYCREW = InputBox("Enter The Crew Number", "Crew Number", 0) moRSPay!crewID = intPAYCREW moRSPay.Update strREPORT = App.Path & "\RPstuccopayS.rpt" Call LotChange(mstrPROJLOT, "STC Paysheet RePrint") ElseIf strWORK = "B" Then intPAYCREW = InputBox("Enter The Crew Number", "Crew Number", 0) moRSPay!crewID = intPAYCREW moRSPay.Update strREPORT = App.Path & "\RPstuccopayB.rpt" Call LotChange(mstrPROJLOT, "STC Paysheet RePrint") ElseIf strWORK = "T" Then intPAYCREW = InputBox("Enter The Crew Number", "Crew Number", 0) moRSPay!crewID = intPAYCREW moRSPay.Update strREPORT = App.Path & "\RPstuccopayT.rpt" Call LotChange(mstrPROJLOT, "STC Paysheet RePrint") Else strREPORT = App.Path & "\RPPOpay.rpt" Call LotChange(mstrPROJLOT, "STC Paysheet RePrint") End If ElseIf strTYPE = "L" Then If strWORK = "C" Or strWORK = "P" Then Call cmdCREW_Click ' intPAYCREW = InputBox("Enter The Crew Number", "Crew Number", 0) If Not mboolBADCREW Then moRSPay!crewID = mintPAYCREW moRSPay.Update strREPORT = App.Path & "\RPLathpay.rpt" Call LotChange(mstrPROJLOT, "LA Paysheet RePrint") ' Exit Sub End If Else strREPORT = App.Path & "\RPPOpay.rpt" Call LotChange(mstrPROJLOT, "LA Paysheet RePrint") End If ElseIf strTYPE = "W" Then If strWORK = "C" Or strWORK = "P" Or strWORK = "A" Then Call cmdCREW_Click ' intPAYCREW = InputBox("Enter The Crew Number", "Crew Number", 0) If Not mboolBADCREW Then moRSPay!crewID = mintPAYCREW moRSPay.Update strREPORT = App.Path & "\RPWrapPay.rpt" Call LotChange(mstrPROJLOT, "WP Paysheet RePrint") ' Exit Sub End If ' Else ' strREPORT = App.Path & "\RPPOpay.rpt" ' Call LotChange(mstrPROJLOT, "LA Paysheet RePrint") End If ElseIf strTYPE = "V" Then If strWORK = "C" Or strWORK = "P" Then MsgBox "No PaySheet Defined", vbOKOnly, "No Report" Call LotChange(mstrPROJLOT, "STN Paysheet RePrint") Else strREPORT = App.Path & "\RPPOpay.rpt" Call LotChange(mstrPROJLOT, "STN Paysheet RePrint") End If ElseIf strTYPE = "C" Then If strWORK = "Y" Or strWORK = "Z" Then strREPORT = App.Path & "\RPScaffoldpay.rpt" Call LotChange(mstrPROJLOT, "SCF Paysheet RePrint") Else strREPORT = App.Path & "\RPPOpay.rpt" Call LotChange(mstrPROJLOT, "SCF Paysheet RePrint") End If ElseIf strTYPE = "Y" Then If strWORK = "B" Then intPAYCREW = InputBox("Enter The Crew Number", "Crew Number", 0) moRSPay!crewID = intPAYCREW moRSPay.Update strREPORT = App.Path & "\RPSYNpayB.rpt" Call LotChange(mstrPROJLOT, "SYN Paysheet RePrint") ElseIf strWORK = "T" Then intPAYCREW = InputBox("Enter The Crew Number", "Crew Number", 0) moRSPay!crewID = intPAYCREW moRSPay.Update strREPORT = App.Path & "\RPSYNpayT.rpt" Call LotChange(mstrPROJLOT, "SYN Paysheet RePrint") Else strREPORT = App.Path & "\RPPOpay.rpt" Call LotChange(mstrPROJLOT, "SYN Paysheet RePrint") End If ElseIf strTYPE = "X" Then strREPORT = App.Path & "\RPPaintPay3.rpt" strREPRINT = "PAINT " & strWORK & " Paysheet RePrint" Call LotChange(mstrPROJLOT, strREPRINT) '' Call LotChange(mstrPROJLOT, "PAINT Paysheet RePrint") '' MsgBox "No Pay Sheet Reprint Setup For Paint", vbOKOnly, "Not Set Up" '' cmdRePrint.Enabled = False '' cmdAddPS.Enabled = True '' Exit Sub ' If strWORK = "B" Or strWORK = "T" Then ' strREPORT = App.Path & "\RPSYNpay.rpt" ' Call LotChange(mstrPROJLOT, "SYN Paysheet RePrint") ' Else ' strREPORT = App.Path & "\RPPOpay.rpt" ' Call LotChange(mstrPROJLOT, "SYN Paysheet RePrint") ' End If End If If Not mboolBADCREW Then If Field2Str2(txtAmount) = 0 Then If txtYRate = ".00" Then End If dblAmt = (Field2Str2(txtYdge) * Field2Str2(txtYRate)) + (Field2Str2(txtMetal) * Field2Str2(txtFtMetal)) txtAmount = Format(Round(dblAmt, 2), "#,#.00") moRSPay!Amt = txtAmount moRSPay!GROSSPAY = txtAmount moRSPay.Update End If intResponse = MsgBox("Do You Want To Print To The Printer?", vbQuestion + vbYesNo, "Print to Printer") ' intRESPONSE = InputBox("Do You Want To Print To The Printer?", "Print to Printer") If intResponse = vbYes Then crPAY.Destination = crptToPrinter Else crPAY.Destination = crptToWindow End If strSQL = "{tblPAYSHEET.payid} = " & gintPAYID crPAY.ReportFileName = strREPORT crPAY.ReplaceSelectionFormula (strSQL) ' crPAY.SelectionFormula = (strSQL) crPAY.CopiesToPrinter = gintCOPY 'crpay. ' crPAY.Destination = crptToWindow ' crpay.Destination = crptToPrinter crPAY.Action = 1 intCOUNT = Field2Integer(moRSPay!rpcount) intCOUNT = intCOUNT + 1 If moRSPay!printed = False Then moRSPay!printed = True End If moRSPay!rpcount = intCOUNT moRSPay!rpdate = Date moRSPay!RPUSER = gstrLOGIN moRSPay.Update ' Exit Sub End If cmdRePrint.Enabled = False cmdAddPS.Enabled = True Exit Sub Error_EH: gstrMODULE = "Form Payroll - Module cmdRePrint" Call ErrorHandler2 gstrMODULE = "" Exit Sub End Sub Private Sub cmdSave_Click() mboolSTOP = False Call AddPay If Not mboolSTOP Then Call FormSave lstPayInfo.Enabled = True cmdSave.Enabled = False cmdAddPS.Enabled = True cmdExit.Enabled = True txtMDesc.Enabled = False txtNotes.Enabled = False gintPAYID = FindMax("tblPaySHeet", "payid") If Not mboolNoPrint Then Call PrintPay End If chkBC.Enabled = False Else cboType.SetFocus End If mboolNoPrint = False ' Call PrintPay End Sub Private Sub PrintPay() Dim strSQL As String, strTYPE As String, strWTYPE As String Dim intResponse As Integer strTYPE = mstrType strWTYPE = mstrWTYPE If strTYPE = "S" Then If strWTYPE = "W" Or strWTYPE = "R" Or strWTYPE = "F" Or strWTYPE = "U" Then crPAY.ReportFileName = App.Path & "\PSPOpay.rpt" Else crPAY.ReportFileName = App.Path & "\PSStuccopay.rpt" End If ElseIf strTYPE = "L" Then If strWTYPE = "W" Or strWTYPE = "R" Then crPAY.ReportFileName = App.Path & "\PSPOpay.rpt" Else crPAY.ReportFileName = App.Path & "\PSLathpay.rpt" End If ElseIf strTYPE = "V" Then If strWTYPE = "W" Or strWTYPE = "R" Then crPAY.ReportFileName = App.Path & "\PSPOpay.rpt" Else crPAY.ReportFileName = App.Path & "\PSStonepay.rpt" End If ElseIf strTYPE = "Y" Then If strWTYPE = "W" Or strWTYPE = "R" Then crPAY.ReportFileName = App.Path & "\PSPOpay.rpt" Else crPAY.ReportFileName = App.Path & "\PSSynPay.rpt" End If ElseIf strTYPE = "C" Then If strWTYPE = "W" Or strWTYPE = "R" Then crPAY.ReportFileName = App.Path & "\PSPOpay.rpt" Else crPAY.ReportFileName = App.Path & "\PSScaffoldpay.rpt" End If End If If intResponse = vbYes Then crPAY.Destination = crptToPrinter Else crPAY.Destination = crptToWindow End If gintCOPY = 2 strSQL = "{tblPaySheet.PayId} = " & gintPAYID ' crPAY.ReportFileName = App.Path & "\PSLathpay.rpt" crPAY.ReplaceSelectionFormula (strSQL) crPAY.CopiesToPrinter = gintCOPY ' crPAY.Destination = crptToWindow ' crPAY.Destination = crptToPrinter ' crPAY.Formulas(1) = "PaySheetCount = " & i ' crPAY.Formulas(3) = "PaySheetX = 'PARTIAL PAY SHEET'" ' crPAY.CopiesToPrinter = gintCOPY ' / 2 crPAY.CopiesToPrinter = 1 crPAY.Action = 1 End Sub Private Sub Form_Activate() Dim intResponse As Integer If Not mboolOVERRIDE Then If lstPayInfo.ListCount = 0 Then intResponse = MsgBox("No Payroll Information, do you wish to add some?", vbYesNo + vbQuestion, "Add Records") If intResponse = vbYes Then Call cmdAddPS_Click strSQL = "SELECT * FROM tblPaySheet WHERE payid = 10" Set moRSPay = New Recordset moRSPay.Open strSQL, goConn, adOpenDynamic, adLockOptimistic If moRSPay.EOF Then End If Else Unload Me End If End If End If If chkLOOK Then mboolLOOK = True End If ' If chkLook Then If mboolLOOK Then ' cmdSavePay.Enabled = False ' cmdDelPay.Enabled = False ' cmdAddPay.Enabled = False ' cmdFindCrew.Visible = False ' txtPercentDone.Enabled = False ' txtVerify.Enabled = False ' txtCrewNo.Enabled = False ' txtPayDate.Enabled = False ' txtCheckNo.Enabled = False ' txtPayAmt.Enabled = False ' txtNotes.Enabled = False ' txtOffice.Enabled = False cboType.Enabled = False ' cboType.Enabled = False ' txtCrewName.Enabled = False End If End Sub Private Sub mnuHelp_Click() Dim strHELP As String strHELP = "Ctrl-B Mark Paysheet as InValid" & vbCrLf strHELP = "Ctrl-T Update Pay Sheet Texture To Match LotInfo Texture" strHELP = strHELP & "Ctrl-A Save New Yardage" & vbCrLf strHELP = strHELP & "Ctrl-M Update Paint SqFtge" & vbCrLf strHELP = strHELP & "Ctrl-F Update Stone SqFtge" & vbCrLf strHELP = strHELP & "Ctrl-O Override" & vbCrLf strHELP = strHELP & "Ctrl-W Update The Pay Crew For Highlighted Pay Sheet" & vbCrLf strHELP = strHELP & "Ctrl-Q Mark PaySheet as PAID" & vbCrLf strHELP = strHELP & "Ctrl-1 Fix Pay Rate 1 for Highlighted Pay Sheet" & vbCrLf strHELP = strHELP & "Ctrl-2 Fix Pay Rate 2 for Highlighted Pay Sheet" & vbCrLf strHELP = strHELP & "Ctrl-3 Calc New Pay Sheet Total" & vbCrLf strHELP = strHELP & "Ctrl-N Allow Edit Of Pay Desc & Pay Sheet Notes" MsgBox strHELP, vbOKOnly, "Hot Keys" End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim ShiftDown, AltDown, CtrlDown Dim lngLOTID As Long, intCREW As Integer Dim strSQL As String, oRT As Recordset, strTEX As String 'Dim txtYRate As String, lngLOTID As Long, intCREW As Integer Dim txtRATE1 As String, txtRATE2 As String 'B Mark Paysheet as InValid 'T Change PaySheet Texture To Match LotInfo Texture 'A Save New Yardage 'M Update Paint SqFtge 'F Update Stone SqFtge 'O Override 'W Show The Crew KEY to Update The Pay Crew For Highlighted Pay Sheet 'Q Mark PaySheet as PAID 'Ctrl-1 Fix Pay Rate 1 for Highlighted Pay Sheet 'Ctrl-2 Fix Pay Rate 2 for Highlighted Pay Sheet 'Ctrl-3 Calc New Pay Sheet Total 'N Turn on the SAVE button and activate the txtPayDesc and txtNotes fields If Shift = 4 Then Exit Sub End If ShiftDown = (Shift And vbShiftMask) > 0 AltDown = (vbAltMask) > 0 ' AltDown = (Shift And vbAltMask) > 0 CtrlDown = (Shift And vbCtrlMask) > 0 If KeyCode = vbKeyB Then ' Mark the Pay Sheet as invalid ' If KeyCode = vbKeyV And gbytSECURITY < 3 Then ' Display key combinations. If CtrlDown Then If moRSPay!paid Then MsgBox "This PaySheet Has Already Been Paid, Set Invalid Not Allowed", vbOKOnly, "Set Invalid Not Allowed" cmdRePrint.Enabled = False cmdAddPS.Enabled = True Exit Sub End If Call SetInvalid Call PayLoad End If ' Call PayLoad ' Call PayLoad2 Exit Sub End If If KeyCode = vbKeyN And gbytSECURITY < 3 Then ' Mark the Pay Sheet as invalid ' If KeyCode = vbKeyV And gbytSECURITY < 3 Then ' Display key combinations. If CtrlDown Then ' lstPayInfo.col = 0 ' strPAYID = lstPayInfo.ColText txtMDesc.Enabled = True txtNotes.Enabled = True mboolNoPrint = True cmdSave.Enabled = True End If ' Call PayLoad ' Call PayLoad2 Exit Sub End If If KeyCode = vbKey1 And gbytSECURITY < 3 Then ' Fix Pay Rate 1 ' If KeyCode = vbKeyV And gbytSECURITY < 3 Then ' Display key combinations. If CtrlDown Then txtRATE1 = InputBox("Enter The Corrected Pay Rate1", "Pay Rate 1") txtYRate = txtRATE1 moRSPay!Y_Rate = Field2Str2(txtRATE1) If moRSPay.EOF Then End If moRSPay.Update End If Exit Sub End If If KeyCode = vbKey2 And gbytSECURITY < 3 Then ' Fix Pay Rate 2 ' If KeyCode = vbKeyV And gbytSECURITY < 3 Then ' Display key combinations. If CtrlDown Then txtRATE2 = InputBox("Enter The Corrected Pay Rate2", "Pay Rate 2") txtMetal = txtRATE2 moRSPay!M_Rate = Field2Str2(txtRATE2) If moRSPay.EOF Then End If moRSPay.Update End If Exit Sub End If If KeyCode = vbKey3 And gbytSECURITY < 3 Then ' Fix Pay TOTAL ' If KeyCode = vbKeyV And gbytSECURITY < 3 Then ' Display key combinations. If CtrlDown Then dblAmt = (Field2Str2(txtYdge) * Field2Str2(txtYRate)) + (Field2Str2(txtMetal) * Field2Str2(txtFtMetal)) txtAmount = Format(Round(dblAmt, 2), "#,#.00") moRSPay!Amt = txtAmount moRSPay!GROSSPAY = txtAmount If moRSPay.EOF Then End If moRSPay.Update End If Exit Sub End If If KeyCode = vbKeyQ And gbytSECURITY < 3 Then ' Mark the Pay Sheet as Paid or not Paid ' If KeyCode = vbKeyQ Then ' Mark the Pay Sheet as invalid ' If KeyCode = vbKeyV And gbytSECURITY < 3 Then ' Display key combinations. If CtrlDown Then If moRSPay!paid = True Then moRSPay!paid = False moRSPay.Update Else moRSPay!paid = True moRSPay.Update End If mintBOOKMARK = lstPayInfo.ListIndex Call PayLoad lstPayInfo.ListIndex = mintBOOKMARK End If Exit Sub End If If KeyCode = vbKeyW And gbytSECURITY < 3 Then ' Update The Crew For The Highlighted Pay Sheet If CtrlDown Then ' intCREW = InputBox("Enter The Crew Number For This PaySheet", "PaySheet Crew", 0) ' If Not IsNumeric(intCREW) Then ' MsgBox "Invalid Crew Entered - Must Be A Number Only", vbOKOnly, "Invalid Crew" ' Exit Sub ' End If ' moRSPay!crewID = intCREW ' moRSPay.Update ' Call UpCrew ' lstPayInfo.ListIndex = mintBOOKMARK ' End If cmdCREW.Visible = True End If Exit Sub End If If KeyCode = vbKeyA Then ' Save New Yardage ' If KeyCode = vbKeyV And gbytSECURITY < 3 Then ' Display key combinations. If CtrlDown Then lngLOTID = gintLOTID If moRSPay!Type = "L" Then moRS!l_yds = Integer2Field(txtYdge) End If If moRSPay!Type = "S" Then moRS!s_yds = Integer2Field(txtYdge) End If moRS.Update moRSPay!pay_ydge = Integer2Field(txtYdge) moRSPay.Update Call PayLoad End If ' Call PayLoad ' Call PayLoad2 Exit Sub End If ' If KeyCode = vbKeyA Then ' Save New Yardage If KeyCode = vbKeyT And gbytSECURITY < 3 Then ' Change PaySheet Texture To Match LotInfo Texture If CtrlDown Then lngLOTID = gintLOTID strTEX = Field2Str(moRS!texture) moRSPay!texture = strTEX moRSPay.Update End If Exit Sub End If If KeyCode = vbKeyM Then ' Mark the Pay Sheet as duplicate ' If KeyCode = vbKeyV And gbytSECURITY < 3 Then ' Display key combinations. If CtrlDown Then Call UpPaintPay End If Exit Sub End If If KeyCode = vbKeyO Then ' Display key combinations. ' If KeyCode = vbKeyV And gbytSECURITY < 3 Then ' Display key combinations. If CtrlDown Then mboolOVERRIDE = True Call LotChange(mstrPROJLOT, "Paysheet OVERRIDE") End If Exit Sub End If If KeyCode = vbKeyF Then ' Display key combinations. ' If KeyCode = vbKeyV And gbytSECURITY < 3 Then ' Display key combinations. If CtrlDown Then txtYRate = InputBox("Enter the Correct Stone Sq. Footage For This Lot", "New Rate", 0#) Call LotChange(mstrPROJLOT, "Correct Stone SqFt") moRS!ST_SQFT = Field2Str2(txtYRate) moRS.Update txtStone = txtYRate End If Exit Sub End If ' If Not cmdSave.Enabled Then ' cmdSave.Enabled = True ' End If End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{TAB}" KeyAscii = 0 End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim intResponse As Integer, strMSG As String On Error GoTo Error_EH If cmdSavePay.Enabled Then strMSG = "Data Has Been Changed" strMSG = strMSG & Chr(13) & Chr(10) strMSG = strMSG & "Save Changes ?" intResponse = MsgBox(strMSG, vbQuestion + vbYesNoCancel, Me.Caption) Select Case intResponse Case vbYes Call cmdSave_Click Case vbNo Case vbCancel Cancel = True End Select End If If moRS.State = adStateOpen Then moRS.Close End If If moRSPay.State = adStateOpen Then moRSPay.Close End If Exit Sub Error_EH: If Err = 3219 Then Resume Next End If End Sub Private Sub Form_Load() ' Set moRS = New Recordset ' Set moRSProj = New Recordset If gbytSECURITY = 1 Then ' cmdDelPay.Enabled = True End If Call WTLoad Call ProjLoad Call LotLoad mstrPROJLOT = moRSProj!Proj_Code & " " & moRSProj!Proj_Desc & " " & moRS!lot_no ' lblPSheet = "Pay Sheets for " & Trim$(moRSProj!proj_desc) & " Lot # " & Trim$(moRS!lot_no) Call PayLoad mboolOVERRIDE = False ' If lstPayInfo.ListCount Then ' If FormFind() Then ' Call FormShow ' End If ' End If End Sub Private Function FormFind() As Boolean Dim strSQL As String, strPlan As String strSQL = "SELECT * FROM tblPaySheet WHERE payid = " & mlngTIME Set moRSPay = New Recordset moRSPay.Open strSQL, goConn, adOpenKeyset, adLockPessimistic If moRSPay.EOF Then FormFind = False Else FormFind = True End If End Function Private Sub FormClear() txtCDate = "" txtLogin = "" txtRPDate = "" txtRPId = "" txtRPCount = "" txtPSNum = "" txtYdge = "" txtFtMetal = "" txtYRate = "" txtMetal = "" txtCrew = "" txtCrewName = "" txtAmount = "" txtNotes = "" txtMDesc = "" chkBC = vbUnchecked chkPaid = vbUnchecked chkPaid.Visible = False chkInvalid = vbUnchecked chkInvalid.Visible = False cboType.ListIndex = -1 cboWorkType.ListIndex = -1 End Sub Private Sub FormSave() Dim strName As String On Error GoTo Error_EH mboolSTOP = False If mboolAdding Then moRSPay.AddNew End If ' Store the controls to the recordset Call FieldsSave If mboolSTOP = True Then Exit Sub End If moRSPay.Update If mboolAdding Then mboolAdding = False mboolPRINT = True End If mboolOVERRIDE = False Exit Sub Error_EH: Call ErrorHandler(moRSPay.ActiveConnection) Exit Sub End Sub Private Sub FormShow() Dim strWTYPE As String, strDONE As String ', boolTEST As Boolean Dim intLoop As Integer, strSTR As String, intLEN As Integer, dblAmt As Double mboolSHOW = True ' boolTEST = mboolNOCREW ' txtProjLot = Trim$(moRSProj!proj_code) & " " & moRS!lot_no txtWrapYds = Format((Field2Integer(moRS!l_yds)), "##,###") txtLathYds = Format((Field2Integer(moRS!l_yds)), "##,###") txtStYds = Format((Field2Integer(moRS!s_yds)), "##,###") ' txtLathYds = Format((Field2Integer(moRS!sq_yd) - 19), "##,###") ' txtStYds = Format((Field2Integer(moRS!s_yds) -24), "##,###") txtFrames = Format((Field2Integer(moRS!Scaf6) + Field2Integer(moRS!scaf10)), "##,###") txtCMUYds = Format(Field2Integer(moRS!CMU), "##,###") txtMatYds = Format(Field2Integer(moRS!sq_yd), "##,###") txtMetalFt = Format(Field2Long(moRS!METAL), "##,###") lblPSheet = "Pay Sheets for " & Trim$(moRSProj!Proj_Desc) & " Lot # " & Trim$(moRS!lot_no) & " " & Trim$(Field2Str(moRS!model)) ' txtModel = Field2Str(moRS!model) txtStone = Format(Field2Str(moRS!ST_SQFT), "##,###") txtIStone = Field2Str2(moRS!PMisc) With moRSPay If !paid Then chkPaid.Visible = True chkPaid = vbChecked Else chkPaid.Visible = False chkPaid = vbUnchecked End If If !invalid Then chkInvalid.Visible = True chkInvalid = vbChecked Else chkInvalid.Visible = False chkInvalid = vbUnchecked End If lblTexture = Field2Str(moRSPay!texture) chkBC = Field2CheckBox(!bc) txtCDate = FormatDateTime(Field2Str(!C_Date), 2) txtLogin = Field2Str(!Create) txtRPDate = Field2Str(!rpdate) txtRPId = Field2Str(!RPUSER) txtRPCount = Field2Str2(!rpcount) txtPSNum = Field2Str(!sheet) txtYdge = Format(Field2Str2(!pay_ydge), "##,###") ' txtAmount = Field2Str2(!amt) txtFtMetal = Format(Field2Str2(!METAL), "##,###") ' If !Y_Rate = 0 And txtYRate = 0 Then ' txtYRate = Field2Str2(!moRSCREWRATE!a) ' End If txtYRate = IIf(Field2Str2(!Y_Rate) > 0, Format(Field2Str2(!Y_Rate), "#.00"), ".00") txtMetal = IIf(Field2Str2(!M_Rate) > 0, Format(Field2Str2(!M_Rate), "#.00"), ".00") txtMDesc = Field2Str(!m_desc) txtCrew = Field2Integer(!crewID) mintCREW = Field2Integer(!crewID) txtNotes = Field2Str(!notes) Call GetCrew txtCrewName = mstrCREW ' txtPayDate = IIf(Field2Str(!prdate) = "12:00:00 AM", "", Field2Str(!prdate)) ' txtCheckNo = Field2Str(!prcheck) txtAmount = IIf(Field2Str2(!Amt) > 0, Format(Field2Str(!Amt), "##,###.00"), ".00") If !Type = "S" Then cboType.Text = "Stucco" txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF lblYardge = "Yardage:" ElseIf !Type = "L" Then txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 cboType.Text = "Lath" lblYardge = "Yardage:" ElseIf !Type = "V" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF cboType.Text = "V_Stone" lblYardge = "Sq. Feet:" ElseIf !Type = "Y" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF cboType.Text = "Y_Synthetic" lblYardge = "Yardage:" ElseIf !Type = "C" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF cboType.Text = "C_Scaffold" lblYardge = "Frames:" ElseIf !Type = "W" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF cboType.Text = "Wrap" lblYardge = "Yardage:" ElseIf !Type = "X" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF cboType.Text = "X_Paint" lblYardge = "SQ Feet:" End If '******* strWTYPE = Field2Str(!worktype) ' intLEN = Len(strWTYPE) For intLoop = 0 To cboWorkType.ListCount - 1 cboWorkType.ListIndex = (intLoop) cboWorkType.col = 1 strSTR = cboWorkType.ColText If Trim(UCase$(strSTR)) = Trim(UCase$(strWTYPE)) Then cboWorkType.ListIndex = intLoop intLoop = cboWorkType.ListCount Else cboWorkType.ListIndex = -1 End If Next intLoop If Not mboolNOCREW Then If !worktype = "B" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Brown" ElseIf !worktype = "A" Then If !Type = "W" Then txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 If Field2Str2(txtYRate) = 0 Then If mboolPULTE Then txtYRate = Field2Str2(moRSCREW!sand) '******************************************** moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) Else txtYRate = 0 moRSPay!Y_Rate = 0 End If ' If mboolPULTE Then ' txtYRate = moRSCREW!Smooth ' moRSPay!Y_Rate = moRSCREW!Smooth ' Else ' txtYRate = moRSCREW!lath_skip ' moRSPay!Y_Rate = moRSCREW!lath_skip ' End If txtMetal = Field2Str2(moRSCREW!METAL) moRSPay!M_Rate = Field2Str2(moRSCREW!METAL) moRSPay.Update End If End If ElseIf !worktype = "C" Then If !Type = "L" Then txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 If Field2Str2(txtYRate) = 0 Then If mboolPULTE Then txtYRate = Field2Str2(moRSCREW!Smooth) moRSPay!Y_Rate = Field2Str2(moRSCREW!Smooth) Else txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) End If txtMetal = Field2Str2(moRSCREW!METAL) moRSPay!M_Rate = Field2Str2(moRSCREW!METAL) moRSPay.Update End If ElseIf !Type = "S" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF If Field2Str2(txtYRate) = 0 Then If (lblTexture = "SK" Or lblTexture = "RL" Or lblTexture = "CS" Or lblTexture = "RS") Then txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) moRSPay.Update End If If (lblTexture = "SA" Or lblTexture = "S2" Or lblTexture = "S3" Or lblTexture = "S4" Or lblTexture = "RD") Then txtYRate = Field2Str2(moRSCREW!sand) moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "MN" Or lblTexture = "RM") Then txtYRate = Field2Str2(moRSCREW!mn) moRSPay!Y_Rate = Field2Str2(moRSCREW!mn) moRSPay.Update End If If (lblTexture = "DF" Or lblTexture = "SS" Or lblTexture = "RF") Then txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "M2" Or lblTexture = "M3" Or lblTexture = "MF") Then txtYRate = Field2Str2(moRSCREW!mn) moRSPay!Y_Rate = Field2Str2(moRSCREW!mn) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "DA") Then txtYRate = Field2Str2(moRSCREW!dash) moRSPay!Y_Rate = Field2Str2(moRSCREW!dash) moRSPay.Update End If If (lblTexture = "QU") Then txtYRate = Field2Str2(moRSCREW!qu) moRSPay!Y_Rate = Field2Str2(moRSCREW!qu) moRSPay.Update End If If (lblTexture = "SM") Then txtYRate = Field2Str2(moRSCREW!Smooth) moRSPay!Y_Rate = Field2Str2(moRSCREW!Smooth) moRSPay.Update End If If (lblTexture = "QS") Then txtYRate = Field2Str2(moRSCREW!qu) moRSPay!Y_Rate = Field2Str2(moRSCREW!qu) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "SC") Then txtYRate = Field2Str2(moRSCREW!sand) moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If End If ElseIf !Type = "V" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF If Field2Str2(txtYRate) = 0 Then txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) moRSPay.Update End If ElseIf !Type = "W" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' If Field2Str(txtYRate) = 0 Or txtYRate = "" Then If Field2Str2(txtYRate) = 0 Then If mboolPULTE Then txtYRate = Field2Str2(moRSCREW!sand) moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) Else txtYRate = 0 moRSPay!Y_Rate = 0 End If ' moRSPay!Y_Rate = moRSCREW!lath_skip moRSPay.Update End If Else txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF End If ' cboWorkType.Text = "Complete" '' ElseIf !worktype = "P" Then ' Many Need to Expand this so that it works with '' If !Type = "L" Then ' Multiple paysheet per type (Large Yardage or commercial) '' txtFtMetal.Enabled = True '' txtFtMetal.BackColor = &H80000005 '' Else '' txtFtMetal.Enabled = False '' txtFtMetal.BackColor = &H80FFFF '' End If ' cboWorkType.Text = "Partial" ElseIf !worktype = "T" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Texture" ElseIf !worktype = "S" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Scratch" ElseIf !worktype = "R" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Repair" lblYardge = "Pay Amount:" ' txtFtMetal.Enabled = False ElseIf !worktype = "W" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "WorkOrder/PO" lblYardge = "Pay Amount:" ElseIf !worktype = "F" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Fence" lblYardge = "Pay Amount:" ElseIf !worktype = "U" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "U_CMU" lblYardge = "Pay Amount:" ElseIf !worktype = "Y" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Y_UP" lblYardge = "Frames:" ElseIf !worktype = "Z" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Z_DOWN" lblYardge = "Frames:" Else ' cboWorkType.ListIndex = -1 End If End If If Field2Str2(txtAmount) = 0 Then dblAmt = (Field2Str2(txtYdge) * Field2Str2(txtYRate)) + (Field2Str2(txtMetal) * Field2Str2(txtFtMetal)) txtAmount = Format(Round(dblAmt, 2), "#,#.00") moRSPay!Amt = txtAmount moRSPay!GROSSPAY = txtAmount moRSPay.Update End If End With If mboolLOOK Then txtPercentDone.Enabled = False txtVerify.Enabled = False txtCrewNo.Enabled = False txtPayDate.Enabled = False txtCheckNo.Enabled = False txtPayAmt.Enabled = False txtNotes.Enabled = False txtOffice.Enabled = False cboType.Enabled = False End If txtIWYds = IIf(Field2Str2(moRS!WrapAmt) > 0, Format(Field2Str2(moRS!WrapAmt), "##,###"), "") txtILYds = IIf(Field2Str2(moRS!pylath) > 0, Format(Field2Str2(moRS!pylath), "##,###"), "") txtIStYds = IIf(Field2Str2(moRS!pystucco) > 0, Format(Field2Str2(moRS!pystucco), "##,###"), "") ' txtIFrames = IIf(Field2Str2(moRS!pylath) > 0, Format(Field2Str2(moRS!pylath), "##,###"), "") txtIMetal = IIf(Field2Str2(moRS!pmetal) > 0, Format(Field2Str2(moRS!pmetal), "##,###"), "") txtICMU = IIf(Field2Str2(moRS!pcmu) > 0, Format(Field2Str2(moRS!pcmu), "##,###"), "") ' txtMYds = IIf(Field2Str2(moRS!pmisc) > 0, Format(Field2Str2(moRS!pmisc), "##,###"), "") txtMDollars = IIf(Field2Str2(moRS!pmdollars) > 0, Format(Field2Str2(moRS!pmdollars), "##,###"), "") mboolSHOW = False End Sub Private Sub FormShowHold() Dim strWTYPE As String, strDONE As String Dim intLoop As Integer, strSTR As String, intLEN As Integer mboolSHOW = True ' txtProjLot = Trim$(moRSProj!proj_code) & " " & moRS!lot_no txtWrapYds = Format((Field2Integer(moRS!l_yds)), "##,###") txtLathYds = Format((Field2Integer(moRS!l_yds)), "##,###") txtStYds = Format((Field2Integer(moRS!s_yds)), "##,###") ' txtLathYds = Format((Field2Integer(moRS!sq_yd) - 19), "##,###") ' txtStYds = Format((Field2Integer(moRS!s_yds) -24), "##,###") txtFrames = Format((Field2Integer(moRS!Scaf6) + Field2Integer(moRS!scaf10)), "##,###") txtCMUYds = Format(Field2Integer(moRS!CMU), "##,###") txtMatYds = Format(Field2Integer(moRS!sq_yd), "##,###") txtMetalFt = Format(Field2Long(moRS!METAL), "##,###") lblPSheet = "Pay Sheets for " & Trim$(moRSProj!Proj_Desc) & " Lot # " & Trim$(moRS!lot_no) & " " & Trim$(Field2Str(moRS!model)) ' txtModel = Field2Str(moRS!model) txtStone = Format(Field2Str(moRS!ST_SQFT), "##,###") txtIStone = Field2Str2(moRS!PMisc) With moRSPay If !paid Then chkPaid.Visible = True chkPaid = vbChecked Else chkPaid.Visible = False chkPaid = vbUnchecked End If If !invalid Then chkInvalid.Visible = True chkInvalid = vbChecked Else chkInvalid.Visible = False chkInvalid = vbUnchecked End If lblTexture = moRSPay!texture chkBC = Field2CheckBox(!bc) txtCDate = FormatDateTime(Field2Str(!C_Date), 2) txtLogin = Field2Str(!Create) txtRPDate = Field2Str(!rpdate) txtRPId = Field2Str(!RPUSER) txtRPCount = Field2Str2(!rpcount) txtPSNum = Field2Str(!sheet) txtYdge = Format(Field2Str2(!pay_ydge), "##,###") ' txtAmount = Field2Str2(!amt) txtFtMetal = Format(Field2Str2(!METAL), "##,###") txtYRate = IIf(Field2Str2(!Y_Rate) > 0, Format(Field2Str2(!Y_Rate), "#.00"), "") txtMetal = IIf(Field2Str2(!M_Rate) > 0, Format(Field2Str2(!M_Rate), "#.00"), "") txtMDesc = Field2Str(!m_desc) txtCrew = Field2Integer(!crewID) mintCREW = Field2Integer(!crewID) txtNotes = Field2Str(!notes) Call GetCrew txtCrewName = mstrCREW ' txtPayDate = IIf(Field2Str(!prdate) = "12:00:00 AM", "", Field2Str(!prdate)) ' txtCheckNo = Field2Str(!prcheck) txtAmount = IIf(Field2Str2(!Amt) > 0, Format(Field2Str(!Amt), "##,###.00"), "") If !Type = "S" Then cboType.Text = "Stucco" txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF lblYardge = "Yardage:" ElseIf !Type = "L" Then txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 cboType.Text = "Lath" lblYardge = "Yardage:" ElseIf !Type = "V" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF cboType.Text = "V_Stone" lblYardge = "Sq. Feet:" ElseIf !Type = "Y" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF cboType.Text = "Y_Synthetic" lblYardge = "Yardage:" ElseIf !Type = "C" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF cboType.Text = "C_Scaffold" lblYardge = "Frames:" ElseIf !Type = "W" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF cboType.Text = "Wrap" lblYardge = "Yardage:" ElseIf !Type = "X" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF cboType.Text = "X_Paint" lblYardge = "SQ Feet:" End If '******* strWTYPE = Field2Str(!worktype) ' intLEN = Len(strWTYPE) For intLoop = 0 To cboWorkType.ListCount - 1 cboWorkType.ListIndex = (intLoop) cboWorkType.col = 1 strSTR = cboWorkType.ColText If Trim(UCase$(strSTR)) = Trim(UCase$(strWTYPE)) Then cboWorkType.ListIndex = intLoop intLoop = cboWorkType.ListCount Else cboWorkType.ListIndex = -1 End If Next intLoop If !worktype = "B" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Brown" ElseIf !worktype = "C" Then If !Type = "L" Then txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 Else txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF End If ' cboWorkType.Text = "Complete" ElseIf !worktype = "P" Then If !Type = "L" Then txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 Else txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF End If ' cboWorkType.Text = "Partial" ElseIf !worktype = "T" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Texture" ElseIf !worktype = "S" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Scratch" ElseIf !worktype = "R" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Repair" lblYardge = "Pay Amount:" ' txtFtMetal.Enabled = False ElseIf !worktype = "W" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "WorkOrder/PO" lblYardge = "Pay Amount:" ElseIf !worktype = "F" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Fence" lblYardge = "Pay Amount:" ElseIf !worktype = "U" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "U_CMU" lblYardge = "Pay Amount:" ElseIf !worktype = "Y" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Y_UP" lblYardge = "Frames:" ElseIf !worktype = "Z" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Z_DOWN" lblYardge = "Frames:" Else ' cboWorkType.ListIndex = -1 End If End With If mboolLOOK Then txtPercentDone.Enabled = False txtVerify.Enabled = False txtCrewNo.Enabled = False txtPayDate.Enabled = False txtCheckNo.Enabled = False txtPayAmt.Enabled = False txtNotes.Enabled = False txtOffice.Enabled = False cboType.Enabled = False End If txtIWYds = IIf(Field2Str2(moRS!WrapAmt) > 0, Format(Field2Str2(moRS!WrapAmt), "##,###"), "") txtILYds = IIf(Field2Str2(moRS!pylath) > 0, Format(Field2Str2(moRS!pylath), "##,###"), "") txtIStYds = IIf(Field2Str2(moRS!pystucco) > 0, Format(Field2Str2(moRS!pystucco), "##,###"), "") ' txtIFrames = IIf(Field2Str2(moRS!pylath) > 0, Format(Field2Str2(moRS!pylath), "##,###"), "") txtIMetal = IIf(Field2Str2(moRS!pmetal) > 0, Format(Field2Str2(moRS!pmetal), "##,###"), "") txtICMU = IIf(Field2Str2(moRS!pcmu) > 0, Format(Field2Str2(moRS!pcmu), "##,###"), "") ' txtMYds = IIf(Field2Str2(moRS!pmisc) > 0, Format(Field2Str2(moRS!pmisc), "##,###"), "") txtMDollars = IIf(Field2Str2(moRS!pmdollars) > 0, Format(Field2Str2(moRS!pmdollars), "##,###"), "") mboolSHOW = False End Sub Private Sub lstPayInfo_Click() Dim strPAYID As String lstPayInfo.col = 0 strPAYID = lstPayInfo.ColText If lstPayInfo.ListIndex <> -1 Then mlngTIME = Field2Long(strPAYID) gintPAYID = Field2Long(strPAYID) If FormFind() Then Call FormShow Else Call FormClear End If End If lblUpPntPay.Visible = False ' mintBOOKMARK = lstPayInfo.ListIndex End Sub Private Sub cmdAddPS_Click() Call FormClear lstPayInfo.Enabled = False ' txtVerify = Date cmdSave.Enabled = True cmdAddPS.Enabled = False ' cmdFindCrew.Visible = True mboolAdding = True chkBC.Enabled = True cboType.SetFocus End Sub Private Sub AddPay() Dim intLATH As Long, intSTUCCO As Long, intMETAL As Long, strTYPE As String Dim intPLATH As Long, intPSTUCCO As Long, intPMETAL As Long, strMSG As String Dim intPCMU As Long, intPSTONE As Long, intPDOLLARS As Long, intCALC As Long Dim intCLATH As Long, intCSTUCCO As Long, intCMETAL As Long, lngID As Long Dim strWTYPE As String, intSTONE As Long, intCSTONE As Long Dim intFRAMES As Long, intCFRAMES As Long, intPFRAMES As Long Dim strSQL As String, oRSM As Recordset strTYPE = Left(Str2Field(cboType.Text), 1) cboWorkType.col = 1 strWTYPE = cboWorkType.ColText ' strWTYPE = Left(Str2Field(cboWorkType.Text), 1) lngID = Field2Str2(moRS!Lot_ID) intLATH = Field2Str2(moRS!l_yds) intSTUCCO = Field2Str2(moRS!s_yds) intMETAL = Field2Str2(moRS!METAL) intSTONE = Field2Str2(moRS!ST_SQFT) intFRAMES = Field2Integer(moRS!Scaf6) + Field2Integer(moRS!scaf10) intPLATH = Field2Str2(moRS!pylath) intPSTUCCO = Field2Str2(moRS!pystucco) intPMETAL = Field2Str2(moRS!pmetal) intPCMU = Field2Str2(moRS!pcmu) intPSTONE = Field2Str2(moRS!PMisc) intPDOLLARS = Field2Str2(moRS!pmdollars) If strTYPE = "S" Then If strWTYPE = "C" Or strWTYPE = "P" Then intCSTUCCO = intPSTUCCO + Field2Str2(txtYdge) If Not mboolOVERRIDE Then If intCSTUCCO > intSTUCCO Then strMSG = CStr(intCSTUCCO) & " is greater than the " & CStr(intSTUCCO) & " yards allowed" MsgBox strMSG, vbOKOnly, "Yards to High" mboolSTOP = True ' mboolAdding = False Exit Sub End If End If moRS!pystucco = intCSTUCCO moRS.Update ElseIf strWTYPE = "B" Then intCALC = FindMax4("tblPaySheet", "pay_ydge", "lotid", lngID, "worktype", strWTYPE) intCSTUCCO = intCALC + Field2Str2(txtYdge) If Not mboolOVERRIDE Then If intCSTUCCO > intSTUCCO Then strMSG = CStr(intCSTUCCO) & " Brown Yards is greater than the " & CStr(intSTUCCO) & " yards allowed" MsgBox strMSG, vbOKOnly, "Yards too High" mboolSTOP = True ' mboolAdding = False Exit Sub End If End If ElseIf strWTYPE = "S" Then intCALC = FindMax4("tblPaySheet", "pay_ydge", "lotid", lngID, "worktype", strWTYPE) intCSTUCCO = intCALC + Field2Str2(txtYdge) If Not mboolOVERRIDE Then If intCSTUCCO > intSTUCCO Then strMSG = CStr(intCSTUCCO) & " Scratch Yards is greater than the " & CStr(intSTUCCO) & " yards allowed" MsgBox strMSG, vbOKOnly, "Yards too High" mboolSTOP = True ' mboolAdding = False Exit Sub End If End If ElseIf strWTYPE = "T" Then intCALC = FindMax4("tblPaySheet", "pay_ydge", "lotid", lngID, "worktype", strWTYPE) intCSTUCCO = intCALC + Field2Str2(txtYdge) If Not mboolOVERRIDE Then If intCSTUCCO > intSTUCCO Then strMSG = CStr(intCSTUCCO) & " Texture Yards is greater than the " & CStr(intSTUCCO) & " yards allowed" MsgBox strMSG, vbOKOnly, "Yards too High" mboolSTOP = True ' mboolAdding = False Exit Sub End If End If ElseIf strWTYPE = "W" Or strWTYPE = "F" Or strWTYPE = "R" Or strWTYPE = "U" Then ' intCALC = FindMax4("tblPaySheet", "pay_ydge", "lotid", lngID, "worktype", strWTYPE) ' intCSTUCCO = intCALC + Field2Str2(txtYdge) ' If intCSTUCCO > intSTUCCO Then ' strMSG = CStr(intCSTUCCO) & " Texture Yards is greater than the " & CStr(intSTUCCO) & " yards allowed" ' MsgBox strMSG, vbOKOnly, "Yards to High" ' mboolSTOP = True ' mboolAdding = False ' Exit Sub ' End If moRS!pmdollars = Field2Integer(txtYdge) + intPDOLLARS moRS.Update End If ' moRS!pystucco = intCSTUCCO ' moRS.Update ElseIf strTYPE = "L" Then If strWTYPE = "C" Or strWTYPE = "P" Then intCLATH = intPLATH + Field2Str2(txtYdge) intCMETAL = intPMETAL + Field2Str2(txtFtMetal) If Not mboolOVERRIDE Then If intCLATH > intLATH Then strMSG = CStr(intCLATH) & " is greater than the " & CStr(intLATH) & " yards allowed" MsgBox strMSG, vbOKOnly, "Yards too High" mboolSTOP = True ' mboolAdding = False Exit Sub End If End If If Not mboolOVERRIDE Then If intCMETAL > intMETAL Then strMSG = CStr(intCMETAL) & " is greater than the " & CStr(intMETAL) & " metal feet allowed" MsgBox strMSG, vbOKOnly, "Metal too High" mboolSTOP = True ' mboolAdding = False Exit Sub End If End If moRS!pylath = intCLATH moRS!pmetal = intCMETAL moRS.Update ElseIf strWTYPE = "W" Or strWTYPE = "F" Or strWTYPE = "R" Or strWTYPE = "U" Then moRS!pmdollars = Field2Integer(txtYdge) + intPDOLLARS moRS.Update End If ElseIf strTYPE = "V" Then ' intCALC = FindMax4("tblPaySheet", "pay_ydge", "lotid", lngID, "type", strTYPE) intCSTONE = intPSTONE + Field2Str2(txtYdge) If strWTYPE = "C" Then If Not mboolOVERRIDE Then If intCSTONE > intSTONE Then strMSG = CStr(intCSTONE) & " Sq Feet of Stone is greater than the " & CStr(intSTONE) & " Sq Feet allowed" MsgBox strMSG, vbOKOnly, "Square Footage to High" mboolSTOP = True ' mboolAdding = False Exit Sub End If End If moRS!PMisc = Field2Str2(intCSTONE) moRS.Update End If If strWTYPE = "W" Then moRS!pmdollars = Field2Integer(txtYdge) + intPDOLLARS moRS.Update End If ElseIf strTYPE = "Y" Then ' intCALC = FindMax4("tblPaySheet", "pay_ydge", "lotid", lngID, "type", strTYPE) intCSTUCCO = Field2Str2(txtYdge) If strWTYPE = "B" Then intCALC = FindMax4("tblPaySheet", "pay_ydge", "lotid", lngID, "worktype", strWTYPE) intCSTUCCO = intCALC + Field2Str2(txtYdge) If Not mboolOVERRIDE Then If intCSTUCCO > intSTUCCO Then strMSG = CStr(intCSTUCCO) & " Brown Yards is greater than the " & CStr(intSTUCCO) & " yards allowed" MsgBox strMSG, vbOKOnly, "Yards too High" mboolSTOP = True ' mboolAdding = False Exit Sub End If End If ElseIf strWTYPE = "T" Then intCALC = FindMax4("tblPaySheet", "pay_ydge", "lotid", lngID, "worktype", strWTYPE) intCSTUCCO = intCALC + Field2Str2(txtYdge) If Not mboolOVERRIDE Then If intCSTUCCO > intSTUCCO Then strMSG = CStr(intCSTUCCO) & " Texture Yards is greater than the " & CStr(intSTUCCO) & " yards allowed" MsgBox strMSG, vbOKOnly, "Yards too High" mboolSTOP = True ' mboolAdding = False Exit Sub End If End If ElseIf strWTYPE = "W" Then moRS!pmdollars = Field2Integer(txtYdge) + intPDOLLARS moRS.Update End If ElseIf strTYPE = "C" Then strSQL = "SELECT SUM(pay_ydge) as MAXField FROM tblPaySHeet WHERE lotid = " & lngID strSQL = strSQL & " and type = 'C' and worktype = '" & strWTYPE & "'" 'W'" Set oRSM = New Recordset oRSM.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly If Not oRSM.EOF Then intCALC = Field2Integer(oRSM!maxfield) Else intCALC = 0 End If oRSM.Close ' intCALC = FindSum("tblPaySheet", "pay_ydge", "lotid", lngID, "type", strTYPE) intCFRAMES = intCALC + Field2Str2(txtYdge) If strWTYPE = "Y" Or strWTYPE = "Z" Then If Not mboolOVERRIDE Then If intCFRAMES > intFRAMES Then strMSG = CStr(intCFRAMES) & " Scaffold Frames is greater than the " & CStr(intFRAMES) & " frames allowed" MsgBox strMSG, vbOKOnly, "Too Many Frames" mboolSTOP = True ' mboolAdding = False Exit Sub End If End If End If If strWTYPE = "W" Then moRS!pmdollars = Field2Integer(txtYdge) + intPDOLLARS moRS.Update Exit Sub End If ' moRS!PMisc = intCFRAMES ' moRS.Update End If End Sub Private Sub FieldsSave() On Error GoTo Error_EH If mboolAdding Then ' moRSPay!proj_id = gintPROJID moRSPay!lotid = gintLOTID moRSPay!Create = gstrLOGIN moRSPay!totalsheet = 1 moRSPay!sheet = 1 ' Call AddPay If mboolSTOP Then Exit Sub End If End If 'need to make this so that if different types of work are selected only certain type of pay can ge celected With moRSPay !pay_ydge = Integer2Field(txtYdge) ' !crew = Integer2Field(txtCrewNo) !METAL = Integer2Field(txtFtMetal) !Type = Left(Str2Field(cboType.Text), 1) cboWorkType.col = 1 !worktype = cboWorkType.ColText 'this will not save correctly if worktype length is greater than one. ' !worktype = Left(Str2Field(cboWorkType), 1) 'this will not save correctly if worktype length is greater than one. !m_desc = Str2Field(txtMDesc) !notes = Str2Field(txtNotes) If chkBC Then !bc = vbChecked Else !bc = vbUnchecked End If If chkPaid Then !paid = vbChecked Else !paid = vbUnchecked End If ' !rpdate = Date ' !RPUSER = gstrLOGIN ' !Update = Date End With ' On Error Resume Next ' moRS.Update ' On Error GoTo 0 moRSPay.Update If mboolAdding Then ' Call GetLotID ' Call POptLoad mboolAdding = False mboolPRINT = True End If Call PayLoad Exit Sub Error_EH: gstrMODULE = "Form Payroll - Module FieldsSave" Call ErrorHandler2 gstrMODULE = "" Exit Sub End Sub Private Sub lstPayInfo_DblClick() If chkInvalid Then MsgBox "Reprint of this PaySheet is not allowed", vbOKOnly, "No Reprint" Exit Sub End If If chkPaid Then MsgBox "No Reprint Allowed - Already Paid", vbOKOnly, "No Reprint" Exit Sub End If cmdAddPS.Enabled = False cmdRePrint.Enabled = True txtNotes.Enabled = True ' cmdSave.Enabled = True End Sub Private Sub txtFtMetal_GotFocus() Call FieldSelect(txtFtMetal) End Sub Private Sub txtMDesc_GotFocus() Call FieldSelect(txtMDesc) End Sub Private Sub txtMDesc_LostFocus() txtMDesc = UCase(txtMDesc) End Sub Private Sub txtNotes_GotFocus() txtNotes.SelStart = 2000 End Sub Private Sub txtNotes_LostFocus() txtNotes = UCase(txtNotes) End Sub Private Sub txtYdge_GotFocus() Call FieldSelect(txtYdge) End Sub Private Sub CalcPay() With moRSPay If Not mboolNOCREW Then ' If !worktype = "B" Then ' txtFtMetal.Enabled = False ' txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Brown" If !worktype = "A" Then If !Type = "W" Then ' txtFtMetal.Enabled = True ' txtFtMetal.BackColor = &H80000005 ' If Field2Str2(txtYRate) = 0 Then If mboolPULTE Then txtYRate = Field2Str2(moRSCREW!sand) '******************************************** moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) Else txtYRate = 0 moRSPay!Y_Rate = 0 End If ' If mboolPULTE Then ' txtYRate = moRSCREW!Smooth ' moRSPay!Y_Rate = moRSCREW!Smooth ' Else ' txtYRate = moRSCREW!lath_skip ' moRSPay!Y_Rate = moRSCREW!lath_skip ' End If txtMetal = Field2Str2(moRSCREW!METAL) moRSPay!M_Rate = Field2Str2(moRSCREW!METAL) moRSPay.Update ' End If End If ElseIf !worktype = "C" Then If !Type = "L" Then ' txtFtMetal.Enabled = True ' txtFtMetal.BackColor = &H80000005 ' If Field2Str2(txtYRate) = 0 Then If mboolPULTE Then txtYRate = Field2Str2(moRSCREW!Smooth) moRSPay!Y_Rate = Field2Str2(moRSCREW!Smooth) Else txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) End If txtMetal = Field2Str2(moRSCREW!METAL) moRSPay!M_Rate = Field2Str2(moRSCREW!METAL) moRSPay.Update ' End If ElseIf !Type = "W" Then ' txtFtMetal.Enabled = True ' txtFtMetal.BackColor = &H80000005 ' If Field2Str2(txtYRate) = 0 Then If mboolPULTE Then txtYRate = Field2Str2(moRSCREW!sand) '******************************************** moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) Else txtYRate = 0 moRSPay!Y_Rate = 0 End If ' If mboolPULTE Then ' txtYRate = moRSCREW!Smooth ' moRSPay!Y_Rate = moRSCREW!Smooth ' Else ' txtYRate = moRSCREW!lath_skip ' moRSPay!Y_Rate = moRSCREW!lath_skip ' End If txtMetal = Field2Str2(moRSCREW!METAL) moRSPay!M_Rate = Field2Str2(moRSCREW!METAL) moRSPay.Update ' End If ' End If ElseIf !Type = "S" Then ' txtFtMetal.Enabled = False ' txtFtMetal.BackColor = &H80FFFF ' If Field2Str2(txtYRate) = 0 Then If (lblTexture = "SK" Or lblTexture = "RL" Or lblTexture = "CS" Or lblTexture = "RS") Then txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) moRSPay.Update End If If (lblTexture = "SA" Or lblTexture = "S2" Or lblTexture = "S3" Or lblTexture = "S4" Or lblTexture = "RD") Then txtYRate = Field2Str2(moRSCREW!sand) moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "MN" Or lblTexture = "RM") Then txtYRate = Field2Str2(moRSCREW!mn) moRSPay!Y_Rate = Field2Str2(moRSCREW!mn) moRSPay.Update End If If (lblTexture = "DF" Or lblTexture = "SS" Or lblTexture = "RF") Then txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "M2" Or lblTexture = "M3" Or lblTexture = "MF") Then txtYRate = Field2Str2(moRSCREW!mn) moRSPay!Y_Rate = Field2Str2(moRSCREW!mn) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "DA") Then txtYRate = Field2Str2(moRSCREW!dash) moRSPay!Y_Rate = Field2Str2(moRSCREW!dash) moRSPay.Update End If If (lblTexture = "QU") Then txtYRate = Field2Str2(moRSCREW!qu) moRSPay!Y_Rate = Field2Str2(moRSCREW!qu) moRSPay.Update End If If (lblTexture = "SM") Then txtYRate = Field2Str2(moRSCREW!Smooth) moRSPay!Y_Rate = Field2Str2(moRSCREW!Smooth) moRSPay.Update End If If (lblTexture = "QS") Then txtYRate = Field2Str2(moRSCREW!qu) moRSPay!Y_Rate = Field2Str2(moRSCREW!qu) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "SC") Then txtYRate = Field2Str2(moRSCREW!sand) moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If ' End If ElseIf !Type = "V" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF If Field2Str2(txtYRate) = 0 Then txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) moRSPay.Update End If ' ElseIf !Type = "W" Then ' txtFtMetal.Enabled = False ' txtFtMetal.BackColor = &H80FFFF ' If Field2Str(txtYRate) = 0 Or txtYRate = "" Then ' If Field2Str2(txtYRate) = 0 Then ' If mboolPULTE Then ' txtYRate = Field2Str2(moRSCREW!sand) ' moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) ' Else ' txtYRate = 0 ' moRSPay!Y_Rate = 0 ' End If ' moRSPay!Y_Rate = moRSCREW!lath_skip ' moRSPay.Update ' End If ' Else ' txtFtMetal.Enabled = False ' txtFtMetal.BackColor = &H80FFFF End If ' cboWorkType.Text = "Complete" '' ElseIf !worktype = "P" Then ' Many Need to Expand this so that it works with '' If !Type = "L" Then ' Multiple paysheet per type (Large Yardage or commercial) '' txtFtMetal.Enabled = True '' txtFtMetal.BackColor = &H80000005 '' Else '' txtFtMetal.Enabled = False '' txtFtMetal.BackColor = &H80FFFF '' End If ' cboWorkType.Text = "Partial" ''' ElseIf !worktype = "T" Then ''' txtFtMetal.Enabled = False ''' txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Texture" ''' ElseIf !worktype = "S" Then ''' txtFtMetal.Enabled = False ''' txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Scratch" ''' ElseIf !worktype = "R" Then ''' txtFtMetal.Enabled = False ''' txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Repair" ''' lblYardge = "Pay Amount:" ' txtFtMetal.Enabled = False ''' ElseIf !worktype = "W" Then ''' txtFtMetal.Enabled = False ''' txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "WorkOrder/PO" ''' lblYardge = "Pay Amount:" ''' ElseIf !worktype = "F" Then ''' txtFtMetal.Enabled = False ''' txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Fence" ''' lblYardge = "Pay Amount:" ''' ElseIf !worktype = "U" Then ''' txtFtMetal.Enabled = False ''' txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "U_CMU" ''' lblYardge = "Pay Amount:" ''' ElseIf !worktype = "Y" Then ''' txtFtMetal.Enabled = False ''' txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Y_UP" ''' lblYardge = "Frames:" ''' ElseIf !worktype = "Z" Then ''' txtFtMetal.Enabled = False ''' txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Z_DOWN" ''' lblYardge = "Frames:" Else ' cboWorkType.ListIndex = -1 End If End If ''' If Field2Str2(txtAmount) = 0 Then dblAmt = (Field2Str2(txtYdge) * Field2Str2(txtYRate)) + (Field2Str2(txtMetal) * Field2Str2(txtFtMetal)) txtAmount = Format(Round(dblAmt, 2), "#,#.00") moRSPay!Amt = txtAmount moRSPay!GROSSPAY = txtAmount moRSPay.Update ''' End If End With End Sub Private Sub CalcPayHOLD() With moRSPay If Not mboolNOCREW Then If !worktype = "B" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Brown" ElseIf !worktype = "A" Then If !Type = "W" Then txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 If Field2Str2(txtYRate) = 0 Then If mboolPULTE Then txtYRate = Field2Str2(moRSCREW!sand) '******************************************** moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) Else txtYRate = 0 moRSPay!Y_Rate = 0 End If ' If mboolPULTE Then ' txtYRate = moRSCREW!Smooth ' moRSPay!Y_Rate = moRSCREW!Smooth ' Else ' txtYRate = moRSCREW!lath_skip ' moRSPay!Y_Rate = moRSCREW!lath_skip ' End If txtMetal = Field2Str2(moRSCREW!METAL) moRSPay!M_Rate = Field2Str2(moRSCREW!METAL) moRSPay.Update End If End If ElseIf !worktype = "C" Then If !Type = "L" Then txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 If Field2Str2(txtYRate) = 0 Then If mboolPULTE Then txtYRate = Field2Str2(moRSCREW!Smooth) moRSPay!Y_Rate = Field2Str2(moRSCREW!Smooth) Else txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) End If txtMetal = Field2Str2(moRSCREW!METAL) moRSPay!M_Rate = Field2Str2(moRSCREW!METAL) moRSPay.Update End If ElseIf !Type = "S" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF If Field2Str2(txtYRate) = 0 Then If (lblTexture = "SK" Or lblTexture = "RL" Or lblTexture = "CS" Or lblTexture = "RS") Then txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) moRSPay.Update End If If (lblTexture = "SA" Or lblTexture = "S2" Or lblTexture = "S3" Or lblTexture = "S4" Or lblTexture = "RD") Then txtYRate = Field2Str2(moRSCREW!sand) moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "MN" Or lblTexture = "RM") Then txtYRate = Field2Str2(moRSCREW!mn) moRSPay!Y_Rate = Field2Str2(moRSCREW!mn) moRSPay.Update End If If (lblTexture = "DF" Or lblTexture = "SS" Or lblTexture = "RF") Then txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "M2" Or lblTexture = "M3" Or lblTexture = "MF") Then txtYRate = Field2Str2(moRSCREW!mn) moRSPay!Y_Rate = Field2Str2(moRSCREW!mn) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "DA") Then txtYRate = Field2Str2(moRSCREW!dash) moRSPay!Y_Rate = Field2Str2(moRSCREW!dash) moRSPay.Update End If If (lblTexture = "QU") Then txtYRate = Field2Str2(moRSCREW!qu) moRSPay!Y_Rate = Field2Str2(moRSCREW!qu) moRSPay.Update End If If (lblTexture = "SM") Then txtYRate = Field2Str2(moRSCREW!Smooth) moRSPay!Y_Rate = Field2Str2(moRSCREW!Smooth) moRSPay.Update End If If (lblTexture = "QS") Then txtYRate = Field2Str2(moRSCREW!qu) moRSPay!Y_Rate = Field2Str2(moRSCREW!qu) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If If (lblTexture = "SC") Then txtYRate = Field2Str2(moRSCREW!sand) moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) txtFtMetal.Enabled = True txtFtMetal.BackColor = &H80000005 txtMetal = Field2Str2(moRSCREW!sand) moRSPay!M_Rate = Field2Str2(moRSCREW!sand) moRSPay.Update End If End If ElseIf !Type = "V" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF If Field2Str2(txtYRate) = 0 Then txtYRate = Field2Str2(moRSCREW!lath_skip) moRSPay!Y_Rate = Field2Str2(moRSCREW!lath_skip) moRSPay.Update End If ElseIf !Type = "W" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' If Field2Str(txtYRate) = 0 Or txtYRate = "" Then If Field2Str2(txtYRate) = 0 Then If mboolPULTE Then txtYRate = Field2Str2(moRSCREW!sand) moRSPay!Y_Rate = Field2Str2(moRSCREW!sand) Else txtYRate = 0 moRSPay!Y_Rate = 0 End If ' moRSPay!Y_Rate = moRSCREW!lath_skip moRSPay.Update End If Else txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF End If ' cboWorkType.Text = "Complete" '' ElseIf !worktype = "P" Then ' Many Need to Expand this so that it works with '' If !Type = "L" Then ' Multiple paysheet per type (Large Yardage or commercial) '' txtFtMetal.Enabled = True '' txtFtMetal.BackColor = &H80000005 '' Else '' txtFtMetal.Enabled = False '' txtFtMetal.BackColor = &H80FFFF '' End If ' cboWorkType.Text = "Partial" ElseIf !worktype = "T" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Texture" ElseIf !worktype = "S" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Scratch" ElseIf !worktype = "R" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Repair" lblYardge = "Pay Amount:" ' txtFtMetal.Enabled = False ElseIf !worktype = "W" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "WorkOrder/PO" lblYardge = "Pay Amount:" ElseIf !worktype = "F" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Fence" lblYardge = "Pay Amount:" ElseIf !worktype = "U" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "U_CMU" lblYardge = "Pay Amount:" ElseIf !worktype = "Y" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Y_UP" lblYardge = "Frames:" ElseIf !worktype = "Z" Then txtFtMetal.Enabled = False txtFtMetal.BackColor = &H80FFFF ' cboWorkType.Text = "Z_DOWN" lblYardge = "Frames:" Else ' cboWorkType.ListIndex = -1 End If End If If Field2Str2(txtAmount) = 0 Then dblAmt = (Field2Str2(txtYdge) * Field2Str2(txtYRate)) + (Field2Str2(txtMetal) * Field2Str2(txtFtMetal)) txtAmount = Format(Round(dblAmt, 2), "#,#.00") moRSPay!Amt = txtAmount moRSPay!GROSSPAY = txtAmount moRSPay.Update End If End With End Sub