Universal Accounting Manager - AdjustStore.vb

 AdjustStore.vb

1. Public Class AdjustStore
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.     Private Shared AdjustStoreInstance As AdjustStore
14.     Public Shared Function GetInstance() As AdjustStore
16.         If (AdjustStoreInstance Is Nothing) Then
17.             AdjustStoreInstance = New AdjustStore
18.         End If
19.         Return AdjustStoreInstance
20.     End Function
21.     Private Sub AdjustStore_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.         LoadStores()
28.         LoadSelectedStore()
29.         Refresher.Enabled = True
30.     End Sub
31.     Public Sub LoadSelectedStore()
32.         LV.Items.Clear()
33.         Dim SName As String = ""
34.         Dim SAmount As Double = 0
35.         Dim SCat As String = ""
36.         Dim SPurch As Double = 0
37.         Dim SInter As Double = 0
38.         Dim Addad As Integer = 0
39.         For Addad = 0 To My.Computer.FileSystem.GetFiles(StoresPath & "\" & CNameTXT.Text).Count - 1
40.             SName = My.Computer.FileSystem.GetFileInfo(My.Computer.FileSystem.GetFiles(StoresPath & "\" & CNameTXT.Text).Item(Addad)).Name.Replace(".dat", "")
41.             'SCat = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\cat.dat", System.Text.Encoding.GetEncoding(0))
42.             SCat = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\cat.dat", System.Text.Encoding.GetEncoding(0))
43.             'SPurch = Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\purch.dat", System.Text.Encoding.GetEncoding(0)))
44.             SPurch = Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\purch.dat", System.Text.Encoding.GetEncoding(0)))
45.             '.............................
46.             Dim MyStoreName As String = CNameTXT.Text
47.             Dim FName As String = ""
48.             If MyStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\store.dat", System.Text.Encoding.GetEncoding(0)) Then FName = "mount.dat" : GoTo FinishStoreName
49.             If Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\stores.dat", System.Text.Encoding.GetEncoding(0))) = 0 Then
50.                 If My.Computer.FileSystem.FileExists(ProductPath & "\" & SName & "\mount0.dat") = True Then
51.                     If MyStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\store0.dat", System.Text.Encoding.GetEncoding(0)) Then FName = "mount0.dat" : GoTo FinishStoreName
52.                 End If
53.             Else
54.                 Dim SubAddad As Integer = 0
55.                 For SubAddad = 0 To Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\stores.dat", System.Text.Encoding.GetEncoding(0)))
56.                     If MyStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\store" & SubAddad & ".dat", System.Text.Encoding.GetEncoding(0)) Then FName = "mount" & SubAddad & ".dat" : GoTo FinishStoreName
57.                 Next
58.             End If
59. FinishStoreName:
60.             SAmount = Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\" & FName, System.Text.Encoding.GetEncoding(0)))
61.             '.............................
62.             Dim InterValue As Double = 0
63.             Dim TaxValue As Double = 0
64.             TaxValue = Val(Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\price.dat", System.Text.Encoding.GetEncoding(0))) * Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\maintax.dat", System.Text.Encoding.GetEncoding(0))) / 100) + Val(Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\price.dat", System.Text.Encoding.GetEncoding(0))) * Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\subtax.dat", System.Text.Encoding.GetEncoding(0))) / 100)
65.             InterValue = SPurch - Val(Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\price.dat", System.Text.Encoding.GetEncoding(0)))) - (TaxValue)
66.             SInter = InterValue
67.             LV.Items.Add(SName)
68.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(SAmount)
69.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(SCat)
70.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(SPurch)
71.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(SInter)
72.         Next
73.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
74.     End Sub
75.     Public Sub LoadStores()
76.         CNameTXT.Items.Clear()
77.         ToStoresTXT.Items.Clear()
78.         Dim Addad As Integer = 0
79.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(StoresPath).Count - 1
80.             Dim SPath As String = My.Computer.FileSystem.GetDirectories(StoresPath).Item(Addad)
81.             Dim SName As String = My.Computer.FileSystem.GetDirectoryInfo(My.Computer.FileSystem.GetDirectories(StoresPath).Item(Addad)).Name
82.             CNameTXT.Items.Add(SName)
83.             ToStoresTXT.Items.Add(SName)
84.         Next
85.         CNameTXT.Text = My.Computer.FileSystem.ReadAllText(DataPath & "\defaultstore.dat", System.Text.Encoding.GetEncoding(0))
86.         ToStoresTXT.Text = My.Computer.FileSystem.ReadAllText(DataPath & "\defaultstore.dat", System.Text.Encoding.GetEncoding(0))
87.     End Sub
88.     Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseBTN.Click
89.         ToStoresTXT.Visible = False
90.         MoveBTN.Visible = False
91.         StartUp.CloseTabs()
92.     End Sub
93.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
94.         LoadProduct()
95.     End Sub
96.     Public Sub LoadProduct()
97.         If LV.SelectedItems.Count > 0 Then
98.             NewProduct.GetInstance.LoadProduct(LV.FocusedItem.Text)
99.             StartUp.MainPanel.Controls.Clear()
100.             StartUp.MainPanel.Controls.Add(NewProduct.GetInstance())
101.             StartUp.AddNewTab(NewProduct.GetInstance.Tag, NewProduct.GetInstance.Name)
102.         End If
103.     End Sub
104.     Private Sub CNameTXT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CNameTXT.SelectedIndexChanged
105.         LoadSelectedStore()
106.     End Sub
107.     Private Sub RenameStoreBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RenameStoreBTN.Click
108.         Dim NewName As String = ""
109.         NewName = InputBox("إسم المخزن الجديد", "إعادة تسمية المخزن", CNameTXT.Text)
110.         If NewName <> "" And NewName <> CNameTXT.Text Then
111.             RenameStore(CNameTXT.Text, NewName)
112.         End If
113.     End Sub
114.     Public Sub RenameStore(ByVal OldName As String, ByVal NewName As String)
115.         My.Computer.FileSystem.RenameDirectory(StoresPath & "\" & OldName, NewName)
116.         Dim Addad As Integer = 0
117.         For Addad = 0 To LV.Items.Count - 1
118.             Dim MyStoreName As String = CNameTXT.Text
119.             Dim SName As String = LV.Items.Item(Addad).Text
120.             Dim FName As String = ""
121.             If MyStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\store.dat", System.Text.Encoding.GetEncoding(0)) Then FName = "store.dat" : GoTo FinishStoreName
122.             If Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\stores.dat", System.Text.Encoding.GetEncoding(0))) = 0 Then
123.                 If My.Computer.FileSystem.FileExists(ProductPath & "\" & SName & "\store0.dat") = True Then
124.                     If MyStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\store0.dat", System.Text.Encoding.GetEncoding(0)) Then FName = "store0.dat" : GoTo FinishStoreName
125.                 End If
126.             Else
127.                 Dim SubAddad As Integer = 0
128.                 For SubAddad = 0 To Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\stores.dat", System.Text.Encoding.GetEncoding(0)))
129.                     If MyStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & SName & "\store" & SubAddad & ".dat", System.Text.Encoding.GetEncoding(0)) Then FName = "store" & SubAddad & ".dat" : GoTo FinishStoreName
130.                 Next
131.             End If
132. FinishStoreName:
133.             My.Computer.FileSystem.WriteAllText(ProductPath & "\" & SName & "\" & FName, NewName, False, System.Text.Encoding.GetEncoding(0))
134.         Next
135.         LoadStores()
136.         CNameTXT.SelectedItem = NewName
137.         LoadSelectedStore()
138.     End Sub
139.     Private Sub LV_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.GotFocus
140.         ToStoresTXT.Visible = True
141.         MoveBTN.Visible = True
142.         MoveLBL.Visible = True
143.     End Sub
144.     Private Sub MoveBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MoveBTN.Click
145.         Dim PName As String = ""
146.         Dim PAmount As Double = 0
147.         Dim SStoreName As String = CNameTXT.Text
148.         Dim SName As String = ""
149.         Dim SAName As String = ""
150.         Dim SUName As String = ""
151.         Dim TStoreName As String = ToStoresTXT.Text
152.         Dim TName As String = ""
153.         Dim TAName As String = ""
154.         Dim TUName As String = ""
155.         Dim TAddad As Integer = 0
156.         If CNameTXT.Text <> ToStoresTXT.Text Then
157.             PName = LV.FocusedItem.Text
158.             PAmount = Val(InputBox("الكمية التي ترغب بنقلها :", "نقل " & PName & " من مخزن " & CNameTXT.Text & " - إلى مخزن " & ToStoresTXT.Text, "0"))
159.             If PAmount <> 0 And PAmount <> Nothing And PAmount <= Val(LV.FocusedItem.SubItems(1).Text) Then
160.                 'Special Target Store Product :
161.                 If SStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\store.dat", System.Text.Encoding.GetEncoding(0)) Then
162.                     SName = "store.dat"
163.                     SAName = "mount.dat"
164.                     SUName = "unit.dat"
165.                     GoTo FirsStepFinished
166.                 End If
167.                 If Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\stores.dat", System.Text.Encoding.GetEncoding(0))) = 0 Then
168.                     If My.Computer.FileSystem.FileExists(ProductPath & "\" & PName & "\mount0.dat") = True Then
169.                         If SStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\store0.dat", System.Text.Encoding.GetEncoding(0)) Then
170.                             SName = "store0.dat"
171.                             SAName = "mount0.dat"
172.                             SUName = "unit0.dat"
173.                             GoTo FirsStepFinished
174.                         End If
175.                     End If
176.                 Else
177.                     Dim SubAddad As Integer = 0
178.                     For SubAddad = 0 To Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\stores.dat", System.Text.Encoding.GetEncoding(0)))
179.                         If SStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\store" & SubAddad & ".dat", System.Text.Encoding.GetEncoding(0)) Then
180.                             SName = "store" & SubAddad & ".dat"
181.                             SAName = "mount" & SubAddad & ".dat"
182.                             SUName = "unit" & SubAddad & ".dat"
183.                             GoTo FirsStepFinished
184.                         End If
185.                     Next
186.                 End If
187.                 ';;;;;;;;;;;;;;;;;;;;;;;;;;
188.                 'Source Store not contains product
189.                 ';;;;;;;;;;;;;;;;;;;;;;;;;;
190. FirsStepFinished:
191.                 'Special Target Store Product :
192.                 If TStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\store.dat", System.Text.Encoding.GetEncoding(0)) Then
193.                     TName = "store.dat"
194.                     TAName = "mount.dat"
195.                     TUName = "unit.dat"
196.                     TAddad = 0
197.                     GoTo Finish
198.                 End If
199.                 If Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\stores.dat", System.Text.Encoding.GetEncoding(0))) = 0 Then
200.                     If My.Computer.FileSystem.FileExists(ProductPath & "\" & PName & "\mount0.dat") = True Then
201.                         If TStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\store0.dat", System.Text.Encoding.GetEncoding(0)) Then
202.                             TName = "store0.dat"
203.                             TAName = "mount0.dat"
204.                             TUName = "unit0.dat"
205.                             TAddad = 1
206.                             GoTo Finish
207.                         End If
208.                     End If
209.                 Else
210.                     Dim SubAddad As Integer = 0
211.                     For SubAddad = 0 To Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\stores.dat", System.Text.Encoding.GetEncoding(0)))
212.                         If TStoreName = My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\store" & SubAddad & ".dat", System.Text.Encoding.GetEncoding(0)) Then
213.                             TName = "store" & SubAddad & ".dat"
214.                             TAName = "mount" & SubAddad & ".dat"
215.                             TUName = "unit" & SubAddad & ".dat"
216.                             TAddad = Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\stores.dat", System.Text.Encoding.GetEncoding(0))) + 1
217.                             GoTo Finish
218.                         End If
219.                     Next
220.                 End If
221.                 ';;;;;;;;;;;;;;;;;;;;;;;;;;
222.                 'Target Store not contains product
223.                 ';;;;;;;;;;;;;;;;;;;;;;;;;;
224.                 My.Computer.FileSystem.WriteAllText(StoresPath & "\" & TStoreName & "\" & PName & ".dat", "0", False, System.Text.Encoding.GetEncoding(0))
225.                 TName = "store" & TAddad & ".dat"
226.                 TAName = "mount" & TAddad & ".dat"
227.                 My.Computer.FileSystem.WriteAllText(ProductPath & "\" & PName & "\stores.dat", TAddad, False, System.Text.Encoding.GetEncoding(0))
228.                 My.Computer.FileSystem.WriteAllText(ProductPath & "\" & PName & "\store" & TAddad & ".dat", TStoreName, False, System.Text.Encoding.GetEncoding(0))
229.                 My.Computer.FileSystem.WriteAllText(ProductPath & "\" & PName & "\mount" & TAddad & ".dat", 0, False, System.Text.Encoding.GetEncoding(0))
230.                 My.Computer.FileSystem.WriteAllText(ProductPath & "\" & PName & "\unit" & TAddad & ".dat", Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\" & SUName, System.Text.Encoding.GetEncoding(0))), False, System.Text.Encoding.GetEncoding(0))
231. Finish:
232.                 Dim LastAmount As Double = 0
233.                 LastAmount = Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\" & SAName, System.Text.Encoding.GetEncoding(0)))
234.                 LastAmount = LastAmount - PAmount
235.                 My.Computer.FileSystem.WriteAllText(ProductPath & "\" & PName & "\" & SAName, LastAmount, False, System.Text.Encoding.GetEncoding(0))
236.                 LastAmount = Val(My.Computer.FileSystem.ReadAllText(ProductPath & "\" & PName & "\" & TAName, System.Text.Encoding.GetEncoding(0)))
237.                 LastAmount = LastAmount + PAmount
238.                 My.Computer.FileSystem.WriteAllText(ProductPath & "\" & PName & "\" & TAName, LastAmount, False, System.Text.Encoding.GetEncoding(0))
239.                 ToStoresTXT.Visible = False
240.                 MoveBTN.Visible = False
241.                 MoveLBL.Visible = False
242.                 LoadSelectedStore()
243.             End If
244.         End If
245.     End Sub
246.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
247.         LoadSelectedStore()
248.     End Sub
249. End Class