PrintVM

2024-08-29 10:31:13 +02:00
parent e697565d95
commit 4bf3a17661
6 changed files with 105 additions and 71 deletions
--- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
@@ -22,6 +22,7 @@ Partial Class frmKundenUebersichtZOLL
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <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()
@@ -29,13 +30,13 @@ Partial Class frmKundenUebersichtZOLL
        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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenUebersichtZOLL))
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.tabZolltarife = New System.Windows.Forms.TabPage()
        Me.pnlZollTarife = New System.Windows.Forms.Panel()
        Me.tabKundendaten = New System.Windows.Forms.TabPage()
        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
-        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
        Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
@@ -83,10 +84,10 @@ Partial Class frmKundenUebersichtZOLL
        Me.btnSpeichern = New System.Windows.Forms.Button()
        Me.Label35 = New System.Windows.Forms.Label()
        Me.tbRechnungen = New System.Windows.Forms.TabPage()
-        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
-        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
+        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
        Me.btnRgPdf = New System.Windows.Forms.Button()
-        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip()
+        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnMonat = New System.Windows.Forms.Button()
        Me.Button10 = New System.Windows.Forms.Button()
@@ -96,7 +97,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
        Me.tbCBAM = New System.Windows.Forms.TabPage()
-        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon()
+        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
        Me.mnueKunden = New System.Windows.Forms.ToolStripMenuItem()
@@ -114,6 +115,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ZollvollmachtATEVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VollmachtFinanzamtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
@@ -143,8 +145,8 @@ Partial Class frmKundenUebersichtZOLL
        Me.pic = New System.Windows.Forms.PictureBox()
        Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
        Me.rtbInfo = New System.Windows.Forms.RichTextBox()
-        Me.tmrFiskal = New System.Windows.Forms.Timer()
-        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip()
+        Me.tmrFiskal = New System.Windows.Forms.Timer(Me.components)
+        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.HochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -152,7 +154,6 @@ Partial Class frmKundenUebersichtZOLL
        Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.VollmachtFinanzamtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.tabZolltarife.SuspendLayout()
        Me.tabKundendaten.SuspendLayout()
@@ -1179,6 +1180,12 @@ Partial Class frmKundenUebersichtZOLL
        Me.ZollvollmachtATEVToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
        Me.ZollvollmachtATEVToolStripMenuItem.Text = "Zollvollmacht AT - EV"
        '
+        'VollmachtFinanzamtToolStripMenuItem
+        '
+        Me.VollmachtFinanzamtToolStripMenuItem.Name = "VollmachtFinanzamtToolStripMenuItem"
+        Me.VollmachtFinanzamtToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
+        Me.VollmachtFinanzamtToolStripMenuItem.Text = "Vollmacht Finanzamt"
+        '
        'ToolStripMenuItem9
        '
        Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
@@ -1512,12 +1519,6 @@ Partial Class frmKundenUebersichtZOLL
        Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'VollmachtFinanzamtToolStripMenuItem
-        '
-        Me.VollmachtFinanzamtToolStripMenuItem.Name = "VollmachtFinanzamtToolStripMenuItem"
-        Me.VollmachtFinanzamtToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
-        Me.VollmachtFinanzamtToolStripMenuItem.Text = "Vollmacht Finanzamt"
-        '
        'frmKundenUebersichtZOLL
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/SDL/kunden/frmKundenblatt.Designer.vb
+++ b/SDL/kunden/frmKundenblatt.Designer.vb
@@ -2216,7 +2216,7 @@ Partial Class frmKundenblatt
        '
        Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
        Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
        Me.cntxtCntxtMDM.Text = "cntxtMDM"
        '
--- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
+++ b/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 DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle30 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 DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle35 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()
@@ -260,6 +260,8 @@ Partial Class usrCntlKundenuebersicht
        Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService()
        Me.btnOP = New System.Windows.Forms.Button()
+        Me.ContextMenuStrip5 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
        Me.cntxtAddVM.SuspendLayout()
        Me.tbWeitereKundenDetails.SuspendLayout()
        Me.tbOfferten.SuspendLayout()
@@ -311,6 +313,7 @@ Partial Class usrCntlKundenuebersicht
        Me.ContextMenuStrip3.SuspendLayout()
        Me.ContextMenuStrip2.SuspendLayout()
        Me.ContextMenuStrip4.SuspendLayout()
+        Me.ContextMenuStrip5.SuspendLayout()
        Me.SuspendLayout()
        '
        'cntxtAddVM
@@ -421,8 +424,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
        Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
        Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
-        DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
+        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
@@ -442,8 +445,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
        Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
        Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
-        DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
+        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
@@ -453,10 +456,10 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
        Me.dgvOffertenSperrliste.ReadOnly = True
        Me.dgvOffertenSperrliste.RowHeadersVisible = False
-        DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle27.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
-        DataGridViewCellStyle27.SelectionForeColor = System.Drawing.Color.Black
-        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle27
+        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
@@ -594,8 +597,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvOffenePosten.AllowUserToAddRows = False
        Me.dgvOffenePosten.AllowUserToDeleteRows = False
        Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle28.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle28
+        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
@@ -675,8 +678,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
        Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
        Me.dgvUmsatzbericht.AllowUserToResizeRows = False
-        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
+        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
@@ -738,8 +741,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvAnhaenge.AllowUserToAddRows = False
        Me.dgvAnhaenge.AllowUserToDeleteRows = False
        Me.dgvAnhaenge.AllowUserToResizeRows = False
-        DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30
+        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
@@ -2483,8 +2486,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvVollmachten.AllowUserToDeleteRows = False
        Me.dgvVollmachten.AllowUserToOrderColumns = True
        Me.dgvVollmachten.AllowUserToResizeRows = False
-        DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31
+        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
@@ -2537,8 +2540,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvVertraege.AllowUserToDeleteRows = False
        Me.dgvVertraege.AllowUserToOrderColumns = True
        Me.dgvVertraege.AllowUserToResizeRows = False
-        DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
+        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
@@ -2713,8 +2716,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvGestGarantie.AllowUserToDeleteRows = False
        Me.dgvGestGarantie.AllowUserToOrderColumns = True
        Me.dgvGestGarantie.AllowUserToResizeRows = False
-        DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33
+        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
@@ -3168,24 +3171,24 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvAufschub.AllowUserToResizeColumns = False
        Me.dgvAufschub.AllowUserToResizeRows = False
        Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle34
+        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})
-        DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle36
+        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"
@@ -3212,8 +3215,8 @@ Partial Class usrCntlKundenuebersicht
        '
        'HZA
        '
-        DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        Me.HZA.DefaultCellStyle = DataGridViewCellStyle35
+        DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        Me.HZA.DefaultCellStyle = DataGridViewCellStyle23
        Me.HZA.HeaderText = "HZA"
        Me.HZA.Name = "HZA"
        Me.HZA.ReadOnly = True
@@ -3410,6 +3413,20 @@ Partial Class usrCntlKundenuebersicht
        Me.btnOP.TabIndex = 13
        Me.btnOP.UseVisualStyleBackColor = True
        '
+        'ContextMenuStrip5
+        '
+        Me.ContextMenuStrip5.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.ContextMenuStrip5.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem12})
+        Me.ContextMenuStrip5.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip5.Size = New System.Drawing.Size(189, 56)
+        '
+        'ToolStripMenuItem12
+        '
+        Me.ToolStripMenuItem12.Image = Global.SDL.My.Resources.Resources.printer21
+        Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
+        Me.ToolStripMenuItem12.Size = New System.Drawing.Size(188, 30)
+        Me.ToolStripMenuItem12.Text = "Schnelldruck"
+        '
        'usrCntlKundenuebersicht
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3498,6 +3515,7 @@ Partial Class usrCntlKundenuebersicht
        Me.ContextMenuStrip3.ResumeLayout(False)
        Me.ContextMenuStrip2.ResumeLayout(False)
        Me.ContextMenuStrip4.ResumeLayout(False)
+        Me.ContextMenuStrip5.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -3727,4 +3745,6 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents txtVeranlKd As TextBox
    Friend WithEvents lblVeranlKd As Label
    Friend WithEvents btnOP As Button
+    Friend WithEvents ContextMenuStrip5 As ContextMenuStrip
+    Friend WithEvents ToolStripMenuItem12 As ToolStripMenuItem
 End Class
--- a/SDL/kunden/usrCntlKundenuebersicht.resx
+++ b/SDL/kunden/usrCntlKundenuebersicht.resx
@@ -242,4 +242,7 @@
  <metadata name="SessionService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 56</value>
  </metadata>
+  <metadata name="ContextMenuStrip5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>153, 56</value>
+  </metadata>
 </root>
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -1625,10 +1625,11 @@ Public Class usrCntlKundenuebersicht

    Dim tmprowindex As Integer = -1
    Private Sub DgvDelays_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvVollmachten.CellMouseDown
-        Exit Sub
+        '   Exit Sub
        Try
            If e.Button = Windows.Forms.MouseButtons.Right Then
                tmprowindex = e.RowIndex
+                ContextMenuStrip5.Show(dgvVollmachten, dgvVollmachten.PointToClient(Cursor.Position))
                '  cntxtVollmachten.Show(dgvVollmachten, dgvVollmachten.PointToClient(Cursor.Position))
            End If
        Catch ex As Exception
@@ -3199,4 +3200,13 @@ Public Class usrCntlKundenuebersicht
            frmBU_Mahnlauf.doZahlungserinnerung(Me.FindForm, "OP", KontoList, cboFirmaFMZOLL._value, "")
        End If
    End Sub
+
+    Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
+        If tmprowindex >= 0 Then
+            ' MsgBox(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)
+            If dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value) > 0 Then
+                VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)})
+            End If
+        End If
+    End Sub
 End Class