Universal Accounting Manager - NewBuy.vb

NewBuy.vb

1. Public Class NewBuy
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.     Friend WithEvents PrintPreviewControl1 As PrintPreviewControl
18.     Private WithEvents docToPrint As New Printing.PrintDocument
19.     Private Shared NewBuyInstance As NewBuy
20.     Public Shared Function GetInstance() As NewBuy
21.         If (NewBuyInstance Is Nothing) Then
22.             NewBuyInstance = New NewBuy
23.         End If
24.         Return NewBuyInstance