Universal Accounting Manager - NewMerchant.vb

NewMerchant.vb

1. Public Class NewMerchant
2.     Dim ProgramName As String = My.Application.Info.AssemblyName
3.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
4.     Dim ProductPath As String = DataPath & "\Products" '
5.     Dim ServicesPath As String = DataPath & "\Services"
6.     Dim CatPath As String = DataPath & "\Categories"
7.     Dim StoresPath As String = DataPath & "\Stores"
8.     Dim CustomersPath As String = DataPath & "\Customers"
9.     Dim CompanyPath As String = DataPath & "\Company"
10.     Dim MovmentPath As String = DataPath & "\Movment"
11.     Dim RequestsPath As String = DataPath & "\Requests"
12.     Dim VendorsPath As String = DataPath & "\Vendors"
13.     Dim BoxPath As String = DataPath & "\Box"
14.     Dim AlertsPath As String = DataPath & "\Alerts"
15.     Dim SettingsPath As String = DataPath & "\Settings"
16.     Dim MaxList As Integer = 0
17.     Dim FromList As Integer = 0
18.     Dim ToList As Integer = 0
19.     Private Shared NewMerchantInstance As NewMerchant
20.     Public Shared Function GetInstance() As NewMerchant
21.         If (NewMerchantInstance Is Nothing) Then
22.             NewMerchantInstance = New NewMerchant
23.         End If
24.         Return NewMerchantInstance
25.     End Function
26.     Private Sub NewMerchant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
27.         MaxList = 0
28.         FromList = 0
29.         ToList = 0
30.         LoadVendors()
31.     End Sub
32.     Public Sub LoadVendors()
33.         Dim Addad As Integer = 0
34.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(VendorsPath).Count - 1
35.             Dim VendorName As String = ""
36.             VendorName = My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(VendorsPath).Item(Addad)).Name
37.             CNameTXT.Items.Add(VendorName)
38.         Next
39.     End Sub
40.     Public Sub CreateNewVendor()
41.         Dim CPath As String = VendorsPath & "\" & CNameTXT.Text
42.         Dim CName As String = CNameTXT.Text
43.         Dim CAddress As String = CAddressTXT.Text
44.         Dim CTel As String = CTelTXT.Text
45.         Dim CMail As String = CMailTXT.Text
46.         Dim CWeb As String = CWebTXT.Text
47.         Dim CJob As String = CJobTXT.Text
48.         Dim CJobAddress As String = CJobAddressTXT.Text
49.         If My.Computer.FileSystem.DirectoryExists(CPath) = False Then
50.             My.Computer.FileSystem.CreateDirectory(CPath)
51.         End If
52.         My.Computer.FileSystem.WriteAllText(CPath & "\name.dat", CName, False, System.Text.Encoding.GetEncoding(0))
53.         My.Computer.FileSystem.WriteAllText(CPath & "\address.dat", CAddress, False, System.Text.Encoding.GetEncoding(0))
54.         My.Computer.FileSystem.WriteAllText(CPath & "\tel.dat", CTel, False, System.Text.Encoding.GetEncoding(0))
55.         My.Computer.FileSystem.WriteAllText(CPath & "\mail.dat", CMail, False, System.Text.Encoding.GetEncoding(0))
56.         My.Computer.FileSystem.WriteAllText(CPath & "\web.dat", CWeb, False, System.Text.Encoding.GetEncoding(0))
57.         My.Computer.FileSystem.WriteAllText(CPath & "\job.dat", CJob, False, System.Text.Encoding.GetEncoding(0))
58.         My.Computer.FileSystem.WriteAllText(CPath & "\jobaddress.dat", CJobAddress, False, System.Text.Encoding.GetEncoding(0))
59.         My.Computer.FileSystem.WriteAllText(CPath & "\totaldept.dat", 0, False, System.Text.Encoding.GetEncoding(0))
60.         My.Computer.FileSystem.WriteAllText(CPath & "\totalpayment.dat", 0, False, System.Text.Encoding.GetEncoding(0))
61.     End Sub
62.     Public Sub LoadVendorInfo(ByRef CName As String)
63.         On Error Resume Next
64.         CNameTXT.Text = CName
65.         LV.Items.Clear()
66.         Dim CNamePath As String = VendorsPath & "\" & CName
67.         Dim Addad As Integer = 0
68.         CAddressTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\address.dat", System.Text.Encoding.GetEncoding(0))
69.         CTelTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\tel.dat", System.Text.Encoding.GetEncoding(0))
70.         CMailTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\mail.dat", System.Text.Encoding.GetEncoding(0))
71.         CWebTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\web.dat", System.Text.Encoding.GetEncoding(0))
72.         CJobTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\job.dat", System.Text.Encoding.GetEncoding(0))
73.         CJobAddressTXT.Text = My.Computer.FileSystem.ReadAllText(CNamePath & "\jobaddress.dat", System.Text.Encoding.GetEncoding(0))
74.         If My.Computer.FileSystem.DirectoryExists(CNamePath & "\payment") = False Then GoTo CalcIt
75.         MaxList = My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Count
76.         If FromList = 0 Then FromList = MaxList
77.         ToList = FromList - 20
78.         If MaxList - ToList > MaxList Then
79.             ToList = 0
80.         End If
81.         For Addad = FromList - 1 To ToList Step -1
82.             'For Addad = My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Count - 1 To 0 Step -1
83.             Dim WDir As String = My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Item(Addad)
84.             Dim DateFormat As String = My.Computer.FileSystem.ReadAllText(WDir & "\date.dat", System.Text.Encoding.GetEncoding(0))
85.             LV.Items.Add(DateFormat.Chars(0) & DateFormat.Chars(1) & DateFormat.Chars(2) & DateFormat.Chars(3) & "/" & DateFormat.Chars(4) & DateFormat.Chars(5) & "/" & DateFormat.Chars(6) & DateFormat.Chars(7) & " " & DateFormat.Chars(8) & DateFormat.Chars(9) & ":" & DateFormat.Chars(10) & DateFormat.Chars(11))
86.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(My.Computer.FileSystem.ReadAllText(WDir & "\pname.dat", System.Text.Encoding.GetEncoding(0)))
87.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(My.Computer.FileSystem.ReadAllText(WDir & "\pamount.dat", System.Text.Encoding.GetEncoding(0)))
88.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(My.Computer.FileSystem.ReadAllText(WDir & "\paymenttotal.dat", System.Text.Encoding.GetEncoding(0)))
89.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(My.Computer.FileSystem.ReadAllText(WDir & "\paydbl.dat", System.Text.Encoding.GetEncoding(0)))
90.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(My.Computer.FileSystem.ReadAllText(WDir & "\remaindbl.dat", System.Text.Encoding.GetEncoding(0)))
91.         Next
92.         SLBL.Text = MaxList - ToList & " من " & MaxList
93.         SLBL.Tag = 20
94. CalcIt:
95.         Dim Total As Double = 0
96.         Dim Dept As Double = 0
97.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Count - 1
98.             Total += Val(My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Item(Addad) & "\paymenttotal.dat", System.Text.Encoding.GetEncoding(0)))
99.             Dept += Val(My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.GetDirectories(CNamePath & "\payment").Item(Addad) & "\remaindbl.dat", System.Text.Encoding.GetEncoding(0)))
100.         Next
101.         TotalPayment.Text = "قيمة المشتريات : " & Total & " " & My.Computer.FileSystem.ReadAllText(SettingsPath & "\maincurrency.dat", System.Text.Encoding.GetEncoding(0))
102.         TotaldebtTXT.Text = "باقي الديون : " & Dept & " " & My.Computer.FileSystem.ReadAllText(SettingsPath & "\maincurrency.dat", System.Text.Encoding.GetEncoding(0))
103.         'Correct Main Dir :
104.         My.Computer.FileSystem.WriteAllText(VendorsPath & "\" & CName & "\totalpayment.dat", Total, False, System.Text.Encoding.GetEncoding(0))
105.         My.Computer.FileSystem.WriteAllText(VendorsPath & "\" & CName & "\totaldept.dat", Dept, False, System.Text.Encoding.GetEncoding(0))
106.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
107.     End Sub
108.     Private Sub CNameTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CNameTXT.KeyDown
109.         If e.KeyCode = Keys.Enter Then CAddressTXT.Select()
110.     End Sub
111.     Private Sub CNameTXT_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CNameTXT.TextChanged
112.         If My.Computer.FileSystem.DirectoryExists(VendorsPath & "\" & CNameTXT.Text) = True And CNameTXT.Text <> "" Then
113.             LV.Items.Clear()
114.             MaxList = 0
115.             FromList = 0
116.             ToList = 0
117.             LoadVendorInfo(CNameTXT.Text)
118.             AddCBTN.Text = "تعديل"
119.             Refresher.Enabled = True
120.         Else
121.             Refresher.Enabled = False
122.             AddCBTN.Text = "إضافة"
123.             CAddressTXT.Text = ""
124.             CTelTXT.Text = ""
125.             CMailTXT.Text = ""
126.             CWebTXT.Text = ""
127.             CJobTXT.Text = ""
128.             CJobAddressTXT.Text = ""
129.             MaxList = 0
130.             FromList = 0
131.             ToList = 0
132.             LV.Items.Clear()
133.         End If
134.     End Sub
135.     Private Sub AddCBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddCBTN.Click
136.         TestText()
137.         CreateNewVendor()
138.         StartUp.CloseTabs()
139.     End Sub
140.     Public Sub TestText()
141.         'test values to add errors to Alerts :
142.         Dim PName As String = CNameTXT.Text
143.         Dim WDir As String = ""
144.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
145.         If CAddressTXT.Text = "" Then
146.             StartUp.AlertsWriter(PName, "لم تقم بوضع عنوان التاجر " & PName & " , أنقر هنا لوضع عنوان التاجر", "M-add")
147.         Else
148.             WDir = AlertsPath & "\" & PName & "\M-add"
149.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
150.         End If
151.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
152.         If CTelTXT.Text = "" Then
153.             StartUp.AlertsWriter(PName, "لم تقم بوضع رقم هاتف التاجر " & PName & " , أنقر هنا لوضع رقم الهاتف", "M-tel")
154.         Else
155.             WDir = AlertsPath & "\" & PName & "\M-tel"
156.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
157.         End If
158.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
159.         If CMailTXT.Text = "" Then
160.             StartUp.AlertsWriter(PName, "لم تقم بوضع عنوان البريد الإلكتروني للتاجر " & PName & " , أنقر هنا لوضع عنوان البريد الإلكتروني", "M-mail")
161.         Else
162.             WDir = AlertsPath & "\" & PName & "\M-mail"
163.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
164.         End If
165.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
166.         If CWebTXT.Text = "" Then
167.             StartUp.AlertsWriter(PName, "لم تقم بوضع عنوان الموقع الإلكتروني للتاجر " & PName & " , أنقر هنا لوضع عنوان الموقع الإلكتروني", "M-web")
168.         Else
169.             WDir = AlertsPath & "\" & PName & "\M-web"
170.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
171.         End If
172.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
173.         If CJobTXT.Text = "" Then
174.             StartUp.AlertsWriter(PName, "لم تقم بتسجيل عمل التاجر " & PName & " , أنقر هنا لتعيين وظيفة التاجر", "M-job")
175.         Else
176.             WDir = AlertsPath & "\" & PName & "\M-job"
177.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
178.         End If
179.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
180.         If CJobAddressTXT.Text = "" Then
181.             StartUp.AlertsWriter(PName, "لم تقم بتعيين عنوان عمل التاجر " & PName & " , أنقر هنا لتعيين عنوان عمل التاجر", "M-jobaddress")
182.         Else
183.             WDir = AlertsPath & "\" & PName & "\M-jobaddress"
184.             If My.Computer.FileSystem.DirectoryExists(WDir) Then System.IO.Directory.Delete(WDir, True)
185.         End If
186.         '××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
187.         StartUp.LoadAlerts()
188.     End Sub
189.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
190.         LoadProduct()
191.     End Sub
192.     Public Sub LoadProduct()
193.         If LV.SelectedItems.Count > 0 Then
194.             NewProduct.GetInstance.LoadProduct(LV.FocusedItem.SubItems(1).Text)
195.             StartUp.MainPanel.Controls.Clear()
196.             StartUp.MainPanel.Controls.Add(NewProduct.GetInstance())
197.             StartUp.AddNewTab(NewProduct.GetInstance.Tag, NewProduct.GetInstance.Name)
198.         End If
199.     End Sub
200.     Private Sub CancelBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelBTN.Click
201.         MaxList = 0
202.         FromList = 0
203.         ToList = 0
204.         StartUp.CloseTabs()
205.     End Sub
206.     Private Sub NextBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextBTN.Click
207.         If FromList > 20 Then FromList -= 20 : LoadVendorInfo(CNameTXT.Text)
208.     End Sub
209.     Private Sub PrevBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrevBTN.Click
210.         If FromList < MaxList Then FromList += 20 : LoadVendorInfo(CNameTXT.Text)
211.     End Sub
212.     Private Sub DeptBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeptBTN.Click
213.         Dim Addad As Integer = 0
214.         Dim Total As Double = 0
215.         Dim Dept As Double = 0
216.         Dim CNamePath As String = VendorsPath & "\" & CNameTXT.Text & "\payment"
217.         Dim WDir As String = ""
218.         Dim MyValue As Double = 0
219.         MyValue = Val(InputBox("أدخل المبلغ الذي ستقوم بتسديده للتاجر " & CNameTXT.Text, "تسديد دين للتاجر " & CNameTXT.Text, 0))
220.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(CNamePath).Count - 1
221.             WDir = My.Computer.FileSystem.GetDirectories(CNamePath).Item(Addad)
222.             Total += Val(My.Computer.FileSystem.ReadAllText(WDir & "\paymenttotal.dat", System.Text.Encoding.GetEncoding(0)))
223.             Dept += Val(My.Computer.FileSystem.ReadAllText(WDir & "\remaindbl.dat", System.Text.Encoding.GetEncoding(0)))
224.         Next
225.         If MyValue = Nothing Then GoTo Finish
226.         If MyValue > Dept Then MyValue = Dept
227.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(CNamePath).Count - 1
228.             Dim YearSTR As String = Date.Now.Year
229.             Dim MonthSTR As String = Date.Now.Month
230.             Dim DaySTR As String = Date.Now.Day
231.             If MonthSTR.Length <= 1 Then MonthSTR = "0" & MonthSTR
232.             If DaySTR.Length <= 1 Then DaySTR = "0" & DaySTR
233.             Dim DateDir As String = MovmentPath & "\" & YearSTR & "\" & MonthSTR & "\" & DaySTR
234.             Dim LastDayInterValue As Double = 0
235.             Dim LastValue As Double = 0
236.             Dim LValue As Double = 0
237.             WDir = My.Computer.FileSystem.GetDirectories(CNamePath).Item(Addad)
238.             LastValue = Val(My.Computer.FileSystem.ReadAllText(WDir & "\remaindbl.dat", System.Text.Encoding.GetEncoding(0)))
239.             LValue = Val(My.Computer.FileSystem.ReadAllText(WDir & "\paydbl.dat", System.Text.Encoding.GetEncoding(0)))
240.             If LastValue > 0 Then
241.                 If MyValue > LastValue Then
242.                     My.Computer.FileSystem.WriteAllText(WDir & "\remaindbl.dat", 0, False, System.Text.Encoding.GetEncoding(0))
243.                     My.Computer.FileSystem.WriteAllText(WDir & "\paydbl.dat", LastValue, False, System.Text.Encoding.GetEncoding(0))
244.                     'MsgBox(Addad & " , " & LastValue & " , " & LastValue & " , تم التسديد")
245.                     '..............
246.                     '..............
247.                     '..............
248.                     'Write To Box :
249.                     '..............
250.                     '..............
251.                     '..............
252.                     'money
253.                     If My.Computer.FileSystem.FileExists(DateDir & "\money.dat") = True Then
254.                         LastDayInterValue = Val(My.Computer.FileSystem.ReadAllText(DateDir & "\money.dat", System.Text.Encoding.GetEncoding(0)))
255.                     Else
256.                         LastDayInterValue = 0
257.                     End If
258.                     My.Computer.FileSystem.WriteAllText(DateDir & "\money.dat", LastDayInterValue - Val(LastValue), False)
259.                     My.Computer.FileSystem.WriteAllText(BoxPath & "\money.dat", LastDayInterValue - Val(LastValue), False)
260.                     'capital
261.                     If My.Computer.FileSystem.FileExists(DateDir & "\capital.dat") = True Then
262.                         LastDayInterValue = Val(My.Computer.FileSystem.ReadAllText(DateDir & "\capital.dat", System.Text.Encoding.GetEncoding(0)))
263.                     Else
264.                         LastDayInterValue = 0
265.                     End If
266.                     My.Computer.FileSystem.WriteAllText(DateDir & "\capital.dat", LastDayInterValue - Val(LastValue), False)
267.                     My.Computer.FileSystem.WriteAllText(BoxPath & "\capital.dat", LastDayInterValue - Val(LastValue), False)
268.                     '..............
269.                     '..............
270.                     '..............
271.                     'Sub Salary :
272.                     '..............
273.                     '..............
274.                     '..............
275.                     MyValue = MyValue - LastValue
276.                     Dept = Dept - LastValue
277.                 Else
278.                     My.Computer.FileSystem.WriteAllText(WDir & "\remaindbl.dat", LastValue - MyValue, False, System.Text.Encoding.GetEncoding(0))
279.                     My.Computer.FileSystem.WriteAllText(WDir & "\paydbl.dat", MyValue + LValue, False, System.Text.Encoding.GetEncoding(0))
280.                     'MsgBox(Addad & " , " & LastValue & " , " & MyValue & " , تم التسديد والإنتهاء")
281.                     '..............
282.                     '..............
283.                     '..............
284.                     'Write To Box :
285.                     '..............
286.                     '..............
287.                     '..............
288.                     'money
289.                     If My.Computer.FileSystem.FileExists(DateDir & "\money.dat") = True Then
290.                         LastDayInterValue = Val(My.Computer.FileSystem.ReadAllText(DateDir & "\money.dat", System.Text.Encoding.GetEncoding(0)))
291.                     Else
292.                         LastDayInterValue = 0
293.                     End If
294.                     My.Computer.FileSystem.WriteAllText(DateDir & "\money.dat", LastDayInterValue - Val(MyValue), False)
295.                     My.Computer.FileSystem.WriteAllText(BoxPath & "\money.dat", LastDayInterValue - Val(MyValue), False)
296.                     'capital
297.                     If My.Computer.FileSystem.FileExists(DateDir & "\capital.dat") = True Then
298.                         LastDayInterValue = Val(My.Computer.FileSystem.ReadAllText(DateDir & "\capital.dat", System.Text.Encoding.GetEncoding(0)))
299.                     Else
300.                         LastDayInterValue = 0
301.                     End If
302.                     My.Computer.FileSystem.WriteAllText(DateDir & "\capital.dat", LastDayInterValue - Val(MyValue), False)
303.                     My.Computer.FileSystem.WriteAllText(BoxPath & "\capital.dat", LastDayInterValue - Val(MyValue), False)
304.                     '..............
305.                     '..............
306.                     '..............
307.                     'Sub Salary :
308.                     '..............
309.                     '..............
310.                     '..............
311.                     Dept = Dept - MyValue
312.                     MyValue = 0
313.                     GoTo Finish
314.                 End If
315.             End If
316.         Next
317. Finish:
318.         My.Computer.FileSystem.WriteAllText(VendorsPath & "\" & CNameTXT.Text & "\totaldept.dat", Dept, False, System.Text.Encoding.GetEncoding(0))
319.         '
320.         LoadVendorInfo(CNameTXT.Text)
321.     End Sub
322.     Private Sub CAddressTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CAddressTXT.KeyDown
323.         If e.KeyCode = Keys.Enter Then CTelTXT.Select()
324.     End Sub
325.     Private Sub CTelTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CTelTXT.KeyDown
326.         If e.KeyCode = Keys.Enter Then CMailTXT.Select()
327.     End Sub
328.     Private Sub CMailTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CMailTXT.KeyDown
329.         If e.KeyCode = Keys.Enter Then CWebTXT.Select()
330.     End Sub
331.     Private Sub CWebTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CWebTXT.KeyDown
332.         If e.KeyCode = Keys.Enter Then CJobTXT.Select()
333.     End Sub
334.     Private Sub CJobTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CJobTXT.KeyDown
335.         If e.KeyCode = Keys.Enter Then CJobAddressTXT.Select()
336.     End Sub
337.     Private Sub CJobAddressTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CJobAddressTXT.KeyDown
338.         If e.KeyCode = Keys.Enter Then AddCBTN.Select()
339.     End Sub
340.     Private Sub CAddressTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAddressTXT.LostFocus
341.         Refresher.Enabled = True
342.     End Sub
343.     Private Sub CAddressTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CAddressTXT.TextChanged
344.         Refresher.Enabled = False
345.     End Sub
346.     Private Sub CTelTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CTelTXT.LostFocus
347.         Refresher.Enabled = True
348.     End Sub
349.     Private Sub CTelTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CTelTXT.TextChanged
350.         Refresher.Enabled = False
351.     End Sub
352.     Private Sub CMailTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMailTXT.LostFocus
353.         Refresher.Enabled = True
354.     End Sub
355.     Private Sub CMailTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMailTXT.TextChanged
356.         Refresher.Enabled = False
357.     End Sub
358.     Private Sub CWebTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CWebTXT.LostFocus
359.         Refresher.Enabled = True
360.     End Sub
361.     Private Sub CWebTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CWebTXT.TextChanged
362.         Refresher.Enabled = False
363.     End Sub
364.     Private Sub CJobTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CJobTXT.LostFocus
365.         Refresher.Enabled = True
366.     End Sub
367.     Private Sub CJobTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CJobTXT.TextChanged
368.         Refresher.Enabled = False
369.     End Sub
370.     Private Sub CJobAddressTXT_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CJobAddressTXT.LostFocus
371.         Refresher.Enabled = True
372.     End Sub
373.     Private Sub CJobAddressTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CJobAddressTXT.TextChanged
374.         Refresher.Enabled = False
375.     End Sub
376.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
377.         LoadVendorInfo(CNameTXT.Text)
378.     End Sub
379.  
380.     Private Sub CNameTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CNameTXT.SelectedIndexChanged
381.  
382.     End Sub
383. End Class