Universal Accounting Manager - ListSell.vb

ListSell.vb

1. Public Class ListSell
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 YearSTR As String = Date.Now.Year
12.     Dim MonthSTR As String = Date.Now.Month
13.     Dim DaySTR As String = Date.Now.Day
14.     Private Shared ListSellInstance As ListSell
15.     Public Shared Function GetInstance() As ListSell
16.         If (ListSellInstance Is Nothing) Then
17.             ListSellInstance = New ListSell
18.         End If
19.         Return ListSellInstance
20.     End Function
21.     Private Sub ListSell_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
22.         LV.Columns.Add("وقت المبيع")
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.         LoadSell()
33.         CalcInter()
34.         Refresher.Enabled = True
35.     End Sub
36.     Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCancleBTN.Click
37.         StartUp.CloseTabs()
38.     End Sub
39.     Public Sub LoadCalenderYear()
40.         YearTXT.Items.Clear()
41.         Dim Addad As Integer = 0
42.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath).Count - 1
43.             YearTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath).Item(Addad)).Name)
44.         Next
45.         YearTXT.Text = YearSTR
46.     End Sub
47.     Public Sub LoadCalenderMonth()
48.         MonthTXT.Items.Clear()
49.         Dim MonthAdaad As Integer = 0
50.         For MonthAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Count - 1
51.             MonthTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Item(MonthAdaad)).Name)
52.         Next
53.         If MonthSTR.Length <= 1 Then MonthSTR = "0" & MonthSTR
54.         MonthTXT.SelectedIndex = MonthTXT.Items.Count - 1
55.     End Sub
56.     Public Sub LoadCalenderDay()
57.         DayTXT.Items.Clear()
58.         Dim DayAdaad As Integer = 0
59.         For DayAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Count - 1
60.             DayTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Item(DayAdaad)).Name)
61.         Next
62.         If DaySTR.Length <= 1 Then DaySTR = "0" & DaySTR
63.         DayTXT.SelectedIndex = DayTXT.Items.Count - 1
64.     End Sub
65.     Public Sub LoadCalender()
66.         LoadCalenderYear()
67.         LoadCalenderMonth()
68.         LoadCalenderDay()
69.     End Sub
70.     Public Sub LoadSell()
71.         On Error Resume Next
72.         LV.Items.Clear()
73.         Dim Addad As Integer = 0
74.         Dim WDir As String = MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text
75.         For Addad = My.Computer.FileSystem.GetDirectories(WDir).Count - 1 To 0 Step -1
76.             Dim OperatingPath As String = My.Computer.FileSystem.GetDirectories(WDir).Item(Addad)
77.             If My.Computer.FileSystem.ReadAllText(OperatingPath & "\type.dat", System.Text.Encoding.GetEncoding(0)) = "buy" Then GoTo NextSell
78.             Dim OperatingName As String = My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(WDir).Item(Addad)).Name
79.             Dim TimeSTR As String = OperatingName.Chars(0) & OperatingName.Chars(1) & ":" & OperatingName.Chars(2) & OperatingName.Chars(3)
80.             Dim CName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\customer.dat", System.Text.Encoding.GetEncoding(0))
81.             Dim PName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\product.dat", System.Text.Encoding.GetEncoding(0))
82.             Dim Price As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\price.dat", System.Text.Encoding.GetEncoding(0)))
83.             Dim Amount As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\amount.dat", System.Text.Encoding.GetEncoding(0)))
84.             Dim Payment As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\payment.dat", System.Text.Encoding.GetEncoding(0)))
85.             Dim Intert As Double = Val(My.Computer.FileSystem.ReadAllText(OperatingPath & "\inter.dat", System.Text.Encoding.GetEncoding(0)))
86.             Dim SName As String = My.Computer.FileSystem.ReadAllText(OperatingPath & "\store.dat", System.Text.Encoding.GetEncoding(0))
87.             Dim NoteTXT As String = ""
88.             If My.Computer.FileSystem.FileExists(OperatingPath & "\note.dat") = True Then
89.                 NoteTXT = My.Computer.FileSystem.ReadAllText(OperatingPath & "\note.dat", System.Text.Encoding.GetEncoding(0))
90.             Else
91.                 NoteTXT = "-"
92.             End If
93.             LV.Items.Add(TimeSTR)
94.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(CName)
95.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(PName)
96.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Price)
97.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Amount)
98.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Payment)
99.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Intert)
100.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(SName)
101.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(NoteTXT)
102. NextSell:
103.         Next
104.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
105.     End Sub
106.     Public Sub CalcInter()
107.         On Error Resume Next
108.         YearPaymentLBL.Text = "أرباح العام : " & My.Computer.FileSystem.ReadAllText(MovmentPath & "\" & YearTXT.Text & "\inter.dat", System.Text.Encoding.GetEncoding(0))
109.         MonthPaymentLBL.Text = "أرباح الشهر : " & My.Computer.FileSystem.ReadAllText(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\inter.dat", System.Text.Encoding.GetEncoding(0))
110.         DayPaymentLBL.Text = "أرباح اليوم : " & My.Computer.FileSystem.ReadAllText(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text & "\inter.dat", System.Text.Encoding.GetEncoding(0))
111.     End Sub
112.     Dim LoadCount As Integer = 0
113.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
114.         If My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text).Count <> LoadCount Then
115.             LoadSell()
116.             CalcInter()
117.             LoadCount = My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text).Count
118.         End If
119.     End Sub
120.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
121.         LoadProduct()
122.     End Sub
123.     Public Sub LoadProduct()
124.         If LV.SelectedItems.Count > 0 Then
125.             NewCustomer.GetInstance.CNameTXT.Text = LV.FocusedItem.SubItems(1).Text
126.             StartUp.OpenNewTab(NewCustomer.GetInstance)
127.         End If
128.     End Sub
129.     Private Sub YearTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YearTXT.SelectedIndexChanged
130.         Refresher.Enabled = False
131.         LoadCalenderMonth()
132.         Refresher.Enabled = True
133.     End Sub
134.     Private Sub MonthTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonthTXT.SelectedIndexChanged
135.         Refresher.Enabled = False
136.         LoadCalenderDay()
137.         Refresher.Enabled = True
138.     End Sub
139.     Private Sub DayTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DayTXT.SelectedIndexChanged
140.         LoadSell()
141.     End Sub
142.     Private Sub DayPaymentLBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DayPaymentLBL.Click
143.         StartUp.OpenNewTab(ViewBox.GetInstance)
144.     End Sub
145.     Private Sub MonthPaymentLBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonthPaymentLBL.Click
146.         StartUp.OpenNewTab(ViewBox.GetInstance)
147.     End Sub
148.     Private Sub YearPaymentLBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YearPaymentLBL.Click
149.         StartUp.OpenNewTab(ViewBox.GetInstance)
150.     End Sub
151. End Class