Universal Accounting Manager - ListBuy.vb

ListBuy.vb

1. Public Class ListBuy
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 VendorsPath As String = DataPath & "\Vendors"
12.     Dim YearSTR As String = Date.Now.Year
13.     Dim MonthSTR As String = Date.Now.Month
14.     Dim DaySTR As String = Date.Now.Day
15.     Private Shared ListBuyInstance As ListBuy
16.     Public Shared Function GetInstance() As ListBuy
17.         If (ListBuyInstance Is Nothing) Then
18.             ListBuyInstance = New ListBuy
19.         End If
20.         Return ListBuyInstance
21.     End Function
22.     Private Sub ListSell_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
23.         LV.Columns.Add("وقت الشراء")
24.         LV.Columns.Add("إسم التاجر")
25.         LV.Columns.Add("إسم المنتج")
26.         LV.Columns.Add("سعر الشراء")
27.         LV.Columns.Add("الكمية")
28.         LV.Columns.Add("السعر الإجمالي")
29.         LV.Columns.Add("قيمة الضرائب")
30.         LV.Columns.Add("إلى مخزن")
31.         LoadCalender()
32.         LoadBuy()
33.         Refresher.Enabled = True
34.     End Sub
35.     Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCancleBTN.Click
36.         StartUp.CloseTabs()
37.     End Sub
38.     Public Sub LoadCalenderYear()
39.         YearTXT.Items.Clear()
40.         Dim Addad As Integer = 0
41.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath).Count - 1
42.             YearTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath).Item(Addad)).Name)
43.         Next
44.         YearTXT.Text = YearSTR
45.     End Sub
46.     Public Sub LoadCalenderMonth()
47.         MonthTXT.Items.Clear()
48.         Dim MonthAdaad As Integer = 0
49.         For MonthAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Count - 1
50.             MonthTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Item(MonthAdaad)).Name)
51.         Next
52.         If MonthSTR.Length <= 1 Then MonthSTR = "0" & MonthSTR
53.         MonthTXT.SelectedIndex = MonthTXT.Items.Count - 1
54.     End Sub
55.     Public Sub LoadCalenderDay()
56.         DayTXT.Items.Clear()
57.         Dim DayAdaad As Integer = 0
58.         For DayAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Count - 1
59.             DayTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Item(DayAdaad)).Name)
60.         Next
61.         If DaySTR.Length <= 1 Then DaySTR = "0" & DaySTR
62.         DayTXT.SelectedIndex = DayTXT.Items.Count - 1
63.     End Sub
64.     Public Sub LoadCalender()
65.         LoadCalenderYear()
66.         LoadCalenderMonth()
67.         LoadCalenderDay()
68.     End Sub
69.     Public Sub LoadBuy()
70.         LV.Items.Clear()
71.         Dim Addad As Integer = 0
72.         Dim WDir As String = MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text
73.         For Addad = My.Computer.FileSystem.GetDirectories(WDir).Count - 1 To 0 Step -1
74.             Dim OperatingPath As String = My.Computer.FileSystem.GetDirectories(WDir).Item(Addad)
75.             If My.Computer.FileSystem.ReadAllText(OperatingPath & "\type.dat", System.Text.Encoding.GetEncoding(0)) = "sell" Then GoTo NextBuy
76.             Dim OperatingName As String = My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(WDir).Item(Addad)).Name
77.             Dim TimeSTR As String = OperatingName.Chars(0) & OperatingName.Chars(1) & ":" & OperatingName.Chars(2) & OperatingName.Chars(3)
78.             Dim CName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\customer.dat", System.Text.Encoding.GetEncoding(0))
79.             Dim PName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\product.dat", System.Text.Encoding.GetEncoding(0))
80.             Dim Price As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\price.dat", System.Text.Encoding.GetEncoding(0)))
81.             Dim Amount As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\amount.dat", System.Text.Encoding.GetEncoding(0)))
82.             Dim Payment As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\payment.dat", System.Text.Encoding.GetEncoding(0)))
83.             Dim Intert As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\inter.dat", System.Text.Encoding.GetEncoding(0)))
84.             Dim SName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\store.dat", System.Text.Encoding.GetEncoding(0))
85.             LV.Items.Add(TimeSTR)
86.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(CName)
87.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(PName)
88.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Price)
89.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Amount)
90.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Payment)
91.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(-Intert)
92.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(SName)
93. NextBuy:
94.         Next
95.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
96.     End Sub
97.     Dim LoadCount As Integer = 0
98.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
99.         If My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text).Count <> LoadCount Then
100.             LoadBuy()
101.             LoadCount = My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text).Count
102.         End If
103.     End Sub
104.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
105.         LoadProduct()
106.     End Sub
107.     Public Sub LoadProduct()
108.         If LV.SelectedItems.Count > 0 Then
109.             NewMerchant.GetInstance.CNameTXT.Text = LV.FocusedItem.SubItems(1).Text
110.             StartUp.OpenNewTab(NewMerchant.GetInstance)
111.         End If
112.     End Sub
113.     Private Sub YearTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YearTXT.SelectedIndexChanged
114.         Refresher.Enabled = False
115.         LoadCalenderMonth()
116.         Refresher.Enabled = True
117.     End Sub
118.     Private Sub MonthTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonthTXT.SelectedIndexChanged
119.         Refresher.Enabled = False
120.         LoadCalenderDay()
121.         Refresher.Enabled = True
122.     End Sub
123.     Private Sub DayTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DayTXT.SelectedIndexChanged
124.         LoadBuy()
125.     End Sub
126. End Class