VK Cbam Save, Vollm.ind.

VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb

@@ -68,6 +68,7 @@ Public Class cVorauskasse
     Property vk_SendungId As Object = Nothing
     Property vk_AvisoId As Object = Nothing
     Property vk_VermerkId As Object = Nothing
+    Property vk_serializedData_CBAM As Object = Nothing
 
 
     Dim SQL As New SQL
@@ -143,6 +144,7 @@ Public Class cVorauskasse
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_SendungId", vk_SendungId))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_AvisoId", vk_AvisoId))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_VermerkId", vk_VermerkId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_serializedData_CBAM", vk_serializedData_CBAM))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.Designer.vb

@@ -31,6 +31,7 @@ Partial Class frmVorlagen
         Me.Label2 = New System.Windows.Forms.Label()
         Me.lblCount = New System.Windows.Forms.Label()
         Me.dgvVolagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Button2 = New System.Windows.Forms.Button()
         CType(Me.dgvVolagen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -105,12 +106,23 @@ Partial Class frmVorlagen
         Me.dgvVolagen.Size = New System.Drawing.Size(1094, 569)
         Me.dgvVolagen.TabIndex = 9
         '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(833, 609)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(225, 44)
+        Me.Button2.TabIndex = 14
+        Me.Button2.Text = "Vorlage direkt öffnen"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
         'frmVorlagen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(1117, 665)
+        Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.lblCount)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.txtSuche)
@@ -134,4 +146,5 @@ Partial Class frmVorlagen
     Friend WithEvents txtSuche As Windows.Forms.TextBox
     Friend WithEvents Label2 As Windows.Forms.Label
     Friend WithEvents lblCount As Windows.Forms.Label
+    Friend WithEvents Button2 As Windows.Forms.Button
 End Class

VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagen.vb

@@ -34,7 +34,6 @@ Public Class frmVorlagen
         If dgvVolagen.SelectedRows.Count = 0 Then Exit Sub
         Dim r As DataGridViewRow = dgvVolagen.SelectedRows(0)
         Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(r.Cells("da_kategorie").Value, r.Cells("da_ordner").Value, r.Cells("da_uOrdner1").Value, r.Cells("da_uOrdner2").Value, r.Cells("da_uOrdner3").Value, r.Cells("da_name").Value)
-        MsgBox(cDATENSERVER.DATA_LIST.LIST.Count)
         cDATENSERVER.OPEN_SINGLE()
 
     End Sub
@@ -66,4 +65,16 @@ Public Class frmVorlagen
 
         End If
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+        If dgvVolagen.SelectedRows.Count = 0 Then Exit Sub
+        Try
+            Dim r As DataGridViewRow = dgvVolagen.SelectedRows(0)
+            Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(r.Cells("da_kategorie").Value, r.Cells("da_ordner").Value, r.Cells("da_uOrdner1").Value, r.Cells("da_uOrdner2").Value, r.Cells("da_uOrdner3").Value, r.Cells("da_name").Value)
+            cDATENSERVER.OPEN_SINGLE_ORIG()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
 End Class