[ActiveLock-Development] CVS: alugen/lib ALUGENLib.vbp,1.6,1.7 Generator.cls,1.6,1.7 Globals.cls,1.3,1.4

[Thanh H. T. <th...@us...>]

Update of /cvsroot/activelock/alugen/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12414

Modified Files:
	ALUGENLib.vbp Generator.cls Globals.cls 
Log Message:
Bug fixes for 2.0.9

Index: ALUGENLib.vbp
===================================================================
RCS file: /cvsroot/activelock/alugen/lib/ALUGENLib.vbp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- ALUGENLib.vbp	2 Jul 2004 04:13:57 -0000	1.6
+++ ALUGENLib.vbp	9 Jul 2004 08:29:42 -0000	1.7
@@ -20,7 +20,7 @@
 VersionCompatible32="1"
 MajorVer=2
 MinorVer=0
-RevisionVer=8
+RevisionVer=9
 AutoIncrementVer=0
 ServerSupportFiles=0
 VersionCompanyName="The ActiveLock Software Group"

Index: Generator.cls
===================================================================
RCS file: /cvsroot/activelock/alugen/lib/Generator.cls,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- Generator.cls	2 Jul 2004 04:13:57 -0000	1.6
+++ Generator.cls	9 Jul 2004 08:29:42 -0000	1.7
@@ -149,6 +149,9 @@
         ProdInfo.VCode = .Values("VCode") '@todo Decrypt code1 and code2
         ProdInfo.GCode = .Values("GCode")
     End With
+    If ProdInfo.VCode = "" Or ProdInfo.GCode = "" Then
+        Err.Raise ALUGENErrCodeConstants.alugenProdInvalid, App.ProductName, "Product code set is invalid."
+    End If
     Set IALUGenerator_RetrieveProduct = ProdInfo
 End Function
 

Index: Globals.cls
===================================================================
RCS file: /cvsroot/activelock/alugen/lib/Globals.cls,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Globals.cls	2 Jul 2004 04:13:57 -0000	1.3
+++ Globals.cls	9 Jul 2004 08:29:42 -0000	1.4
@@ -63,6 +63,7 @@
 ' @history
 ' <pre>
 ' 08.15.03 - th2tran       - Created
+' 07.09.04 - th2tran       - Added ALUGENErrCodeConstants Enum
 '
 ' </pre>
 
@@ -71,6 +72,19 @@
 '  ///////////////////////////////////////////////////////////////////////
 Option Explicit
 
+
+''
+' ActiveLock Error Codes.
+' These error codes are used for <code>Err.Number</code> whenever ActiveLock raises an error.
+'
+' @param alerrOK                No error.  Operation was successful.
+' @param alugenProdInvalid      Product Info is invalid
+Public Enum ALUGENErrCodeConstants
+    alugenOK = 0   ' successful
+    alugenProdInvalid = &H80040100         ' vbObjectError (&H80040000) + &H100
+End Enum
+
+
 ''
 ' Returns an IALUGenerator instance.
 '