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.
'
|
