neu

VERAG_PROG_ALLGEMEIN/Classes/cClasses.vb

@@ -69,12 +69,14 @@ Public Class SQLVariable
     Private Scalarvariablename As String
     Private primaryParam As Boolean
     Private onlyForLoad As Boolean
+    Private onlyForSave As Boolean
 
-    Public Sub New(ByVal Text As String, ByVal Value As Object, Optional Scalarvariablename As String = "", Optional primaryParam As Boolean = False, Optional onlyForLoad As Boolean = False)
+    Public Sub New(ByVal Text As String, ByVal Value As Object, Optional Scalarvariablename As String = "", Optional primaryParam As Boolean = False, Optional onlyForLoad As Boolean = False, Optional onlyForSave As Boolean = False)
         Me.TextSQLName = Text
         Me.ValueSQLVALUE = Value
         Me.primaryParam = primaryParam
         Me.onlyForLoad = onlyForLoad
+        Me.onlyForSave = onlyForSave
 
         If Scalarvariablename <> "" Then Me.Scalarvariablename = Scalarvariablename Else Me.Scalarvariablename = Text
     End Sub
@@ -109,6 +111,12 @@ Public Class SQLVariable
         End Get
     End Property
 
+    Public ReadOnly Property isonlyForSave() As Boolean
+        Get
+            Return onlyForSave
+        End Get
+    End Property
+
 
     '  Public Overrides Function ToString() As Object
     '      Return mText