version, fakt, Formuale, Ubersicht, etc.

2026-02-06 09:19:49 +01:00
parent 5416e6f102
commit c1e158eeb7
12 changed files with 724 additions and 159 deletions
--- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
@@ -22,7 +22,6 @@ 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()
@@ -30,19 +29,17 @@ 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.components)
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip()
        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.rtbInfo = New System.Windows.Forms.RichTextBox()
        Me.lblAbfertigungsverbot = New System.Windows.Forms.Label()
-        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
-        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip()
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
        Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
        Me.tbStatistik = New System.Windows.Forms.TabPage()
        Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Button1 = New System.Windows.Forms.Button()
@@ -89,10 +86,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.components)
-        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
        Me.btnRgPdf = New System.Windows.Forms.Button()
-        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip()
        Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnMonat = New System.Windows.Forms.Button()
        Me.Button10 = New System.Windows.Forms.Button()
@@ -100,9 +97,8 @@ Partial Class frmKundenUebersichtZOLL
        Me.Label40 = New System.Windows.Forms.Label()
        Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage()
        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.components)
+        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
        Me.mnueKunden = New System.Windows.Forms.ToolStripMenuItem()
@@ -149,8 +145,8 @@ Partial Class frmKundenUebersichtZOLL
        Me.lblTESTSystem = New System.Windows.Forms.Label()
        Me.pic = New System.Windows.Forms.PictureBox()
        Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
-        Me.tmrFiskal = New System.Windows.Forms.Timer(Me.components)
-        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.tmrFiskal = New System.Windows.Forms.Timer()
+        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip()
        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.HochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -158,6 +154,10 @@ 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.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
+        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
+        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
+        Me.ZollvollmachtDEIndirektToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.tabZolltarife.SuspendLayout()
        Me.tabKundendaten.SuspendLayout()
@@ -205,7 +205,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.tabZolltarife.Location = New System.Drawing.Point(4, 25)
        Me.tabZolltarife.Name = "tabZolltarife"
        Me.tabZolltarife.Padding = New System.Windows.Forms.Padding(3)
-        Me.tabZolltarife.Size = New System.Drawing.Size(1182, 697)
+        Me.tabZolltarife.Size = New System.Drawing.Size(1182, 750)
        Me.tabZolltarife.TabIndex = 1
        Me.tabZolltarife.Text = "Kunden - Zolltarife"
        Me.tabZolltarife.UseVisualStyleBackColor = True
@@ -216,7 +216,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.pnlZollTarife.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlZollTarife.Location = New System.Drawing.Point(3, 3)
        Me.pnlZollTarife.Name = "pnlZollTarife"
-        Me.pnlZollTarife.Size = New System.Drawing.Size(1176, 691)
+        Me.pnlZollTarife.Size = New System.Drawing.Size(1176, 744)
        Me.pnlZollTarife.TabIndex = 0
        '
        'tabKundendaten
@@ -260,17 +260,6 @@ Partial Class frmKundenUebersichtZOLL
        Me.lblAbfertigungsverbot.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblAbfertigungsverbot.Visible = False
        '
-        'usrcntlKundenuebersicht
-        '
-        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
-        Me.usrcntlKundenuebersicht.BER_STUFE = 0
-        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
-        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
-        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
-        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 744)
-        Me.usrcntlKundenuebersicht.TabIndex = 0
-        '
        'ContextMenuStrip2
        '
        Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -312,20 +301,10 @@ Partial Class frmKundenUebersichtZOLL
        Me.TabPage1.Location = New System.Drawing.Point(4, 25)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(1182, 697)
+        Me.TabPage1.Size = New System.Drawing.Size(1182, 750)
        Me.TabPage1.TabIndex = 2
        Me.TabPage1.Text = "Offerte"
        '
-        'UsrCntlOfferte1
-        '
-        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
-        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
-        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
-        Me.UsrCntlOfferte1.TabIndex = 0
-        '
        'tbStatistik
        '
        Me.tbStatistik.BackColor = System.Drawing.Color.White
@@ -359,7 +338,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.tbStatistik.Location = New System.Drawing.Point(4, 25)
        Me.tbStatistik.Name = "tbStatistik"
        Me.tbStatistik.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbStatistik.Size = New System.Drawing.Size(1182, 697)
+        Me.tbStatistik.Size = New System.Drawing.Size(1182, 750)
        Me.tbStatistik.TabIndex = 3
        Me.tbStatistik.Text = "Statikstik"
        '
@@ -850,7 +829,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.tbFiskal.Controls.Add(Me.pnlFiskTop)
        Me.tbFiskal.Location = New System.Drawing.Point(4, 25)
        Me.tbFiskal.Name = "tbFiskal"
-        Me.tbFiskal.Size = New System.Drawing.Size(1182, 697)
+        Me.tbFiskal.Size = New System.Drawing.Size(1182, 750)
        Me.tbFiskal.TabIndex = 4
        Me.tbFiskal.Text = "Fiskal"
        '
@@ -859,7 +838,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.pnlFiskal.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlFiskal.Location = New System.Drawing.Point(0, 55)
        Me.pnlFiskal.Name = "pnlFiskal"
-        Me.pnlFiskal.Size = New System.Drawing.Size(1182, 642)
+        Me.pnlFiskal.Size = New System.Drawing.Size(1182, 695)
        Me.pnlFiskal.TabIndex = 40
        '
        'pnlFiskTop
@@ -912,7 +891,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.tbRechnungen.Controls.Add(Me.MyPanel1)
        Me.tbRechnungen.Location = New System.Drawing.Point(4, 25)
        Me.tbRechnungen.Name = "tbRechnungen"
-        Me.tbRechnungen.Size = New System.Drawing.Size(1182, 697)
+        Me.tbRechnungen.Size = New System.Drawing.Size(1182, 750)
        Me.tbRechnungen.TabIndex = 5
        Me.tbRechnungen.Text = "Rechnungen"
        '
@@ -930,7 +909,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.dgvRg.ReadOnly = True
        Me.dgvRg.RowHeadersVisible = False
        Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvRg.Size = New System.Drawing.Size(1182, 637)
+        Me.dgvRg.Size = New System.Drawing.Size(1182, 690)
        Me.dgvRg.TabIndex = 1
        '
        'MyPanel1
@@ -1033,7 +1012,7 @@ Partial Class frmKundenUebersichtZOLL
        '
        Me.tbSpeditionsbuch.Location = New System.Drawing.Point(4, 25)
        Me.tbSpeditionsbuch.Name = "tbSpeditionsbuch"
-        Me.tbSpeditionsbuch.Size = New System.Drawing.Size(1182, 697)
+        Me.tbSpeditionsbuch.Size = New System.Drawing.Size(1182, 750)
        Me.tbSpeditionsbuch.TabIndex = 6
        Me.tbSpeditionsbuch.Text = "Speditionsbuch"
        Me.tbSpeditionsbuch.UseVisualStyleBackColor = True
@@ -1043,26 +1022,17 @@ Partial Class frmKundenUebersichtZOLL
        Me.tbFiskaluebersicht.Controls.Add(Me.UsrcntlFiskaluebersicht1)
        Me.tbFiskaluebersicht.Location = New System.Drawing.Point(4, 25)
        Me.tbFiskaluebersicht.Name = "tbFiskaluebersicht"
-        Me.tbFiskaluebersicht.Size = New System.Drawing.Size(1182, 697)
+        Me.tbFiskaluebersicht.Size = New System.Drawing.Size(1182, 750)
        Me.tbFiskaluebersicht.TabIndex = 7
        Me.tbFiskaluebersicht.Text = "Fiskal-Analyse"
        Me.tbFiskaluebersicht.UseVisualStyleBackColor = True
        '
-        'UsrcntlFiskaluebersicht1
-        '
-        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
-        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
-        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
-        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
-        '
        'tbCBAM
        '
        Me.tbCBAM.Location = New System.Drawing.Point(4, 25)
        Me.tbCBAM.Name = "tbCBAM"
        Me.tbCBAM.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbCBAM.Size = New System.Drawing.Size(1182, 697)
+        Me.tbCBAM.Size = New System.Drawing.Size(1182, 750)
        Me.tbCBAM.TabIndex = 8
        Me.tbCBAM.Text = "CBAM"
        Me.tbCBAM.UseVisualStyleBackColor = True
@@ -1214,7 +1184,7 @@ Partial Class frmKundenUebersichtZOLL
        '
        'ToolStripMenuItem4
        '
-        Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem8, Me.ZollvollmachtATEVToolStripMenuItem, Me.VollmachtFinanzamtToolStripMenuItem})
+        Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem8, Me.ZollvollmachtATEVToolStripMenuItem, Me.VollmachtFinanzamtToolStripMenuItem, Me.ZollvollmachtDEIndirektToolStripMenuItem})
        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(242, 22)
        Me.ToolStripMenuItem4.Text = "Vollmachten"
@@ -1222,37 +1192,37 @@ Partial Class frmKundenUebersichtZOLL
        'toolStrVM_de
        '
        Me.toolStrVM_de.Name = "toolStrVM_de"
-        Me.toolStrVM_de.Size = New System.Drawing.Size(204, 22)
+        Me.toolStrVM_de.Size = New System.Drawing.Size(215, 22)
        Me.toolStrVM_de.Text = "Zollvollmacht DE"
        '
        'ZollvollmachtDEFiskalToolStripMenuItem
        '
        Me.ZollvollmachtDEFiskalToolStripMenuItem.Name = "ZollvollmachtDEFiskalToolStripMenuItem"
-        Me.ZollvollmachtDEFiskalToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
+        Me.ZollvollmachtDEFiskalToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
        Me.ZollvollmachtDEFiskalToolStripMenuItem.Text = "Zollvollmacht DE - Fiskal"
        '
        'ToolStripMenuItem6
        '
        Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
-        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(204, 22)
+        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(215, 22)
        Me.ToolStripMenuItem6.Text = "Zollvollmacht AT"
        '
        'ToolStripMenuItem8
        '
        Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
-        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(204, 22)
+        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(215, 22)
        Me.ToolStripMenuItem8.Text = "Zollvollmacht AT - Fiskal"
        '
        'ZollvollmachtATEVToolStripMenuItem
        '
        Me.ZollvollmachtATEVToolStripMenuItem.Name = "ZollvollmachtATEVToolStripMenuItem"
-        Me.ZollvollmachtATEVToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
+        Me.ZollvollmachtATEVToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
        Me.ZollvollmachtATEVToolStripMenuItem.Text = "Zollvollmacht AT - EV"
        '
        'VollmachtFinanzamtToolStripMenuItem
        '
        Me.VollmachtFinanzamtToolStripMenuItem.Name = "VollmachtFinanzamtToolStripMenuItem"
-        Me.VollmachtFinanzamtToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
+        Me.VollmachtFinanzamtToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
        Me.VollmachtFinanzamtToolStripMenuItem.Text = "Vollmacht Finanzamt"
        '
        'ToolStripMenuItem9
@@ -1577,6 +1547,42 @@ Partial Class frmKundenUebersichtZOLL
        Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
+        'usrcntlKundenuebersicht
+        '
+        Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
+        Me.usrcntlKundenuebersicht.BER_STUFE = 0
+        Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
+        Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
+        Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 744)
+        Me.usrcntlKundenuebersicht.TabIndex = 0
+        '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
+        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 744)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
+        'UsrcntlFiskaluebersicht1
+        '
+        Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
+        Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
+        Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 750)
+        Me.UsrcntlFiskaluebersicht1.TabIndex = 0
+        '
+        'ZollvollmachtDEIndirektToolStripMenuItem
+        '
+        Me.ZollvollmachtDEIndirektToolStripMenuItem.Name = "ZollvollmachtDEIndirektToolStripMenuItem"
+        Me.ZollvollmachtDEIndirektToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
+        Me.ZollvollmachtDEIndirektToolStripMenuItem.Text = "Zollvollmacht DE - indirekt"
+        '
        'frmKundenUebersichtZOLL
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1754,4 +1760,5 @@ Partial Class frmKundenUebersichtZOLL
    Friend WithEvents lblAvgTnr As Label
    Friend WithEvents Button4 As Button
    Friend WithEvents lbAvgTnrGesPos As Label
+    Friend WithEvents ZollvollmachtDEIndirektToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/SDL/kunden/frmKundenUebersichtZOLL.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.vb
@@ -164,7 +164,7 @@ Public Class frmKundenUebersichtZOLL
            ' toolOptionen.Visible = False
            mneBearbeiten.Visible = False
            mnueOfferte.Visible = False
-            mneFormulare.Visible = False
+            ' mneFormulare.Visible = False -> temoprär deaktiviert wegen einholung von Zoll-VM!!!!!!!!!!!
            mnueFiskal.Visible = False
            toolNeuerKunde.Visible = False
            mnueFiskaluebersicht.Visible = False
@@ -365,6 +365,10 @@ Public Class frmKundenUebersichtZOLL

                    toolOptionen.Enabled = False

+                Else
+
+                    mneFormulare.Enabled = True 'ebenfalls nach Erledigung deaktivieren!!!!!!!!!!!!!!!!!!!
+
                End If
                mnueFiskaluebersicht.Enabled = False

@@ -1522,7 +1526,9 @@ Public Class frmKundenUebersichtZOLL

    End Sub

-
+    Private Sub ZollvollmachtDEIndirektToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtDEIndirektToolStripMenuItem.Click
+        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Vollmacht_indirekt, kdNr, {})
+    End Sub
 End Class


--- a/SDL/kunden/frmSDLDetails.vb
+++ b/SDL/kunden/frmSDLDetails.vb
@@ -21,6 +21,7 @@
        ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Sperre aufgehoben", "0")) 'Sperre aufgehoben
        ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Sperre gesetzt", "1")) 'Sperre gesetzt
        ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Stopped for Post-Pay", "3")) 'Stopped for Post-Pay
+        ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - temporär gesperrt", "4"))
        ComboBox1.SelectedIndex = 0

        bindingSDL.binddata(CheckBox1, "CheckState", bindingSDL.bindingSource, "Vertretungsvollmacht")