Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

SDL/kunden/frmKundenZOLLVollmachten.Designer.vb

@@ -25,6 +25,8 @@ Partial Class frmKundenZOLLVollmachten
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenZOLLVollmachten))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.btnUploadPDF = New System.Windows.Forms.Button()
+        Me.lblPDFavailable = New System.Windows.Forms.Label()
         Me.btnNeu = New System.Windows.Forms.Button()
         Me.dgvVollmachtenEmbedded = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -33,31 +35,33 @@ Partial Class frmKundenZOLLVollmachten
         Me.cbxErhaltenAm = New System.Windows.Forms.CheckBox()
         Me.lbl = New System.Windows.Forms.Label()
         Me.pnlDetails = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.lblWarning = New System.Windows.Forms.Label()
         Me.lblGueltigVon = New System.Windows.Forms.Label()
         Me.cbxVMarchivieren = New System.Windows.Forms.CheckBox()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.picPDF = New System.Windows.Forms.PictureBox()
-        Me.btnUploadPDF = New System.Windows.Forms.Button()
+        Me.picDeleteEmail = New System.Windows.Forms.PictureBox()
+        Me.picEmail = New System.Windows.Forms.PictureBox()
         Me.picDeletePDF = New System.Windows.Forms.PictureBox()
-        Me.lblPDFavailable = New System.Windows.Forms.Label()
+        Me.picPDF = New System.Windows.Forms.PictureBox()
         Me.lblGueltigBis = New System.Windows.Forms.Label()
         Me.txtGueltigVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxArchiviert = New System.Windows.Forms.CheckBox()
-        Me.btnSave = New System.Windows.Forms.Button()
         Me.btnOK = New System.Windows.Forms.Button()
+        Me.btnSave = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.lblWarning = New System.Windows.Forms.Label()
         Me.pnl.SuspendLayout()
         CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlDetails.SuspendLayout()
         Me.Panel1.SuspendLayout()
-        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picEmail, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -65,6 +69,8 @@ Partial Class frmKundenZOLLVollmachten
         '
         Me.pnl.BackColor = System.Drawing.Color.White
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.btnUploadPDF)
+        Me.pnl.Controls.Add(Me.lblPDFavailable)
         Me.pnl.Controls.Add(Me.btnNeu)
         Me.pnl.Controls.Add(Me.dgvVollmachtenEmbedded)
         Me.pnl.Controls.Add(Me.MyComboBox1)
@@ -76,9 +82,30 @@ Partial Class frmKundenZOLLVollmachten
         Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(499, 383)
+        Me.pnl.Size = New System.Drawing.Size(513, 383)
         Me.pnl.TabIndex = 1
         '
+        'btnUploadPDF
+        '
+        Me.btnUploadPDF.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnUploadPDF.Location = New System.Drawing.Point(155, 179)
+        Me.btnUploadPDF.Name = "btnUploadPDF"
+        Me.btnUploadPDF.Size = New System.Drawing.Size(134, 25)
+        Me.btnUploadPDF.TabIndex = 12
+        Me.btnUploadPDF.Text = "PDF hochladen"
+        Me.btnUploadPDF.UseVisualStyleBackColor = True
+        Me.btnUploadPDF.Visible = False
+        '
+        'lblPDFavailable
+        '
+        Me.lblPDFavailable.Location = New System.Drawing.Point(297, 182)
+        Me.lblPDFavailable.Name = "lblPDFavailable"
+        Me.lblPDFavailable.Size = New System.Drawing.Size(140, 13)
+        Me.lblPDFavailable.TabIndex = 13
+        Me.lblPDFavailable.Text = "Kein PDF vorhanden."
+        Me.lblPDFavailable.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblPDFavailable.Visible = False
+        '
         'btnNeu
         '
         Me.btnNeu.Image = Global.SDL.My.Resources.Resources.plus
@@ -116,7 +143,7 @@ Partial Class frmKundenZOLLVollmachten
         Me.MyComboBox1.FormattingEnabled = True
         Me.MyComboBox1.Location = New System.Drawing.Point(98, 6)
         Me.MyComboBox1.Name = "MyComboBox1"
-        Me.MyComboBox1.Size = New System.Drawing.Size(127, 21)
+        Me.MyComboBox1.Size = New System.Drawing.Size(243, 21)
         Me.MyComboBox1.TabIndex = 15
         Me.MyComboBox1.Visible = False
         '
@@ -127,7 +154,7 @@ Partial Class frmKundenZOLLVollmachten
         Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.ForeColor = System.Drawing.Color.White
-        Me.Button1.Location = New System.Drawing.Point(455, 0)
+        Me.Button1.Location = New System.Drawing.Point(469, 0)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(42, 23)
         Me.Button1.TabIndex = 9
@@ -186,6 +213,17 @@ Partial Class frmKundenZOLLVollmachten
         Me.pnlDetails.Size = New System.Drawing.Size(492, 159)
         Me.pnlDetails.TabIndex = 28
         '
+        'lblWarning
+        '
+        Me.lblWarning.AutoSize = True
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(118, 30)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(105, 13)
+        Me.lblWarning.TabIndex = 30
+        Me.lblWarning.Text = "Gültig von eintragen!"
+        Me.lblWarning.Visible = False
+        '
         'lblGueltigVon
         '
         Me.lblGueltigVon.AutoSize = True
@@ -242,41 +280,41 @@ Partial Class frmKundenZOLLVollmachten
         '
         'Panel1
         '
-        Me.Panel1.Controls.Add(Me.picPDF)
-        Me.Panel1.Controls.Add(Me.btnUploadPDF)
+        Me.Panel1.Controls.Add(Me.picDeleteEmail)
+        Me.Panel1.Controls.Add(Me.picEmail)
         Me.Panel1.Controls.Add(Me.picDeletePDF)
-        Me.Panel1.Controls.Add(Me.lblPDFavailable)
-        Me.Panel1.Location = New System.Drawing.Point(254, 42)
+        Me.Panel1.Controls.Add(Me.picPDF)
+        Me.Panel1.Location = New System.Drawing.Point(356, 45)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(233, 70)
+        Me.Panel1.Size = New System.Drawing.Size(130, 74)
         Me.Panel1.TabIndex = 17
         Me.Panel1.Visible = False
         '
-        'picPDF
+        'picDeleteEmail
         '
-        Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
-        Me.picPDF.Location = New System.Drawing.Point(178, 10)
-        Me.picPDF.Name = "picPDF"
-        Me.picPDF.Size = New System.Drawing.Size(44, 48)
-        Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
-        Me.picPDF.TabIndex = 17
-        Me.picPDF.TabStop = False
-        Me.picPDF.Visible = False
+        Me.picDeleteEmail.Image = Global.SDL.My.Resources.Resources.del
+        Me.picDeleteEmail.Location = New System.Drawing.Point(27, 0)
+        Me.picDeleteEmail.Name = "picDeleteEmail"
+        Me.picDeleteEmail.Size = New System.Drawing.Size(20, 20)
+        Me.picDeleteEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.picDeleteEmail.TabIndex = 19
+        Me.picDeleteEmail.TabStop = False
+        Me.picDeleteEmail.Visible = False
         '
-        'btnUploadPDF
+        'picEmail
         '
-        Me.btnUploadPDF.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnUploadPDF.Location = New System.Drawing.Point(11, 10)
-        Me.btnUploadPDF.Name = "btnUploadPDF"
-        Me.btnUploadPDF.Size = New System.Drawing.Size(134, 25)
-        Me.btnUploadPDF.TabIndex = 12
-        Me.btnUploadPDF.Text = "PDF hochladen"
-        Me.btnUploadPDF.UseVisualStyleBackColor = True
+        Me.picEmail.Image = Global.SDL.My.Resources.Resources.email_big_gray
+        Me.picEmail.Location = New System.Drawing.Point(13, 23)
+        Me.picEmail.Name = "picEmail"
+        Me.picEmail.Size = New System.Drawing.Size(44, 48)
+        Me.picEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.picEmail.TabIndex = 18
+        Me.picEmail.TabStop = False
         '
         'picDeletePDF
         '
         Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del
-        Me.picDeletePDF.Location = New System.Drawing.Point(11, 38)
+        Me.picDeletePDF.Location = New System.Drawing.Point(90, 1)
         Me.picDeletePDF.Name = "picDeletePDF"
         Me.picDeletePDF.Size = New System.Drawing.Size(20, 20)
         Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -284,14 +322,16 @@ Partial Class frmKundenZOLLVollmachten
         Me.picDeletePDF.TabStop = False
         Me.picDeletePDF.Visible = False
         '
-        'lblPDFavailable
+        'picPDF
         '
-        Me.lblPDFavailable.Location = New System.Drawing.Point(5, 38)
-        Me.lblPDFavailable.Name = "lblPDFavailable"
-        Me.lblPDFavailable.Size = New System.Drawing.Size(140, 13)
-        Me.lblPDFavailable.TabIndex = 13
-        Me.lblPDFavailable.Text = "Kein PDF vorhanden."
-        Me.lblPDFavailable.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
+        Me.picPDF.Location = New System.Drawing.Point(79, 23)
+        Me.picPDF.Name = "picPDF"
+        Me.picPDF.Size = New System.Drawing.Size(44, 48)
+        Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.picPDF.TabIndex = 17
+        Me.picPDF.TabStop = False
+        Me.picPDF.Visible = False
         '
         'lblGueltigBis
         '
@@ -364,17 +404,6 @@ Partial Class frmKundenZOLLVollmachten
         Me.cbxArchiviert.Text = "Archiviert"
         Me.cbxArchiviert.UseVisualStyleBackColor = True
         '
-        'btnSave
-        '
-        Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnSave.Location = New System.Drawing.Point(410, 125)
-        Me.btnSave.Name = "btnSave"
-        Me.btnSave.Size = New System.Drawing.Size(66, 24)
-        Me.btnSave.TabIndex = 29
-        Me.btnSave.Text = "Speichern"
-        Me.btnSave.UseVisualStyleBackColor = True
-        Me.btnSave.Visible = False
-        '
         'btnOK
         '
         Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
@@ -386,6 +415,17 @@ Partial Class frmKundenZOLLVollmachten
         Me.btnOK.Text = "OK"
         Me.btnOK.UseVisualStyleBackColor = True
         '
+        'btnSave
+        '
+        Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSave.Location = New System.Drawing.Point(410, 125)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(66, 24)
+        Me.btnSave.TabIndex = 29
+        Me.btnSave.Text = "Speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        Me.btnSave.Visible = False
+        '
         'ContextMenuStrip1
         '
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.LöschenToolStripMenuItem})
@@ -407,22 +447,11 @@ Partial Class frmKundenZOLLVollmachten
         Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
         Me.LöschenToolStripMenuItem.Text = "Löschen"
         '
-        'lblWarning
-        '
-        Me.lblWarning.AutoSize = True
-        Me.lblWarning.ForeColor = System.Drawing.Color.Red
-        Me.lblWarning.Location = New System.Drawing.Point(118, 30)
-        Me.lblWarning.Name = "lblWarning"
-        Me.lblWarning.Size = New System.Drawing.Size(105, 13)
-        Me.lblWarning.TabIndex = 30
-        Me.lblWarning.Text = "Gültig von eintragen!"
-        Me.lblWarning.Visible = False
-        '
         'frmKundenZOLLVollmachten
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(499, 383)
+        Me.ClientSize = New System.Drawing.Size(513, 383)
         Me.Controls.Add(Me.pnl)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -435,8 +464,10 @@ Partial Class frmKundenZOLLVollmachten
         Me.pnlDetails.ResumeLayout(False)
         Me.pnlDetails.PerformLayout()
         Me.Panel1.ResumeLayout(False)
-        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picEmail, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
         Me.ResumeLayout(False)
 
@@ -469,4 +500,6 @@ Partial Class frmKundenZOLLVollmachten
     Friend WithEvents lblGueltigVon As Label
     Friend WithEvents btnSave As Button
     Friend WithEvents lblWarning As Label
+    Friend WithEvents picDeleteEmail As PictureBox
+    Friend WithEvents picEmail As PictureBox
 End Class

SDL/kunden/frmKundenZOLLVollmachten.vb

@@ -26,10 +26,10 @@ Public Class frmKundenZOLLVollmachten
     'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
     Dim ksql As New kundenSQL
     Dim vollmachtartId As Integer
+    Dim emailId As Integer
     Dim vermerk As String = ""
     Dim vmId As Integer = -1
-    'Dim currentVM As frmKundenZOLLVollmachten = Nothing
-    Dim currentVM2 As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
+    Dim currentVM As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
 
     Sub New(kdnr, vollmachtartId)
         Me.InitializeComponent()
@@ -68,67 +68,14 @@ Public Class frmKundenZOLLVollmachten
                 'Me.Height = Me.Height - Panel1.Height
         End Select
 
-        If currentVM2.kdvm_datenarchivId > 0 Then
-            picDeletePDF.Visible = True
-            picPDF.Image = My.Resources.pdf
-
-            lblPDFavailable.Text = "PDF vorhanden."
-            lblPDFavailable.Cursor = Cursors.Hand
-        End If
 
     End Sub
 
-    Private Sub btnUploadPDF_Click(sender As Object, e As EventArgs) Handles btnUploadPDF.Click
-        If Me.MyComboBox1._value < 0 Then Exit Sub
-        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", MyComboBox1.Text, kdnr)
-        Dim path = DS.uploadDataToDATENSERVERFileDialog() ' cDATENSERVER.uploadDataToDATENSERVERFileDialog("DOKUMENTE", "VOLLMACHTEN", kdnr, MyComboBox1.Text)
 
-        If path <> "" Then
-            currentVM2.kdvm_datenarchivId = DS.da_id 'cDATENSERVER.getLAST_ID(path)
 
-            lblPDFavailable.Text = "PDF vorhanden."
-            lblPDFavailable.Cursor = Cursors.Hand
-        End If
-        picDeletePDF.Visible = True = (currentVM2.kdvm_datenarchivId > 0)
-
-        saveVM(currentVM2)
-
-        dgvVollmachtenEmbedded.GetOrder()
-        initDGVVollmachtenEmbedded(True)
-        dgvVollmachtenEmbedded.SetOrder()
-
-    End Sub
-
-    Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click
-
-        lblPDFavailable.Cursor = Cursors.WaitCursor
-        'If (currentVM.id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id)
-        If (currentVM2.kdvm_datenarchivId > 0) Then
-            If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
-
-                'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.id)
-                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM2.kdvm_datenarchivId)
-                DS.DELETE_COMPLETE()
-
-                'If ksql.setVollmacht_DSId(kdnr, vmId, -1) Then
-                currentVM2.kdvm_datenarchivId = -1
-                If currentVM2.SAVE Then
-                    currentVM2.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False
-                    lblPDFavailable.Text = "Kein PDF vorhanden."
-                    picPDF.Image = My.Resources.pdf_gray
-                End If
-            End If
-        End If
-        lblPDFavailable.Cursor = Cursors.Default
-
-        dgvVollmachtenEmbedded.GetOrder()
-        initDGVVollmachtenEmbedded(True)
-        dgvVollmachtenEmbedded.SetOrder()
-
-    End Sub
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
-        'test
+
     End Sub
 
     Sub saveVM(VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
@@ -172,9 +119,6 @@ Public Class frmKundenZOLLVollmachten
             dgvVollmachtenEmbedded.Enabled = True
         End If
 
-        If btnUploadPDF.Enabled = False Then
-            btnUploadPDF.Enabled = True
-        End If
 
         dgvVollmachtenEmbedded.GetOrder()
         initDGVVollmachtenEmbedded(True)
@@ -183,9 +127,9 @@ Public Class frmKundenZOLLVollmachten
     End Sub
 
     Private Sub lblNoPDFavailable_Click(sender As Object, e As EventArgs) Handles lblPDFavailable.Click
-        If currentVM2.kdvm_datenarchivId > 0 Then
+        If currentVM.kdvm_datenarchivId > 0 Then
             ' cDATENSERVER.openDataTMPByDatenarchivId(id)
-            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM2.kdvm_datenarchivId)
+            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
             DS.OPEN_SINGLE()
         End If
     End Sub
@@ -367,22 +311,9 @@ Public Class frmKundenZOLLVollmachten
         txtGueltigVon.Text = VM.kdvm_erhalten_Datum
         txtGueltigBis.Text = VM.kdvm_gueltig_bis
 
-
-        If VM.kdvm_datenarchivId > 0 Then
-            picDeletePDF.Visible = True
-            picPDF.Visible = True
-
-            picPDF.Image = My.Resources.pdf
-            lblPDFavailable.Text = "PDF vorhanden."
-            lblPDFavailable.Cursor = Cursors.Hand
-        Else
-            picDeletePDF.Visible = False
-            picPDF.Visible = True
-            lblPDFavailable.Text = "Kein PDF vorhanden."
-            picPDF.Image = My.Resources.pdf_gray
-        End If
-
-            setOKButton()
+        checkEmailIsPresent()
+        checkPDFisPresent()
+        setOKButton()
 
         'Listener für Änderungen im Detail-Panel
         For Each c As Control In pnlDetails.Controls
@@ -394,26 +325,48 @@ Public Class frmKundenZOLLVollmachten
         Next
     End Sub
 
+
     Private Sub SomethingChanged(sender As Object, e As EventArgs)
         setSaveButton()
     End Sub
 
+    Sub checkPDFisPresent()
 
+        If currentVM.kdvm_datenarchivId > 0 Then
+            picDeletePDF.Visible = True
+            picPDF.Visible = True
+            picPDF.Image = My.Resources.pdf
+            picPDF.Cursor = Cursors.Default
+        Else
+            picDeletePDF.Visible = False
+            picPDF.Visible = True
+            picPDF.Image = My.Resources.pdf_gray
+            picPDF.Cursor = Cursors.Hand
 
+        End If
+    End Sub
 
-    'Private Sub dgvVollmachtenEmbedded_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachtenEmbedded.CellClick
-    'wird aktuell nicht mehr verwendet
-    '    currentVM = New frmKundenZOLLVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_KundenNr").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvma_Id").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_erhalten").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_archiviert").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_erhalten_Datum").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_gueltig_bis").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_vermerk").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_datenarchivId").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
-    '    loadChangedVMToPanel(True, currentVM)
+    Sub checkEmailIsPresent()
+        If currentVM.kdvm_emailId > 0 Then
+            picDeleteEmail.Visible = True
+            picEmail.Visible = True
+            picEmail.Image = My.Resources.email_big1
+            picEmail.Cursor = Cursors.Default
+        Else
+            picDeleteEmail.Visible = False
+            picEmail.Visible = True
+            picEmail.Image = My.Resources.email_big_gray
+            picEmail.Cursor = Cursors.Hand
+        End If
+    End Sub
 
-    'End Sub
 
     Private Sub dgvVollmachtenEmbedded_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachtenEmbedded.CellDoubleClick
-        'Öffnet das PDFs im DGV
+
         If dgvVollmachtenEmbedded.Columns(e.ColumnIndex).Name = "clmnPDF" Then
 
             If dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then
-                ' cDATENSERVER.openDataTMPByDatenarchivId(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
+
                 Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
                 DS.OPEN_SINGLE(True)
             End If
@@ -448,19 +401,20 @@ Public Class frmKundenZOLLVollmachten
         End If
 
         dgvVollmachtenEmbedded.Enabled = False
-        btnUploadPDF.Enabled = False
 
-        currentVM2 = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
+        currentVM = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
             .kdvm_KundenNr = kdnr,
             .kdvm_kdvmaId = vollmachtartId,
             .kdvm_Info = "",
             .kdvm_erhalten = False,
             .kdvm_archiviert = False,
             .kdvm_datenarchivId = -1,
-            .kdvm_erhalten_Datum = Now.ToShortDateString
+            .kdvm_erhalten_Datum = Now.ToShortDateString,
+            .kdvm_emailId = -1
         }
 
-        loadChangedVMToPanel(True, currentVM2)
+        loadChangedVMToPanel(True, currentVM)
+        hideAttachementControl()
         setSaveButton()
 
     End Sub
@@ -504,20 +458,18 @@ Public Class frmKundenZOLLVollmachten
 
         If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
             Dim rowindex = dgvVollmachtenEmbedded.SelectedRows(0).Index
-            currentVM2 = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value)
+            currentVM = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value)
 
-            loadChangedVMToPanel(True, currentVM2)
+            loadChangedVMToPanel(True, currentVM)
 
             If dgvVollmachtenEmbedded.Enabled = False Then Exit Sub
             vmId = dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value
-            If btnUploadPDF.Enabled = False Then
-                btnUploadPDF.Enabled = True
-            End If
+
         End If
     End Sub
 
     Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
-        saveVM(currentVM2)
+        saveVM(currentVM)
         setOKButton()
     End Sub
 
@@ -525,4 +477,123 @@ Public Class frmKundenZOLLVollmachten
         btnOK.Visible = True
         btnSave.Visible = False
     End Sub
+
+
+    Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click
+
+        If Me.MyComboBox1._value < 0 Then Exit Sub
+
+        Dim DS As Object
+
+        If currentVM.kdvm_datenarchivId > 0 Then
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
+            DS.OPEN_SINGLE()
+            'MsgBox("Open PDF")
+        Else
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr)
+            Dim path = DS.uploadDataToDATENSERVERFileDialog()
+
+            If path <> "" Then
+                currentVM.kdvm_datenarchivId = DS.da_id
+            End If
+
+            picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0)
+            saveVM(currentVM)
+        End If
+
+        dgvVollmachtenEmbedded.GetOrder()
+        initDGVVollmachtenEmbedded(True)
+        dgvVollmachtenEmbedded.SetOrder()
+
+    End Sub
+
+    Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click
+
+        lblPDFavailable.Cursor = Cursors.WaitCursor
+        If (currentVM.kdvm_datenarchivId > 0) Then
+            If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
+
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
+                DS.DELETE_COMPLETE()
+
+                currentVM.kdvm_datenarchivId = -1
+                If currentVM.SAVE Then
+                    currentVM.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False
+                    picPDF.Image = My.Resources.pdf_gray
+                End If
+            End If
+        End If
+        lblPDFavailable.Cursor = Cursors.Default
+
+        dgvVollmachtenEmbedded.GetOrder()
+        initDGVVollmachtenEmbedded(True)
+        dgvVollmachtenEmbedded.SetOrder()
+
+    End Sub
+
+
+    Private Sub picEmail_Click(sender As Object, e As EventArgs) Handles picEmail.Click
+        If Me.MyComboBox1._value < 0 Then Exit Sub
+
+        Dim DS As Object
+
+        If currentVM.kdvm_emailId > 0 Then
+
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_emailId)
+            DS.OPEN_SINGLE()
+            'MsgBox("Open EMail")
+
+        Else
+
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "Email_" & MyComboBox1.Text, kdnr)
+            Dim path = DS.uploadDataToDATENSERVERFileDialog()
+
+            If path <> "" Then
+                currentVM.kdvm_emailId = DS.da_id
+            End If
+
+            picDeleteEmail.Visible = True = (currentVM.kdvm_emailId > 0)
+
+            saveVM(currentVM)
+        End If
+
+        dgvVollmachtenEmbedded.GetOrder()
+        initDGVVollmachtenEmbedded(True)
+        dgvVollmachtenEmbedded.SetOrder()
+    End Sub
+
+    Private Sub picDeleteEmail_Click(sender As Object, e As EventArgs) Handles picDeleteEmail.Click
+
+        lblPDFavailable.Cursor = Cursors.WaitCursor
+        If (currentVM.kdvm_emailId > 0) Then
+            If vbYes = MsgBox("Möchten Sie die Email wirklich löschen?", vbYesNoCancel) Then
+
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_emailId)
+                DS.DELETE_COMPLETE()
+
+                currentVM.kdvm_emailId = -1
+                If currentVM.SAVE Then
+                    currentVM.kdvm_emailId = -1 : picDeleteEmail.Visible = False
+
+                    picEmail.Image = My.Resources.email_big_gray
+
+                End If
+            End If
+        End If
+        lblPDFavailable.Cursor = Cursors.Default
+
+        dgvVollmachtenEmbedded.GetOrder()
+        initDGVVollmachtenEmbedded(True)
+        dgvVollmachtenEmbedded.SetOrder()
+
+    End Sub
+
+    Sub hideAttachementControl()
+
+        picDeletePDF.Visible = False
+        picPDF.Visible = False
+        picDeleteEmail.Visible = False
+        picEmail.Visible = False
+    End Sub
+
 End Class

SDL/kunden/usrCntlKundenKontakte.vb

@@ -1,4 +1,5 @@
-Public Class usrCntlKundenKontakte
+
+Public Class usrCntlKundenKontakte
 
     'Dim KD_KONTAKT As VERAG_PROG_ALLGEMEIN.cKundenKontakt = Nothing
     Public kdNr As Integer

SDL/kunden/usrCntlKundenZOLLVollmachten.Designer.vb

@@ -0,0 +1,240 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlKundenZollVollmachten
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.lblWarning = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtVermerkNew = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblGueltigVon = New System.Windows.Forms.Label()
+        Me.cbxVMarchivieren = New System.Windows.Forms.CheckBox()
+        Me.lblGueltigBis = New System.Windows.Forms.Label()
+        Me.txtGueltigVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxArchiviert = New System.Windows.Forms.CheckBox()
+        Me.btnNeu = New System.Windows.Forms.Button()
+        Me.gdvKundenvollmachten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        CType(Me.gdvKundenvollmachten, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'lblWarning
+        '
+        Me.lblWarning.AutoSize = True
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(107, 234)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(105, 13)
+        Me.lblWarning.TabIndex = 42
+        Me.lblWarning.Text = "Gültig von eintragen!"
+        Me.lblWarning.Visible = False
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(10, 209)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(49, 13)
+        Me.Label3.TabIndex = 38
+        Me.Label3.Text = "Vermerk:"
+        '
+        'txtVermerkNew
+        '
+        Me.txtVermerkNew._DateTimeOnly = False
+        Me.txtVermerkNew._numbersOnly = False
+        Me.txtVermerkNew._numbersOnlyKommastellen = ""
+        Me.txtVermerkNew._numbersOnlyTrennzeichen = False
+        Me.txtVermerkNew._Prozent = False
+        Me.txtVermerkNew._ShortDateNew = False
+        Me.txtVermerkNew._ShortDateOnly = False
+        Me.txtVermerkNew._TimeOnly = False
+        Me.txtVermerkNew._TimeOnly_Seconds = False
+        Me.txtVermerkNew._value = ""
+        Me.txtVermerkNew._Waehrung = False
+        Me.txtVermerkNew._WaehrungZeichen = False
+        Me.txtVermerkNew.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtVermerkNew.ForeColor = System.Drawing.Color.Black
+        Me.txtVermerkNew.Location = New System.Drawing.Point(85, 199)
+        Me.txtVermerkNew.MaxLength = 100
+        Me.txtVermerkNew.MaxLineLength = -1
+        Me.txtVermerkNew.MaxLines_Warning = ""
+        Me.txtVermerkNew.MaxLines_Warning_Label = Nothing
+        Me.txtVermerkNew.Name = "txtVermerkNew"
+        Me.txtVermerkNew.Size = New System.Drawing.Size(390, 23)
+        Me.txtVermerkNew.TabIndex = 37
+        '
+        'lblGueltigVon
+        '
+        Me.lblGueltigVon.AutoSize = True
+        Me.lblGueltigVon.Location = New System.Drawing.Point(10, 255)
+        Me.lblGueltigVon.Name = "lblGueltigVon"
+        Me.lblGueltigVon.Size = New System.Drawing.Size(75, 13)
+        Me.lblGueltigVon.TabIndex = 40
+        Me.lblGueltigVon.Text = "VM gültig von:"
+        '
+        'cbxVMarchivieren
+        '
+        Me.cbxVMarchivieren.AutoSize = True
+        Me.cbxVMarchivieren.Location = New System.Drawing.Point(12, 341)
+        Me.cbxVMarchivieren.Name = "cbxVMarchivieren"
+        Me.cbxVMarchivieren.Size = New System.Drawing.Size(198, 17)
+        Me.cbxVMarchivieren.TabIndex = 39
+        Me.cbxVMarchivieren.Text = "bestehende Vollmachten archivieren"
+        Me.cbxVMarchivieren.UseVisualStyleBackColor = True
+        Me.cbxVMarchivieren.Visible = False
+        '
+        'lblGueltigBis
+        '
+        Me.lblGueltigBis.AutoSize = True
+        Me.lblGueltigBis.Location = New System.Drawing.Point(9, 284)
+        Me.lblGueltigBis.Name = "lblGueltigBis"
+        Me.lblGueltigBis.Size = New System.Drawing.Size(70, 13)
+        Me.lblGueltigBis.TabIndex = 36
+        Me.lblGueltigBis.Text = "VM gültig bis:"
+        '
+        'txtGueltigVon
+        '
+        Me.txtGueltigVon._DateTimeOnly = False
+        Me.txtGueltigVon._numbersOnly = False
+        Me.txtGueltigVon._numbersOnlyKommastellen = ""
+        Me.txtGueltigVon._numbersOnlyTrennzeichen = True
+        Me.txtGueltigVon._Prozent = False
+        Me.txtGueltigVon._ShortDateNew = True
+        Me.txtGueltigVon._ShortDateOnly = False
+        Me.txtGueltigVon._TimeOnly = False
+        Me.txtGueltigVon._TimeOnly_Seconds = False
+        Me.txtGueltigVon._value = ""
+        Me.txtGueltigVon._Waehrung = False
+        Me.txtGueltigVon._WaehrungZeichen = False
+        Me.txtGueltigVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtGueltigVon.ForeColor = System.Drawing.Color.Black
+        Me.txtGueltigVon.Location = New System.Drawing.Point(85, 250)
+        Me.txtGueltigVon.MaxLength = 10
+        Me.txtGueltigVon.MaxLineLength = -1
+        Me.txtGueltigVon.MaxLines_Warning = ""
+        Me.txtGueltigVon.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigVon.Name = "txtGueltigVon"
+        Me.txtGueltigVon.Size = New System.Drawing.Size(127, 23)
+        Me.txtGueltigVon.TabIndex = 33
+        Me.txtGueltigVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'txtGueltigBis
+        '
+        Me.txtGueltigBis._DateTimeOnly = False
+        Me.txtGueltigBis._numbersOnly = False
+        Me.txtGueltigBis._numbersOnlyKommastellen = ""
+        Me.txtGueltigBis._numbersOnlyTrennzeichen = True
+        Me.txtGueltigBis._Prozent = False
+        Me.txtGueltigBis._ShortDateNew = True
+        Me.txtGueltigBis._ShortDateOnly = False
+        Me.txtGueltigBis._TimeOnly = False
+        Me.txtGueltigBis._TimeOnly_Seconds = False
+        Me.txtGueltigBis._value = ""
+        Me.txtGueltigBis._Waehrung = False
+        Me.txtGueltigBis._WaehrungZeichen = False
+        Me.txtGueltigBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtGueltigBis.ForeColor = System.Drawing.Color.Black
+        Me.txtGueltigBis.Location = New System.Drawing.Point(85, 279)
+        Me.txtGueltigBis.MaxLength = 10
+        Me.txtGueltigBis.MaxLineLength = -1
+        Me.txtGueltigBis.MaxLines_Warning = ""
+        Me.txtGueltigBis.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigBis.Name = "txtGueltigBis"
+        Me.txtGueltigBis.Size = New System.Drawing.Size(127, 23)
+        Me.txtGueltigBis.TabIndex = 35
+        Me.txtGueltigBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(13, 318)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(70, 17)
+        Me.cbxArchiviert.TabIndex = 34
+        Me.cbxArchiviert.Text = "Archiviert"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'btnNeu
+        '
+        Me.btnNeu.Image = Global.SDL.My.Resources.Resources.plus
+        Me.btnNeu.Location = New System.Drawing.Point(430, 333)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(77, 37)
+        Me.btnNeu.TabIndex = 41
+        Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnNeu.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        Me.btnNeu.UseVisualStyleBackColor = True
+        Me.btnNeu.Visible = False
+        '
+        'gdvKundenvollmachten
+        '
+        Me.gdvKundenvollmachten.AKTUALISIERUNGS_INTERVALL = -1
+        Me.gdvKundenvollmachten.AllowUserToAddRows = False
+        Me.gdvKundenvollmachten.AllowUserToDeleteRows = False
+        Me.gdvKundenvollmachten.AllowUserToResizeColumns = False
+        Me.gdvKundenvollmachten.AllowUserToResizeRows = False
+        Me.gdvKundenvollmachten.BackgroundColor = System.Drawing.Color.White
+        Me.gdvKundenvollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.gdvKundenvollmachten.Location = New System.Drawing.Point(12, 0)
+        Me.gdvKundenvollmachten.MultiSelect = False
+        Me.gdvKundenvollmachten.Name = "gdvKundenvollmachten"
+        Me.gdvKundenvollmachten.ReadOnly = True
+        Me.gdvKundenvollmachten.RowHeadersVisible = False
+        Me.gdvKundenvollmachten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.gdvKundenvollmachten.Size = New System.Drawing.Size(495, 180)
+        Me.gdvKundenvollmachten.TabIndex = 43
+        '
+        'usrCntlKundenZollVollmachten
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.gdvKundenvollmachten)
+        Me.Controls.Add(Me.lblWarning)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.txtVermerkNew)
+        Me.Controls.Add(Me.lblGueltigVon)
+        Me.Controls.Add(Me.cbxVMarchivieren)
+        Me.Controls.Add(Me.lblGueltigBis)
+        Me.Controls.Add(Me.txtGueltigVon)
+        Me.Controls.Add(Me.txtGueltigBis)
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.btnNeu)
+        Me.Name = "usrCntlKundenZollVollmachten"
+        Me.Size = New System.Drawing.Size(523, 378)
+        CType(Me.gdvKundenvollmachten, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents lblWarning As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtVermerkNew As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblGueltigVon As Label
+    Friend WithEvents cbxVMarchivieren As CheckBox
+    Friend WithEvents lblGueltigBis As Label
+    Friend WithEvents txtGueltigVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigBis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxArchiviert As CheckBox
+    Friend WithEvents btnNeu As Button
+    Friend WithEvents gdvKundenvollmachten As VERAG_PROG_ALLGEMEIN.MyDatagridview
+End Class

SDL/kunden/usrCntlKundenZOLLVollmachten.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

SDL/kunden/usrCntlKundenZOLLVollmachten.vb

@@ -0,0 +1,230 @@
+Imports com.sun.org.apache.xerces.internal.impl.dtd.models
+Imports jdk.nashorn.internal.objects.annotations
+Imports sun.misc
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrCntlKundenZollVollmachten
+
+
+    Public kdnr As Integer = -1
+    Public filePath As String
+    Public erhalten As Boolean = False
+    Public archiviert As Boolean = False
+    Public geloescht As Boolean = False
+    'Dim id As Integer = -1
+    Dim ksql As New kundenSQL
+    Public vollmachtartId As Integer
+    Dim vermerk As String = ""
+    Public vmId As Integer = -1
+    Dim vollmacht As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
+
+    Sub New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Sub New(kdnr, vollmachtartId, filepath)
+        Me.InitializeComponent()
+        Me.erhalten = True
+        Me.kdnr = kdnr
+        Me.filePath = filepath
+        Me.vollmachtartId = vollmachtartId
+
+    End Sub
+
+
+    'Private Sub dgvVollmachtenEmbedded_SelectionChanged(sender As Object, e As EventArgs) Handles gdvKundenvollmachten.SelectionChanged
+
+
+    '    If gdvKundenvollmachten.SelectedRows.Count > 0 Then
+
+    '        Dim rowindex = gdvKundenvollmachten.SelectedRows(0).Index
+    '        vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(gdvKundenvollmachten.SelectedRows(0).Cells("kdvm_id").Value)
+    '        loadChangedVMToUsrCntl(vollmacht)
+
+    '    End If
+
+    'End Sub
+
+    Sub init(kdnr As Integer, vollmachtartId As Integer)
+        'dgvVollmachten.Rows.Clear()
+        Me.kdnr = kdnr
+        Me.vollmachtartId = vollmachtartId
+        initDGV()
+        Me.Reset()
+
+    End Sub
+
+
+    Private Sub initDGV()
+
+        Dim where = " And art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'"
+
+        If kdnr > 0 AndAlso vollmachtartId >= 0 Then
+
+
+            With gdvKundenvollmachten
+                .Columns.Clear()
+
+
+                .DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id,  art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
+                                                        " FROM [tblKundenVollmachtenArt] as art " &
+                                                        " INNER  JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
+                                                        " WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
+                                                        " ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")
+
+
+                '.RowTemplate.Height = 30
+                .Columns("kdvm_Id").Visible = False
+                .Columns("kdvma_Id").Visible = False
+                .Columns("kdvm_KundenNr").Visible = False
+                .Columns("kdvm_datenarchivId").Visible = False
+                .Columns("kdvma_Bezeichnung").Visible = False
+                .Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
+                .Columns("kdvm_erhalten").Width = 50
+                .Columns("kdvm_erhalten").HeaderText = "Erhalten"
+                .Columns("kdvm_erhalten").Visible = False
+                .Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+                .Columns("kdvm_erhalten_Datum").Width = 100
+                .Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
+                .Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+                .Columns("kdvm_Info").Width = 200
+                .Columns("kdvm_Info").HeaderText = "Info"
+                .Columns("kdvm_Info").Visible = False
+                .Columns("kdvm_gueltig_bis").Visible = True
+                .Columns("kdvm_gueltig_bis").Width = 100
+                .Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
+                .Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+                .Columns("kdvm_archiviert").Visible = True
+                .Columns("kdvm_archiviert").Width = 60
+                .Columns("kdvm_archiviert").HeaderText = "Archiviert"
+                .Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+                .Columns("kdvm_vermerk").MinimumWidth = 100
+                .Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("kdvm_vermerk").HeaderText = "Vermerk"
+                .Columns("kdvm_vermerk").Visible = True
+                .Columns("kdvm_geloescht").Visible = False
+
+
+            End With
+
+        End If
+
+
+    End Sub
+
+
+
+    Public Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
+
+        vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
+            .kdvm_KundenNr = Me.kdnr,
+            .kdvm_kdvmaId = Me.vollmachtartId,
+            .kdvm_Info = "",
+            .kdvm_erhalten = False,
+            .kdvm_archiviert = False,
+            .kdvm_datenarchivId = -1,
+            .kdvm_erhalten_Datum = Now.ToShortDateString
+        }
+
+        vollmacht.kdvm_gueltig_bis = txtGueltigBis
+
+        vollmacht.kdvm_vermerk = Me.txtVermerkNew.Text
+
+        vollmacht.kdvm_archiviert = Me.cbxArchiviert.Checked
+
+        If txtGueltigVon.Text = "" Or Not IsDate(txtGueltigVon.Text) Then
+            txtGueltigVon.ForeColor = Color.Red
+            lblWarning.Visible = True
+            Exit Sub
+        Else
+            vollmacht.kdvm_erhalten_Datum = txtGueltigVon.Text
+            vollmacht.kdvm_gueltig_ab = txtGueltigVon.Text
+            vollmacht.kdvm_erhalten = True
+        End If
+
+        If txtGueltigBis.Text IsNot "" And Not IsDate(txtGueltigBis.Text) Then
+            txtGueltigBis.ForeColor = Color.Red
+            Exit Sub
+
+        ElseIf txtGueltigBis.Text = "" Then
+            vollmacht.kdvm_gueltig_bis = Nothing
+        Else
+            vollmacht.kdvm_gueltig_bis = txtGueltigBis.Text
+        End If
+
+
+
+        If vollmacht.SAVEVM > 0 Then
+            vollmachtenArchivieren()
+            vmId = vollmacht.SAVEVM
+
+        End If
+
+
+    End Sub
+
+    Private Sub loadChangedVMToUsrCntl(VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
+
+        Me.Reset()
+        cbxArchiviert.Checked = VM.kdvm_archiviert
+        txtVermerkNew.Text = VM.kdvm_vermerk
+        txtGueltigVon.Text = VM.kdvm_erhalten_Datum
+        txtGueltigBis.Text = VM.kdvm_gueltig_bis
+
+
+
+    End Sub
+
+    Public Sub Reset()
+
+        If gdvKundenvollmachten.Rows.Count > 0 Then
+            cbxVMarchivieren.Visible = True
+            cbxVMarchivieren.Checked = True
+
+        Else
+            cbxVMarchivieren.Visible = False
+            cbxVMarchivieren.Checked = False
+
+        End If
+
+        txtGueltigBis.Clear()
+        txtGueltigVon.Clear()
+        txtGueltigVon.Text = Now.ToShortDateString
+        txtVermerkNew.Clear()
+        cbxArchiviert.Checked = False
+
+    End Sub
+
+
+    Private Sub vollmachtenArchivieren()
+
+        If cbxVMarchivieren.Checked = False Then Exit Sub
+        Dim count As Integer = 0
+        With gdvKundenvollmachten
+
+            For Each r As DataGridViewRow In .Rows
+                Dim VMindex = r.Cells("kdvm_Id").Value
+                If r.Cells("kdvm_archiviert").Value <> True Then
+                    count += 1
+                    Dim currentVollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(VMindex)
+                    currentVollmacht.kdvm_archiviert = True
+                    currentVollmacht.SAVE()
+                End If
+            Next
+
+            If count > 0 Then
+                MsgBox("Bestehende Vollmachten wurden archiviert.")
+            End If
+        End With
+
+        cbxVMarchivieren.Visible = False
+        cbxVMarchivieren.Checked = False
+
+
+    End Sub
+
+End Class

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1567,7 +1567,7 @@ Public Class usrCntlKundenuebersicht
                 'Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
                 'Dim gueltigBis = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value Is DBNull.Value, Nothing, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value)
                 'Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_archiviert").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_vermerk").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)
-                Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value)
+                Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value) '
                 If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
                     l.initDGVVollmachtenEmbedded(False)
                     'initDGVVollmachten()