Universal Accounting Manager - ViewBox.vb

ViewBox.vb

1. Public Class ViewBox
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 YearSTR As String = Date.Now.Year
15.     Dim MonthSTR As String = Date.Now.Month
16.     Dim DaySTR As String = Date.Now.Day
17.     Dim Status As String = ""
18.     Private Shared ViewBoxInstance As ViewBox
19.     Public Shared Function GetInstance() As ViewBox
20.         If (ViewBoxInstance Is Nothing) Then
21.             ViewBoxInstance = New ViewBox
22.         End If
23.         Return ViewBoxInstance
24.     End Function
25.     Private Sub ViewBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
26.         LV.Columns.Add("التاريخ")
27.         LV.Columns.Add("مجموع العملة في الصندوق")
28.         LV.Columns.Add("رأس المال")
29.         LV.Columns.Add("الضرائب")
30.         LV.Columns.Add("الخدمات")
31.         LV.Columns.Add("الربح")
32.         LV.Columns.Add("أجرة المتجر")
33.         LV.Columns.Add("أجرة الكهرباء")
34.         LV.Columns.Add("أجرة المياه")
35.         LV.Columns.Add("أجرة العمال")
36.         LV.Columns.Add("نفقات يومية")
37.         LoadCalender()
38.         ReadBox()
39.         GetDateData()
40.         Refresher.Enabled = True
41.     End Sub
42.     Public Sub GetDateData()
43.         On Error Resume Next
44.         LV.Items.Clear()
45.         Dim Addad As Integer = 0
46.         Dim WDir As String = MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\" & DayTXT.Text
47.         Dim TimeSTR As String = YearTXT.Text & "/" & MonthTXT.Text & "/" & DayTXT.Text
48.         Dim TotalMoney As String = My.Computer.FileSystem.ReadAllText(WDir & "\money.dat", System.Text.Encoding.GetEncoding(0))
49.         Dim TotalCapital As String = My.Computer.FileSystem.ReadAllText(WDir & "\capital.dat", System.Text.Encoding.GetEncoding(0))
50.         Dim TotalTax As Double = Val(My.Computer.FileSystem.ReadAllText(WDir & "\tax.dat", System.Text.Encoding.GetEncoding(0)))
51.         Dim TotalServices As Double = Val(My.Computer.FileSystem.ReadAllText(WDir & "\service.dat", System.Text.Encoding.GetEncoding(0)))
52.         Dim TotalInter As Double = Val(My.Computer.FileSystem.ReadAllText(WDir & "\inter.dat", System.Text.Encoding.GetEncoding(0)))
53.         Dim Place As Double = Val(My.Computer.FileSystem.ReadAllText(WDir & "\placerent.dat", System.Text.Encoding.GetEncoding(0)))
54.         Dim Elec As String = My.Computer.FileSystem.ReadAllText(WDir & "\electricity.dat", System.Text.Encoding.GetEncoding(0))
55.         Dim Water As String = My.Computer.FileSystem.ReadAllText(WDir & "\water.dat", System.Text.Encoding.GetEncoding(0))
56.         Dim Worker As String = My.Computer.FileSystem.ReadAllText(WDir & "\workerrent.dat", System.Text.Encoding.GetEncoding(0))
57.         Dim Daialy As String = My.Computer.FileSystem.ReadAllText(WDir & "\daialyspent.dat", System.Text.Encoding.GetEncoding(0))
58.         LV.Items.Add(TimeSTR)
59.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalMoney)
60.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalCapital)
61.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalTax)
62.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalServices)
63.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalInter)
64.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Place)
65.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Elec)
66.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Water)
67.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Worker)
68.         LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Daialy)
69.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
70.     End Sub
71.     Public Sub ReadBox()
72.         On Error Resume Next
73.         If MonthSTR.Length <= 1 Then MonthSTR = "0" & MonthSTR
74.         If DaySTR.Length <= 1 Then DaySTR = "0" & DaySTR
75.         Dim WDir As String = MovmentPath & "\" & YearSTR & "\" & MonthSTR & "\" & DaySTR
76.         MoneyLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\money.dat", System.Text.Encoding.GetEncoding(0))
77.         CapitalLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\capital.dat", System.Text.Encoding.GetEncoding(0))
78.         TaxLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\tax.dat", System.Text.Encoding.GetEncoding(0))
79.         ServiceLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\service.dat", System.Text.Encoding.GetEncoding(0))
80.         InterestLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\inter.dat", System.Text.Encoding.GetEncoding(0))
81.         '
82.         PlaceRentLBL.Text = My.Computer.FileSystem.ReadAllText(BoxPath & "\placerent.dat", System.Text.Encoding.GetEncoding(0)) & " / " & My.Computer.FileSystem.ReadAllText(CompanyPath & "\placerent.dat", System.Text.Encoding.GetEncoding(0))
83.         PlaceBar.Value = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\placerent.dat", System.Text.Encoding.GetEncoding(0))) * 100 / Val(My.Computer.FileSystem.ReadAllText(CompanyPath & "\placerent.dat", System.Text.Encoding.GetEncoding(0)))
84.         '
85.         ElectricityLBL.Text = My.Computer.FileSystem.ReadAllText(BoxPath & "\electricity.dat", System.Text.Encoding.GetEncoding(0)) & " / " & My.Computer.FileSystem.ReadAllText(CompanyPath & "\electricity.dat", System.Text.Encoding.GetEncoding(0))
86.         ElcBar.Value = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\electricity.dat", System.Text.Encoding.GetEncoding(0))) * 100 / Val(My.Computer.FileSystem.ReadAllText(CompanyPath & "\electricity.dat", System.Text.Encoding.GetEncoding(0)))
87.         '
88.         WaterLBL.Text = My.Computer.FileSystem.ReadAllText(BoxPath & "\water.dat", System.Text.Encoding.GetEncoding(0)) & " / " & My.Computer.FileSystem.ReadAllText(CompanyPath & "\water.dat", System.Text.Encoding.GetEncoding(0))
89.         WaterBar.Value = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\water.dat", System.Text.Encoding.GetEncoding(0))) * 100 / Val(My.Computer.FileSystem.ReadAllText(CompanyPath & "\water.dat", System.Text.Encoding.GetEncoding(0)))
90.         '
91.         WorkerRentLBL.Text = My.Computer.FileSystem.ReadAllText(BoxPath & "\workerrent.dat", System.Text.Encoding.GetEncoding(0)) & " / " & My.Computer.FileSystem.ReadAllText(CompanyPath & "\workerrent.dat", System.Text.Encoding.GetEncoding(0))
92.         WorkerBar.Value = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\workerrent.dat", System.Text.Encoding.GetEncoding(0))) * 100 / Val(My.Computer.FileSystem.ReadAllText(CompanyPath & "\workerrent.dat", System.Text.Encoding.GetEncoding(0)))
93.         '
94.         DaialySpentLBL.Text = My.Computer.FileSystem.ReadAllText(WDir & "\daialyspent.dat", System.Text.Encoding.GetEncoding(0))
95.         '
96.         YearPaymentLBL.Text = "أرباح العام : " & My.Computer.FileSystem.ReadAllText(MovmentPath & "\" & YearTXT.Text & "\inter.dat", System.Text.Encoding.GetEncoding(0))
97.         MonthPaymentLBL.Text = "أرباح الشهر : " & My.Computer.FileSystem.ReadAllText(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text & "\inter.dat", System.Text.Encoding.GetEncoding(0))
98.     End Sub
99.     Public Sub LoadCalenderYear()
100.         YearTXT.Items.Clear()
101.         Dim Addad As Integer = 0
102.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath).Count - 1
103.             YearTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath).Item(Addad)).Name)
104.         Next
105.         YearTXT.Text = YearSTR
106.     End Sub
107.     Public Sub LoadCalenderMonth()
108.         MonthTXT.Items.Clear()
109.         Dim MonthAdaad As Integer = 0
110.         For MonthAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Count - 1
111.             MonthTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text).Item(MonthAdaad)).Name)
112.         Next
113.         If MonthSTR.Length <= 1 Then MonthSTR = "0" & MonthSTR
114.         MonthTXT.SelectedIndex = MonthTXT.Items.Count - 1
115.     End Sub
116.     Public Sub LoadCalenderDay()
117.         DayTXT.Items.Clear()
118.         Dim DayAdaad As Integer = 0
119.         For DayAdaad = 0 To My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Count - 1
120.             DayTXT.Items.Add(My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(MovmentPath & "\" & YearTXT.Text & "\" & MonthTXT.Text).Item(DayAdaad)).Name)
121.         Next
122.         If DaySTR.Length <= 1 Then DaySTR = "0" & DaySTR
123.         DayTXT.SelectedIndex = DayTXT.Items.Count - 1
124.     End Sub
125.     Public Sub LoadCalender()
126.         LoadCalenderYear()
127.         LoadCalenderMonth()
128.         LoadCalenderDay()
129.     End Sub
130.     Private Sub CloseSaveBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseSaveBTN.Click
131.         StartUp.CloseTabs()
132.     End Sub
133.     Private Sub YearTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YearTXT.SelectedIndexChanged
134.         Refresher.Enabled = False
135.         LoadCalenderMonth()
136.         Refresher.Enabled = True
137.     End Sub
138.     Private Sub MonthTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonthTXT.SelectedIndexChanged
139.         Refresher.Enabled = False
140.         LoadCalenderDay()
141.         Refresher.Enabled = True
142.     End Sub
143.     Private Sub DayTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DayTXT.SelectedIndexChanged
144.         GetDateData()
145.     End Sub
146.     Private Sub ConvertBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConvertBTN.Click
147.         Status = "con"
148.         FromLBL.Visible = True
149.         FromTXT.Visible = True
150.         ToLBL.Visible = True
151.         ToTXT.Visible = True
152.         MoveBTN.Visible = True
153.         AmountLBL.Visible = True
154.         AmountTXT.Visible = True
155.         cancelBTN.Visible = True
156.         AddBTN.Visible = False
157.     End Sub
158.     Private Sub MoveBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MoveBTN.Click
159.         'On Error Resume Next
160.         Dim WDir As String = MovmentPath & "\" & YearSTR & "\" & MonthSTR & "\" & DaySTR
161.         Dim SName As String = ""
162.         Dim TName As String = ""
163.         If FromTXT.SelectedIndex = 0 Then SName = "money.dat"
164.         If FromTXT.SelectedIndex = 1 Then SName = "capital.dat"
165.         If FromTXT.SelectedIndex = 2 Then SName = "tax.dat"
166.         If FromTXT.SelectedIndex = 3 Then SName = "service.dat"
167.         If FromTXT.SelectedIndex = 4 Then SName = "inter.dat"
168.         If FromTXT.SelectedIndex = 5 Then SName = "placerent.dat"
169.         If FromTXT.SelectedIndex = 6 Then SName = "electricity.dat"
170.         If FromTXT.SelectedIndex = 7 Then SName = "water.dat"
171.         If FromTXT.SelectedIndex = 8 Then SName = "workerrent.dat"
172.         If FromTXT.SelectedIndex = 9 Then SName = "daialyspent.dat"
173.         If ToTXT.SelectedIndex = 0 Then TName = "placerent.dat"
174.         If ToTXT.SelectedIndex = 1 Then TName = "electricity.dat"
175.         If ToTXT.SelectedIndex = 2 Then TName = "water.dat"
176.         If ToTXT.SelectedIndex = 3 Then TName = "workerrent.dat"
177.         If ToTXT.SelectedIndex = 4 Then TName = "daialyspent.dat"
178.         If ToTXT.SelectedIndex = 5 Then TName = "money.dat"
179.         If ToTXT.SelectedIndex = 6 Then TName = "capital.dat"
180.         If ToTXT.SelectedIndex = 7 Then TName = "tax.dat"
181.         If ToTXT.SelectedIndex = 8 Then TName = "service.dat"
182.         If ToTXT.SelectedIndex = 9 Then TName = "inter.dat"
183.         If FromTXT.SelectedIndex = 3 And ToTXT.SelectedIndex = 9 Then GoTo Panned
184.         If FromTXT.SelectedIndex = 8 And ToTXT.SelectedIndex = 4 Then GoTo Panned
185.         If FromTXT.SelectedIndex = 0 Then GoTo Panned
186.         If ToTXT.SelectedIndex = 5 Then GoTo Panned
187.         Dim SWValue As Double = 0
188.         Dim SBValue As Double = 0
189.         Dim TWValue As Double = 0
190.         Dim TBValue As Double = 0
191.         Dim MoneyValue As Double = 0
192.         If My.Computer.FileSystem.FileExists(BoxPath & "\" & SName) = False Then My.Computer.FileSystem.WriteAllText(BoxPath & "\" & SName, 0, False, System.Text.Encoding.GetEncoding(0))
193.         If My.Computer.FileSystem.FileExists(BoxPath & "\" & TName) = False Then My.Computer.FileSystem.WriteAllText(BoxPath & "\" & TName, 0, False, System.Text.Encoding.GetEncoding(0))
194.         SWValue = Val(My.Computer.FileSystem.ReadAllText(WDir & "\" & SName, System.Text.Encoding.GetEncoding(0)))
195.         SBValue = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\" & SName, System.Text.Encoding.GetEncoding(0)))
196.         TWValue = Val(My.Computer.FileSystem.ReadAllText(WDir & "\" & TName, System.Text.Encoding.GetEncoding(0)))
197.         TBValue = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\" & TName, System.Text.Encoding.GetEncoding(0)))
198.         MoneyValue = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\money.dat", System.Text.Encoding.GetEncoding(0)))
199.         If Status = "add" Then GoTo AddStatus
200.         If FromTXT.SelectedIndex < 5 And SWValue < Val(AmountTXT.Text) Then MsgBox("المبلغ الذي أدخلته كبير جداً") : GoTo Finish
201.         If FromTXT.SelectedIndex >= 5 And SBValue < Val(AmountTXT.Text) Then MsgBox("المبلغ الذي أدخلته كبير جداً - Box") : GoTo Finish
202.         If FromTXT.SelectedIndex < 5 Then
203.             My.Computer.FileSystem.WriteAllText(WDir & "\" & SName, SWValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
204.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & SName, SWValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
205.             My.Computer.FileSystem.WriteAllText(WDir & "\money.dat", MoneyValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
206.             My.Computer.FileSystem.WriteAllText(BoxPath & "\money.dat", MoneyValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
207.         Else
208.             My.Computer.FileSystem.WriteAllText(WDir & "\" & SName, SWValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
209.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & SName, SBValue - Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
210.         End If
211.         MoneyValue = Val(My.Computer.FileSystem.ReadAllText(BoxPath & "\money.dat", System.Text.Encoding.GetEncoding(0)))
212.         If ToTXT.SelectedIndex >= 5 Then
213.             My.Computer.FileSystem.WriteAllText(WDir & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
214.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
215.             My.Computer.FileSystem.WriteAllText(WDir & "\money.dat", MoneyValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
216.             My.Computer.FileSystem.WriteAllText(BoxPath & "\money.dat", MoneyValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
217.         Else
218.             My.Computer.FileSystem.WriteAllText(WDir & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
219.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & TName, TBValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
220.         End If
221.         GoTo Final
222. AddStatus:
223.         If ToTXT.SelectedIndex >= 5 Then
224.             My.Computer.FileSystem.WriteAllText(WDir & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
225.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
226.             My.Computer.FileSystem.WriteAllText(WDir & "\money.dat", MoneyValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
227.             My.Computer.FileSystem.WriteAllText(BoxPath & "\money.dat", MoneyValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
228.         Else
229.             My.Computer.FileSystem.WriteAllText(WDir & "\" & TName, TWValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
230.             My.Computer.FileSystem.WriteAllText(BoxPath & "\" & TName, TBValue + Val(AmountTXT.Text), False, System.Text.Encoding.GetEncoding(0))
231.         End If
232. Final:
233.         ReadBox()
234.         GetDateData()
235.         FromLBL.Visible = False
236.         FromTXT.Visible = False
237.         ToLBL.Visible = False
238.         ToTXT.Visible = False
239.         MoveBTN.Visible = False
240.         AmountLBL.Visible = False
241.         AmountTXT.Visible = False
242.         cancelBTN.Visible = False
243.         AddBTN.Visible = True
244.         GoTo Finish
245. Panned:
246.         MsgBox("عذراً ، العملية التي قمت بطلبها غير مسموحة ، لا يمكن رياضياً السحب و التحويل بهذه الطريقة")
247. Finish:
248.         AmountTXT.Text = ""
249.     End Sub
250.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
251.         ReadBox()
252.         GetDateData()
253.     End Sub
254.     Private Sub cancelBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancelBTN.Click
255.         FromLBL.Visible = False
256.         FromTXT.Visible = False
257.         ToLBL.Visible = False
258.         ToTXT.Visible = False
259.         MoveBTN.Visible = False
260.         AmountLBL.Visible = False
261.         AmountTXT.Visible = False
262.         cancelBTN.Visible = False
263.         AddBTN.Visible = True
264.     End Sub
265.     Private Sub AddBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBTN.Click
266.         Status = "add"
267.         ToLBL.Visible = True
268.         ToTXT.Visible = True
269.         MoveBTN.Visible = True
270.         AmountLBL.Visible = True
271.         AmountTXT.Visible = True
272.         cancelBTN.Visible = True
273.     End Sub
274.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
275.         If LV.SelectedItems.Count > 0 Then
276.             StartUp.OpenNewTab(Charts.GetInstance)
277.         End If
278.     End Sub
279.     Private Sub AmountTXT_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles AmountTXT.KeyDown
280.         If e.KeyCode = Keys.Enter Then MoveBTN.Select()
281.     End Sub
282. End Class