Universal Accounting Manager - NewProduct.vb

NewProduct.vb

1. Public Class NewProduct
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 AlertsPath As String = DataPath & "\Alerts"
9.     Dim StoreNumber As Integer = 0
10.     Dim CalledFrom As String = ""
11.     Dim LastPriceInformation() As Double = {0, 0, 0}
12.     Private Shared NewProductInstance As NewProduct
13.     Public Shared Function GetInstance() As NewProduct
14.         If (NewProductInstance Is Nothing) Then
15.             NewProductInstance = New NewProduct
16.         End If
17.         Return NewProductInstance
18.     End Function
19.     Public Sub CalledFromWindow(ByVal SName As String, ByVal Pname As String)
20.         CalledFrom = SName