cbam-checkliste, Kundenuebersicht, etc.

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.Designer.vb

@@ -22,6 +22,7 @@ Partial Class usrcntlCBAM_Checkliste
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Me.lbl = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.btn = New System.Windows.Forms.Button()
@@ -39,6 +40,8 @@ Partial Class usrcntlCBAM_Checkliste
         Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label42 = New System.Windows.Forms.Label()
+        Me.cbxNeukunde = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
+        Me.CheckVatTestService1 = New VERAG_PROG_ALLGEMEIN.eu.europa.ec.checkVatTestService()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -275,12 +278,32 @@ Partial Class usrcntlCBAM_Checkliste
         Me.Label42.TabIndex = 36
         Me.Label42.Text = "Firma:"
         '
+        'cbxNeukunde
+        '
+        Me.cbxNeukunde._value = ""
+        Me.cbxNeukunde.AutoSize = True
+        Me.cbxNeukunde.Checked_value = False
+        Me.cbxNeukunde.CheckedValue = False
+        Me.cbxNeukunde.Location = New System.Drawing.Point(254, 8)
+        Me.cbxNeukunde.Name = "cbxNeukunde"
+        Me.cbxNeukunde.Size = New System.Drawing.Size(76, 17)
+        Me.cbxNeukunde.TabIndex = 38
+        Me.cbxNeukunde.Text = "Neukunde"
+        Me.cbxNeukunde.UseVisualStyleBackColor = True
+        '
+        'CheckVatTestService1
+        '
+        Me.CheckVatTestService1.Credentials = Nothing
+        Me.CheckVatTestService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService"
+        Me.CheckVatTestService1.UseDefaultCredentials = False
+        '
         'usrcntlCBAM_Checkliste
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.cbxNeukunde)
         Me.Controls.Add(Me.cboFirma)
         Me.Controls.Add(Me.Label42)
         Me.Controls.Add(Me.Label12)
@@ -322,4 +345,6 @@ Partial Class usrcntlCBAM_Checkliste
     Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label42 As Label
+    Friend WithEvents cbxNeukunde As VERAG_PROG_ALLGEMEIN.MyCheckbox
+    Friend WithEvents CheckVatTestService1 As VERAG_PROG_ALLGEMEIN.eu.europa.ec.checkVatTestService
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.resx

@@ -117,4 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="CheckVatTestService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -696,8 +696,6 @@ Public Class frmFormulare
                                                  End If
                                              End Sub
                         MyFlowLayoutPanel1.Controls.Add(c)
-
-
                         c.cboSprache.Items.Clear()
                         c.cboSprache.Items.Add(New MyListItem("Deutsch", "DE"))
                         c.cboSprache.Items.Add(New MyListItem("Englisch", "EN"))
@@ -991,6 +989,11 @@ Public Class frmFormulare
                         AddHandler c.DELETE, AddressOf ControlDELETE
                         AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                         AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
+
+                        If param IsNot Nothing Then
+                            c.cbxNeukunde.Checked = param(0)
+                        End If
+
                         MyFlowLayoutPanel1.Controls.Add(c)
                     End If
                 Case FormularManagerArten.CBAM_indirekt
@@ -1490,17 +1493,20 @@ Public Class frmFormulare
                     addForm(FormularManagerArten.AT_Vollmacht_EV)
                     addForm(FormularManagerArten.Verzollungspreise, {"VZ_EV"})
                     addForm(FormularManagerArten.VUB_CS)
+                    addForm(FormularManagerArten.CBAM_Checkliste, {1})
                 Case FormularVorlagenGruppe.NeukundeATFiskal
                     MyFlowLayoutPanel1.Controls.Clear()
                     addForm(FormularManagerArten.AT_Fiskal)
                     addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL"})
                     addForm(FormularManagerArten.VUB_CS)
                     addForm(FormularManagerArten.AT_InformationsblattFiskalverzollung)
+                    addForm(FormularManagerArten.CBAM_Checkliste, {1})
                 Case FormularVorlagenGruppe.NeukundeDE
                     MyFlowLayoutPanel1.Controls.Clear()
                     addForm(FormularManagerArten.DE_Vollmacht)
                     addForm(FormularManagerArten.Verzollungspreise)
                     addForm(FormularManagerArten.VUB_AG)
+                    addForm(FormularManagerArten.CBAM_Checkliste, {1})
                 Case FormularVorlagenGruppe.NeukundeDEFiskal
                     MyFlowLayoutPanel1.Controls.Clear()
                     addForm(FormularManagerArten.DE_Fiskal)
@@ -1508,6 +1514,7 @@ Public Class frmFormulare
                     addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
                     addForm(FormularManagerArten.VUB_AG)
                     addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
+                    addForm(FormularManagerArten.CBAM_Checkliste, {1})
                 Case FormularVorlagenGruppe.NeukundeAT_IMEX
                     MyFlowLayoutPanel1.Controls.Clear()
                     addForm(FormularManagerArten.AT_Vollmacht_EV)
@@ -1845,14 +1852,16 @@ Public Class FormularManagerNEU
         'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2))
         'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
 
+        Dim Name As String = "CBAM_Checkliste"
 
+        If usrCntl.cbxNeukunde.Checked Then Name &= "_Neukunde"
 
 
         Select Case usrCntl.cboSprache._value
             Case "EN"
-                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", "CBAM_Checkliste", listTowrite)
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name, listTowrite)
             Case Else
-                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", "CBAM_Checkliste", listTowrite)
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", usrCntl.cboFirma._value, "", Name, listTowrite)
         End Select
         Return ""
 

SDL/kunden/usrCntlKundenuebersicht.Designer.vb

@@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht))
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnExcel = New System.Windows.Forms.Button()
@@ -105,7 +105,6 @@ Partial Class usrCntlKundenuebersicht
         Me.lblFisk = New System.Windows.Forms.Label()
         Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label41 = New System.Windows.Forms.Label()
-        Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
         Me.lblBesonderheiten = New System.Windows.Forms.Label()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.pbCreditsafeChanges = New System.Windows.Forms.PictureBox()
@@ -133,10 +132,12 @@ Partial Class usrCntlKundenuebersicht
         Me.Label18 = New System.Windows.Forms.Label()
         Me.txtOPNichtFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Panel7 = New System.Windows.Forms.Panel()
+        Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
         Me.txtProforma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label24 = New System.Windows.Forms.Label()
-        Me.txtKdSicherheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label23 = New System.Windows.Forms.Label()
+        Me.txtKdSicherheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label24 = New System.Windows.Forms.Label()
         Me.txtOffenePosten2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.Panel10 = New System.Windows.Forms.Panel()
@@ -144,13 +145,12 @@ Partial Class usrCntlKundenuebersicht
         Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label19 = New System.Windows.Forms.Label()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblVorkasse = New System.Windows.Forms.Label()
         Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtVeranlKd = New System.Windows.Forms.TextBox()
         Me.lblVeranlKd = New System.Windows.Forms.Label()
         Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
         Me.lblInsolvent = New System.Windows.Forms.Label()
         Me.grpAdresse = New System.Windows.Forms.GroupBox()
         Me.tbKontakt = New System.Windows.Forms.TabControl()
@@ -270,8 +270,12 @@ Partial Class usrCntlKundenuebersicht
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PDFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.MailToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PDFToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.MailToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
         Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnReloadOP = New System.Windows.Forms.Button()
         Me.btnOP = New System.Windows.Forms.Button()
@@ -442,8 +446,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
         Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
         Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
         Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -463,8 +467,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
         Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
         Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
         Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -474,10 +478,10 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
         Me.dgvOffertenSperrliste.ReadOnly = True
         Me.dgvOffertenSperrliste.RowHeadersVisible = False
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
-        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.Color.Black
+        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle15
         Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257)
         Me.dgvOffertenSperrliste.TabIndex = 0
@@ -615,8 +619,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOffenePosten.AllowUserToAddRows = False
         Me.dgvOffenePosten.AllowUserToDeleteRows = False
         Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
         Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -696,8 +700,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
         Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
         Me.dgvUmsatzbericht.AllowUserToResizeRows = False
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
         Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill
@@ -760,8 +764,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvAnhaenge.AllowUserToAddRows = False
         Me.dgvAnhaenge.AllowUserToDeleteRows = False
         Me.dgvAnhaenge.AllowUserToResizeRows = False
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
         Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
         Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -1367,22 +1371,6 @@ Partial Class usrCntlKundenuebersicht
         Me.Label41.Text = "Erste Abfertigung:"
         Me.Label41.Visible = False
         '
-        'rtbAbf_Besonderheiten
-        '
-        Me.rtbAbf_Besonderheiten.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
-        Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.rtbAbf_Besonderheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(7, 32)
-        Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
-        Me.rtbAbf_Besonderheiten.ReadOnly = True
-        Me.rtbAbf_Besonderheiten.ShowSelectionMargin = True
-        Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(660, 193)
-        Me.rtbAbf_Besonderheiten.TabIndex = 7
-        Me.rtbAbf_Besonderheiten.Text = ""
-        '
         'lblBesonderheiten
         '
         Me.lblBesonderheiten.AutoSize = True
@@ -1850,6 +1838,44 @@ Partial Class usrCntlKundenuebersicht
         Me.Panel7.Size = New System.Drawing.Size(253, 132)
         Me.Panel7.TabIndex = 43
         '
+        'lblKreditlimit
+        '
+        Me.lblKreditlimit._DateTimeOnly = False
+        Me.lblKreditlimit._numbersOnly = False
+        Me.lblKreditlimit._numbersOnlyKommastellen = ""
+        Me.lblKreditlimit._numbersOnlyTrennzeichen = True
+        Me.lblKreditlimit._Prozent = False
+        Me.lblKreditlimit._ShortDateNew = False
+        Me.lblKreditlimit._ShortDateOnly = False
+        Me.lblKreditlimit._TimeOnly = False
+        Me.lblKreditlimit._TimeOnly_Seconds = False
+        Me.lblKreditlimit._value = Nothing
+        Me.lblKreditlimit._Waehrung = False
+        Me.lblKreditlimit._WaehrungZeichen = True
+        Me.lblKreditlimit.BackColor = System.Drawing.Color.AntiqueWhite
+        Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black
+        Me.lblKreditlimit.Location = New System.Drawing.Point(135, 111)
+        Me.lblKreditlimit.MaxLineLength = -1
+        Me.lblKreditlimit.MaxLines_Warning = ""
+        Me.lblKreditlimit.MaxLines_Warning_Label = Nothing
+        Me.lblKreditlimit.Name = "lblKreditlimit"
+        Me.lblKreditlimit.ReadOnly = True
+        Me.lblKreditlimit.Size = New System.Drawing.Size(108, 13)
+        Me.lblKreditlimit.TabIndex = 20
+        Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(6, 111)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(66, 13)
+        Me.Label1.TabIndex = 19
+        Me.Label1.Text = "Kreditlimit:"
+        '
         'txtProforma
         '
         Me.txtProforma._DateTimeOnly = False
@@ -1879,16 +1905,16 @@ Partial Class usrCntlKundenuebersicht
         Me.txtProforma.TabIndex = 53
         Me.txtProforma.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
-        'Label24
+        'Label23
         '
-        Me.Label24.AutoSize = True
-        Me.Label24.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label24.Location = New System.Drawing.Point(8, 46)
-        Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(120, 13)
-        Me.Label24.TabIndex = 52
-        Me.Label24.Text = "- Proforma-Rechnungen"
+        Me.Label23.AutoSize = True
+        Me.Label23.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label23.Location = New System.Drawing.Point(8, 26)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(113, 13)
+        Me.Label23.TabIndex = 50
+        Me.Label23.Text = "- offene Vorauskassen"
         '
         'txtKdSicherheiten
         '
@@ -1919,16 +1945,16 @@ Partial Class usrCntlKundenuebersicht
         Me.txtKdSicherheiten.TabIndex = 51
         Me.txtKdSicherheiten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
-        'Label23
+        'Label24
         '
-        Me.Label23.AutoSize = True
-        Me.Label23.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label23.Location = New System.Drawing.Point(8, 26)
-        Me.Label23.Name = "Label23"
-        Me.Label23.Size = New System.Drawing.Size(113, 13)
-        Me.Label23.TabIndex = 50
-        Me.Label23.Text = "- offene Vorauskassen"
+        Me.Label24.AutoSize = True
+        Me.Label24.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label24.Location = New System.Drawing.Point(8, 46)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(120, 13)
+        Me.Label24.TabIndex = 52
+        Me.Label24.Text = "- Proforma-Rechnungen"
         '
         'txtOffenePosten2
         '
@@ -2056,44 +2082,6 @@ Partial Class usrCntlKundenuebersicht
         Me.Label19.TabIndex = 43
         Me.Label19.Text = "+ Sicherheiten"
         '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(6, 111)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(66, 13)
-        Me.Label1.TabIndex = 19
-        Me.Label1.Text = "Kreditlimit:"
-        '
-        'lblKreditlimit
-        '
-        Me.lblKreditlimit._DateTimeOnly = False
-        Me.lblKreditlimit._numbersOnly = False
-        Me.lblKreditlimit._numbersOnlyKommastellen = ""
-        Me.lblKreditlimit._numbersOnlyTrennzeichen = True
-        Me.lblKreditlimit._Prozent = False
-        Me.lblKreditlimit._ShortDateNew = False
-        Me.lblKreditlimit._ShortDateOnly = False
-        Me.lblKreditlimit._TimeOnly = False
-        Me.lblKreditlimit._TimeOnly_Seconds = False
-        Me.lblKreditlimit._value = Nothing
-        Me.lblKreditlimit._Waehrung = False
-        Me.lblKreditlimit._WaehrungZeichen = True
-        Me.lblKreditlimit.BackColor = System.Drawing.Color.AntiqueWhite
-        Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black
-        Me.lblKreditlimit.Location = New System.Drawing.Point(135, 111)
-        Me.lblKreditlimit.MaxLineLength = -1
-        Me.lblKreditlimit.MaxLines_Warning = ""
-        Me.lblKreditlimit.MaxLines_Warning_Label = Nothing
-        Me.lblKreditlimit.Name = "lblKreditlimit"
-        Me.lblKreditlimit.ReadOnly = True
-        Me.lblKreditlimit.Size = New System.Drawing.Size(108, 13)
-        Me.lblKreditlimit.TabIndex = 20
-        Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
         'lblVorkasse
         '
         Me.lblVorkasse.Location = New System.Drawing.Point(492, 230)
@@ -2180,6 +2168,22 @@ Partial Class usrCntlKundenuebersicht
         Me.txtUmsatzJahr.TabIndex = 32
         Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
+        'rtbAbf_Besonderheiten
+        '
+        Me.rtbAbf_Besonderheiten.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
+        Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.rtbAbf_Besonderheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(7, 32)
+        Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
+        Me.rtbAbf_Besonderheiten.ReadOnly = True
+        Me.rtbAbf_Besonderheiten.ShowSelectionMargin = True
+        Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(660, 193)
+        Me.rtbAbf_Besonderheiten.TabIndex = 7
+        Me.rtbAbf_Besonderheiten.Text = ""
+        '
         'lblInsolvent
         '
         Me.lblInsolvent.BackColor = System.Drawing.Color.Red
@@ -2741,8 +2745,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvVollmachten.AllowUserToDeleteRows = False
         Me.dgvVollmachten.AllowUserToOrderColumns = True
         Me.dgvVollmachten.AllowUserToResizeRows = False
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
         Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
         Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2795,8 +2799,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvVertraege.AllowUserToDeleteRows = False
         Me.dgvVertraege.AllowUserToOrderColumns = True
         Me.dgvVertraege.AllowUserToResizeRows = False
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
         Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
         Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2996,8 +3000,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvGestGarantie.AllowUserToDeleteRows = False
         Me.dgvGestGarantie.AllowUserToOrderColumns = True
         Me.dgvGestGarantie.AllowUserToResizeRows = False
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
         Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
         Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill
@@ -3487,24 +3491,24 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvAufschub.AllowUserToResizeColumns = False
         Me.dgvAufschub.AllowUserToResizeRows = False
         Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22
         Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN})
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle24
         Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
         Me.dgvAufschub.MultiSelect = False
         Me.dgvAufschub.Name = "dgvAufschub"
@@ -3531,8 +3535,8 @@ Partial Class usrCntlKundenuebersicht
         '
         'HZA
         '
-        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        Me.HZA.DefaultCellStyle = DataGridViewCellStyle23
         Me.HZA.HeaderText = "HZA"
         Me.HZA.Name = "HZA"
         Me.HZA.ReadOnly = True
@@ -3645,48 +3649,78 @@ Partial Class usrCntlKundenuebersicht
         '
         'ContextMenuStrip4
         '
-        Me.ContextMenuStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem6, Me.ToolStripMenuItem7, Me.GültigungültigToolStripMenuItem})
+        Me.ContextMenuStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.GültigungültigToolStripMenuItem})
         Me.ContextMenuStrip4.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip4.Size = New System.Drawing.Size(156, 136)
+        Me.ContextMenuStrip4.Size = New System.Drawing.Size(159, 136)
         '
         'ToolStripMenuItem1
         '
         Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.del
         Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(155, 22)
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(158, 22)
         Me.ToolStripMenuItem1.Text = "Löschen"
         '
         'ToolStripMenuItem4
         '
         Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.stift
         Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
-        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(155, 22)
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(158, 22)
         Me.ToolStripMenuItem4.Text = "Ändern"
         '
         'ToolStripMenuItem5
         '
-        Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.pdf
+        Me.ToolStripMenuItem5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PDFToolStripMenuItem, Me.MailToolStripMenuItem})
         Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
-        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(155, 22)
-        Me.ToolStripMenuItem5.Text = "Hochladen"
+        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(158, 22)
+        Me.ToolStripMenuItem5.Text = "Anh. hochladen"
+        '
+        'PDFToolStripMenuItem
+        '
+        Me.PDFToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
+        Me.PDFToolStripMenuItem.Name = "PDFToolStripMenuItem"
+        Me.PDFToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.PDFToolStripMenuItem.Text = "PDF"
+        '
+        'MailToolStripMenuItem
+        '
+        Me.MailToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.email_big1
+        Me.MailToolStripMenuItem.Name = "MailToolStripMenuItem"
+        Me.MailToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.MailToolStripMenuItem.Text = "Mail"
+        '
+        'ToolStripMenuItem7
+        '
+        Me.ToolStripMenuItem7.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PDFToolStripMenuItem1, Me.MailToolStripMenuItem1})
+        Me.ToolStripMenuItem7.Image = Global.SDL.My.Resources.Resources.del
+        Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
+        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(158, 22)
+        Me.ToolStripMenuItem7.Text = "Anh. löschen"
+        '
+        'PDFToolStripMenuItem1
+        '
+        Me.PDFToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.pdf
+        Me.PDFToolStripMenuItem1.Name = "PDFToolStripMenuItem1"
+        Me.PDFToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
+        Me.PDFToolStripMenuItem1.Text = "PDF"
+        '
+        'MailToolStripMenuItem1
+        '
+        Me.MailToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.email_big1
+        Me.MailToolStripMenuItem1.Name = "MailToolStripMenuItem1"
+        Me.MailToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
+        Me.MailToolStripMenuItem1.Text = "Mail"
         '
         'ToolStripMenuItem6
         '
         Me.ToolStripMenuItem6.Image = Global.SDL.My.Resources.Resources.scanner1
         Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
-        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(155, 22)
+        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(158, 22)
         Me.ToolStripMenuItem6.Text = "Scannen"
         '
-        'ToolStripMenuItem7
-        '
-        Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
-        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(155, 22)
-        Me.ToolStripMenuItem7.Text = "PDF löschen"
-        '
         'GültigungültigToolStripMenuItem
         '
         Me.GültigungültigToolStripMenuItem.Name = "GültigungültigToolStripMenuItem"
-        Me.GültigungültigToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
+        Me.GültigungültigToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
         Me.GültigungültigToolStripMenuItem.Text = "gültig/ungültig"
         '
         'btnReloadOP
@@ -4089,4 +4123,8 @@ Partial Class usrCntlKundenuebersicht
     Friend WithEvents txtRisiko As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents txtProforma As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label24 As Label
+    Friend WithEvents PDFToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents MailToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PDFToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents MailToolStripMenuItem1 As ToolStripMenuItem
 End Class

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1061,7 +1061,6 @@ Public Class usrCntlKundenuebersicht
         With dgvVertraege
             .Columns.Clear()
 
-
             .DataSource = VERAG_PROG_ALLGEMEIN.cKundenVertraege.LOAD_LIST(kdNr)
             If .Columns.Count = 0 Then Exit Sub
 
@@ -1069,6 +1068,7 @@ Public Class usrCntlKundenuebersicht
             .Columns("kv_KundenNr").Visible = False
             .Columns("kv_vertragArtId").Visible = False
             .Columns("kv_datenarchivId").Visible = False
+            .Columns("kv_datenarchivId_mail").Visible = False
             .Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
             .Columns("kv_erhalten_Datum").Width = 65
             .Columns("kv_erhalten_Datum").HeaderText = "Datum"
@@ -1089,10 +1089,23 @@ Public Class usrCntlKundenuebersicht
                 c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
                 c.DefaultCellStyle.Tag = "PDF anzeigen"
                 .Columns.Add(c)
+
+                Dim cMail As New DataGridViewImageColumn
+                cMail.Name = "clmnMail" : cMail.HeaderText = "Mail"
+                cMail.Image = Nothing : cMail.DefaultCellStyle.NullValue = Nothing
+                cMail.ImageLayout = DataGridViewImageCellLayout.Zoom
+                cMail.Width = 40 : cMail.DefaultCellStyle.Padding = New Padding(2) : cMail.DefaultCellStyle.BackColor = Color.White
+                cMail.DefaultCellStyle.Tag = "Mail anzeigen"
+                .Columns.Add(cMail)
+
                 For Each r As DataGridViewRow In .Rows
                     If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then
                         DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
                     End If
+                    If r.Cells("kv_datenarchivId_mail").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId_mail").Value) > 0 Then
+                        DirectCast(r.Cells("clmnMail"), DataGridViewImageCell).Value = My.Resources.email_big1
+                    End If
+
                     If (r.Cells("kv_gueltigBis_Datum").Value IsNot DBNull.Value AndAlso CDate(r.Cells("kv_gueltigBis_Datum").Value) <= CDate(Now.ToShortDateString)) OrElse
                             (Not CBool(r.Cells("kv_gueltig").Value)) Then
                         r.DefaultCellStyle.ForeColor = Color.Red
@@ -1745,14 +1758,41 @@ Public Class usrCntlKundenuebersicht
     End Sub
 
     Private Sub dgvVertraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellDoubleClick
-        If dgvVertraege.SelectedRows.Count = 1 Then
-            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
+
+        Dim tmprowindex As Integer = e.RowIndex
+
+        If dgvVertraege.Columns(e.ColumnIndex).Name = "clmnPDF" Then
+
+            If dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId").Value) > 0 Then
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.Rows(tmprowindex).Cells("kv_datenarchivId").Value)
                 If DS.hasITEMS Then
                     For Each i In DS.DATA_LIST.LIST
                         Process.Start(i.coll_pfad)
                     Next
                 End If
             End If
+        ElseIf dgvVertraege.Columns(e.ColumnIndex).Name = "clmnMail" Then
+
+            If dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId_mail").Value IsNot DBNull.Value AndAlso CInt(dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId_mail").Value) > 0 Then
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.Rows(tmprowindex).Cells("kv_datenarchivId_mail").Value)
+                If DS.hasITEMS Then
+                    For Each i In DS.DATA_LIST.LIST
+                        Process.Start(i.coll_pfad)
+                    Next
+                End If
+            End If
+
+        End If
+
+
+        'If dgvVertraege.SelectedRows.Count = 1 Then
+        '    Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
+        '    If DS.hasITEMS Then
+        '        For Each i In DS.DATA_LIST.LIST
+        '            Process.Start(i.coll_pfad)
+        '        Next
+        '    End If
+        'End If
     End Sub
 
 
@@ -2672,8 +2712,13 @@ Public Class usrCntlKundenuebersicht
         End If
     End Sub
 
-    Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
+    Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles PDFToolStripMenuItem.Click, MailToolStripMenuItem.Click
+
         If dgvVertraege.SelectedRows.Count = 1 Then
+
+            Select Case sender.Name
+                Case "PDFToolStripMenuItem"
+
                     If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
                         Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
                         If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
@@ -2683,6 +2728,24 @@ Public Class usrCntlKundenuebersicht
                             initDGVVertraege()
                         End If
                     End If
+
+                Case "MailToolStripMenuItem"
+
+                    If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
+                        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_Mail_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
+                        If DS.uploadDataToDATENSERVERFileDialog() Then
+                            Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
+                            KV.kv_datenarchivId_mail = DS.da_id
+                            KV.SAVE()
+                            initDGVVertraege()
+                        End If
+                    End If
+
+
+
+            End Select
+
+
         End If
     End Sub
 
@@ -2710,8 +2773,12 @@ Public Class usrCntlKundenuebersicht
         End If
     End Sub
 
-    Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
+    Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles PDFToolStripMenuItem1.Click, MailToolStripMenuItem1.Click
         If dgvVertraege.SelectedRows.Count = 1 Then
+
+            Select Case sender.Name
+                Case "PDFToolStripMenuItem1"
+
                     If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
                         If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
 
@@ -2724,6 +2791,27 @@ Public Class usrCntlKundenuebersicht
                             initDGVVertraege()
                         End If
                     End If
+
+                Case "MailToolStripMenuItem1"
+
+                    If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
+                        If vbYes = MsgBox("Möchten Sie die Mail wirklich löschen?", vbYesNoCancel) Then
+
+                            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_Mail_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
+                            DS.DELETE_COMPLETE()
+
+                            Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
+                            KV.kv_datenarchivId_mail = Nothing
+                            KV.SAVE()
+                            initDGVVertraege()
+                        End If
+                    End If
+
+
+
+            End Select
+
+
         End If
     End Sub
 
@@ -3539,5 +3627,4 @@ Public Class usrCntlKundenuebersicht
     End Sub
 
 
-
 End Class