Universal Accounting Manager - Requests.vb

Requests.vb

1. Public Class Requests
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 FItem As ListViewItem
13.     Private Shared RequestsInstance As Requests
14.     Public Shared Function GetInstance() As Requests
15.         If (RequestsInstance Is Nothing) Then
16.             RequestsInstance = New Requests
17.         End If
18.         Return RequestsInstance
19.     End Function
20.     Private Sub Requests_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
21.         LV.Columns.Add("إسم السلعة")
22.         LV.Columns.Add("الكمية المطلوبة")
23.         LV.Columns.Add("الكمية المتوفرة")
24.         LV.Columns.Add("النقص الحالي")
25.         LV.Columns.Add("الزبائن")
26.         LV.Columns.Add("المخازن")
27.         LoadRequests()
28.     End Sub
29.     Public Sub LoadRequests()
30.         On Error Resume Next
31.         LV.Items.Clear()
32.         Dim RName As String = ""
33.         Dim RPath As String = 0
34.         Dim Amount As Double = 0
35.         Dim Founded As Double = 0
36.         Dim Minus As Double = 0
37.         Dim CusList As String = ""
38.         Dim SList As String = ""
39.         Dim Addad As Integer = 0
40.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(RequestsPath).Count - 1
41.             RName = My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(RequestsPath).Item(Addad)).Name
42.             RPath = My.Computer.FileSystem.GetDirectories(RequestsPath).Item(Addad)
43.             Amount = Val(My.Computer.FileSystem.ReadAllText(RPath & "\amount.dat", System.Text.Encoding.GetEncoding(0)))
44.             Founded = Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & RName & "\mount.dat", System.Text.Encoding.GetEncoding(0)))
45.             If Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & RName & "\stores.dat", System.Text.Encoding.GetEncoding(0))) = 0 Then
46.                 If My.Computer.FileSystem.FileExists(ProductPath & "\" & RName & "\mount0.dat") = True Then
47.                     Founded += Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & RName & "\mount0.dat", System.Text.Encoding.GetEncoding(0)))
48.                 End If
49.             Else
50.                 Dim SubAddad As Integer = 0
51.                 For SubAddad = 0 To Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & RName & "\stores.dat", System.Text.Encoding.GetEncoding(0)))
52.                     Founded += Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & RName & "\mount" & SubAddad & ".dat", System.Text.Encoding.GetEncoding(0)))
53.                 Next
54.             End If
55.             Minus = Founded - Amount
56.             If Minus > 0 Then Minus = 0
57.             CusList = My.Computer.FileSystem.ReadAllText(RPath & "\customers.dat", System.Text.Encoding.GetEncoding(0))
58.             SList = My.Computer.FileSystem.ReadAllText(RPath & "\stores.dat", System.Text.Encoding.GetEncoding(0))
59.             LV.Items.Add(RName)
60.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Amount)
61.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Founded)
62.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(Minus)
63.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(CusList)
64.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(SList)
65.             If Val(LV.Items.Item(LV.Items.Count - 1).SubItems(3).Text < 0) = 0 Then LV.Items.Item(LV.Items.Count - 1).BackColor = Color.LightGray
66.         Next
67.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
68.     End Sub
69.     Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCancleBTN.Click
70.         StartUp.CloseTabs()
71.     End Sub
72.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
73.         LoadRequests()
74.     End Sub
75.     Private Sub ProductShowBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductShowBTN.Click
76.         Refresher.Enabled = False
77.         If LV.SelectedItems.Count > 0 Then
78.             If MsgBox("تأكيد مسح " & LV.FocusedItem.Text & " من قائمة طلبات الزبائن؟", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
79.                 System.IO.Directory.Delete(RequestsPath & "\" & LV.FocusedItem.Text, True)
80.                 LoadRequests()
81.             End If
82.             Refresher.Enabled = True
83.         End If
84.     End Sub
85.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
86.         LoadProduct()
87.     End Sub
88.     Public Sub LoadProduct()
89.         If LV.SelectedItems.Count > 0 Then
90.             NewBuy.GetInstance.NewSellProNameTXT.Text = LV.FocusedItem.Text
91.             StartUp.OpenNewTab(NewBuy.GetInstance)
92.         End If
93.     End Sub
94. End Class