Universal Accounting Manager - Setting.vb

Setting.vb

1. Public Class Setting
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 AlertsPath As String = DataPath & "\Alerts"
15.     Dim SettingsPath As String = DataPath & "\Settings"
16.     Dim AddToVindorBoolean As Boolean = False
17.     Private Shared SettingInstance As Setting
18.     Public Shared Function GetInstance() As Setting
19.         If (SettingInstance Is Nothing) Then
20.             SettingInstance = New Setting
21.         End If
22.         Return SettingInstance
23.     End Function
24.     Public Sub TestText()
25.         'test values to add errors to Alerts :