CMR Anhang

SDL/Classes/cCMR.vb

@@ -159,14 +159,20 @@ Public Class cCMR
     Property CMR_Firma As Object = Nothing
     Property EPBes_ID As Object = Nothing
 
+    Property CMR_isVorlage As Object = Nothing
+
 
     Property CMRPos As New List(Of cCMRPos)
 
     Public _kurz As Boolean = True
     Dim SQL As New SQL
 
-
     Sub New()
+
+    End Sub
+
+    Sub New(isVorlage As Boolean)
+        CMR_isVorlage = isVorlage
     End Sub
 
     Sub New(CMR_ID As Integer)
@@ -336,6 +342,7 @@ Public Class cCMR
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_8", CMR_pkArt_8))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_9", CMR_pkArt_9))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_TblLangKurz", CMR_TblLangKurz))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_isVorlage", CMR_isVorlage))
 
         Return list
     End Function