frm_AR_Customer

C:\Integral Accounting Pro v3.1 (Full Version)\Project\frm_AR_Customer.frm
Generated: 4/16/2003 2:01:10 PM


Table of Contents
btcbRefresh_Click
btCustID_Click
btCustSalesAcc_Click
cbfields_KeyPress
cmdBegInvoices_Click
cmdBegReceipts_Click
FinBut_Click
Form_Load
Form_Resize
Form_KeyDown
Form_Unload
adoPrimaryRS_MoveComplete
adoPrimaryRS_WillChangeRecord
cmdAdd_Click
cmdDelete_Click
cmdRefresh_Click
cmdCancel_Click
cmdUpdate_Click
cmdClose_Click
cmdFirst_Click
cmdLast_Click
cmdNext_Click
cmdPrevious_Click
SetButtons
ShipToBut_Click
Tranbut_Click
LoadCombo
txtFields_Change
txtFields_KeyPress
txtFields_LostFocus
Get_NameGL

VERSION 5.00 Begin VB.Form frm_AR_Customer BorderStyle = 1 'Fixed Single Caption = "Maintain Customer Data" ClientHeight = 6285 ClientLeft = 2025 ClientTop = 1560 ClientWidth = 10365 KeyPreview = -1 'True LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6285 ScaleWidth = 10365 StartUpPosition = 2 'CenterScreen Begin VB.CommandButton ShipToBut Caption = "Ship To" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 1215 TabIndex = 70 ToolTipText = "Edit ship to information" Top = 5040 Width = 1770 End Begin VB.CommandButton Tranbut Caption = "Transactions" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 3000 TabIndex = 69 Top = 5040 Width = 1770 End Begin VB.CommandButton FinBut Caption = "Financials" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 4755 TabIndex = 68 ToolTipText = "View balances for this customer" Top = 5040 Width = 1770 End Begin VB.CommandButton cmdBegReceipts Caption = "Beg Receipts" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 8310 TabIndex = 67 ToolTipText = "Enter previous receipts" Top = 5025 Width = 1770 End Begin VB.CommandButton cmdBegInvoices Caption = "Beg Invoices" BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 6525 TabIndex = 66 ToolTipText = "Enter previous invoices" Top = 5025 Width = 1770 End Begin VB.TextBox txtfieldsCustID DataSource = "adoPrimaryRS" Enabled = 0 'False Height = 285 Left = 4680 Locked = -1 'True TabIndex = 65 Top = 120 Visible = 0 'False Width = 150 End Begin VB.CommandButton btcbRefresh Height = 315 Index = 3 Left = 9600 Picture = "frm_AR_Customer.frx":0000 Style = 1 'Graphical TabIndex = 63 ToolTipText = "Update the Tax group" Top = 1920 Width = 375 End Begin VB.CommandButton btcbRefresh Height = 315 Index = 2 Left = 9600 Picture = "frm_AR_Customer.frx":04B6 Style = 1 'Graphical TabIndex = 62 ToolTipText = "Update the Customer Type" Top = 1560 Width = 375 End Begin VB.CommandButton btcbRefresh Height = 315 Index = 4 Left = 9600 Picture = "frm_AR_Customer.frx":096C Style = 1 'Graphical TabIndex = 61 ToolTipText = "Update the Salesman" Top = 3000 Width = 375 End Begin VB.CommandButton btcbRefresh Height = 315 Index = 1 Left = 9600 Picture = "frm_AR_Customer.frx":0E22 Style = 1 'Graphical TabIndex = 60 ToolTipText = "Update the Payment terms" Top = 1200 Width = 375 End Begin VB.ComboBox cbfields DataField = "AR CUST SalesPerson" Height = 315 Index = 4 Left = 6720 TabIndex = 20 Top = 3000 Width = 2895 End Begin VB.ComboBox cbfields DataField = "AR CUST Tax Group" BeginProperty DataFormat Type = 0 Format = "0" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 0 EndProperty DataSource = "adoprimaryrs" Height = 315 Index = 3 Left = 6720 TabIndex = 18 Top = 1920 Width = 2895 End Begin VB.ComboBox cbfields DataField = "AR CUST Type" Height = 315 Index = 2 Left = 6720 TabIndex = 17 Top = 1560 Width = 2895 End Begin VB.ComboBox cbfields DataField = "AR CUST Payment Terms" DataSource = "adoprimaryrs" Height = 315 Index = 1 Left = 6720 TabIndex = 16 Top = 1200 Width = 2895 End Begin VB.CommandButton btCustSalesAcc Height = 285 Left = 9600 Picture = "frm_AR_Customer.frx":12D8 Style = 1 'Graphical TabIndex = 58 ToolTipText = "Open account lookup form" Top = 2280 Width = 375 End Begin VB.CommandButton btCustID Height = 360 Left = 4200 Picture = "frm_AR_Customer.frx":15EF Style = 1 'Graphical TabIndex = 57 ToolTipText = "Open customer lookup form" Top = 75 Width = 390 End Begin VB.TextBox txtfields DataField = "AR CUST Address 1" DataSource = "adoPrimaryRS" Height = 285 Index = 2 Left = 1200 TabIndex = 2 Top = 840 Width = 3375 End Begin VB.TextBox txtfields DataField = "AR CUST Address 2" DataSource = "adoPrimaryRS" Height = 285 Index = 3 Left = 1200 TabIndex = 3 Top = 1200 Width = 3375 End Begin VB.TextBox txtfields DataField = "AR CUST Average Days To Pay" BeginProperty DataFormat Type = 1 Format = "0" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty DataSource = "adoPrimaryRS" Height = 285 Index = 13 Left = 6720 TabIndex = 14 Top = 480 Width = 2820 End Begin VB.TextBox txtfields DataField = "AR CUST City" DataSource = "adoPrimaryRS" Height = 285 Index = 4 Left = 1200 TabIndex = 4 Top = 1560 Width = 3375 End Begin VB.TextBox txtfields DataField = "AR CUST Contact" DataSource = "adoPrimaryRS" Height = 285 Index = 8 Left = 1200 TabIndex = 8 Top = 3000 Width = 3375 End Begin VB.TextBox txtfields DataField = "AR CUST Country" DataSource = "adoPrimaryRS" Height = 285 Index = 7 Left = 1200 TabIndex = 7 Top = 2640 Width = 3375 End Begin VB.TextBox txtfields DataField = "AR CUST Credit Limit" BeginProperty DataFormat Type = 1 Format = """$""#,##0.00;(""$""#,##0.00)" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 2 EndProperty DataSource = "adoPrimaryRS" Height = 285 Index = 14 Left = 6720 TabIndex = 15 Top = 840 Width = 2850 End Begin VB.TextBox txtfields BackColor = &H80000018& DataField = "AR CUST Customer ID" DataSource = "adoPrimaryRS" Enabled = 0 'False Height = 285 Index = 0 Left = 1200 Locked = -1 'True TabIndex = 0 Top = 120 Width = 3015 End Begin VB.TextBox txtfields DataField = "AR CUST Fax" DataSource = "adoPrimaryRS" Height = 285 Index = 11 Left = 1200 TabIndex = 11 Top = 3720 Width = 3375 End Begin VB.CheckBox chkFields Alignment = 1 'Right Justify Caption = "Finance Charge" DataField = "AR CUST Finance Charge YN" DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 22 Left = 7800 TabIndex = 23 Top = 3720 Width = 1845 End Begin VB.TextBox txtfields DataField = "AR CUST Name" DataSource = "adoPrimaryRS" Height = 285 Index = 1 Left = 1200 TabIndex = 1 Top = 480 Width = 3375 End Begin VB.TextBox txtfields DataField = "AR CUST Notes" DataSource = "adoPrimaryRS" Height = 675 Index = 23 Left = 1185 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 12 Top = 4125 Width = 8850 End Begin VB.TextBox txtfields DataField = "AR CUST Phone" DataSource = "adoPrimaryRS" Height = 285 Index = 9 Left = 1200 TabIndex = 9 Top = 3360 Width = 2175 End Begin VB.TextBox txtfields DataField = "AR CUST Phone Ext" DataSource = "adoPrimaryRS" Height = 285 Index = 10 Left = 3960 TabIndex = 10 Top = 3360 Width = 615 End Begin VB.TextBox txtfields DataField = "AR CUST Postal" DataSource = "adoPrimaryRS" Height = 285 Index = 6 Left = 1200 TabIndex = 6 Top = 2280 Width = 3375 End Begin VB.TextBox txtfields DataField = "AR CUST Sales Account" DataSource = "adoPrimaryRS" Height = 285 Index = 18 Left = 6720 Locked = -1 'True TabIndex = 19 Top = 2280 Width = 2910 End Begin VB.TextBox txtfields DataField = "AR CUST State" DataSource = "adoPrimaryRS" Height = 285 Index = 5 Left = 1200 TabIndex = 5 Top = 1920 Width = 3375 End Begin VB.CheckBox chkFields Alignment = 1 'Right Justify Caption = "Statements" DataField = "AR CUST Statements YN" DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 21 Left = 5160 TabIndex = 22 Top = 3720 Width = 1665 End Begin VB.TextBox txtfields DataField = "AR CUST Tax ID No" DataSource = "adoPrimaryRS" Height = 285 Index = 12 Left = 6720 TabIndex = 13 Top = 120 Width = 2820 End Begin VB.TextBox txtfields DataField = "AR CUST Discount %" BeginProperty DataFormat Type = 1 Format = "0.00" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty DataSource = "adoPrimaryRS" Height = 285 Index = 20 Left = 6720 TabIndex = 21 Top = 3360 Width = 2910 End Begin VB.PictureBox picButtons Align = 2 'Align Bottom Appearance = 0 'Flat BorderStyle = 0 'None ForeColor = &H80000008& Height = 690 Left = 0 ScaleHeight = 690 ScaleWidth = 10365 TabIndex = 34 Top = 5595 Width = 10365 Begin VB.PictureBox picStatBox Appearance = 0 'Flat BorderStyle = 0 'None ForeColor = &H80000008& Height = 300 Left = 0 ScaleHeight = 300 ScaleWidth = 10425 TabIndex = 59 Top = 360 Width = 10425 Begin VB.CommandButton cmdLast Height = 300 Left = 9990 Picture = "frm_AR_Customer.frx":1905 Style = 1 'Graphical TabIndex = 33 Top = 0 UseMaskColor = -1 'True Width = 345 End Begin VB.CommandButton cmdNext Height = 300 Left = 9630 Picture = "frm_AR_Customer.frx":1C47 Style = 1 'Graphical TabIndex = 32 Top = 0 UseMaskColor = -1 'True Width = 345 End Begin VB.CommandButton cmdPrevious Height = 300 Left = 345 Picture = "frm_AR_Customer.frx":1F89 Style = 1 'Graphical TabIndex = 30 Top = 0 UseMaskColor = -1 'True Width = 345 End Begin VB.CommandButton cmdFirst Height = 300 Left = 0 Picture = "frm_AR_Customer.frx":22CB Style = 1 'Graphical TabIndex = 29 Top = 0 UseMaskColor = -1 'True Width = 345 End Begin VB.Label lblStatus BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single Height = 285 Left = 690 TabIndex = 31 Top = 0 Width = 8940 End End Begin VB.CommandButton cmdUpdate Caption = "&Update" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 1560 TabIndex = 25 Top = 15 Width = 1530 End Begin VB.CommandButton cmdClose Caption = "&Close" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 6150 TabIndex = 28 Top = 15 Width = 1530 End Begin VB.CommandButton cmdRefresh Caption = "&Refresh" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 4620 TabIndex = 27 Top = 15 Width = 1530 End Begin VB.CommandButton cmdDelete Caption = "&Delete" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 3090 TabIndex = 26 Top = 15 Width = 1530 End Begin VB.CommandButton cmdAdd Caption = "&Add" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 30 TabIndex = 24 Top = 15 Width = 1530 End End Begin VB.Label lblLabels Alignment = 1 'Right Justify BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 90 Index = 19 Left = 60 TabIndex = 72 Top = 4890 Width = 10260 End Begin VB.Label lblLabels Alignment = 1 'Right Justify BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Height = 75 Index = 9 Left = 75 TabIndex = 71 Top = 5415 Width = 10245 End Begin VB.Label lblLabels Alignment = 2 'Center BorderStyle = 1 'Fixed Single BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 238 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00808000& Height = 345 Index = 27 Left = 6720 TabIndex = 64 Top = 2520 Width = 2925 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Address 1" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 120 TabIndex = 56 Top = 840 Width = 975 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Address 2" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 120 TabIndex = 55 Top = 1200 Width = 975 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Average Days To Pay" DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 4560 TabIndex = 54 Top = 480 Width = 2070 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "City" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 120 TabIndex = 53 Top = 1560 Width = 975 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Contact" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 4 Left = 120 TabIndex = 52 Top = 3000 Width = 975 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Country" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 5 Left = 135 TabIndex = 51 Top = 2640 Width = 975 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Credit Limit" BeginProperty DataFormat Type = 0 Format = """$""#,##0.00" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 0 EndProperty DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 6 Left = 4680 TabIndex = 50 Top = 840 Width = 1815 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Customer ID" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 7 Left = 120 TabIndex = 49 Top = 120 Width = 975 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Fax" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 8 Left = 15 TabIndex = 48 Top = 3720 Width = 1095 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Name" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 10 Left = 120 TabIndex = 47 Top = 480 Width = 975 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Notes" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 11 Left = 0 TabIndex = 46 Top = 4140 Width = 1095 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Payment Terms" DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 12 Left = 4680 TabIndex = 45 Top = 1200 Width = 1815 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Phone" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 13 Left = 0 TabIndex = 44 Top = 3360 Width = 1095 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Ext" DataSource = "adoPrimaryRS" Height = 255 Index = 14 Left = 3480 TabIndex = 43 Top = 3360 Width = 375 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Zip Code" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 15 Left = 120 TabIndex = 42 Top = 2280 Width = 975 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "GL Sales Account:" DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 16 Left = 4680 TabIndex = 41 Top = 2280 Width = 1815 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Salesman" DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 17 Left = 4680 TabIndex = 40 Top = 3000 Width = 1815 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "State" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 18 Left = 120 TabIndex = 39 Top = 1920 Width = 975 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Tax Group" DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 20 Left = 4695 TabIndex = 38 Top = 1920 Width = 1815 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Tax ID Number" DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 21 Left = 4620 TabIndex = 37 Top = 120 Width = 1875 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Customer Type" DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 22 Left = 4680 TabIndex = 36 Top = 1560 Width = 1815 End Begin VB.Label lblLabels Alignment = 1 'Right Justify Caption = "Discount %" DataSource = "adoPrimaryRS" BeginProperty Font Name = "Lucida Sans Unicode" Size = 9.75 Charset = 238 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 23 Left = 4680 TabIndex = 35 Top = 3360 Width = 1815 End Attribute VB_Name = "frm_AR_Customer" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False ''{*********************************************************** ''-TITLE: AR_Customer ''-MODULE ID: 1.21 ''-PURPOSE: This module displays frm_AR_Customer ''-USAGE: frm_AR_Customer ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This module returns no values ''-CALLS: This module calls no other modules ''-CALLED BY: AR_Customer ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************} Option Explicit Dim WithEvents adoPrimaryRS As Recordset Attribute adoPrimaryRS.VB_VarHelpID = -1 Dim db As Connection Dim mbChangedByCode As Boolean Dim mvBookMark As Variant Dim mbEditFlag As Boolean Dim mbAddNewFlag As Boolean Dim mbDataChanged As Boolean Dim CountrsGL As Integer Dim rsGL As Recordset ''{*********************************************************** ''-TITLE: btcbRefresh_Click ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays btcbRefresh_Click ''-USAGE: btcbRefresh_Click(Index As Integer) ''-INPUT ASSERTION: Index As Integer ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: btcbRefresh_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: txttmp ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub btcbRefresh_Click(Index As Integer) Table of Contents Dim txttmp As String txttmp = cbfields(Index).Text ' saves current value ' LoadCombo Index ' refreshes list (WARNING: destroys current value) ' End Sub ''{*********************************************************** ''-TITLE: btCustID_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays btCustID_Click() ''-USAGE: btCustID_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: btCustID_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub btCustID_Click() Table of Contents If adoPrimaryRS.RecordCount = 0 Then Exit Sub frm_LookupCustomer.OpenLookupCustomer "frm_AR_Customer" frm_LookupCustomer.Show vbModal If txtfieldsCustID = "" Then Exit Sub adoPrimaryRS.MoveFirst Dim i As Integer For i = 0 To adoPrimaryRS.RecordCount - 1 If adoPrimaryRS![AR CUST Customer ID] = txtfieldsCustID Then Exit Sub End If adoPrimaryRS.MoveNext Next i End Sub ''{*********************************************************** ''-TITLE: btCustSalesAcc_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays btCustSalesAcc_Click() ''-USAGE: btCustSalesAcc_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: btCustSalesAcc_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub btCustSalesAcc_Click() Table of Contents frm_LookupBankAccount.OpenFind "Account Description", 1, "GL COA Account No", "GL COA Account Name", "GL Chart Of Accounts", "select [GL COA Account No], [GL COA Account Name] from [GL Chart Of Accounts]" frm_LookupBankAccount.Show vbModal txtFields(18).SetFocus ' trigger event adFirstChange ' End Sub ''{*********************************************************** ''-TITLE: cbfields_KeyPress ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cbfields_KeyPress ''-USAGE: cbfields_KeyPress(Index As Integer, KeyAscii As Integer) ''-INPUT ASSERTION: Index As Integer, KeyAscii As Integer ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cbfields_KeyPress ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: keyResponse ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cbfields_KeyPress(Index As Integer, KeyAscii As Integer) Table of Contents Dim keyResponse As Boolean keyResponse = CtrlValidate(KeyAscii, "") If keyResponse = True Then Else KeyAscii = 0 End If End Sub ''{*********************************************************** ''-TITLE: cmdBegInvoices_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdBegInvoices_Click() ''-USAGE: cmdBegInvoices_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdBegInvoices_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdBegInvoices_Click() Table of Contents If txtFields(0) = "" Then Exit Sub frm_Customer_Beginning_Balances.OpenForm adoPrimaryRS frm_Customer_Beginning_Balances.Show vbModal End Sub ''{*********************************************************** ''-TITLE: cmdBegReceipts_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdBegReceipts_Click() ''-USAGE: cmdBegReceipts_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdBegReceipts_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdBegReceipts_Click() Table of Contents If txtFields(0) = "" Then Exit Sub frm_Customer_Beginning_Balances_Payment.OpenForm adoPrimaryRS frm_Customer_Beginning_Balances_Payment.Show vbModal End Sub ''{*********************************************************** ''-TITLE: FinBut_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays FinBut_Click() ''-USAGE: FinBut_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: FinBut_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub FinBut_Click() Table of Contents If txtFields(0) = "" Then MsgBox "No customer selected", vbInformation Exit Sub End If gCustomerdrill = frm_AR_Customer.txtFields(0).Text frm_AR_Cust_Financials.Show vbModal End Sub ''{*********************************************************** ''-TITLE: Form_Load() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure loads Form ''-USAGE: Form_Load() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: Form_Load; Main_Calculator.Cancel_Click ''-TABLES/FIELDS USED: /All or Any of the Fields ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: sql, oText, oCheck, oCombo ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub Form_Load() Table of Contents On Error GoTo FormErr Set db = New Connection db.CursorLocation = adUseClient db.Open gblADOProvider Set rsGL = New Recordset rsGL.Open "select * from [GL Chart Of Accounts] ", db, adOpenStatic, adLockOptimistic CountrsGL = rsGL.RecordCount Dim sql As String sql = "projARCustomer" Set adoPrimaryRS = New Recordset adoPrimaryRS.Open sql, db, adOpenStatic, adLockOptimistic, adCmdTable LoadCombo 0 ' loads all comboboxes ' Dim oText As TextBox For Each oText In Me.txtFields Set oText.DataSource = adoPrimaryRS If adoPrimaryRS("" & oText.DataField & "").Type <> 203 Then oText.MaxLength = adoPrimaryRS("" & oText.DataField & "").DefinedSize End If Next Dim oCheck As CheckBox For Each oCheck In Me.chkFields Set oCheck.DataSource = adoPrimaryRS Next Dim oCombo As ComboBox For Each oCombo In Me.cbfields Set oCombo.DataSource = adoPrimaryRS Next If CheckNewDB(adoPrimaryRS, "Customer") = True Then cmdAdd_Click End If mbDataChanged = False Exit Sub FormErr: MsgBox Err.Description Screen.MousePointer = vbDefault End Sub ''{*********************************************************** ''-TITLE: Form_Resize() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure resizes Form ''-USAGE: Form_Resize() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: Form_Resize; Main_Browser.Form_Load ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub Form_Resize() Table of Contents lblStatus.Width = Me.Width - 1500 cmdNext.Left = lblStatus.Width + 700 cmdLast.Left = cmdNext.Left + 340 End Sub ''{*********************************************************** ''-TITLE: Form_KeyDown ''-MODULE ID: 1.21 ''-PURPOSE: Event KeyDown for Form ''-USAGE: Form_KeyDown(KeyCode As Integer, Shift As Integer) ''-INPUT ASSERTION: KeyCode As Integer, Shift As Integer ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: Form_KeyDown ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Table of Contents If mbEditFlag Or mbAddNewFlag Then Exit Sub End If Select Case KeyCode Case vbKeyEscape cmdClose_Click Case vbKeyEnd cmdLast_Click Case vbKeyHome cmdFirst_Click Case vbKeyUp, vbKeyPageUp If Shift = vbCtrlMask Then cmdFirst_Click Else cmdPrevious_Click End If Case vbKeyDown, vbKeyPageDown If Shift = vbCtrlMask Then cmdLast_Click Else cmdNext_Click End If End Select End Sub ''{*********************************************************** ''-TITLE: Form_Unload ''-MODULE ID: 1.21 ''-PURPOSE: This procedure unloads Form ''-USAGE: Form_Unload(Cancel As Integer) ''-INPUT ASSERTION: Cancel As Integer ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: Form_Unload; Purchasing_Module.RedoPurchaseNumbers ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub Form_Unload(Cancel As Integer) Table of Contents On Error GoTo FormErr Screen.MousePointer = vbHourglass EndLoad db, adoPrimaryRS, "Customers" If adoPrimaryRS.RecordCount > 0 Then If adoPrimaryRS.EditMode <> 0 Then adoPrimaryRS.CancelUpdate End If End If adoPrimaryRS.Close rsGL.Close Set adoPrimaryRS = Nothing db.Close Set db = Nothing Screen.MousePointer = vbDefault Exit Sub FormErr: MsgBox Err.Description Screen.MousePointer = vbDefault End Sub ''{*********************************************************** ''-TITLE: adoPrimaryRS_MoveComplete ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays adoPrimaryRS_MoveComplete ''-USAGE: adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) ''-INPUT ASSERTION: ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: adoPrimaryRS_MoveComplete ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Table of Contents lblStatus.caption = "Record: " & CStr(adoPrimaryRS.AbsolutePosition) & " of " & CStr(adoPrimaryRS.RecordCount) End Sub ''{*********************************************************** ''-TITLE: adoPrimaryRS_WillChangeRecord ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays adoPrimaryRS_WillChangeRecord ''-USAGE: adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) ''-INPUT ASSERTION: ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: adoPrimaryRS_WillChangeRecord ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: bCancel ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Table of Contents Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End If End Sub ''{*********************************************************** ''-TITLE: cmdAdd_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdAdd_Click() ''-USAGE: cmdAdd_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdAdd_Click; frm_AP_Receiving_Entry.Form_Load; frm_AP_Receiving_Entry.RefreshDB; frm_AP_Receiving_Entry.cmdDelete_Click; frm_AP_Receiving_Entry.grdDataGrid_GotFocus; frm_AP_RMA_Entry.Form_Load; frm_AP_RMA_Entry.RefreshDB; frm_AP_RMA_Entry.cmdDelete_Click; frm_AP_RMA_Entry.grdDataGrid_GotFocus; frm_AP_Voucher_Entry.Form_Load; frm_AP_Voucher_Entry.RefreshDB; frm_AP_Voucher_Entry.cmdDelete_Click; frm_AP_Voucher_Entry.grdDataGrid_GotFocus; frm_AR_Order_Entry.Form_Load; frm_AR_Order_Entry.RefreshDB; frm_AR_Order_Entry.cmdDelete_Click; frm_AR_Order_Entry.grdDataGrid_GotFocus; frm_AR_Return_Entry.Form_Load; frm_AR_Return_Entry.RefreshDB; frm_AR_Return_Entry.cmdDelete_Click; frm_AR_Return_Entry.grdDataGrid_GotFocus; frm_AR_Sales_Memo_Entry.RefreshDB; frm_AR_Sales_Memo_Entry.Form_Load; frm_AR_Sales_Memo_Entry.cmdDelete_Click; frm_AR_Sales_Memo_Entry.grdDataGrid_GotFocus; frm_AP_Purchase_Entry.Form_Load; frm_AP_Purchase_Entry.RefreshDB; frm_AP_Purchase_Entry.cmdDelete_Click; frm ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: SetFlagBool ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdAdd_Click() Table of Contents Dim SetFlagBool As Boolean With adoPrimaryRS If cmdAdd.caption = "&Add" Then If Not (.BOF And .EOF) Then mvBookMark = .Bookmark End If .AddNew lblStatus.caption = "Add record" mbAddNewFlag = True SetFlagBool = False cmdAdd.caption = "&Cancel" txtFields(0).Enabled = True txtFields(0).Locked = False cmdUpdate.Enabled = True cmdDelete.Enabled = False cmdRefresh.Enabled = False ShipToBut.Enabled = False FinBut.Enabled = False Tranbut.Enabled = False btCustSalesAcc.Enabled = True btCustID.Enabled = False btcbRefresh(1).Enabled = True btcbRefresh(2).Enabled = True btcbRefresh(3).Enabled = True btcbRefresh(4).Enabled = True cmdFirst.Enabled = False cmdLast.Enabled = False cmdNext.Enabled = False cmdPrevious.Enabled = False Else mbAddNewFlag = False cmdCancel_Click cmdAdd.caption = "&Add" SetFlagBool = True If adoPrimaryRS.RecordCount = 0 Then txtFields(0).Enabled = False txtFields(0).Locked = True cmdUpdate.Enabled = False cmdDelete.Enabled = False cmdRefresh.Enabled = False ShipToBut.Enabled = False FinBut.Enabled = False Tranbut.Enabled = False btCustSalesAcc.Enabled = False btCustID.Enabled = False btcbRefresh(1).Enabled = False btcbRefresh(2).Enabled = False btcbRefresh(3).Enabled = False btcbRefresh(4).Enabled = False cmdFirst.Enabled = False cmdLast.Enabled = False cmdNext.Enabled = False cmdPrevious.Enabled = False Else txtFields(0).Enabled = False txtFields(0).Locked = True cmdUpdate.Enabled = True cmdDelete.Enabled = True cmdRefresh.Enabled = True ShipToBut.Enabled = True FinBut.Enabled = True Tranbut.Enabled = True btCustSalesAcc.Enabled = True btCustID.Enabled = True btcbRefresh(1).Enabled = True btcbRefresh(2).Enabled = True btcbRefresh(3).Enabled = True btcbRefresh(4).Enabled = True cmdFirst.Enabled = True cmdLast.Enabled = True cmdNext.Enabled = True cmdPrevious.Enabled = True End If End If End With Exit Sub AddErr: MsgBox Err.Description End Sub ''{*********************************************************** ''-TITLE: cmdDelete_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdDelete_Click() ''-USAGE: cmdDelete_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdDelete_Click; frm_AP_Purchase_Entry.cmdConvert_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: Ccount, ShipTo, sql, SQLW, n ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdDelete_Click() Table of Contents If adoPrimaryRS.BOF = True And adoPrimaryRS.EOF = True Then Exit Sub On Error GoTo DeleteErr If MsgBox("Are you sure that you want delete current Customer ?", vbYesNo + vbQuestion) = vbYes Then Dim Ccount Dim ShipTo As Recordset Set ShipTo = New Recordset Dim sql As String sql = "select [AR SHIP ID],[AR SHIP Name],[AR SHIP Address 1],[AR SHIP Address 2]," & _ "[AR SHIP Customer ID],[AR SHIP Default],[AR SHIP City],[AR SHIP State]," & _ "[AR SHIP Postal],[AR SHIP Country],[AR SHIP Contact],[AR SHIP Phone]," & _ "[AR SHIP Phone Ext],[AR SHIP Fax],[AR SHIP Notes] from [AR Ship To]" Dim SQLW As String SQLW = " where [AR SHIP Customer ID] = '" & frm_AR_Customer.txtFields(0).Text & "'" ShipTo.Open sql & SQLW, db, adOpenStatic, adLockOptimistic If ShipTo.RecordCount > 0 Then ShipTo.MoveFirst Ccount = ShipTo.RecordCount Dim n As Integer For n = 0 To Ccount ShipTo.Delete ShipTo.MoveNext n = n + 1 Next ShipTo.Close End If With adoPrimaryRS If .RecordCount = 0 Then ' no records maa.... ' Exit Sub End If If .EditMode = False Then .Delete .MoveNext If .RecordCount = 0 Then ' no more records ' cmdUpdate.Enabled = False cmdDelete.Enabled = False cmdRefresh.Enabled = False ShipToBut.Enabled = False FinBut.Enabled = False Tranbut.Enabled = False .Requery Exit Sub ElseIf .EOF Then .MoveLast End If If Not (.BOF Or .EOF) Then mvBookMark = .Bookmark End If Else MsgBox "Must update or refresh record before deleting.", vbCritical, _ "Delete Error." End If End With Else Screen.MousePointer = vbNormal Exit Sub End If Exit Sub DeleteErr: MsgBox Err.Description End Sub ''{*********************************************************** ''-TITLE: cmdRefresh_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdRefresh_Click() ''-USAGE: cmdRefresh_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdRefresh_Click; frm_AP_Receiving_Entry.cmdAdd_Click; frm_AP_RMA_Entry.cmdAdd_Click; frm_AP_Voucher_Entry.cmdAdd_Click; frm_AR_Order_Entry.cmdAdd_Click; frm_AR_Return_Entry.cmdAdd_Click; frm_AR_Sales_Memo_Entry.cmdAdd_Click; frm_AP_Purchase_Entry.cmdAdd_Click; frm_AR_Sales_Entry.cmdAdd_Click; frm_AP_Credit_Entry.cmdAdd_Click; frm_AR_Credit_Entry.cmdAdd_Click; frm_INV_Production.cmdAdd_Click; frm_AR_Quote_Entry.cmdAdd_Click; frm_INV_Adjust.cmdAdd_Click; frm_GL_Entry.cmdReverse_Click; frm_GL_Entry.cmdAdd_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdRefresh_Click() Table of Contents If adoPrimaryRS.BOF = True And adoPrimaryRS.EOF = True Then Exit Sub On Error GoTo RefreshErr ' With adoPrimaryRS If .EditMode = adEditInProgress Then .CancelUpdate End If If .RecordCount <> 0 Then mvBookMark = .Bookmark .Requery .Bookmark = mvBookMark End If End With Exit Sub RefreshErr: MsgBox Err.Description End Sub ''{*********************************************************** ''-TITLE: cmdCancel_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdCancel_Click() ''-USAGE: cmdCancel_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdCancel_Click; frm_AR_Customer.cmdAdd_Click; frm_AR_Customer.cmdAdd_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdCancel_Click() Table of Contents mbEditFlag = False mbAddNewFlag = False With adoPrimaryRS If .RecordCount > 0 Then If .EditMode <> 0 Then .CancelUpdate End If End If If (.BOF And .EOF) Then ' if no records, don't move ' Exit Sub End If If mvBookMark > 0 Then .Bookmark = mvBookMark Else .MoveFirst End If End With mbDataChanged = False End Sub ''{*********************************************************** ''-TITLE: cmdUpdate_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdUpdate_Click() ''-USAGE: cmdUpdate_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdUpdate_Click; frm_AP_Receiving_Entry.cmdPost_Click; frm_AP_Receiving_Entry.cmdPost_Click; frm_AP_Receiving_Entry.AddNewROW_to_grd; frm_AP_Receiving_Entry.AddNewROW_to_grd; frm_AP_RMA_Entry.cmdPost_Click; frm_AP_RMA_Entry.cmdPost_Click; frm_AP_RMA_Entry.AddNewROW_to_grd; frm_AP_RMA_Entry.AddNewROW_to_grd; frm_AP_Voucher_Entry.cmdPost_Click; frm_AP_Voucher_Entry.cmdPost_Click; frm_AP_Voucher_Entry.AddNewROW_to_grd; frm_AP_Voucher_Entry.AddNewROW_to_grd; frm_AR_Order_Entry.cmdCreateInvoice_Click; frm_AR_Order_Entry.cmdCreateInvoice_Click; frm_AR_Order_Entry.AddNewROW_to_grd; frm_AR_Return_Entry.cmdPostInvoice_Click; frm_AR_Return_Entry.cmdPostInvoice_Click; frm_AR_Return_Entry.AddNewROW_to_grd; frm_AR_Sales_Memo_Entry.cmdPostInvoice_Click; frm_AR_Sales_Memo_Entry.cmdPostInvoice_Click; frm_AR_Sales_Memo_Entry.AddNewROW_to_grd; frm_AP_Purchase_Entry.AddNewROW_to_grd; frm_AP_Purchase_Entry.AddNewROW_to_grd; frm_AR_Sales_Entry.cmdPostInvoice_Click; frm_AR_Sales_Entry.cmdPos ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: oTxt, ShipTo, sql, SQLW ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdUpdate_Click() Table of Contents On Error GoTo UpdateErr If Trim(txtFields(0)) = "" Then ' update ' MsgBox "Cannot insert empty row / fill Customer ID!!!", vbInformation, "IABVB Team Information!" Exit Sub End If With adoPrimaryRS If .RecordCount = 0 Then ' no records to update ' Exit Sub End If If Trim(txtFields(0).Text) <> "" Then Dim oTxt As TextBox For Each oTxt In Me.txtFields If oTxt.Text = "" Then If adoPrimaryRS("" & oTxt.DataField & "").Type = 203 Or adoPrimaryRS("" & oTxt.DataField & "").Type = 202 Then oTxt.Text = " " End If End If Next End If .Update Dim ShipTo As Recordset Set ShipTo = New Recordset Dim sql As String sql = "select [AR SHIP ID],[AR SHIP Name],[AR SHIP Address 1],[AR SHIP Address 2]," & _ "[AR SHIP Customer ID],[AR SHIP Default],[AR SHIP City],[AR SHIP State]," & _ "[AR SHIP Postal],[AR SHIP Country],[AR SHIP Contact],[AR SHIP Phone]," & _ "[AR SHIP Phone Ext],[AR SHIP Fax],[AR SHIP Notes] from [AR Ship To]" Dim SQLW As String SQLW = " where [AR SHIP Customer ID] = '" & frm_AR_Customer.txtFields(0).Text & "'" If mbAddNewFlag Then ' requery to get default value assigned by database ' ShipTo.Open sql, db, adOpenStatic, adLockOptimistic ShipTo.AddNew ShipTo("AR SHIP ID") = txtFields(0) ShipTo("AR SHIP Default") = "1" .Requery .MoveLast mbAddNewFlag = False Else ShipTo.Open sql & SQLW, db, adOpenStatic, adLockOptimistic End If ShipTo("AR SHIP Customer ID") = txtFields(0) ShipTo("AR SHIP Name") = txtFields(1) ShipTo("AR SHIP Address 1") = txtFields(2) ShipTo("AR SHIP Address 2") = txtFields(3) ShipTo("AR SHIP City") = txtFields(4) ShipTo("AR SHIP State") = txtFields(5) ShipTo("AR SHIP Postal") = txtFields(6) ShipTo("AR SHIP Phone") = txtFields(9) ShipTo("AR SHIP Fax") = txtFields(11) ShipTo("AR SHIP Country") = txtFields(7) ShipTo("AR SHIP Phone Ext") = txtFields(10) ShipTo("AR SHIP Contact") = txtFields(8) ShipTo.Update ShipTo.Close cmdAdd.caption = "&Add" txtFields(0).Enabled = False txtFields(0).Locked = True cmdUpdate.Enabled = True cmdDelete.Enabled = True cmdRefresh.Enabled = True ShipToBut.Enabled = True FinBut.Enabled = True Tranbut.Enabled = True btCustSalesAcc.Enabled = True btCustID.Enabled = True btcbRefresh(1).Enabled = True btcbRefresh(2).Enabled = True btcbRefresh(3).Enabled = True btcbRefresh(4).Enabled = True cmdFirst.Enabled = True cmdLast.Enabled = True cmdNext.Enabled = True cmdPrevious.Enabled = True End With mbEditFlag = False mbDataChanged = False Exit Sub UpdateErr: If Err.Number = -2147467259 Then MsgBox "Customer with that ID already exists, enter different ID!", vbOKOnly, "Information!" txtFields(0).SetFocus txtFields(0) = "" Else MsgBox Err.Description End If Screen.MousePointer = vbNormal End Sub ''{*********************************************************** ''-TITLE: cmdClose_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdClose_Click() ''-USAGE: cmdClose_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdClose_Click; frm_AP_Pay_Many_Vendors.Form_KeyDown; frm_AP_Receiving_Entry.Form_KeyDown; frm_AP_RMA_Entry.Form_KeyDown; frm_AP_Voucher_Entry.Form_KeyDown; frm_AR_Order_Entry.Form_KeyDown; frm_AR_Return_Entry.Form_KeyDown; frm_AR_Sales_Memo_Entry.Form_KeyDown; frm_AR_CustomerID.grdDataGrid_DblClick; frm_LookupBankAccount.grdDataGrid_DblClick; frm_LookupCOA.grdDataGrid_DblClick; frm_LookupFind.grdDataGrid_DblClick; frm_ProperInvoiceNumber.UpdateOrderDocument; frm_AP_Purchase_Entry.Form_KeyDown; frm_AR_Sales_Entry.Form_KeyDown; frm_AP_Credit_Entry.Form_KeyDown; frm_AR_Credit_Entry.Form_KeyDown; frm_LIST_Payment_Terms.Form_KeyDown; frm_Menu_Inventory.Form_KeyDown; frm_AR_Customer.Form_KeyDown; frm_Bank_Reconciliation.Form_KeyDown; frm_LookupProduct.CmdSelect_Click; frm_LookupProduct.CmdSelect_Click; frm_LookupProduct.grdDataGrid_DblClick; frm_SYS_Setup_Items.Form_KeyDown; frm_AP_Cash_Payments.Form_KeyDown; frm_AR_Cash_Receipts.Form_KeyDown; frm_INV_Production.Form_KeyDown ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdClose_Click() Table of Contents Unload Me End Sub ''{*********************************************************** ''-TITLE: cmdFirst_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdFirst_Click() ''-USAGE: cmdFirst_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdFirst_Click; frm_AP_Pay_Many_Vendors.Form_KeyDown; frm_AP_Pay_Many_Vendors.Form_KeyDown; frm_AP_Receiving_Entry.Form_KeyDown; frm_AP_Receiving_Entry.Form_KeyDown; frm_AP_RMA_Entry.Form_KeyDown; frm_AP_RMA_Entry.Form_KeyDown; frm_AP_Voucher_Entry.Form_KeyDown; frm_AP_Voucher_Entry.Form_KeyDown; frm_AR_Order_Entry.Form_KeyDown; frm_AR_Order_Entry.Form_KeyDown; frm_AR_Return_Entry.Form_KeyDown; frm_AR_Return_Entry.Form_KeyDown; frm_AR_Sales_Memo_Entry.Form_KeyDown; frm_AR_Sales_Memo_Entry.Form_KeyDown; frm_AP_Purchase_Entry.Form_KeyDown; frm_AP_Purchase_Entry.Form_KeyDown; frm_AR_Sales_Entry.Form_KeyDown; frm_AR_Sales_Entry.Form_KeyDown; frm_AP_Credit_Entry.Form_KeyDown; frm_AP_Credit_Entry.Form_KeyDown; frm_AR_Credit_Entry.Form_KeyDown; frm_AR_Credit_Entry.Form_KeyDown; frm_LIST_Payment_Terms.Form_KeyDown; frm_LIST_Payment_Terms.Form_KeyDown; frm_Menu_Inventory.Form_KeyDown; frm_Menu_Inventory.Form_KeyDown; frm_AR_Customer.Form_KeyDown; frm_AR_Customer.Form_KeyDown; fr ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdFirst_Click() Table of Contents On Error GoTo GoFirstError If adoPrimaryRS.BOF = True And adoPrimaryRS.EOF = True Then Exit Sub If cmdAdd.caption = "&Cancel" Then Exit Sub End If adoPrimaryRS.MoveFirst mbDataChanged = False Exit Sub GoFirstError: MsgBox Err.Description End Sub ''{*********************************************************** ''-TITLE: cmdLast_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdLast_Click() ''-USAGE: cmdLast_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdLast_Click; frm_AP_Pay_Many_Vendors.Form_KeyDown; frm_AP_Pay_Many_Vendors.Form_KeyDown; frm_AP_Receiving_Entry.Form_KeyDown; frm_AP_Receiving_Entry.Form_KeyDown; frm_AP_RMA_Entry.Form_KeyDown; frm_AP_RMA_Entry.Form_KeyDown; frm_AP_Voucher_Entry.Form_KeyDown; frm_AP_Voucher_Entry.Form_KeyDown; frm_AR_Order_Entry.Form_KeyDown; frm_AR_Order_Entry.Form_KeyDown; frm_AR_Return_Entry.Form_KeyDown; frm_AR_Return_Entry.Form_KeyDown; frm_AR_Sales_Memo_Entry.Form_KeyDown; frm_AR_Sales_Memo_Entry.Form_KeyDown; frm_AP_Purchase_Entry.Form_KeyDown; frm_AP_Purchase_Entry.Form_KeyDown; frm_AR_Sales_Entry.Form_KeyDown; frm_AR_Sales_Entry.Form_KeyDown; frm_AP_Credit_Entry.Form_KeyDown; frm_AP_Credit_Entry.Form_KeyDown; frm_AR_Credit_Entry.Form_KeyDown; frm_AR_Credit_Entry.Form_KeyDown; frm_LIST_Payment_Terms.Form_KeyDown; frm_LIST_Payment_Terms.Form_KeyDown; frm_Menu_Inventory.Form_KeyDown; frm_Menu_Inventory.Form_KeyDown; frm_AR_Customer.Form_KeyDown; frm_AR_Customer.Form_KeyDown; frm ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdLast_Click() Table of Contents If adoPrimaryRS.BOF = True And adoPrimaryRS.EOF = True Then Exit Sub On Error GoTo GoLastError If cmdAdd.caption = "&Cancel" Then Exit Sub End If adoPrimaryRS.MoveLast mbDataChanged = False Exit Sub GoLastError: MsgBox Err.Description End Sub ''{*********************************************************** ''-TITLE: cmdNext_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdNext_Click() ''-USAGE: cmdNext_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdNext_Click; frm_AP_Pay_Many_Vendors.Form_KeyDown; frm_AP_Receiving_Entry.Form_KeyDown; frm_AP_RMA_Entry.Form_KeyDown; frm_AP_Voucher_Entry.Form_KeyDown; frm_AR_Order_Entry.Form_KeyDown; frm_AR_Return_Entry.Form_KeyDown; frm_AR_Sales_Memo_Entry.Form_KeyDown; frm_AP_Purchase_Entry.Form_KeyDown; frm_AR_Sales_Entry.Form_KeyDown; frm_AP_Credit_Entry.Form_KeyDown; frm_AR_Credit_Entry.Form_KeyDown; frm_LIST_Payment_Terms.Form_KeyDown; frm_Menu_Inventory.Form_KeyDown; frm_AR_Customer.Form_KeyDown; frm_Bank_Reconciliation.Form_KeyDown; frm_SYS_Setup_Items.Form_KeyDown; frm_AP_Cash_Payments.Form_KeyDown; frm_INV_Production.Form_KeyDown; frm_SYS_Setup_Tax_Authorities.Form_KeyDown; frm_AR_Quote_Entry.Form_KeyDown; frm_SYS_Setup_Tax_Group.Form_KeyDown; frm_SYS_Setup_Periods.Form_KeyDown; frm_SYS_Setup_Chart_Of_Accounts.Form_KeyDown; frm_Menu_Contacts.Form_KeyDown; frm_LIST_Shipping_Methods.Form_KeyDown; frm_LIST_Vendor_Types.Form_KeyDown; frm_LIST_Payment_Methods.Form_KeyDown; fr ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdNext_Click() Table of Contents If adoPrimaryRS.BOF = True And adoPrimaryRS.EOF = True Then Exit Sub On Error GoTo GoNextError If cmdAdd.caption = "&Cancel" Then Exit Sub End If If Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveNext End If If adoPrimaryRS.EOF And adoPrimaryRS.RecordCount > 0 Then Beep adoPrimaryRS.MoveLast End If mbDataChanged = False Exit Sub GoNextError: MsgBox Err.Description End Sub ''{*********************************************************** ''-TITLE: cmdPrevious_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays cmdPrevious_Click() ''-USAGE: cmdPrevious_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: cmdPrevious_Click; frm_AP_Pay_Many_Vendors.Form_KeyDown; frm_AP_Receiving_Entry.Form_KeyDown; frm_AP_RMA_Entry.Form_KeyDown; frm_AP_Voucher_Entry.Form_KeyDown; frm_AR_Order_Entry.Form_KeyDown; frm_AR_Return_Entry.Form_KeyDown; frm_AR_Sales_Memo_Entry.Form_KeyDown; frm_AP_Purchase_Entry.Form_KeyDown; frm_AR_Sales_Entry.Form_KeyDown; frm_AP_Credit_Entry.Form_KeyDown; frm_AR_Credit_Entry.Form_KeyDown; frm_LIST_Payment_Terms.Form_KeyDown; frm_Menu_Inventory.Form_KeyDown; frm_AR_Customer.Form_KeyDown; frm_Bank_Reconciliation.Form_KeyDown; frm_SYS_Setup_Items.Form_KeyDown; frm_AP_Cash_Payments.Form_KeyDown; frm_INV_Production.Form_KeyDown; frm_SYS_Setup_Tax_Authorities.Form_KeyDown; frm_AR_Quote_Entry.Form_KeyDown; frm_SYS_Setup_Tax_Group.Form_KeyDown; frm_SYS_Setup_Periods.Form_KeyDown; frm_SYS_Setup_Chart_Of_Accounts.Form_KeyDown; frm_Menu_Contacts.Form_KeyDown; frm_LIST_Shipping_Methods.Form_KeyDown; frm_LIST_Vendor_Types.Form_KeyDown; frm_LIST_Payment_Methods.Form_KeyDown ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub cmdPrevious_Click() Table of Contents If adoPrimaryRS.BOF = True And adoPrimaryRS.EOF = True Then Exit Sub On Error GoTo GoPrevError ' If cmdAdd.caption = "&Cancel" Then Exit Sub End If If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePrevious End If If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Then Beep adoPrimaryRS.MoveFirst End If mbDataChanged = False Exit Sub GoPrevError: MsgBox Err.Description End Sub ''{*********************************************************** ''-TITLE: SetButtons ''-MODULE ID: 1.21 ''-PURPOSE: This procedure manages Visible/inVisible of Buttons ''-USAGE: SetButtons(bVal As Boolean) ''-INPUT ASSERTION: bVal As Boolean ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: SetButtons; frm_AP_Pay_Many_Vendors.cmdAdd_Click; frm_AP_Pay_Many_Vendors.cmdEdit_Click; frm_AP_Pay_Many_Vendors.cmdCancel_Click; frm_AP_Pay_Many_Vendors.cmdUpdate_Click; frm_AP_Receiving_Entry.cmdAdd_Click; frm_AP_Receiving_Entry.cmdAdd_Click; frm_AP_Receiving_Entry.cmdEdit_Click; frm_AP_Receiving_Entry.cmdCancel_Click; frm_AP_Receiving_Entry.cmdUpdate_Click; frm_AP_RMA_Entry.cmdAdd_Click; frm_AP_RMA_Entry.cmdAdd_Click; frm_AP_RMA_Entry.cmdEdit_Click; frm_AP_RMA_Entry.cmdCancel_Click; frm_AP_RMA_Entry.cmdUpdate_Click; frm_AP_Voucher_Entry.cmdAdd_Click; frm_AP_Voucher_Entry.cmdAdd_Click; frm_AP_Voucher_Entry.cmdEdit_Click; frm_AP_Voucher_Entry.cmdCancel_Click; frm_AP_Voucher_Entry.cmdUpdate_Click; frm_AR_Order_Entry.cmdAdd_Click; frm_AR_Order_Entry.cmdAdd_Click; frm_AR_Order_Entry.cmdEdit_Click; frm_AR_Order_Entry.cmdCancel_Click; frm_AR_Order_Entry.cmdUpdate_Click; frm_AR_Return_Entry.cmdAdd_Click; frm_AR_Return_Entry.cmdAdd_Click; frm_AR_Return_Entry.cmdEdit_Click; fr ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub SetButtons(bVal As Boolean) Table of Contents cmdAdd.Visible = bVal cmdUpdate.Visible = bVal cmdDelete.Visible = bVal cmdClose.Visible = bVal cmdRefresh.Visible = bVal cmdNext.Enabled = bVal cmdFirst.Enabled = bVal cmdLast.Enabled = bVal cmdPrevious.Enabled = bVal End Sub ''{*********************************************************** ''-TITLE: ShipToBut_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays ShipToBut_Click() ''-USAGE: ShipToBut_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: ShipToBut_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub ShipToBut_Click() Table of Contents If txtFields(0) = "" Then MsgBox "No customer selected", vbInformation Exit Sub End If frm_AR_Cust_Ship_To.Show vbModal End Sub ''{*********************************************************** ''-TITLE: Tranbut_Click() ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays Tranbut_Click() ''-USAGE: Tranbut_Click() ''-INPUT ASSERTION: Expects as input : nothing ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: Tranbut_Click ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub Tranbut_Click() Table of Contents If txtFields(0) = "" Then MsgBox "No customer selected", vbInformation Exit Sub End If frm_AR_Cust_Drill.Show vbModal End Sub ''{*********************************************************** ''-TITLE: LoadCombo ''-MODULE ID: 1.21 ''-PURPOSE: This procedure loads combos ''-USAGE: LoadCombo(cbType As Integer) ''-INPUT ASSERTION: cbType As Integer ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: LoadCombo; frm_AP_Receiving_Entry.cmdUpdatedua_Click; frm_AP_Receiving_Entry.cmdUpdatedua_Click; frm_AP_Receiving_Entry.cmdUpdatedua_Click; frm_AP_Receiving_Entry.cmdUpdatedua_Click; frm_AP_Receiving_Entry.Form_Load; frm_AP_Receiving_Entry.OpenDB; frm_AP_Receiving_Entry.RefreshDB; frm_AP_RMA_Entry.cmdUpdatedua_Click; frm_AP_RMA_Entry.cmdUpdatedua_Click; frm_AP_RMA_Entry.cmdUpdatedua_Click; frm_AP_RMA_Entry.cmdUpdatedua_Click; frm_AP_RMA_Entry.Form_Load; frm_AP_RMA_Entry.OpenDB; frm_AP_RMA_Entry.RefreshDB; frm_AP_Voucher_Entry.cmdUpdatedua_Click; frm_AP_Voucher_Entry.cmdUpdatedua_Click; frm_AP_Voucher_Entry.cmdUpdatedua_Click; frm_AP_Voucher_Entry.cmdUpdatedua_Click; frm_AP_Voucher_Entry.Form_Load; frm_AP_Voucher_Entry.OpenDB; frm_AP_Voucher_Entry.RefreshDB; frm_AR_Order_Entry.OpenDB; frm_AR_Order_Entry.cmdUpdatedua_Click; frm_AR_Order_Entry.cmdUpdatedua_Click; frm_AR_Order_Entry.cmdUpdatedua_Click; frm_AR_Order_Entry.cmdUpdatedua_Click; frm_AR_Order_Entry.cmdUpdatedua_C ''-TABLES/FIELDS USED: [SYS Tax] /All or Any of the Fields ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub LoadCombo(cbType As Integer) Table of Contents Select Case cbType Case 0 ComboInit cbfields(1), lblLabels(12), "select [LIST PAY Description] " & _ "from [LIST Payment Terms]" ComboInit cbfields(2), lblLabels(22), "select [Customer Type] " & _ "from [LIST Customer Types]" ComboInit cbfields(3), lblLabels(20), "select [SYS TAXGRP Name] from [SYS Tax Group]" ComboInit cbfields(4), lblLabels(17), "select [EMP ID] from [EMP Employees]" Case 1 ComboInit cbfields(1), lblLabels(12), "select [LIST PAY Description] " & _ "from [LIST Payment Terms]" Case 2 ComboInit cbfields(2), lblLabels(22), "select [Customer Type] " & _ "from [LIST Customer Types]" Case 3 ComboInit cbfields(3), lblLabels(20), "select [SYS TAXGRP Name] from [SYS Tax Group]" Case 4 ComboInit cbfields(4), lblLabels(17), "select [EMP ID] from [EMP Employees]" End Select End Sub ''{*********************************************************** ''-TITLE: txtFields_Change ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays txtFields_Change ''-USAGE: txtFields_Change(Index As Integer) ''-INPUT ASSERTION: Index As Integer ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: txtFields_Change ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub txtFields_Change(Index As Integer) Table of Contents If Index <> 18 Then Exit Sub Select Case Index Case 18 lblLabels(27).caption = Get_NameGL(txtFields(Index)) End Select End Sub ''{*********************************************************** ''-TITLE: txtFields_KeyPress ''-MODULE ID: 1.21 ''-PURPOSE: Events KeyPress ''-USAGE: txtFields_KeyPress(Index As Integer, KeyAscii As Integer) ''-INPUT ASSERTION: Index As Integer, KeyAscii As Integer ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: txtFields_KeyPress ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: keyResponse ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer) Table of Contents Select Case Index Case 6, 9, 10, 11, 12, 13, 14, 20 Dim keyResponse As Boolean keyResponse = CtrlValidate(KeyAscii, "0123456789.") If keyResponse = True Then Else KeyAscii = 0 End If End Select End Sub ''{*********************************************************** ''-TITLE: txtFields_LostFocus ''-MODULE ID: 1.21 ''-PURPOSE: This procedure displays txtFields_LostFocus ''-USAGE: txtFields_LostFocus(Index As Integer) ''-INPUT ASSERTION: Index As Integer ''-OUTPUT ASSERTION: This procedure returns no values ''-CALLS: This procedure calls no other functions ''-CALLED BY: txtFields_LostFocus; frm_INV_Production.NewgrdDatagrid; frm_INV_Production.NewgrdDatagrid; frm_INV_Adjust.NewgrdDatagrid; frm_INV_Adjust.NewgrdDatagrid ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Private Sub txtFields_LostFocus(Index As Integer) Table of Contents Select Case Index Case 13 txtFields(Index) = Val(txtFields(Index)) Case 14 txtFields(Index) = format(txtFields(Index), "$###,###,##0.00") Case 20 txtFields(Index) = format(txtFields(Index), "00.00") End Select End Sub ''{*********************************************************** ''-TITLE: Get_NameGL ''-MODULE ID: 1.21 ''-PURPOSE: This procedure Gets Name GL ''-USAGE: Get_NameGL(st As String) ''-INPUT ASSERTION: st As String ''-OUTPUT ASSERTION: String ''-CALLS: This procedure calls no other functions ''-CALLED BY: Get_NameGL; frm_Pay_Employees.txtFields_Change; frm_AR_Customer.txtFields_Change; frm_Bank_Reconciliation.txtFields_Change; frm_Bank_Reconciliation.txtFields_Change; frm_Bank_Reconciliation.txtFields_Change; frm_SYS_Setup_Items.txtFields_Change; frm_Payroll_Setup.txtFields_Change; frm_PayrollItems.txtPyrllItems_Change; frm_LIST_Credit_Cards.txtFields_Change; frm_Bank_Transaction.txtFields_Change; frm_Bank_Transaction.txtFields_Change; frm_AR_Customer.txtFields_Change ''-TABLES/FIELDS USED: ''-TABLES/FIELDS AFFECTED: ''-VARIABLES: ''-METHOD: ''-REVISION HISTORY: Created before 12/01/2000, Corrected 04/07/2003 ''-REMARKS: ''***********************************************************}
Function Get_NameGL(st As String) As String Table of Contents If CountrsGL = 0 Then Exit Function rsGL.MoveFirst Dim i As Integer For i = 0 To CountrsGL - 1 If rsGL![GL COA Account No] = st Then Exit For End If rsGL.MoveNext Next i If i = CountrsGL Then Get_NameGL = " " Else Get_NameGL = rsGL![GL COA Account Name] End If End Function