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