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 frmAPFIX Caption = "Accounts Payable Correction Screen" ClientHeight = 5310 ClientLeft = 60 ClientTop = 345 ClientWidth = 8880 KeyPreview = -1 'True LinkTopic = "Form1" ScaleHeight = 5310 ScaleWidth = 8880 StartUpPosition = 3 'Windows Default Begin VB.CommandButton cmdPrint Caption = "Print List W/ No JC#" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 6285 TabIndex = 14 Top = 4215 Width = 1275 End Begin LpLib.fpCombo cboAPCode Height = 315 Left = 4830 TabIndex = 12 Top = 150 Width = 4035 _Version = 196608 _ExtentX = 7117 _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 = 0 SelDrawFocusRect= -1 'True ColumnSeparatorChar= 9 ColumnSearch = -1 ColumnWidthScale= 2 RowHeight = -1 WrapList = 0 'False WrapWidth = 0 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 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 = "frmAPFix.frx":0000 End Begin LpLib.fpList lstHeader Height = 4560 Left = 30 TabIndex = 11 Top = 615 Width = 6195 _Version = 196608 _ExtentX = 10927 _ExtentY = 8043 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 = 2 LineWidth = 1 SelDrawFocusRect= -1 'True ColumnSeparatorChar= 9 ColumnSearch = -1 ColumnWidthScale= 2 RowHeight = -1 MultiSelect = 0 WrapList = 0 'False WrapWidth = 0 SelMax = -1 AutoSearch = 1 SearchMethod = 0 VirtualMode = 0 'False VRowCount = 0 DataSync = 3 ThreeDInsideStyle= 1 ThreeDInsideHighlightColor= -2147483633 ThreeDInsideShadowColor= -2147483627 ThreeDInsideWidth= 1 ThreeDOutsideStyle= 1 ThreeDOutsideHighlightColor= -2147483628 ThreeDOutsideShadowColor= -2147483632 ThreeDOutsideWidth= 1 ThreeDFrameWidth= 0 BorderStyle = 0 BorderColor = -2147483642 BorderWidth = 1 ThreeDOnFocusInvert= 0 'False ThreeDFrameColor= -2147483633 Appearance = 2 BorderDropShadow= 0 BorderDropShadowColor= -2147483632 BorderDropShadowWidth= 3 ScrollHScale = 2 ScrollHInc = 0 ColsFrozen = 0 ScrollBarV = 1 NoIntegralHeight= 0 'False HighestPrecedence= 0 AllowColResize = 0 AllowColDragDrop= 0 ReadOnly = 0 'False VScrollSpecial = 0 'False VScrollSpecialType= 0 EnableKeyEvents = -1 'True EnableTopChangeEvent= -1 'True DataAutoHeadings= -1 'True DataAutoSizeCols= 2 SearchIgnoreCase= -1 'True ScrollBarH = 1 VirtualPageSize = 0 VirtualPagesAhead= 0 ExtendCol = 0 ColumnLevels = 1 ListGrayAreaColor= -2147483637 GroupHeaderHeight= -1 GroupHeaderShow = 0 'False AllowGrpResize = 0 AllowGrpDragDrop= 0 MergeAdjustView = 0 'False ColumnHeaderShow= -1 'True ColumnHeaderHeight= 300 GrpsFrozen = 0 BorderGrayAreaColor= -2147483637 ExtendRow = 0 DataField = "" OLEDragMode = 0 OLEDropMode = 0 EnableClickEvent= -1 'True Redraw = -1 'True ResizeRowToFont = 0 'False TextTipMultiLine= 0 ColDesigner = "frmAPFix.frx":046C End Begin Crystal.CrystalReport crAR Left = 165 Top = 60 _ExtentX = 741 _ExtentY = 741 _Version = 348160 WindowControlBox= -1 'True WindowMaxButton = -1 'True WindowMinButton = -1 'True WindowState = 2 PrintFileLinesPerPage= 60 End Begin VB.CommandButton cmdExit Caption = "E&xit" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 6285 TabIndex = 10 Top = 4755 Width = 1275 End Begin VB.CommandButton cmdSave Caption = "&Save" 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 = 495 Left = 7590 TabIndex = 9 Top = 4755 Width = 1275 End Begin VB.TextBox txtItemAmt Alignment = 1 'Right Justify Height = 315 Left = 7665 MaxLength = 10 TabIndex = 4 Top = 1980 Visible = 0 'False Width = 1200 End Begin VB.TextBox txtSalesCode Alignment = 1 'Right Justify Enabled = 0 'False Height = 315 Left = 7665 MaxLength = 7 TabIndex = 3 Top = 1560 Width = 1200 End Begin VB.TextBox txtDueDate Height = 315 Left = 7665 MaxLength = 10 TabIndex = 2 Top = 1140 Width = 1200 End Begin VB.TextBox txtInvDate Enabled = 0 'False Height = 315 Left = 7665 MaxLength = 10 TabIndex = 1 Top = 720 Width = 1200 End Begin VB.Label lblLOAD Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Loading Invoices -- Patience" BeginProperty Font Name = "MS Sans Serif" Size = 13.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 750 Left = 6435 TabIndex = 13 Top = 3420 Visible = 0 'False Width = 2430 End Begin VB.Label lblSalesCode Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Invoice Amount:" Height = 195 Left = 6390 TabIndex = 8 Top = 1650 Width = 1155 End Begin VB.Label lblItemAmt Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Item Amount:" Height = 195 Left = 6630 TabIndex = 7 Top = 2085 Visible = 0 'False Width = 930 End Begin VB.Label lblDueDate Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Job Cost Number:" Height = 195 Left = 6285 TabIndex = 6 Top = 1245 Width = 1260 End Begin VB.Label lblInvDate Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Invoice #:" Height = 195 Left = 6825 TabIndex = 5 Top = 810 Width = 720 End Begin VB.Label lblARCode Alignment = 1 'Right Justify AutoSize = -1 'True Caption = "Vendor's CMS AP Code:" Height = 195 Left = 2970 TabIndex = 0 Top = 240 Width = 1815 End End Attribute VB_Name = "frmAPFIX" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim moRSHeader As Recordset Dim moRSProj As Recordset Dim mboolSHOW As Boolean, mboolUPDATE As Boolean, mstrType As String Dim mstrINVNO As String, mstrPROJLOT As String Dim mlngINVID As Long, mintBOOKMARK As Integer, mintBOOK As Integer Dim msglItemAmt As Single, msglInvTotal As Single Private Sub HeaderLoad() Dim oRS As Recordset Dim strSQL As String, strVend As String 'Dim strTYPE As String Dim strLine As String On Error GoTo Error_EH ' strTYPE = Trim(Left(cboARCode, 7)) ' strSQL = "SELECT Invoice_date, Invoice_no, lot_id, trans_id, header, shipped, customer_no, non_tax_amt from tblARInvoice WHERE shipped and header and customer_no = '" & Trim(Left(cboARCode, 7)) & "' and not done" lblLOAD.Visible = True DoEvents If cboAPCode.ListIndex = -1 Then strSQL = "SELECT * FROM APH_JobDistDetail " 'WHERE vendornumber = '" & strVend & "'" ' and not done" Else cboAPCode.col = 1 strVend = cboAPCode.ColText ' strSQL = "SELECT * FROM APH_JobDistDetail ORDER BY VendorNumber and InvoiceNumber" 'WHERE shipped and header and customer_no = '" & strVend & "' and not done" strSQL = "SELECT * FROM APH_JobDistDetail WHERE vendornumber = '" & strVend & "'" ' and not done" End If Set oRS = New Recordset oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly lstHeader.Clear ' strTYPE = oRS.RecordCount Do Until oRS.EOF With lstHeader strLine = Field2Str2(oRS!AP_ID) & vbTab & Field2Str(oRS!VendorNumber) & vbTab '& Field2Str(oRS!Name) & vbTab strLine = strLine & Field2Str(oRS!InvoiceNumber) & vbTab & Field2Str(oRS!JobNumber) & vbTab strLine = strLine & Format(Field2Str2(oRS!distributionamount), "Currency") & vbTab & Format(Field2Str(oRS!InvoiceDate), "MM/DD/YYYY") & vbTab & Format(Field2Str(oRS!InvoiceDate), "YYYYMMDD") .AddItem strLine ' .ItemData(.NewIndex) = oRS!Trans_ID ' .ItemData(.NewIndex) = oRS!Lot_id End With oRS.MoveNext Loop oRS.Close If lstHeader.ListCount Then lstHeader.ListIndex = 0 Else gintLOTID = 0 lstHeader.ListIndex = -1 ' cmdPrint.Enabled = False End If lblLOAD.Visible = False DoEvents Exit Sub Error_EH: gstrMODULE = "Form Repair - Module HeaderLoad" Call ErrorHandler2 gstrMODULE = "" Exit Sub End Sub Private Sub cboAPCode_Click() lstHeader.Clear Call HeaderLoad End Sub Private Sub cmdPrint_Click() Dim oRS As Recordset, strSQL As String, strSELECT As String, strCUST As String On Error GoTo Error_EH cboAPCode.col = 1 strCUST = cboAPCode.ColText gintCOPY = 1 strSQL = "SELECT * FROM APH_JobDistDetail WHERE VendorNumber = '" & strCUST & "'" Set oRS = New Recordset oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly ' gstrPONUM = Field2Str(oRS!po_num) ' mstrPROJLOT = Field2Str(oRS!ProjLot) ' Call LotChange(mstrPROJLOT, "RePrint AR Invoice") strSELECT = "{APH_JobDistDetail.VendorNumber}= '" & strCUST & "' and {APH_JobDistDetail.JobNumber} = ''" ' strSELECT = "{tblARInvoice.invoice_no}='" & mstrINV & "'" crAR.ReportFileName = App.Path & "\apblankJC.rpt" crAR.ReplaceSelectionFormula (strSELECT) ' crAR.CopiesToPrinter = gintCOPY crAR.CopiesToPrinter = 1 crAR.Destination = crptToWindow ' crar.Destination = crptToPrinter crAR.Action = 1 Exit Sub Error_EH: gstrMODULE = "Form ARFix - Module Print" Call ErrorHandler2 gstrMODULE = "" Exit Sub End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{TAB}" KeyAscii = 0 End If End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 4 Then Exit Sub End If If Not cmdSave.Enabled Then ' Call DataHasChanged End If End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim intResponse As Integer, strMSG As String On Error GoTo Error_EH If cmdSave.Enabled Then strMSG = "Data Has Been Changed" strMSG = strMSG & Chr(13) & Chr(10) strMSG = strMSG & "Save Changes ?" intResponse = MsgBox(strMSG, vbQuestion + vbYesNoCancel, Me.Caption) Select Case intResponse Case vbYes Call FormSave Case vbNo Case vbCancel Cancel = True Exit Sub End Select End If If moRSProj.State = adStateOpen Then moRSProj.Close End If If moRSHeader.State = adStateOpen Then moRSHeader.Close End If Exit Sub Error_EH: If Err.Number = 91 Then Resume Next End If gstrMODULE = "Form Repair - Module Form QueryUnload" Call ErrorHandler2 gstrMODULE = "" Exit Sub End Sub Private Sub cmdSave_Click() ' mintBOOKMARK = lstDetail.ListIndex mintBOOK = lstHeader.ListIndex cmdExit.Enabled = True cmdSave.Enabled = False Call FormSave lstHeader.ListIndex = mintBOOK ' lstDetail.Enabled = True ' lstDetail.ListIndex = mintBOOKMARK mintBOOKMARK = 0 End Sub Private Sub Form_Load() Call APCodeLoad ' Call HeaderLoad End Sub 'Private Sub ProjLoad() 'Dim strSQL As String ' On Error GoTo Error_EH ' strSQL = "SELECT * FROM tblProject where proj_id = " & gintPROJID ' Set moRSProj = New Recordset ' moRSProj.Open strSQL, goConn, _ ' adOpenForwardOnly, adLockReadOnly ' Exit Sub 'Error_EH: ' gstrMODULE = "Form APFix - Module ProjLoad" ' Call ErrorHandler2 ' gstrMODULE = "" ' Exit Sub 'End Sub Private Sub APCodeLoad() Dim oRS As Recordset Dim strSQL As String, intRows As Integer, strLine As String Dim row, col As Long On Error GoTo Error_EH strSQL = "SELECT * FROM tblAPMaster" ' strSQL = "SELECT Bill_Id, Cust_no, Name FROM tblARMaster" Set oRS = New Recordset oRS.Open strSQL, goConn, adOpenForwardOnly, adLockReadOnly Do Until oRS.EOF strLine = Field2Str2(oRS!Bill_ID) & vbTab & Field2Str(oRS!Cust_NO) & vbTab & Field2Str(oRS!Name) ' & vbTab & Field2Str(oRS!Name) & vbTab & Field2Str(oRS!Name) & vbTab & Field2Str(oRS!Name) cboAPCode.AddItem strLine ' cboARCode.ItemData(cboARCode.NewIndex) = Field2Long(oRS!bill_id) oRS.MoveNext Loop oRS.Close ' cboAPCode.ListIndex = 0 cboAPCode.ListIndex = -1 Exit Sub Error_EH: gstrMODULE = "Form APFix - Module APCodeLoad" Call ErrorHandler2 gstrMODULE = "" Exit Sub End Sub Private Sub FormShow() On Error GoTo Error_EH mboolSHOW = True ' With moRSDetail ' txtInvDate = Field2Str(!invoice_date) ' txtDueDate = Field2Str(!inv_due_date) ' txtItemAmt = Format(Field2Str2(!amount), "currency") ' txtSalesCode = Field2Str(!sales_code) ' txtTax = Field2Str(!taxcode) ' chkReady = Field2CheckBox(!ready) ' End With mboolSHOW = False Exit Sub Error_EH: gstrMODULE = "Form APFix - Module FormShow" Call ErrorHandler2 gstrMODULE = "" Exit Sub End Sub Private Sub FormSave() Dim strName As String On Error GoTo Error_EH Call FieldsSave Exit Sub Error_EH: gstrMODULE = "Form APFix - Module FormSave" Call ErrorHandler2 gstrMODULE = "" Exit Sub End Sub Private Function FormFind() As Boolean Dim strSQL As String On Error GoTo Error_EH ' strSQL = "SELECT * " ' strSQL = strSQL & "FROM tblARInvoice " ' strSQL = strSQL & "WHERE trans_id = " & lstDetail.ItemData(lstDetail.ListIndex) ' Set moRSDetail = New Recordset ' moRSDetail.Open strSQL, goConn, adOpenKeyset, adLockPessimistic If moRSHeader.EOF Then FormFind = False Call FormClear Else FormFind = True msglInvTotal = moRSHeader!non_tax_amt mstrType = moRSHeader!inv_type ' gintPROJID = moRSHeader!proj_id ' Call ProjLoad End If Exit Function Error_EH: gstrMODULE = "Form APFix - Module FormFind" Call ErrorHandler2 gstrMODULE = "" Exit Function End Function Private Sub lstDetail_Click() ' If lstDetail.ListIndex <> -1 Then If FormFind() Then Call FormShow End If ' End If End Sub Private Sub FieldsSave() Dim strSQL As String Dim oRS As Recordset, sglTOTAL As Single On Error GoTo Error_EH With moRSHeader ' !invoice_date = Str2Field(txtInvDate) !JobNumber = Str2Field(txtDueDate) ' !price = Str2Field(txtItemAmt) ' !amount = Str2Field(txtItemAmt) ' !sales_code = Str2Field(txtSalesCode) .Update End With ' strSQL = "SELECT sum(amount) as sgltotal FROM tblARInvoice WHERE inv_type = '" & mstrType & "' and lot_id = " & gintLOTID & " and not done" ' Set oRS = New Recordset ' oRS.Open strSQL, goConn, adOpenKeyset, adLockOptimistic ' msglInvTotal = Field2Str2(oRS!sglTOTAL) ' strSQL = "SELECT * FROM tblARInvoice WHERE inv_type = '" & mstrType & "' and lot_id = " & gintLOTID ' Set oRS = New Recordset ' oRS.Open strSQL, goConn, adOpenForwardOnly, adLockOptimistic ' Do Until oRS.EOF ' With oRS ' !invoice_date = Str2Field(txtInvDate) ' !inv_due_date = Str2Field(txtDueDate) ' !ready = chkReady ' !non_tax_amt = msglInvTotal ' !taxcode = Str2Field(txtTax) ' If Field2Str2(moRSProj!retention) > 0 Then ' !retention_amt = Format(((msglInvTotal * Field2Str2(moRSProj!retention) / 100)), "#.00") ' Else ' !retention_amt = 0 ' End If ' .Update ' End With ' oRS.MoveNext ' Loop Call HeaderLoad Exit Sub Error_EH: gstrMODULE = "Form APFix - Module FieldsSave" Call ErrorHandler2 gstrMODULE = "" Exit Sub End Sub Private Sub Form_Activate() Dim intResponse As Integer Dim strSQL As String ' If lstHeader.ListCount = 0 Then ' intResponse = MsgBox("No Invoices For This Builder - Select A Different Builder.", vbExclamation + vbOKOnly, "Exit Form") ' Unload Me ' End If End Sub Private Sub FormClear() txtInvDate = "" txtDueDate = "" txtSalesCode = "" txtItemAmt = "" ' chkReady = vbUnchecked End Sub Private Sub lstDetail_DblClick() cmdSave.Enabled = True End Sub Private Sub lstHeader_Click() Dim strSQL As String, oRS As Recordset Dim strID As String On Error GoTo Error_EH If lstHeader.ListIndex <> -1 Then lstHeader.col = 0 strID = lstHeader.ColText strSQL = "SELECT * FROM APH_JobDistDetail WHERE ap_id = " & strID Set moRSHeader = New Recordset moRSHeader.Open strSQL, goConn, adOpenDynamic, adLockOptimistic If Not moRSHeader.EOF Then txtSalesCode = Format(Field2Str(moRSHeader!distributionamount), "#,#.00") txtDueDate = Field2Str(moRSHeader!JobNumber) txtInvDate = Field2Str(moRSHeader!InvoiceNumber) Else txtSalesCode = "" txtDueDate = "" txtInvDate = "" End If txtDueDate.SetFocus End If Exit Sub Error_EH: gstrMODULE = "Form APFix - Module lstHeader_Click" Call ErrorHandler2 gstrMODULE = "" Exit Sub End Sub Private Sub lstHeader_DblClick() cmdSave.Enabled = True txtDueDate.SetFocus End Sub Private Sub txtDueDate_GotFocus() Call FieldSelect(txtDueDate) End Sub Private Sub txtDueDate_LostFocus() Dim lngPOS As Long ' lngPOS = InStr(1, txtDueDate, "/", 1) ' If lngPOS = 0 Then ' If Len(txtDueDate) > 0 Then ' txtDueDate = Format(txtDueDate, "00/00/####") ' If Not IsDate(txtDueDate) Then ' MsgBox "The Date You Entered is not Valid - ReEnter" ' txtDueDate.SetFocus ' End If ' End If ' ElseIf IsDate(txtDueDate) Then ' Exit Sub ' Else ' MsgBox "Invalid Date Format, Enter as 12312009", , "Invalid Date - ReEnter" ' txtDueDate.SetFocus ' End If txtDueDate = UCase(txtDueDate) End Sub 'Private Sub txtInvDate_GotFocus() ' Call FieldSelect(txtInvDate) 'End Sub 'Private Sub txtInvDate_LostFocus() 'Dim lngPOS As Long ' lngPOS = InStr(1, txtInvDate, "/", 1) ' If lngPOS = 0 Then ' If Len(txtInvDate) > 0 Then ' txtInvDate = Format(txtInvDate, "00/00/####") ' If Not IsDate(txtInvDate) Then ' MsgBox "The Date You Entered is not Valid - ReEnter" ' txtInvDate.SetFocus ' End If ' End If ' ElseIf IsDate(txtInvDate) Then ' Exit Sub ' Else ' MsgBox "Invalid Date Format, Enter as 12312009", , "Invalid Date - ReEnter" ' txtInvDate.SetFocus ' End If 'End Sub 'Private Sub txtItemAmt_GotFocus() ' Call FieldSelect(txtItemAmt) ' msglItemAmt = Single2Field(txtItemAmt) 'End Sub 'Private Sub txtItemAmt_LostFocus() ' If msglItemAmt < Field2Str2(txtItemAmt) Then ' msglInvTotal = msglInvTotal + Field2Str2(txtItemAmt) ' txtItemAmt = Format(txtItemAmt, "#,#.00") ' ElseIf msglItemAmt > Field2Str2(txtItemAmt) Then ' msglInvTotal = msglInvTotal - Field2Str2(txtItemAmt) ' txtItemAmt = Format(txtItemAmt, "#,#.00") ' ElseIf msglItemAmt = Field2Str(txtItemAmt) Then ' txtItemAmt = Format(txtItemAmt, "#,#.00") ' End If 'End Sub 'Private Sub txtSalesCode_GotFocus() ' Call FieldSelect(txtSalesCode) 'End Sub 'Private Sub txtSalesCode_LostFocus() ' txtSalesCode = UCase(txtSalesCode) 'End Sub