Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

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

@@ -47,6 +47,7 @@ Partial Public Class rptPreislisten
         Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
         Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
         Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
         Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -77,6 +78,7 @@ Partial Public Class rptPreislisten
         CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -277,7 +279,7 @@ Partial Public Class rptPreislisten
         '
         'ReportHeader1
         '
-        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6})
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6, Me.TextBox7})
         Me.ReportHeader1.Height = 2.176378!
         Me.ReportHeader1.Name = "ReportHeader1"
         '
@@ -420,6 +422,18 @@ Partial Public Class rptPreislisten
         Me.TextBox6.Visible = False
         Me.TextBox6.Width = 3.592911!
         '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.5000001!
+        Me.TextBox7.Left = 3.120079!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "font-size: 8pt; text-align: right; vertical-align: middle; ddo-char-set: 1"
+        Me.TextBox7.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +43 77 11 / 26 77-0 " & Global.Microsoft.VisualBasic.ChrW(9) & "      www.unisped.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " & Global.Microsoft.VisualBasic.ChrW(9) & "   o" &
+    "ffice@unisped.at"
+        Me.TextBox7.Top = 0!
+        Me.TextBox7.Visible = False
+        Me.TextBox7.Width = 3.592911!
+        '
         'ReportFooter1
         '
         Me.ReportFooter1.CanShrink = True
@@ -440,7 +454,7 @@ Partial Public Class rptPreislisten
         '
         'Line
         '
-        Me.Line.Height = 0.0001811981!
+        Me.Line.Height = 0.0001809597!
         Me.Line.Left = 0.02362205!
         Me.Line.LineWeight = 1.0!
         Me.Line.Name = "Line"
@@ -565,6 +579,7 @@ Partial Public Class rptPreislisten
         '
         'rptPreislisten
         '
+        Me.MasterReport = False
         Me.PageSettings.Margins.Bottom = 0.3937007!
         Me.PageSettings.Margins.Left = 0.7874016!
         Me.PageSettings.Margins.Right = 0.3937007!
@@ -600,6 +615,7 @@ Partial Public Class rptPreislisten
         CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).EndInit()
@@ -652,4 +668,5 @@ Partial Public Class rptPreislisten
     Public WithEvents txtFirmaInfo_ATILLA As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport
     Public WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
 End Class

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

@@ -0,0 +1,670 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrcntlCBAM_direkt
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.lblLagervertrag = New System.Windows.Forms.Label()
+        Me.btnDown = New System.Windows.Forms.Button()
+        Me.btnUp = New System.Windows.Forms.Button()
+        Me.btnDel = New System.Windows.Forms.Button()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtCBAM_Onboarding_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboPaketOption = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.txtCBAM_MonatPausch_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCBAM_jeWeitere_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCBAM_jeWeitere_Paket_2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCBAM_MonatPausch_Paket_2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCBAM_Onboarding_Paket_2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCBAM_jeWeitere_Paket_3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCBAM_MonatPausch_Paket_3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCBAM_Onboarding_Paket_3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtVertragsbeginn = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(170, 37)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(78, 13)
+        Me.lbl.TabIndex = 6
+        Me.lbl.Text = "Firmenwortlaut:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(170, 56)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(48, 13)
+        Me.Label1.TabIndex = 11
+        Me.Label1.Text = "Adresse:"
+        '
+        'btn
+        '
+        Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Location = New System.Drawing.Point(937, 34)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(26, 20)
+        Me.btn.TabIndex = 8
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(559, 12)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(88, 13)
+        Me.Label8.TabIndex = 2
+        Me.Label8.Text = "Ansprechpartner:"
+        '
+        'txtAnsprechpartner
+        '
+        Me.txtAnsprechpartner._DateTimeOnly = False
+        Me.txtAnsprechpartner._numbersOnly = False
+        Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
+        Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
+        Me.txtAnsprechpartner._Prozent = False
+        Me.txtAnsprechpartner._ShortDateNew = False
+        Me.txtAnsprechpartner._ShortDateOnly = False
+        Me.txtAnsprechpartner._TimeOnly = False
+        Me.txtAnsprechpartner._TimeOnly_Seconds = False
+        Me.txtAnsprechpartner._value = Nothing
+        Me.txtAnsprechpartner._Waehrung = False
+        Me.txtAnsprechpartner._WaehrungZeichen = True
+        Me.txtAnsprechpartner.Enabled = False
+        Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
+        Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9)
+        Me.txtAnsprechpartner.MaxLineLength = -1
+        Me.txtAnsprechpartner.MaxLines_Warning = ""
+        Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing
+        Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
+        Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20)
+        Me.txtAnsprechpartner.TabIndex = 3
+        '
+        'txtAdresse2
+        '
+        Me.txtAdresse2._DateTimeOnly = False
+        Me.txtAdresse2._numbersOnly = False
+        Me.txtAdresse2._numbersOnlyKommastellen = ""
+        Me.txtAdresse2._numbersOnlyTrennzeichen = True
+        Me.txtAdresse2._Prozent = False
+        Me.txtAdresse2._ShortDateNew = False
+        Me.txtAdresse2._ShortDateOnly = False
+        Me.txtAdresse2._TimeOnly = False
+        Me.txtAdresse2._TimeOnly_Seconds = False
+        Me.txtAdresse2._value = Nothing
+        Me.txtAdresse2._Waehrung = False
+        Me.txtAdresse2._WaehrungZeichen = True
+        Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
+        Me.txtAdresse2.Location = New System.Drawing.Point(254, 72)
+        Me.txtAdresse2.MaxLineLength = -1
+        Me.txtAdresse2.MaxLines_Warning = ""
+        Me.txtAdresse2.MaxLines_Warning_Label = Nothing
+        Me.txtAdresse2.Name = "txtAdresse2"
+        Me.txtAdresse2.Size = New System.Drawing.Size(709, 20)
+        Me.txtAdresse2.TabIndex = 13
+        '
+        'txtAdresse1
+        '
+        Me.txtAdresse1._DateTimeOnly = False
+        Me.txtAdresse1._numbersOnly = False
+        Me.txtAdresse1._numbersOnlyKommastellen = ""
+        Me.txtAdresse1._numbersOnlyTrennzeichen = True
+        Me.txtAdresse1._Prozent = False
+        Me.txtAdresse1._ShortDateNew = False
+        Me.txtAdresse1._ShortDateOnly = False
+        Me.txtAdresse1._TimeOnly = False
+        Me.txtAdresse1._TimeOnly_Seconds = False
+        Me.txtAdresse1._value = Nothing
+        Me.txtAdresse1._Waehrung = False
+        Me.txtAdresse1._WaehrungZeichen = True
+        Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
+        Me.txtAdresse1.Location = New System.Drawing.Point(254, 53)
+        Me.txtAdresse1.MaxLineLength = -1
+        Me.txtAdresse1.MaxLines_Warning = ""
+        Me.txtAdresse1.MaxLines_Warning_Label = Nothing
+        Me.txtAdresse1.Name = "txtAdresse1"
+        Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
+        Me.txtAdresse1.TabIndex = 12
+        '
+        'txtFirma
+        '
+        Me.txtFirma._DateTimeOnly = False
+        Me.txtFirma._numbersOnly = False
+        Me.txtFirma._numbersOnlyKommastellen = ""
+        Me.txtFirma._numbersOnlyTrennzeichen = True
+        Me.txtFirma._Prozent = False
+        Me.txtFirma._ShortDateNew = False
+        Me.txtFirma._ShortDateOnly = False
+        Me.txtFirma._TimeOnly = False
+        Me.txtFirma._TimeOnly_Seconds = False
+        Me.txtFirma._value = Nothing
+        Me.txtFirma._Waehrung = False
+        Me.txtFirma._WaehrungZeichen = True
+        Me.txtFirma.ForeColor = System.Drawing.Color.Black
+        Me.txtFirma.Location = New System.Drawing.Point(254, 34)
+        Me.txtFirma.MaxLineLength = -1
+        Me.txtFirma.MaxLines_Warning = ""
+        Me.txtFirma.MaxLines_Warning_Label = Nothing
+        Me.txtFirma.Name = "txtFirma"
+        Me.txtFirma.Size = New System.Drawing.Size(684, 20)
+        Me.txtFirma.TabIndex = 7
+        '
+        'pic
+        '
+        Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.pic.Location = New System.Drawing.Point(5, 5)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(32, 32)
+        Me.pic.TabIndex = 32
+        Me.pic.TabStop = False
+        '
+        'lblLagervertrag
+        '
+        Me.lblLagervertrag.AutoSize = True
+        Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9)
+        Me.lblLagervertrag.Name = "lblLagervertrag"
+        Me.lblLagervertrag.Size = New System.Drawing.Size(120, 20)
+        Me.lblLagervertrag.TabIndex = 1
+        Me.lblLagervertrag.Text = "CBAM - direkt"
+        '
+        'btnDown
+        '
+        Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
+        Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDown.Location = New System.Drawing.Point(976, 42)
+        Me.btnDown.Name = "btnDown"
+        Me.btnDown.Size = New System.Drawing.Size(25, 21)
+        Me.btnDown.TabIndex = 9
+        Me.btnDown.UseVisualStyleBackColor = True
+        '
+        'btnUp
+        '
+        Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
+        Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnUp.Location = New System.Drawing.Point(976, 22)
+        Me.btnUp.Name = "btnUp"
+        Me.btnUp.Size = New System.Drawing.Size(25, 21)
+        Me.btnUp.TabIndex = 4
+        Me.btnUp.UseVisualStyleBackColor = True
+        '
+        'btnDel
+        '
+        Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
+        Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDel.Location = New System.Drawing.Point(976, -1)
+        Me.btnDel.Name = "btnDel"
+        Me.btnDel.Size = New System.Drawing.Size(25, 21)
+        Me.btnDel.TabIndex = 0
+        Me.btnDel.UseVisualStyleBackColor = True
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(44, 37)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(50, 13)
+        Me.Label12.TabIndex = 5
+        Me.Label12.Text = "Sprache:"
+        '
+        'cboSprache
+        '
+        Me.cboSprache._allowedValuesFreiText = Nothing
+        Me.cboSprache._allowFreiText = False
+        Me.cboSprache._value = ""
+        Me.cboSprache.FormattingEnabled = True
+        Me.cboSprache.Location = New System.Drawing.Point(47, 53)
+        Me.cboSprache.Name = "cboSprache"
+        Me.cboSprache.Size = New System.Drawing.Size(89, 21)
+        Me.cboSprache.TabIndex = 10
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(251, 130)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(139, 13)
+        Me.Label5.TabIndex = 18
+        Me.Label5.Text = "Offert Paket ""CBAM Basic"":"
+        '
+        'txtCBAM_Onboarding_Paket_1
+        '
+        Me.txtCBAM_Onboarding_Paket_1._DateTimeOnly = False
+        Me.txtCBAM_Onboarding_Paket_1._numbersOnly = True
+        Me.txtCBAM_Onboarding_Paket_1._numbersOnlyKommastellen = ""
+        Me.txtCBAM_Onboarding_Paket_1._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_Onboarding_Paket_1._Prozent = False
+        Me.txtCBAM_Onboarding_Paket_1._ShortDateNew = False
+        Me.txtCBAM_Onboarding_Paket_1._ShortDateOnly = False
+        Me.txtCBAM_Onboarding_Paket_1._TimeOnly = False
+        Me.txtCBAM_Onboarding_Paket_1._TimeOnly_Seconds = False
+        Me.txtCBAM_Onboarding_Paket_1._value = Nothing
+        Me.txtCBAM_Onboarding_Paket_1._Waehrung = False
+        Me.txtCBAM_Onboarding_Paket_1._WaehrungZeichen = True
+        Me.txtCBAM_Onboarding_Paket_1.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_Onboarding_Paket_1.Location = New System.Drawing.Point(254, 146)
+        Me.txtCBAM_Onboarding_Paket_1.MaxLineLength = -1
+        Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning = ""
+        Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_Onboarding_Paket_1.Name = "txtCBAM_Onboarding_Paket_1"
+        Me.txtCBAM_Onboarding_Paket_1.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_Onboarding_Paket_1.TabIndex = 19
+        '
+        'cboPaketOption
+        '
+        Me.cboPaketOption._allowedValuesFreiText = Nothing
+        Me.cboPaketOption._allowFreiText = False
+        Me.cboPaketOption._value = ""
+        Me.cboPaketOption.FormattingEnabled = True
+        Me.cboPaketOption.Location = New System.Drawing.Point(460, 98)
+        Me.cboPaketOption.Name = "cboPaketOption"
+        Me.cboPaketOption.Size = New System.Drawing.Size(200, 21)
+        Me.cboPaketOption.TabIndex = 33
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(416, 101)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(38, 13)
+        Me.Label2.TabIndex = 34
+        Me.Label2.Text = "Paket:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(170, 169)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(81, 13)
+        Me.Label3.TabIndex = 35
+        Me.Label3.Text = "Monatl.Pausch:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(170, 189)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(81, 13)
+        Me.Label4.TabIndex = 36
+        Me.Label4.Text = "Je weitere Lief.:"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(170, 149)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 37
+        Me.Label6.Text = "Onboarding:"
+        '
+        'txtCBAM_MonatPausch_Paket_1
+        '
+        Me.txtCBAM_MonatPausch_Paket_1._DateTimeOnly = False
+        Me.txtCBAM_MonatPausch_Paket_1._numbersOnly = True
+        Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyKommastellen = ""
+        Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_MonatPausch_Paket_1._Prozent = False
+        Me.txtCBAM_MonatPausch_Paket_1._ShortDateNew = False
+        Me.txtCBAM_MonatPausch_Paket_1._ShortDateOnly = False
+        Me.txtCBAM_MonatPausch_Paket_1._TimeOnly = False
+        Me.txtCBAM_MonatPausch_Paket_1._TimeOnly_Seconds = False
+        Me.txtCBAM_MonatPausch_Paket_1._value = ""
+        Me.txtCBAM_MonatPausch_Paket_1._Waehrung = False
+        Me.txtCBAM_MonatPausch_Paket_1._WaehrungZeichen = True
+        Me.txtCBAM_MonatPausch_Paket_1.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_MonatPausch_Paket_1.Location = New System.Drawing.Point(254, 166)
+        Me.txtCBAM_MonatPausch_Paket_1.MaxLineLength = -1
+        Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning = ""
+        Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_MonatPausch_Paket_1.Name = "txtCBAM_MonatPausch_Paket_1"
+        Me.txtCBAM_MonatPausch_Paket_1.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_MonatPausch_Paket_1.TabIndex = 38
+        '
+        'txtCBAM_jeWeitere_Paket_1
+        '
+        Me.txtCBAM_jeWeitere_Paket_1._DateTimeOnly = False
+        Me.txtCBAM_jeWeitere_Paket_1._numbersOnly = True
+        Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyKommastellen = ""
+        Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_jeWeitere_Paket_1._Prozent = False
+        Me.txtCBAM_jeWeitere_Paket_1._ShortDateNew = False
+        Me.txtCBAM_jeWeitere_Paket_1._ShortDateOnly = False
+        Me.txtCBAM_jeWeitere_Paket_1._TimeOnly = False
+        Me.txtCBAM_jeWeitere_Paket_1._TimeOnly_Seconds = False
+        Me.txtCBAM_jeWeitere_Paket_1._value = ""
+        Me.txtCBAM_jeWeitere_Paket_1._Waehrung = False
+        Me.txtCBAM_jeWeitere_Paket_1._WaehrungZeichen = True
+        Me.txtCBAM_jeWeitere_Paket_1.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_jeWeitere_Paket_1.Location = New System.Drawing.Point(254, 186)
+        Me.txtCBAM_jeWeitere_Paket_1.MaxLineLength = -1
+        Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning = ""
+        Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_jeWeitere_Paket_1.Name = "txtCBAM_jeWeitere_Paket_1"
+        Me.txtCBAM_jeWeitere_Paket_1.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_jeWeitere_Paket_1.TabIndex = 39
+        '
+        'txtCBAM_jeWeitere_Paket_2
+        '
+        Me.txtCBAM_jeWeitere_Paket_2._DateTimeOnly = False
+        Me.txtCBAM_jeWeitere_Paket_2._numbersOnly = True
+        Me.txtCBAM_jeWeitere_Paket_2._numbersOnlyKommastellen = ""
+        Me.txtCBAM_jeWeitere_Paket_2._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_jeWeitere_Paket_2._Prozent = False
+        Me.txtCBAM_jeWeitere_Paket_2._ShortDateNew = False
+        Me.txtCBAM_jeWeitere_Paket_2._ShortDateOnly = False
+        Me.txtCBAM_jeWeitere_Paket_2._TimeOnly = False
+        Me.txtCBAM_jeWeitere_Paket_2._TimeOnly_Seconds = False
+        Me.txtCBAM_jeWeitere_Paket_2._value = ""
+        Me.txtCBAM_jeWeitere_Paket_2._Waehrung = False
+        Me.txtCBAM_jeWeitere_Paket_2._WaehrungZeichen = True
+        Me.txtCBAM_jeWeitere_Paket_2.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_jeWeitere_Paket_2.Location = New System.Drawing.Point(460, 186)
+        Me.txtCBAM_jeWeitere_Paket_2.MaxLineLength = -1
+        Me.txtCBAM_jeWeitere_Paket_2.MaxLines_Warning = ""
+        Me.txtCBAM_jeWeitere_Paket_2.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_jeWeitere_Paket_2.Name = "txtCBAM_jeWeitere_Paket_2"
+        Me.txtCBAM_jeWeitere_Paket_2.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_jeWeitere_Paket_2.TabIndex = 42
+        '
+        'txtCBAM_MonatPausch_Paket_2
+        '
+        Me.txtCBAM_MonatPausch_Paket_2._DateTimeOnly = False
+        Me.txtCBAM_MonatPausch_Paket_2._numbersOnly = True
+        Me.txtCBAM_MonatPausch_Paket_2._numbersOnlyKommastellen = ""
+        Me.txtCBAM_MonatPausch_Paket_2._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_MonatPausch_Paket_2._Prozent = False
+        Me.txtCBAM_MonatPausch_Paket_2._ShortDateNew = False
+        Me.txtCBAM_MonatPausch_Paket_2._ShortDateOnly = False
+        Me.txtCBAM_MonatPausch_Paket_2._TimeOnly = False
+        Me.txtCBAM_MonatPausch_Paket_2._TimeOnly_Seconds = False
+        Me.txtCBAM_MonatPausch_Paket_2._value = ""
+        Me.txtCBAM_MonatPausch_Paket_2._Waehrung = False
+        Me.txtCBAM_MonatPausch_Paket_2._WaehrungZeichen = True
+        Me.txtCBAM_MonatPausch_Paket_2.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_MonatPausch_Paket_2.Location = New System.Drawing.Point(460, 166)
+        Me.txtCBAM_MonatPausch_Paket_2.MaxLineLength = -1
+        Me.txtCBAM_MonatPausch_Paket_2.MaxLines_Warning = ""
+        Me.txtCBAM_MonatPausch_Paket_2.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_MonatPausch_Paket_2.Name = "txtCBAM_MonatPausch_Paket_2"
+        Me.txtCBAM_MonatPausch_Paket_2.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_MonatPausch_Paket_2.TabIndex = 41
+        '
+        'txtCBAM_Onboarding_Paket_2
+        '
+        Me.txtCBAM_Onboarding_Paket_2._DateTimeOnly = False
+        Me.txtCBAM_Onboarding_Paket_2._numbersOnly = True
+        Me.txtCBAM_Onboarding_Paket_2._numbersOnlyKommastellen = ""
+        Me.txtCBAM_Onboarding_Paket_2._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_Onboarding_Paket_2._Prozent = False
+        Me.txtCBAM_Onboarding_Paket_2._ShortDateNew = False
+        Me.txtCBAM_Onboarding_Paket_2._ShortDateOnly = False
+        Me.txtCBAM_Onboarding_Paket_2._TimeOnly = False
+        Me.txtCBAM_Onboarding_Paket_2._TimeOnly_Seconds = False
+        Me.txtCBAM_Onboarding_Paket_2._value = ""
+        Me.txtCBAM_Onboarding_Paket_2._Waehrung = False
+        Me.txtCBAM_Onboarding_Paket_2._WaehrungZeichen = True
+        Me.txtCBAM_Onboarding_Paket_2.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_Onboarding_Paket_2.Location = New System.Drawing.Point(460, 146)
+        Me.txtCBAM_Onboarding_Paket_2.MaxLineLength = -1
+        Me.txtCBAM_Onboarding_Paket_2.MaxLines_Warning = ""
+        Me.txtCBAM_Onboarding_Paket_2.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_Onboarding_Paket_2.Name = "txtCBAM_Onboarding_Paket_2"
+        Me.txtCBAM_Onboarding_Paket_2.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_Onboarding_Paket_2.TabIndex = 40
+        '
+        'txtCBAM_jeWeitere_Paket_3
+        '
+        Me.txtCBAM_jeWeitere_Paket_3._DateTimeOnly = False
+        Me.txtCBAM_jeWeitere_Paket_3._numbersOnly = True
+        Me.txtCBAM_jeWeitere_Paket_3._numbersOnlyKommastellen = ""
+        Me.txtCBAM_jeWeitere_Paket_3._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_jeWeitere_Paket_3._Prozent = False
+        Me.txtCBAM_jeWeitere_Paket_3._ShortDateNew = False
+        Me.txtCBAM_jeWeitere_Paket_3._ShortDateOnly = False
+        Me.txtCBAM_jeWeitere_Paket_3._TimeOnly = False
+        Me.txtCBAM_jeWeitere_Paket_3._TimeOnly_Seconds = False
+        Me.txtCBAM_jeWeitere_Paket_3._value = ""
+        Me.txtCBAM_jeWeitere_Paket_3._Waehrung = False
+        Me.txtCBAM_jeWeitere_Paket_3._WaehrungZeichen = True
+        Me.txtCBAM_jeWeitere_Paket_3.Enabled = False
+        Me.txtCBAM_jeWeitere_Paket_3.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_jeWeitere_Paket_3.Location = New System.Drawing.Point(666, 186)
+        Me.txtCBAM_jeWeitere_Paket_3.MaxLineLength = -1
+        Me.txtCBAM_jeWeitere_Paket_3.MaxLines_Warning = ""
+        Me.txtCBAM_jeWeitere_Paket_3.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_jeWeitere_Paket_3.Name = "txtCBAM_jeWeitere_Paket_3"
+        Me.txtCBAM_jeWeitere_Paket_3.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_jeWeitere_Paket_3.TabIndex = 45
+        '
+        'txtCBAM_MonatPausch_Paket_3
+        '
+        Me.txtCBAM_MonatPausch_Paket_3._DateTimeOnly = False
+        Me.txtCBAM_MonatPausch_Paket_3._numbersOnly = True
+        Me.txtCBAM_MonatPausch_Paket_3._numbersOnlyKommastellen = ""
+        Me.txtCBAM_MonatPausch_Paket_3._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_MonatPausch_Paket_3._Prozent = False
+        Me.txtCBAM_MonatPausch_Paket_3._ShortDateNew = False
+        Me.txtCBAM_MonatPausch_Paket_3._ShortDateOnly = False
+        Me.txtCBAM_MonatPausch_Paket_3._TimeOnly = False
+        Me.txtCBAM_MonatPausch_Paket_3._TimeOnly_Seconds = False
+        Me.txtCBAM_MonatPausch_Paket_3._value = ""
+        Me.txtCBAM_MonatPausch_Paket_3._Waehrung = False
+        Me.txtCBAM_MonatPausch_Paket_3._WaehrungZeichen = True
+        Me.txtCBAM_MonatPausch_Paket_3.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_MonatPausch_Paket_3.Location = New System.Drawing.Point(666, 166)
+        Me.txtCBAM_MonatPausch_Paket_3.MaxLineLength = -1
+        Me.txtCBAM_MonatPausch_Paket_3.MaxLines_Warning = ""
+        Me.txtCBAM_MonatPausch_Paket_3.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_MonatPausch_Paket_3.Name = "txtCBAM_MonatPausch_Paket_3"
+        Me.txtCBAM_MonatPausch_Paket_3.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_MonatPausch_Paket_3.TabIndex = 44
+        '
+        'txtCBAM_Onboarding_Paket_3
+        '
+        Me.txtCBAM_Onboarding_Paket_3._DateTimeOnly = False
+        Me.txtCBAM_Onboarding_Paket_3._numbersOnly = True
+        Me.txtCBAM_Onboarding_Paket_3._numbersOnlyKommastellen = ""
+        Me.txtCBAM_Onboarding_Paket_3._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_Onboarding_Paket_3._Prozent = False
+        Me.txtCBAM_Onboarding_Paket_3._ShortDateNew = False
+        Me.txtCBAM_Onboarding_Paket_3._ShortDateOnly = False
+        Me.txtCBAM_Onboarding_Paket_3._TimeOnly = False
+        Me.txtCBAM_Onboarding_Paket_3._TimeOnly_Seconds = False
+        Me.txtCBAM_Onboarding_Paket_3._value = ""
+        Me.txtCBAM_Onboarding_Paket_3._Waehrung = False
+        Me.txtCBAM_Onboarding_Paket_3._WaehrungZeichen = True
+        Me.txtCBAM_Onboarding_Paket_3.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_Onboarding_Paket_3.Location = New System.Drawing.Point(666, 146)
+        Me.txtCBAM_Onboarding_Paket_3.MaxLineLength = -1
+        Me.txtCBAM_Onboarding_Paket_3.MaxLines_Warning = ""
+        Me.txtCBAM_Onboarding_Paket_3.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_Onboarding_Paket_3.Name = "txtCBAM_Onboarding_Paket_3"
+        Me.txtCBAM_Onboarding_Paket_3.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_Onboarding_Paket_3.TabIndex = 43
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(457, 130)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(156, 13)
+        Me.Label7.TabIndex = 46
+        Me.Label7.Text = "Offert Paket ""CBAM Standard"":"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(663, 130)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(153, 13)
+        Me.Label9.TabIndex = 47
+        Me.Label9.Text = "Offert Paket ""CBAM Premium"":"
+        '
+        'txtVertragsbeginn
+        '
+        Me.txtVertragsbeginn._DateTimeOnly = False
+        Me.txtVertragsbeginn._numbersOnly = False
+        Me.txtVertragsbeginn._numbersOnlyKommastellen = ""
+        Me.txtVertragsbeginn._numbersOnlyTrennzeichen = True
+        Me.txtVertragsbeginn._Prozent = False
+        Me.txtVertragsbeginn._ShortDateNew = True
+        Me.txtVertragsbeginn._ShortDateOnly = False
+        Me.txtVertragsbeginn._TimeOnly = False
+        Me.txtVertragsbeginn._TimeOnly_Seconds = False
+        Me.txtVertragsbeginn._value = ""
+        Me.txtVertragsbeginn._Waehrung = False
+        Me.txtVertragsbeginn._WaehrungZeichen = True
+        Me.txtVertragsbeginn.ForeColor = System.Drawing.Color.Black
+        Me.txtVertragsbeginn.Location = New System.Drawing.Point(254, 98)
+        Me.txtVertragsbeginn.MaxLength = 10
+        Me.txtVertragsbeginn.MaxLineLength = -1
+        Me.txtVertragsbeginn.MaxLines_Warning = ""
+        Me.txtVertragsbeginn.MaxLines_Warning_Label = Nothing
+        Me.txtVertragsbeginn.Name = "txtVertragsbeginn"
+        Me.txtVertragsbeginn.Size = New System.Drawing.Size(119, 20)
+        Me.txtVertragsbeginn.TabIndex = 49
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(167, 101)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(81, 13)
+        Me.Label10.TabIndex = 48
+        Me.Label10.Text = "Vertragsbeginn:"
+        '
+        'usrcntlCBAM_direkt
+        '
+        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.txtVertragsbeginn)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_3)
+        Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_3)
+        Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_3)
+        Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_2)
+        Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_2)
+        Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_2)
+        Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_1)
+        Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_1)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.cboPaketOption)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.cboSprache)
+        Me.Controls.Add(Me.btnDown)
+        Me.Controls.Add(Me.btnUp)
+        Me.Controls.Add(Me.btnDel)
+        Me.Controls.Add(Me.pic)
+        Me.Controls.Add(Me.lblLagervertrag)
+        Me.Controls.Add(Me.txtAnsprechpartner)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_1)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.txtAdresse2)
+        Me.Controls.Add(Me.txtAdresse1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtFirma)
+        Me.Controls.Add(Me.lbl)
+        Me.Name = "usrcntlCBAM_direkt"
+        Me.Size = New System.Drawing.Size(1000, 217)
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents lbl As System.Windows.Forms.Label
+    Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btn As System.Windows.Forms.Button
+    Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents pic As System.Windows.Forms.PictureBox
+    Friend WithEvents lblLagervertrag As System.Windows.Forms.Label
+    Friend WithEvents btnDown As System.Windows.Forms.Button
+    Friend WithEvents btnUp As System.Windows.Forms.Button
+    Friend WithEvents btnDel As System.Windows.Forms.Button
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents txtCBAM_Onboarding_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cboPaketOption As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents txtCBAM_MonatPausch_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtCBAM_jeWeitere_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtCBAM_jeWeitere_Paket_2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtCBAM_MonatPausch_Paket_2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtCBAM_Onboarding_Paket_2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtCBAM_jeWeitere_Paket_3 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtCBAM_MonatPausch_Paket_3 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtCBAM_Onboarding_Paket_3 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents txtVertragsbeginn As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label10 As Label
+End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.resx

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

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.vb

@@ -0,0 +1,111 @@
+Public Class usrcntlCBAM_direkt
+    Implements FormualrInterface
+
+    Public Event CHANGED(name, value)
+    Public Event KDNR_CHANGED(kdnr)
+    Public Event DELETE(c As Control)
+    Public Event MOVE_UP(c As Control)
+    Public Event MOVE_DOWN(c As Control)
+
+    Public KdNR As Integer = -1
+    Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
+        initKdNR(kdnr)
+    End Sub
+
+    Sub initControlsHandler()
+        For Each c In Me.Controls
+            Select Case c.GetType.ToString
+                Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
+                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
+                                                                                        RaiseEvent CHANGED(c.name, c.text)
+                                                                                    End Sub
+                Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
+                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
+                                                                                                        RaiseEvent CHANGED(c.name, c._value)
+                                                                                                    End Sub
+                Case GetType(TextBox).ToString
+                    AddHandler DirectCast(c, TextBox).Leave, Sub()
+                                                                 RaiseEvent CHANGED(c.name, c.text)
+                                                             End Sub
+            End Select
+        Next
+    End Sub
+
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Dim kdsrch As New SDL.frmKundenSuche
+        'Panel1.Enabled = False
+        If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
+            If IsNumeric(kdsrch.kundenNrSearch.Text) Then
+                initKdNR(kdsrch.kundenNrSearch.Text)
+                RaiseEvent KDNR_CHANGED(KdNR)
+            End If
+        End If
+        '  Panel1.Enabled = True
+    End Sub
+
+    Public Sub initKdNR(KdNR)
+        Me.KdNR = KdNR
+        Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
+        Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
+
+        txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
+        txtAdresse1.Text = If(ADRESSE.Straße, "")
+        txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
+        'txtEmail.Text = If(ADRESSE.E_Mail, "")
+        txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
+    End Sub
+
+    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
+        RaiseEvent DELETE(Me)
+    End Sub
+
+    Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
+        RaiseEvent MOVE_UP(Me)
+    End Sub
+
+    Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
+        RaiseEvent MOVE_DOWN(Me)
+    End Sub
+
+    Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initControlsHandler()
+        cboSprache.Items.Clear()
+        cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
+        'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
+
+        cboPaketOption.Items.Clear()
+        cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Basic", "CBAM_Basic"))
+        cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Standard", "CBAM_Standard"))
+        cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Premium", "CBAM_Premium"))
+        cboPaketOption.changeItem("")
+
+        txtCBAM_Onboarding_Paket_1._value = 200
+        txtCBAM_MonatPausch_Paket_1._value = 100
+        txtCBAM_jeWeitere_Paket_1._value = 10
+
+        txtCBAM_Onboarding_Paket_2._value = 200
+        txtCBAM_MonatPausch_Paket_2._value = 175
+        txtCBAM_jeWeitere_Paket_2._value = 10
+
+        txtCBAM_Onboarding_Paket_3._value = 200
+        txtCBAM_MonatPausch_Paket_3._value = 350
+        'txtCBAM_jeWeitere_Paket_3._value = 10
+
+
+        txtVertragsbeginn.Text = "01.01." & Now.Year
+        If Now.Month > 11 Then
+            txtVertragsbeginn.Text = "01.01." & Now.AddYears(1).Year
+        End If
+        ' txtDauer.Text = Now.ToShortDateString & " - " & Now.AddYears(1).ToShortDateString
+        If KdNR > 0 Then initKdNR(KdNR)
+    End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        FormularManagerNEU.genPDF(Me, True)
+    End Sub
+
+
+End Class

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

@@ -0,0 +1,409 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrcntlCBAM_Zertifikate
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.lblLagervertrag = New System.Windows.Forms.Label()
+        Me.btnDown = New System.Windows.Forms.Button()
+        Me.btnUp = New System.Windows.Forms.Button()
+        Me.btnDel = New System.Windows.Forms.Button()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtVertragsbeginn = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.txtCBAM_ZertAufschlag_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtCBAM_jeZertBest_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(170, 37)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(78, 13)
+        Me.lbl.TabIndex = 6
+        Me.lbl.Text = "Firmenwortlaut:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(170, 56)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(48, 13)
+        Me.Label1.TabIndex = 11
+        Me.Label1.Text = "Adresse:"
+        '
+        'btn
+        '
+        Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Location = New System.Drawing.Point(937, 34)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(26, 20)
+        Me.btn.TabIndex = 8
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(559, 12)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(88, 13)
+        Me.Label8.TabIndex = 2
+        Me.Label8.Text = "Ansprechpartner:"
+        '
+        'txtAnsprechpartner
+        '
+        Me.txtAnsprechpartner._DateTimeOnly = False
+        Me.txtAnsprechpartner._numbersOnly = False
+        Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
+        Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
+        Me.txtAnsprechpartner._Prozent = False
+        Me.txtAnsprechpartner._ShortDateNew = False
+        Me.txtAnsprechpartner._ShortDateOnly = False
+        Me.txtAnsprechpartner._TimeOnly = False
+        Me.txtAnsprechpartner._TimeOnly_Seconds = False
+        Me.txtAnsprechpartner._value = Nothing
+        Me.txtAnsprechpartner._Waehrung = False
+        Me.txtAnsprechpartner._WaehrungZeichen = True
+        Me.txtAnsprechpartner.Enabled = False
+        Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
+        Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9)
+        Me.txtAnsprechpartner.MaxLineLength = -1
+        Me.txtAnsprechpartner.MaxLines_Warning = ""
+        Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing
+        Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
+        Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20)
+        Me.txtAnsprechpartner.TabIndex = 3
+        '
+        'txtAdresse2
+        '
+        Me.txtAdresse2._DateTimeOnly = False
+        Me.txtAdresse2._numbersOnly = False
+        Me.txtAdresse2._numbersOnlyKommastellen = ""
+        Me.txtAdresse2._numbersOnlyTrennzeichen = True
+        Me.txtAdresse2._Prozent = False
+        Me.txtAdresse2._ShortDateNew = False
+        Me.txtAdresse2._ShortDateOnly = False
+        Me.txtAdresse2._TimeOnly = False
+        Me.txtAdresse2._TimeOnly_Seconds = False
+        Me.txtAdresse2._value = Nothing
+        Me.txtAdresse2._Waehrung = False
+        Me.txtAdresse2._WaehrungZeichen = True
+        Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
+        Me.txtAdresse2.Location = New System.Drawing.Point(254, 72)
+        Me.txtAdresse2.MaxLineLength = -1
+        Me.txtAdresse2.MaxLines_Warning = ""
+        Me.txtAdresse2.MaxLines_Warning_Label = Nothing
+        Me.txtAdresse2.Name = "txtAdresse2"
+        Me.txtAdresse2.Size = New System.Drawing.Size(709, 20)
+        Me.txtAdresse2.TabIndex = 13
+        '
+        'txtAdresse1
+        '
+        Me.txtAdresse1._DateTimeOnly = False
+        Me.txtAdresse1._numbersOnly = False
+        Me.txtAdresse1._numbersOnlyKommastellen = ""
+        Me.txtAdresse1._numbersOnlyTrennzeichen = True
+        Me.txtAdresse1._Prozent = False
+        Me.txtAdresse1._ShortDateNew = False
+        Me.txtAdresse1._ShortDateOnly = False
+        Me.txtAdresse1._TimeOnly = False
+        Me.txtAdresse1._TimeOnly_Seconds = False
+        Me.txtAdresse1._value = Nothing
+        Me.txtAdresse1._Waehrung = False
+        Me.txtAdresse1._WaehrungZeichen = True
+        Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
+        Me.txtAdresse1.Location = New System.Drawing.Point(254, 53)
+        Me.txtAdresse1.MaxLineLength = -1
+        Me.txtAdresse1.MaxLines_Warning = ""
+        Me.txtAdresse1.MaxLines_Warning_Label = Nothing
+        Me.txtAdresse1.Name = "txtAdresse1"
+        Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
+        Me.txtAdresse1.TabIndex = 12
+        '
+        'txtFirma
+        '
+        Me.txtFirma._DateTimeOnly = False
+        Me.txtFirma._numbersOnly = False
+        Me.txtFirma._numbersOnlyKommastellen = ""
+        Me.txtFirma._numbersOnlyTrennzeichen = True
+        Me.txtFirma._Prozent = False
+        Me.txtFirma._ShortDateNew = False
+        Me.txtFirma._ShortDateOnly = False
+        Me.txtFirma._TimeOnly = False
+        Me.txtFirma._TimeOnly_Seconds = False
+        Me.txtFirma._value = Nothing
+        Me.txtFirma._Waehrung = False
+        Me.txtFirma._WaehrungZeichen = True
+        Me.txtFirma.ForeColor = System.Drawing.Color.Black
+        Me.txtFirma.Location = New System.Drawing.Point(254, 34)
+        Me.txtFirma.MaxLineLength = -1
+        Me.txtFirma.MaxLines_Warning = ""
+        Me.txtFirma.MaxLines_Warning_Label = Nothing
+        Me.txtFirma.Name = "txtFirma"
+        Me.txtFirma.Size = New System.Drawing.Size(684, 20)
+        Me.txtFirma.TabIndex = 7
+        '
+        'pic
+        '
+        Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.pic.Location = New System.Drawing.Point(5, 5)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(32, 32)
+        Me.pic.TabIndex = 32
+        Me.pic.TabStop = False
+        '
+        'lblLagervertrag
+        '
+        Me.lblLagervertrag.AutoSize = True
+        Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9)
+        Me.lblLagervertrag.Name = "lblLagervertrag"
+        Me.lblLagervertrag.Size = New System.Drawing.Size(120, 20)
+        Me.lblLagervertrag.TabIndex = 1
+        Me.lblLagervertrag.Text = "CBAM - direkt"
+        '
+        'btnDown
+        '
+        Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
+        Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDown.Location = New System.Drawing.Point(976, 42)
+        Me.btnDown.Name = "btnDown"
+        Me.btnDown.Size = New System.Drawing.Size(25, 21)
+        Me.btnDown.TabIndex = 9
+        Me.btnDown.UseVisualStyleBackColor = True
+        '
+        'btnUp
+        '
+        Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
+        Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnUp.Location = New System.Drawing.Point(976, 22)
+        Me.btnUp.Name = "btnUp"
+        Me.btnUp.Size = New System.Drawing.Size(25, 21)
+        Me.btnUp.TabIndex = 4
+        Me.btnUp.UseVisualStyleBackColor = True
+        '
+        'btnDel
+        '
+        Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
+        Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDel.Location = New System.Drawing.Point(976, -1)
+        Me.btnDel.Name = "btnDel"
+        Me.btnDel.Size = New System.Drawing.Size(25, 21)
+        Me.btnDel.TabIndex = 0
+        Me.btnDel.UseVisualStyleBackColor = True
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(44, 37)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(50, 13)
+        Me.Label12.TabIndex = 5
+        Me.Label12.Text = "Sprache:"
+        '
+        'cboSprache
+        '
+        Me.cboSprache._allowedValuesFreiText = Nothing
+        Me.cboSprache._allowFreiText = False
+        Me.cboSprache._value = ""
+        Me.cboSprache.FormattingEnabled = True
+        Me.cboSprache.Location = New System.Drawing.Point(47, 53)
+        Me.cboSprache.Name = "cboSprache"
+        Me.cboSprache.Size = New System.Drawing.Size(89, 21)
+        Me.cboSprache.TabIndex = 10
+        '
+        'txtVertragsbeginn
+        '
+        Me.txtVertragsbeginn._DateTimeOnly = False
+        Me.txtVertragsbeginn._numbersOnly = False
+        Me.txtVertragsbeginn._numbersOnlyKommastellen = ""
+        Me.txtVertragsbeginn._numbersOnlyTrennzeichen = True
+        Me.txtVertragsbeginn._Prozent = False
+        Me.txtVertragsbeginn._ShortDateNew = True
+        Me.txtVertragsbeginn._ShortDateOnly = False
+        Me.txtVertragsbeginn._TimeOnly = False
+        Me.txtVertragsbeginn._TimeOnly_Seconds = False
+        Me.txtVertragsbeginn._value = ""
+        Me.txtVertragsbeginn._Waehrung = False
+        Me.txtVertragsbeginn._WaehrungZeichen = True
+        Me.txtVertragsbeginn.ForeColor = System.Drawing.Color.Black
+        Me.txtVertragsbeginn.Location = New System.Drawing.Point(254, 98)
+        Me.txtVertragsbeginn.MaxLength = 10
+        Me.txtVertragsbeginn.MaxLineLength = -1
+        Me.txtVertragsbeginn.MaxLines_Warning = ""
+        Me.txtVertragsbeginn.MaxLines_Warning_Label = Nothing
+        Me.txtVertragsbeginn.Name = "txtVertragsbeginn"
+        Me.txtVertragsbeginn.Size = New System.Drawing.Size(119, 20)
+        Me.txtVertragsbeginn.TabIndex = 49
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(170, 101)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(81, 13)
+        Me.Label10.TabIndex = 48
+        Me.Label10.Text = "Vertragsbeginn:"
+        '
+        'txtCBAM_ZertAufschlag_Paket_1
+        '
+        Me.txtCBAM_ZertAufschlag_Paket_1._DateTimeOnly = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnly = True
+        Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyKommastellen = ""
+        Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_ZertAufschlag_Paket_1._Prozent = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateNew = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateOnly = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly_Seconds = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._value = ""
+        Me.txtCBAM_ZertAufschlag_Paket_1._Waehrung = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._WaehrungZeichen = True
+        Me.txtCBAM_ZertAufschlag_Paket_1.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_ZertAufschlag_Paket_1.Location = New System.Drawing.Point(254, 145)
+        Me.txtCBAM_ZertAufschlag_Paket_1.MaxLineLength = -1
+        Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning = ""
+        Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_ZertAufschlag_Paket_1.Name = "txtCBAM_ZertAufschlag_Paket_1"
+        Me.txtCBAM_ZertAufschlag_Paket_1.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_ZertAufschlag_Paket_1.TabIndex = 56
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(170, 148)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(68, 13)
+        Me.Label11.TabIndex = 55
+        Me.Label11.Text = "Aufschlag %:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(170, 128)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(80, 13)
+        Me.Label3.TabIndex = 54
+        Me.Label3.Text = "Zert.bestellung:"
+        '
+        'txtCBAM_jeZertBest_Paket_1
+        '
+        Me.txtCBAM_jeZertBest_Paket_1._DateTimeOnly = False
+        Me.txtCBAM_jeZertBest_Paket_1._numbersOnly = True
+        Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyKommastellen = ""
+        Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_jeZertBest_Paket_1._Prozent = False
+        Me.txtCBAM_jeZertBest_Paket_1._ShortDateNew = False
+        Me.txtCBAM_jeZertBest_Paket_1._ShortDateOnly = False
+        Me.txtCBAM_jeZertBest_Paket_1._TimeOnly = False
+        Me.txtCBAM_jeZertBest_Paket_1._TimeOnly_Seconds = False
+        Me.txtCBAM_jeZertBest_Paket_1._value = ""
+        Me.txtCBAM_jeZertBest_Paket_1._Waehrung = False
+        Me.txtCBAM_jeZertBest_Paket_1._WaehrungZeichen = True
+        Me.txtCBAM_jeZertBest_Paket_1.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_jeZertBest_Paket_1.Location = New System.Drawing.Point(254, 125)
+        Me.txtCBAM_jeZertBest_Paket_1.MaxLineLength = -1
+        Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning = ""
+        Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_jeZertBest_Paket_1.Name = "txtCBAM_jeZertBest_Paket_1"
+        Me.txtCBAM_jeZertBest_Paket_1.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_jeZertBest_Paket_1.TabIndex = 53
+        '
+        'usrcntlCBAM_Zertifikate
+        '
+        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.txtCBAM_ZertAufschlag_Paket_1)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.txtCBAM_jeZertBest_Paket_1)
+        Me.Controls.Add(Me.txtVertragsbeginn)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.cboSprache)
+        Me.Controls.Add(Me.btnDown)
+        Me.Controls.Add(Me.btnUp)
+        Me.Controls.Add(Me.btnDel)
+        Me.Controls.Add(Me.pic)
+        Me.Controls.Add(Me.lblLagervertrag)
+        Me.Controls.Add(Me.txtAnsprechpartner)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.txtAdresse2)
+        Me.Controls.Add(Me.txtAdresse1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtFirma)
+        Me.Controls.Add(Me.lbl)
+        Me.Name = "usrcntlCBAM_Zertifikate"
+        Me.Size = New System.Drawing.Size(1000, 182)
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents lbl As System.Windows.Forms.Label
+    Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btn As System.Windows.Forms.Button
+    Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents pic As System.Windows.Forms.PictureBox
+    Friend WithEvents lblLagervertrag As System.Windows.Forms.Label
+    Friend WithEvents btnDown As System.Windows.Forms.Button
+    Friend WithEvents btnUp As System.Windows.Forms.Button
+    Friend WithEvents btnDel As System.Windows.Forms.Button
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtVertragsbeginn As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents txtCBAM_ZertAufschlag_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtCBAM_jeZertBest_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.resx

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

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.vb

@@ -0,0 +1,94 @@
+Public Class usrcntlCBAM_Zertifikate
+    Implements FormualrInterface
+
+    Public Event CHANGED(name, value)
+    Public Event KDNR_CHANGED(kdnr)
+    Public Event DELETE(c As Control)
+    Public Event MOVE_UP(c As Control)
+    Public Event MOVE_DOWN(c As Control)
+
+    Public KdNR As Integer = -1
+    Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
+        initKdNR(kdnr)
+    End Sub
+
+    Sub initControlsHandler()
+        For Each c In Me.Controls
+            Select Case c.GetType.ToString
+                Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
+                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
+                                                                                        RaiseEvent CHANGED(c.name, c.text)
+                                                                                    End Sub
+                Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
+                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
+                                                                                                        RaiseEvent CHANGED(c.name, c._value)
+                                                                                                    End Sub
+                Case GetType(TextBox).ToString
+                    AddHandler DirectCast(c, TextBox).Leave, Sub()
+                                                                 RaiseEvent CHANGED(c.name, c.text)
+                                                             End Sub
+            End Select
+        Next
+    End Sub
+
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Dim kdsrch As New SDL.frmKundenSuche
+        'Panel1.Enabled = False
+        If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
+            If IsNumeric(kdsrch.kundenNrSearch.Text) Then
+                initKdNR(kdsrch.kundenNrSearch.Text)
+                RaiseEvent KDNR_CHANGED(KdNR)
+            End If
+        End If
+        '  Panel1.Enabled = True
+    End Sub
+
+    Public Sub initKdNR(KdNR)
+        Me.KdNR = KdNR
+        Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
+        Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
+
+        txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
+        txtAdresse1.Text = If(ADRESSE.Straße, "")
+        txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
+        'txtEmail.Text = If(ADRESSE.E_Mail, "")
+        txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
+    End Sub
+
+    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
+        RaiseEvent DELETE(Me)
+    End Sub
+
+    Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
+        RaiseEvent MOVE_UP(Me)
+    End Sub
+
+    Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
+        RaiseEvent MOVE_DOWN(Me)
+    End Sub
+
+    Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initControlsHandler()
+        cboSprache.Items.Clear()
+        cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
+
+        txtCBAM_jeZertBest_Paket_1._value = 50
+        txtCBAM_ZertAufschlag_Paket_1._value = 10
+
+
+        txtVertragsbeginn.Text = "01.01." & Now.Year
+        If Now.Month > 11 Then
+            txtVertragsbeginn.Text = "01.01." & Now.AddYears(1).Year
+        End If
+
+        If KdNR > 0 Then initKdNR(KdNR)
+    End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        FormularManagerNEU.genPDF(Me, True)
+    End Sub
+
+
+End Class

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

@@ -0,0 +1,536 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrcntlCBAM_indirekt
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.lblLagervertrag = New System.Windows.Forms.Label()
+        Me.btnDown = New System.Windows.Forms.Button()
+        Me.btnUp = New System.Windows.Forms.Button()
+        Me.btnDel = New System.Windows.Forms.Button()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtCBAM_Onboarding_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.txtCBAM_MonatPausch_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCBAM_jeWeitere_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtCBAM_jeZertBest_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVertragsbeginn = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.txtCBAM_ZertAufschlag_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(170, 37)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(78, 13)
+        Me.lbl.TabIndex = 6
+        Me.lbl.Text = "Firmenwortlaut:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(170, 56)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(48, 13)
+        Me.Label1.TabIndex = 11
+        Me.Label1.Text = "Adresse:"
+        '
+        'btn
+        '
+        Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Location = New System.Drawing.Point(937, 34)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(26, 20)
+        Me.btn.TabIndex = 8
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(559, 12)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(88, 13)
+        Me.Label8.TabIndex = 2
+        Me.Label8.Text = "Ansprechpartner:"
+        '
+        'txtAnsprechpartner
+        '
+        Me.txtAnsprechpartner._DateTimeOnly = False
+        Me.txtAnsprechpartner._numbersOnly = False
+        Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
+        Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
+        Me.txtAnsprechpartner._Prozent = False
+        Me.txtAnsprechpartner._ShortDateNew = False
+        Me.txtAnsprechpartner._ShortDateOnly = False
+        Me.txtAnsprechpartner._TimeOnly = False
+        Me.txtAnsprechpartner._TimeOnly_Seconds = False
+        Me.txtAnsprechpartner._value = Nothing
+        Me.txtAnsprechpartner._Waehrung = False
+        Me.txtAnsprechpartner._WaehrungZeichen = True
+        Me.txtAnsprechpartner.Enabled = False
+        Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
+        Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9)
+        Me.txtAnsprechpartner.MaxLineLength = -1
+        Me.txtAnsprechpartner.MaxLines_Warning = ""
+        Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing
+        Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
+        Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20)
+        Me.txtAnsprechpartner.TabIndex = 3
+        '
+        'txtAdresse2
+        '
+        Me.txtAdresse2._DateTimeOnly = False
+        Me.txtAdresse2._numbersOnly = False
+        Me.txtAdresse2._numbersOnlyKommastellen = ""
+        Me.txtAdresse2._numbersOnlyTrennzeichen = True
+        Me.txtAdresse2._Prozent = False
+        Me.txtAdresse2._ShortDateNew = False
+        Me.txtAdresse2._ShortDateOnly = False
+        Me.txtAdresse2._TimeOnly = False
+        Me.txtAdresse2._TimeOnly_Seconds = False
+        Me.txtAdresse2._value = Nothing
+        Me.txtAdresse2._Waehrung = False
+        Me.txtAdresse2._WaehrungZeichen = True
+        Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
+        Me.txtAdresse2.Location = New System.Drawing.Point(254, 72)
+        Me.txtAdresse2.MaxLineLength = -1
+        Me.txtAdresse2.MaxLines_Warning = ""
+        Me.txtAdresse2.MaxLines_Warning_Label = Nothing
+        Me.txtAdresse2.Name = "txtAdresse2"
+        Me.txtAdresse2.Size = New System.Drawing.Size(709, 20)
+        Me.txtAdresse2.TabIndex = 13
+        '
+        'txtAdresse1
+        '
+        Me.txtAdresse1._DateTimeOnly = False
+        Me.txtAdresse1._numbersOnly = False
+        Me.txtAdresse1._numbersOnlyKommastellen = ""
+        Me.txtAdresse1._numbersOnlyTrennzeichen = True
+        Me.txtAdresse1._Prozent = False
+        Me.txtAdresse1._ShortDateNew = False
+        Me.txtAdresse1._ShortDateOnly = False
+        Me.txtAdresse1._TimeOnly = False
+        Me.txtAdresse1._TimeOnly_Seconds = False
+        Me.txtAdresse1._value = Nothing
+        Me.txtAdresse1._Waehrung = False
+        Me.txtAdresse1._WaehrungZeichen = True
+        Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
+        Me.txtAdresse1.Location = New System.Drawing.Point(254, 53)
+        Me.txtAdresse1.MaxLineLength = -1
+        Me.txtAdresse1.MaxLines_Warning = ""
+        Me.txtAdresse1.MaxLines_Warning_Label = Nothing
+        Me.txtAdresse1.Name = "txtAdresse1"
+        Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
+        Me.txtAdresse1.TabIndex = 12
+        '
+        'txtFirma
+        '
+        Me.txtFirma._DateTimeOnly = False
+        Me.txtFirma._numbersOnly = False
+        Me.txtFirma._numbersOnlyKommastellen = ""
+        Me.txtFirma._numbersOnlyTrennzeichen = True
+        Me.txtFirma._Prozent = False
+        Me.txtFirma._ShortDateNew = False
+        Me.txtFirma._ShortDateOnly = False
+        Me.txtFirma._TimeOnly = False
+        Me.txtFirma._TimeOnly_Seconds = False
+        Me.txtFirma._value = Nothing
+        Me.txtFirma._Waehrung = False
+        Me.txtFirma._WaehrungZeichen = True
+        Me.txtFirma.ForeColor = System.Drawing.Color.Black
+        Me.txtFirma.Location = New System.Drawing.Point(254, 34)
+        Me.txtFirma.MaxLineLength = -1
+        Me.txtFirma.MaxLines_Warning = ""
+        Me.txtFirma.MaxLines_Warning_Label = Nothing
+        Me.txtFirma.Name = "txtFirma"
+        Me.txtFirma.Size = New System.Drawing.Size(684, 20)
+        Me.txtFirma.TabIndex = 7
+        '
+        'pic
+        '
+        Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.pic.Location = New System.Drawing.Point(5, 5)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(32, 32)
+        Me.pic.TabIndex = 32
+        Me.pic.TabStop = False
+        '
+        'lblLagervertrag
+        '
+        Me.lblLagervertrag.AutoSize = True
+        Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9)
+        Me.lblLagervertrag.Name = "lblLagervertrag"
+        Me.lblLagervertrag.Size = New System.Drawing.Size(236, 20)
+        Me.lblLagervertrag.TabIndex = 1
+        Me.lblLagervertrag.Text = "CBAM - indirekt + Zertifikate"
+        '
+        'btnDown
+        '
+        Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
+        Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDown.Location = New System.Drawing.Point(976, 42)
+        Me.btnDown.Name = "btnDown"
+        Me.btnDown.Size = New System.Drawing.Size(25, 21)
+        Me.btnDown.TabIndex = 9
+        Me.btnDown.UseVisualStyleBackColor = True
+        '
+        'btnUp
+        '
+        Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
+        Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnUp.Location = New System.Drawing.Point(976, 22)
+        Me.btnUp.Name = "btnUp"
+        Me.btnUp.Size = New System.Drawing.Size(25, 21)
+        Me.btnUp.TabIndex = 4
+        Me.btnUp.UseVisualStyleBackColor = True
+        '
+        'btnDel
+        '
+        Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
+        Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDel.Location = New System.Drawing.Point(976, -1)
+        Me.btnDel.Name = "btnDel"
+        Me.btnDel.Size = New System.Drawing.Size(25, 21)
+        Me.btnDel.TabIndex = 0
+        Me.btnDel.UseVisualStyleBackColor = True
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(44, 37)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(50, 13)
+        Me.Label12.TabIndex = 5
+        Me.Label12.Text = "Sprache:"
+        '
+        'cboSprache
+        '
+        Me.cboSprache._allowedValuesFreiText = Nothing
+        Me.cboSprache._allowFreiText = False
+        Me.cboSprache._value = ""
+        Me.cboSprache.FormattingEnabled = True
+        Me.cboSprache.Location = New System.Drawing.Point(47, 53)
+        Me.cboSprache.Name = "cboSprache"
+        Me.cboSprache.Size = New System.Drawing.Size(89, 21)
+        Me.cboSprache.TabIndex = 10
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(251, 126)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(36, 13)
+        Me.Label5.TabIndex = 18
+        Me.Label5.Text = "Offert:"
+        '
+        'txtCBAM_Onboarding_Paket_1
+        '
+        Me.txtCBAM_Onboarding_Paket_1._DateTimeOnly = False
+        Me.txtCBAM_Onboarding_Paket_1._numbersOnly = True
+        Me.txtCBAM_Onboarding_Paket_1._numbersOnlyKommastellen = ""
+        Me.txtCBAM_Onboarding_Paket_1._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_Onboarding_Paket_1._Prozent = False
+        Me.txtCBAM_Onboarding_Paket_1._ShortDateNew = False
+        Me.txtCBAM_Onboarding_Paket_1._ShortDateOnly = False
+        Me.txtCBAM_Onboarding_Paket_1._TimeOnly = False
+        Me.txtCBAM_Onboarding_Paket_1._TimeOnly_Seconds = False
+        Me.txtCBAM_Onboarding_Paket_1._value = ""
+        Me.txtCBAM_Onboarding_Paket_1._Waehrung = False
+        Me.txtCBAM_Onboarding_Paket_1._WaehrungZeichen = True
+        Me.txtCBAM_Onboarding_Paket_1.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_Onboarding_Paket_1.Location = New System.Drawing.Point(254, 142)
+        Me.txtCBAM_Onboarding_Paket_1.MaxLineLength = -1
+        Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning = ""
+        Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_Onboarding_Paket_1.Name = "txtCBAM_Onboarding_Paket_1"
+        Me.txtCBAM_Onboarding_Paket_1.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_Onboarding_Paket_1.TabIndex = 19
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(170, 165)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(81, 13)
+        Me.Label3.TabIndex = 35
+        Me.Label3.Text = "Monatl.Pausch:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(170, 185)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(81, 13)
+        Me.Label4.TabIndex = 36
+        Me.Label4.Text = "Je weitere Lief.:"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(170, 145)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 37
+        Me.Label6.Text = "Onboarding:"
+        '
+        'txtCBAM_MonatPausch_Paket_1
+        '
+        Me.txtCBAM_MonatPausch_Paket_1._DateTimeOnly = False
+        Me.txtCBAM_MonatPausch_Paket_1._numbersOnly = True
+        Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyKommastellen = ""
+        Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_MonatPausch_Paket_1._Prozent = False
+        Me.txtCBAM_MonatPausch_Paket_1._ShortDateNew = False
+        Me.txtCBAM_MonatPausch_Paket_1._ShortDateOnly = False
+        Me.txtCBAM_MonatPausch_Paket_1._TimeOnly = False
+        Me.txtCBAM_MonatPausch_Paket_1._TimeOnly_Seconds = False
+        Me.txtCBAM_MonatPausch_Paket_1._value = ""
+        Me.txtCBAM_MonatPausch_Paket_1._Waehrung = False
+        Me.txtCBAM_MonatPausch_Paket_1._WaehrungZeichen = True
+        Me.txtCBAM_MonatPausch_Paket_1.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_MonatPausch_Paket_1.Location = New System.Drawing.Point(254, 162)
+        Me.txtCBAM_MonatPausch_Paket_1.MaxLineLength = -1
+        Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning = ""
+        Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_MonatPausch_Paket_1.Name = "txtCBAM_MonatPausch_Paket_1"
+        Me.txtCBAM_MonatPausch_Paket_1.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_MonatPausch_Paket_1.TabIndex = 38
+        '
+        'txtCBAM_jeWeitere_Paket_1
+        '
+        Me.txtCBAM_jeWeitere_Paket_1._DateTimeOnly = False
+        Me.txtCBAM_jeWeitere_Paket_1._numbersOnly = True
+        Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyKommastellen = ""
+        Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_jeWeitere_Paket_1._Prozent = False
+        Me.txtCBAM_jeWeitere_Paket_1._ShortDateNew = False
+        Me.txtCBAM_jeWeitere_Paket_1._ShortDateOnly = False
+        Me.txtCBAM_jeWeitere_Paket_1._TimeOnly = False
+        Me.txtCBAM_jeWeitere_Paket_1._TimeOnly_Seconds = False
+        Me.txtCBAM_jeWeitere_Paket_1._value = ""
+        Me.txtCBAM_jeWeitere_Paket_1._Waehrung = False
+        Me.txtCBAM_jeWeitere_Paket_1._WaehrungZeichen = True
+        Me.txtCBAM_jeWeitere_Paket_1.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_jeWeitere_Paket_1.Location = New System.Drawing.Point(254, 182)
+        Me.txtCBAM_jeWeitere_Paket_1.MaxLineLength = -1
+        Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning = ""
+        Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_jeWeitere_Paket_1.Name = "txtCBAM_jeWeitere_Paket_1"
+        Me.txtCBAM_jeWeitere_Paket_1.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_jeWeitere_Paket_1.TabIndex = 39
+        '
+        'txtCBAM_jeZertBest_Paket_1
+        '
+        Me.txtCBAM_jeZertBest_Paket_1._DateTimeOnly = False
+        Me.txtCBAM_jeZertBest_Paket_1._numbersOnly = True
+        Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyKommastellen = ""
+        Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_jeZertBest_Paket_1._Prozent = False
+        Me.txtCBAM_jeZertBest_Paket_1._ShortDateNew = False
+        Me.txtCBAM_jeZertBest_Paket_1._ShortDateOnly = False
+        Me.txtCBAM_jeZertBest_Paket_1._TimeOnly = False
+        Me.txtCBAM_jeZertBest_Paket_1._TimeOnly_Seconds = False
+        Me.txtCBAM_jeZertBest_Paket_1._value = ""
+        Me.txtCBAM_jeZertBest_Paket_1._Waehrung = False
+        Me.txtCBAM_jeZertBest_Paket_1._WaehrungZeichen = True
+        Me.txtCBAM_jeZertBest_Paket_1.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_jeZertBest_Paket_1.Location = New System.Drawing.Point(544, 142)
+        Me.txtCBAM_jeZertBest_Paket_1.MaxLineLength = -1
+        Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning = ""
+        Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_jeZertBest_Paket_1.Name = "txtCBAM_jeZertBest_Paket_1"
+        Me.txtCBAM_jeZertBest_Paket_1.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_jeZertBest_Paket_1.TabIndex = 42
+        '
+        'txtVertragsbeginn
+        '
+        Me.txtVertragsbeginn._DateTimeOnly = False
+        Me.txtVertragsbeginn._numbersOnly = False
+        Me.txtVertragsbeginn._numbersOnlyKommastellen = ""
+        Me.txtVertragsbeginn._numbersOnlyTrennzeichen = True
+        Me.txtVertragsbeginn._Prozent = False
+        Me.txtVertragsbeginn._ShortDateNew = True
+        Me.txtVertragsbeginn._ShortDateOnly = False
+        Me.txtVertragsbeginn._TimeOnly = False
+        Me.txtVertragsbeginn._TimeOnly_Seconds = False
+        Me.txtVertragsbeginn._value = ""
+        Me.txtVertragsbeginn._Waehrung = False
+        Me.txtVertragsbeginn._WaehrungZeichen = True
+        Me.txtVertragsbeginn.ForeColor = System.Drawing.Color.Black
+        Me.txtVertragsbeginn.Location = New System.Drawing.Point(257, 98)
+        Me.txtVertragsbeginn.MaxLength = 10
+        Me.txtVertragsbeginn.MaxLineLength = -1
+        Me.txtVertragsbeginn.MaxLines_Warning = ""
+        Me.txtVertragsbeginn.MaxLines_Warning_Label = Nothing
+        Me.txtVertragsbeginn.Name = "txtVertragsbeginn"
+        Me.txtVertragsbeginn.Size = New System.Drawing.Size(119, 20)
+        Me.txtVertragsbeginn.TabIndex = 49
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(170, 101)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(81, 13)
+        Me.Label10.TabIndex = 48
+        Me.Label10.Text = "Vertragsbeginn:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(460, 145)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(80, 13)
+        Me.Label2.TabIndex = 50
+        Me.Label2.Text = "Zert.bestellung:"
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(460, 165)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(68, 13)
+        Me.Label11.TabIndex = 51
+        Me.Label11.Text = "Aufschlag %:"
+        '
+        'txtCBAM_ZertAufschlag_Paket_1
+        '
+        Me.txtCBAM_ZertAufschlag_Paket_1._DateTimeOnly = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnly = True
+        Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyKommastellen = ""
+        Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyTrennzeichen = True
+        Me.txtCBAM_ZertAufschlag_Paket_1._Prozent = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateNew = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateOnly = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly_Seconds = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._value = ""
+        Me.txtCBAM_ZertAufschlag_Paket_1._Waehrung = False
+        Me.txtCBAM_ZertAufschlag_Paket_1._WaehrungZeichen = True
+        Me.txtCBAM_ZertAufschlag_Paket_1.ForeColor = System.Drawing.Color.Black
+        Me.txtCBAM_ZertAufschlag_Paket_1.Location = New System.Drawing.Point(544, 162)
+        Me.txtCBAM_ZertAufschlag_Paket_1.MaxLineLength = -1
+        Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning = ""
+        Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning_Label = Nothing
+        Me.txtCBAM_ZertAufschlag_Paket_1.Name = "txtCBAM_ZertAufschlag_Paket_1"
+        Me.txtCBAM_ZertAufschlag_Paket_1.Size = New System.Drawing.Size(200, 20)
+        Me.txtCBAM_ZertAufschlag_Paket_1.TabIndex = 52
+        '
+        'usrcntlCBAM_indirekt
+        '
+        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.txtCBAM_ZertAufschlag_Paket_1)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.txtVertragsbeginn)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.txtCBAM_jeZertBest_Paket_1)
+        Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_1)
+        Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_1)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.cboSprache)
+        Me.Controls.Add(Me.btnDown)
+        Me.Controls.Add(Me.btnUp)
+        Me.Controls.Add(Me.btnDel)
+        Me.Controls.Add(Me.pic)
+        Me.Controls.Add(Me.lblLagervertrag)
+        Me.Controls.Add(Me.txtAnsprechpartner)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_1)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.txtAdresse2)
+        Me.Controls.Add(Me.txtAdresse1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtFirma)
+        Me.Controls.Add(Me.lbl)
+        Me.Name = "usrcntlCBAM_indirekt"
+        Me.Size = New System.Drawing.Size(1000, 221)
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents lbl As System.Windows.Forms.Label
+    Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents btn As System.Windows.Forms.Button
+    Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents pic As System.Windows.Forms.PictureBox
+    Friend WithEvents lblLagervertrag As System.Windows.Forms.Label
+    Friend WithEvents btnDown As System.Windows.Forms.Button
+    Friend WithEvents btnUp As System.Windows.Forms.Button
+    Friend WithEvents btnDel As System.Windows.Forms.Button
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents txtCBAM_Onboarding_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents txtCBAM_MonatPausch_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtCBAM_jeWeitere_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtCBAM_jeZertBest_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtVertragsbeginn As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents txtCBAM_ZertAufschlag_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.resx

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

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.vb

@@ -0,0 +1,101 @@
+Public Class usrcntlCBAM_indirekt
+    Implements FormualrInterface
+
+    Public Event CHANGED(name, value)
+    Public Event KDNR_CHANGED(kdnr)
+    Public Event DELETE(c As Control)
+    Public Event MOVE_UP(c As Control)
+    Public Event MOVE_DOWN(c As Control)
+
+    Public KdNR As Integer = -1
+    Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
+        initKdNR(kdnr)
+    End Sub
+
+    Sub initControlsHandler()
+        For Each c In Me.Controls
+            Select Case c.GetType.ToString
+                Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
+                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
+                                                                                        RaiseEvent CHANGED(c.name, c.text)
+                                                                                    End Sub
+                Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
+                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
+                                                                                                        RaiseEvent CHANGED(c.name, c._value)
+                                                                                                    End Sub
+                Case GetType(TextBox).ToString
+                    AddHandler DirectCast(c, TextBox).Leave, Sub()
+                                                                 RaiseEvent CHANGED(c.name, c.text)
+                                                             End Sub
+            End Select
+        Next
+    End Sub
+
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Dim kdsrch As New SDL.frmKundenSuche
+        'Panel1.Enabled = False
+        If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
+            If IsNumeric(kdsrch.kundenNrSearch.Text) Then
+                initKdNR(kdsrch.kundenNrSearch.Text)
+                RaiseEvent KDNR_CHANGED(KdNR)
+            End If
+        End If
+        '  Panel1.Enabled = True
+    End Sub
+
+    Public Sub initKdNR(KdNR)
+        Me.KdNR = KdNR
+        Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
+        Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
+
+        txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
+        txtAdresse1.Text = If(ADRESSE.Straße, "")
+        txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
+        'txtEmail.Text = If(ADRESSE.E_Mail, "")
+        txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
+    End Sub
+
+    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
+        RaiseEvent DELETE(Me)
+    End Sub
+
+    Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
+        RaiseEvent MOVE_UP(Me)
+    End Sub
+
+    Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
+        RaiseEvent MOVE_DOWN(Me)
+    End Sub
+
+    Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initControlsHandler()
+        cboSprache.Items.Clear()
+        cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
+        cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
+
+
+        txtCBAM_Onboarding_Paket_1._value = 200
+        txtCBAM_MonatPausch_Paket_1._value = 175
+        txtCBAM_jeWeitere_Paket_1._value = 10
+
+        txtCBAM_jeZertBest_Paket_1._value = 50
+        txtCBAM_ZertAufschlag_Paket_1._value = 10
+
+
+        txtVertragsbeginn.Text = "01.01." & Now.Year
+        If Now.Month > 11 Then
+            txtVertragsbeginn.Text = "01.01." & Now.AddYears(1).Year
+        End If
+
+        'txtDauer.Text = Now.ToShortDateString & " - " & Now.AddYears(1).ToShortDateString
+        If KdNR > 0 Then initKdNR(KdNR)
+    End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        FormularManagerNEU.genPDF(Me, True)
+    End Sub
+
+
+End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb

@@ -78,6 +78,36 @@
         initControlsHandler()
 
           Select VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX"
+                cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
+                cboFirma.changeItem("IMEX")
+                MyComboBox1.Items.Clear()
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
+                'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
+                ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
+                'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
+                ' End If
+                MyComboBox1.changeItem("VZ")
+            Case "UNISPED"
+                cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "UNISPED"))
+                cboFirma.changeItem("UNISPED")
+                MyComboBox1.Items.Clear()
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
+                'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
+                ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
+                'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
+                ' End If
+                MyComboBox1.changeItem("VZ")
             Case "IMEX"
                 cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
                 cboFirma.changeItem("IMEX")
@@ -270,6 +300,124 @@
                                 dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
                                 dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
 
+                            Case "EUST"
+                                DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                        End Select
+                    Case "UNISPED"
+                        Select Case MyComboBox1._value
+                            Case "VZ"
+                                ' Translated English code
+                                DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at 1st clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(20).ToString("C2"))
+                                ' dgvZusatzleistung.Rows.Add("", "348", "Additional costs foreign border", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Additional costs vegetables, pharmaceuticals, food", "upon request")
+                                dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(30).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
+
+                                dgvZusatzleistung.Rows.Add("", "", "Surcharge return goods clearance/active processing", CDbl(20).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "Surcharge pharmaceuticals or food", CDbl(25).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch document", CDbl(25).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "T1 Transit Document", CDbl(15).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
+                            Case "VZ_EV_EN"
+                                DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Additional costs for foreign border", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Goods location clearance", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "upon request")
+                                dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(30).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
+
+                            Case "VZ_FISKAL"
+                                DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(270).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(15).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
+
+                            Case "VZ_FISKAL_DE"
+                                DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+
+                            Case "VZ_SPECIAL_1"
+                                DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+
+                            Case "VZ_SPECIAL_2"
+                                DataGridView.Rows.Add(cnt, "", "Customs clearance for food bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(25).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+
                             Case "EUST"
                                 DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
                                 DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
@@ -735,6 +883,179 @@
                                 dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
 
 
+                        End Select
+                    Case "UNISPED"
+                        Select Case MyComboBox1._value
+                            Case "VZ"
+                                DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                               ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(20).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                                ' dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %")
+
+                                dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
+                        '   dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
+
+                            Case "VZ_EV"
+                                DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                '  DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                '  DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+                                ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                                '   dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %")
+                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
+
+                      '  cboFirma.changeItem("CS")
+                            Case "VZ_RW" 'NICHT MEHR!
+                                DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(245).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
+                                '    dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+
+                            Case "VZ_FISKAL"
+
+                                DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(270).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(15).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                '   DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                '   DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+                                ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
+
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
+
+                       ' cboFirma.changeItem("CS")
+
+                            Case "VZ_FISKAL_DE"
+
+                                DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                '   DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                '   DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+                                ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
+
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                                ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
+                                ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
+
+                       ' cboFirma.changeItem("AG")
+
+                            Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel"
+                                DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+
+                                dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+
+                            Case "VZ_SPECIAL_2" '"VZ Backwaren"
+                                DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+
+                                dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+
+                            Case "EUST"
+
+                                DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+
+
                         End Select
                     Case "AMBAR"
                         Select Case MyComboBox1._value

SDL/Formulare/KDFormulare/frmFormulare.Designer.vb

@@ -25,15 +25,16 @@ Partial Class frmFormulare
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormulare))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.tabAllgemein = New System.Windows.Forms.TabPage()
+        Me.tabCBAM = New System.Windows.Forms.TabPage()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.cboVorlage = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.MyListBox2 = New VERAG_PROG_ALLGEMEIN.MyListBox()
-        Me.Label2 = New System.Windows.Forms.Label()
         Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen = New System.Windows.Forms.CheckBox()
         Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
-        Me.Label1 = New System.Windows.Forms.Label()
         Me.lblFormularManager = New System.Windows.Forms.Label()
         Me.pnlBody = New System.Windows.Forms.Panel()
         Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
@@ -51,6 +52,7 @@ Partial Class frmFormulare
         Me.Button2 = New System.Windows.Forms.Button()
         Me.btn = New System.Windows.Forms.Button()
         Me.pnl.SuspendLayout()
+        Me.TabControl1.SuspendLayout()
         Me.pnlBody.SuspendLayout()
         Me.pnlBottom.SuspendLayout()
         Me.SuspendLayout()
@@ -58,22 +60,52 @@ Partial Class frmFormulare
         'pnl
         '
         Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.Controls.Add(Me.TabControl1)
         Me.pnl.Controls.Add(Me.Label4)
         Me.pnl.Controls.Add(Me.cboVorlage)
         Me.pnl.Controls.Add(Me.Label3)
         Me.pnl.Controls.Add(Me.Button3)
         Me.pnl.Controls.Add(Me.MyListBox2)
-        Me.pnl.Controls.Add(Me.Label2)
         Me.pnl.Controls.Add(Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen)
         Me.pnl.Controls.Add(Me.MyListBox1)
-        Me.pnl.Controls.Add(Me.Label1)
         Me.pnl.Controls.Add(Me.lblFormularManager)
         Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(1326, 125)
+        Me.pnl.Size = New System.Drawing.Size(1326, 166)
         Me.pnl.TabIndex = 0
         '
+        'TabControl1
+        '
+        Me.TabControl1.Controls.Add(Me.tabAllgemein)
+        Me.TabControl1.Controls.Add(Me.tabCBAM)
+        Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.TabControl1.Location = New System.Drawing.Point(343, 3)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(896, 25)
+        Me.TabControl1.TabIndex = 10
+        '
+        'tabAllgemein
+        '
+        Me.tabAllgemein.Location = New System.Drawing.Point(4, 29)
+        Me.tabAllgemein.Name = "tabAllgemein"
+        Me.tabAllgemein.Padding = New System.Windows.Forms.Padding(3)
+        Me.tabAllgemein.Size = New System.Drawing.Size(888, 0)
+        Me.tabAllgemein.TabIndex = 0
+        Me.tabAllgemein.Text = "Allgemein"
+        Me.tabAllgemein.UseVisualStyleBackColor = True
+        '
+        'tabCBAM
+        '
+        Me.tabCBAM.Location = New System.Drawing.Point(4, 29)
+        Me.tabCBAM.Name = "tabCBAM"
+        Me.tabCBAM.Padding = New System.Windows.Forms.Padding(3)
+        Me.tabCBAM.Size = New System.Drawing.Size(888, 0)
+        Me.tabCBAM.TabIndex = 1
+        Me.tabCBAM.Text = "CBAM"
+        Me.tabCBAM.UseVisualStyleBackColor = True
+        '
         'Label4
         '
         Me.Label4.AutoSize = True
@@ -100,7 +132,7 @@ Partial Class frmFormulare
         '
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(1239, 10)
+        Me.Label3.Location = New System.Drawing.Point(1243, 34)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(86, 13)
         Me.Label3.TabIndex = 3
@@ -113,7 +145,7 @@ Partial Class frmFormulare
         Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.Button3.FlatAppearance.BorderSize = 0
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Location = New System.Drawing.Point(1243, 37)
+        Me.Button3.Location = New System.Drawing.Point(1247, 52)
         Me.Button3.Margin = New System.Windows.Forms.Padding(5)
         Me.Button3.Name = "Button3"
         Me.Button3.Padding = New System.Windows.Forms.Padding(5)
@@ -127,27 +159,17 @@ Partial Class frmFormulare
         Me.MyListBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.MyListBox2.FormattingEnabled = True
         Me.MyListBox2.ItemHeight = 16
-        Me.MyListBox2.Location = New System.Drawing.Point(810, 23)
+        Me.MyListBox2.Location = New System.Drawing.Point(810, 34)
         Me.MyListBox2.Name = "MyListBox2"
-        Me.MyListBox2.Size = New System.Drawing.Size(429, 100)
+        Me.MyListBox2.Size = New System.Drawing.Size(429, 132)
         Me.MyListBox2.TabIndex = 7
         '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(807, 7)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(151, 13)
-        Me.Label2.TabIndex = 2
-        Me.Label2.Text = "Weitere Formulare hinzufügen:"
-        '
         'cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen
         '
         Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.AutoSize = True
         Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Checked = True
         Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Location = New System.Drawing.Point(15, 103)
+        Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Location = New System.Drawing.Point(15, 143)
         Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Name = "cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen"
         Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Size = New System.Drawing.Size(322, 17)
         Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.TabIndex = 9
@@ -160,21 +182,11 @@ Partial Class frmFormulare
         Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.MyListBox1.FormattingEnabled = True
         Me.MyListBox1.ItemHeight = 16
-        Me.MyListBox1.Location = New System.Drawing.Point(343, 23)
+        Me.MyListBox1.Location = New System.Drawing.Point(343, 34)
         Me.MyListBox1.Name = "MyListBox1"
-        Me.MyListBox1.Size = New System.Drawing.Size(461, 100)
+        Me.MyListBox1.Size = New System.Drawing.Size(461, 132)
         Me.MyListBox1.TabIndex = 6
         '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(340, 7)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(111, 13)
-        Me.Label1.TabIndex = 1
-        Me.Label1.Text = "Vollmacht hinzufügen:"
-        '
         'lblFormularManager
         '
         Me.lblFormularManager.AutoSize = True
@@ -192,9 +204,9 @@ Partial Class frmFormulare
         Me.pnlBody.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.pnlBody.Controls.Add(Me.MyFlowLayoutPanel1)
         Me.pnlBody.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.pnlBody.Location = New System.Drawing.Point(0, 125)
+        Me.pnlBody.Location = New System.Drawing.Point(0, 166)
         Me.pnlBody.Name = "pnlBody"
-        Me.pnlBody.Size = New System.Drawing.Size(1326, 611)
+        Me.pnlBody.Size = New System.Drawing.Size(1326, 570)
         Me.pnlBody.TabIndex = 1
         '
         'MyFlowLayoutPanel1
@@ -207,7 +219,7 @@ Partial Class frmFormulare
         Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
         Me.MyFlowLayoutPanel1.MinimumSize = New System.Drawing.Size(1000, 100)
         Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
-        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(1324, 609)
+        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(1324, 568)
         Me.MyFlowLayoutPanel1.TabIndex = 0
         '
         'pnlBottom
@@ -406,6 +418,7 @@ Partial Class frmFormulare
         Me.Text = "Formulare"
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
+        Me.TabControl1.ResumeLayout(False)
         Me.pnlBody.ResumeLayout(False)
         Me.pnlBody.PerformLayout()
         Me.pnlBottom.ResumeLayout(False)
@@ -419,13 +432,11 @@ Partial Class frmFormulare
     Friend WithEvents lblFormularManager As System.Windows.Forms.Label
     Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
     Friend WithEvents MyListBox1 As VERAG_PROG_ALLGEMEIN.MyListBox
-    Friend WithEvents Label1 As System.Windows.Forms.Label
     Friend WithEvents cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen As System.Windows.Forms.CheckBox
     Friend WithEvents btnPrint As System.Windows.Forms.Button
     Friend WithEvents btn As System.Windows.Forms.Button
     Friend WithEvents Button2 As System.Windows.Forms.Button
     Friend WithEvents MyListBox2 As VERAG_PROG_ALLGEMEIN.MyListBox
-    Friend WithEvents Label2 As System.Windows.Forms.Label
     Friend WithEvents Label3 As System.Windows.Forms.Label
     Friend WithEvents Button3 As System.Windows.Forms.Button
     Friend WithEvents Label4 As System.Windows.Forms.Label
@@ -439,4 +450,7 @@ Partial Class frmFormulare
     Friend WithEvents Label8 As Label
     Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label7 As Label
+    Friend WithEvents TabControl1 As TabControl
+    Friend WithEvents tabAllgemein As TabPage
+    Friend WithEvents tabCBAM As TabPage
 End Class

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -11,6 +11,8 @@ Imports VERAG_PROG_ALLGEMEIN
 Imports com.sun.tools.internal.ws.wsdl.document.mime
 Imports com.sun.xml.internal.ws.message.stream
 Imports com.sun.org.apache.xerces.internal.xs
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
+Imports DAKOSY_Worker.VERAG_KundenStamm_Export
 
 Public Class frmFormulare
     Dim isSingleForm = False
@@ -173,6 +175,10 @@ Public Class frmFormulare
         Return thisIp.ToString
     End Function
 
+    Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
+        initFormulareList()
+    End Sub
+
     Private Sub frmFormulare_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         'Dim IPs As Net.IPAddress = Net.Dns.GetHostEntry(My.Computer.Name).AddressList(0)
@@ -188,6 +194,40 @@ Public Class frmFormulare
 
         cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung])  FROM [tblTextkonserve]  where [txt_kategorie] ='FRM_MNGR_MailText' and txt_dynMailvorlage = 0  and [txt_FIRMA]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", False, "FMZOLL", True)
 
+
+        initFormulareList()
+
+        initDrucker(cboPrinter)
+
+        If isSingleForm Then
+            pnl.Enabled = False
+        End If
+    End Sub
+
+    Sub initFormulareList()
+        MyListBox1.Items.Clear()
+        MyListBox2.Items.Clear()
+
+        Select Case TabControl1.SelectedTab.Name
+            Case "tabCBAM"
+                MyListBox1.Visible = True
+                MyListBox2.Visible = False
+
+                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                    Case "IMEX"
+                    Case "AMBAR"
+                    Case "ATILLA"
+                    Case "VERAG"
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Service direkt", FormularManagerArten.CBAM))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Zertifikate", FormularManagerArten.CBAM_Zertifikate))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM indirekt + Zertifikate", FormularManagerArten.CBAM_indirekt))
+                    Case Else
+                End Select
+            Case Else
+
+                MyListBox1.Visible = True
+                MyListBox2.Visible = True
+
                 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                     Case "IMEX"
 
@@ -260,6 +300,49 @@ Public Class frmFormulare
                         cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
                         cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
 
+                    Case "UNISPED"
+
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt))
+
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
+
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_UNISPED))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht FA", FormularManagerArten.Vollmacht_FA))
+
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
+
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag))
+
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
+
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
+                        ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
+
+
+
+
+                        cboVorlage.Items.Clear()
+                        cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+                        cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
+                        cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal))
+                        cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT))
+                        cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal))
                     Case Else
                         If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
                             MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
@@ -314,18 +397,8 @@ Public Class frmFormulare
                         End If
                 End Select
 
+        End Select
 
-
-        'MyListBox1.fillWithMyListItem()
-
-
-
-
-        initDrucker(cboPrinter)
-
-        If isSingleForm Then
-            pnl.Enabled = False
-        End If
     End Sub
 
     Sub initFlowLPHeight()
@@ -881,6 +954,43 @@ Public Class frmFormulare
                         MyFlowLayoutPanel1.Controls.Add(c)
                     End If
 
+                Case FormularManagerArten.CBAM
+                    Dim c As New usrcntlCBAM_direkt
+                    If ControlExists_addOK(c.GetType.ToString) Then
+                        c.Width = MyFlowLayoutPanel1.Width - 6
+                        c.KdNR = KdNr
+                        AddHandler c.CHANGED, AddressOf ValueChanged
+                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
+                        AddHandler c.DELETE, AddressOf ControlDELETE
+                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
+                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
+                        MyFlowLayoutPanel1.Controls.Add(c)
+                    End If
+                Case FormularManagerArten.CBAM_Zertifikate
+                    Dim c As New usrcntlCBAM_Zertifikate
+                    If ControlExists_addOK(c.GetType.ToString) Then
+                        c.Width = MyFlowLayoutPanel1.Width - 6
+                        c.KdNR = KdNr
+                        AddHandler c.CHANGED, AddressOf ValueChanged
+                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
+                        AddHandler c.DELETE, AddressOf ControlDELETE
+                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
+                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
+                        MyFlowLayoutPanel1.Controls.Add(c)
+                    End If
+                Case FormularManagerArten.CBAM_indirekt
+                    Dim c As New usrcntlCBAM_indirekt
+                    If ControlExists_addOK(c.GetType.ToString) Then
+                        c.Width = MyFlowLayoutPanel1.Width - 6
+                        c.KdNR = KdNr
+                        AddHandler c.CHANGED, AddressOf ValueChanged
+                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
+                        AddHandler c.DELETE, AddressOf ControlDELETE
+                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
+                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
+                        MyFlowLayoutPanel1.Controls.Add(c)
+                    End If
+
 
                 Case Else '"VUB_AG", "VUB_CS"
                     Dim displayName = ""
@@ -1516,6 +1626,15 @@ Public Class FormularManagerNEU
             Case GetType(usrcntLagervertrag).ToString
                 retStr = FormularManagerNEU.LAGERVERTRAG(c)
 
+            Case GetType(usrcntlCBAM_direkt).ToString
+                retStr = FormularManagerNEU.CBAM(c)
+
+            Case GetType(usrcntlCBAM_Zertifikate).ToString
+                retStr = FormularManagerNEU.CBAM_Zertifikate(c)
+
+            Case GetType(usrcntlCBAM_indirekt).ToString
+                retStr = FormularManagerNEU.CBAM_indirekt(c)
+
 
         End Select
         If retStr <> "" Then
@@ -1582,48 +1701,18 @@ Public Class FormularManagerNEU
 
 
     Shared Function LAGERVERTRAG(usrCntl As usrcntLagervertrag) As String
-
-        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
-        'Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
-
-        'Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
-
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, 74, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-
-        'Dim top = 0
-        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
-        '    top = 25
-        'End If
-
-        'Select Case usrCntl.cboSprache._value
-        '    Case "EN"
-        '        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
-        '    Case Else
-        '        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite)
-        'End Select
-        'Return ""
-
-
-        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
         Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
 
         Dim Top = -10
         Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
 
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
 
 
 
@@ -1637,6 +1726,121 @@ Public Class FormularManagerNEU
         Return ""
 
 
+    End Function
+
+
+    'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Service direkt", FormularManagerArten.CBAM))
+    'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Zertifikate", FormularManagerArten.CBAM_Zertifikate))
+    'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM indirekt + Zertifikate", FormularManagerArten.CBAM_indirekt))
+
+    Shared Function CBAM(usrCntl As usrcntlCBAM_direkt) As String
+        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        Dim Top = 0
+        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+        '   listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        Select Case usrCntl.cboPaketOption._value
+            Case "CBAM_Basic" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 42.3, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
+            Case "CBAM_Standard" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 114, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
+            Case "CBAM_Premium" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 177.5, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2))
+        End Select
+
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 54, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 62, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 95, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_2._value, True), 168, Top + 125.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_2._value, True), 168, Top + 133, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_2._value, True), 168, Top + 159, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_3._value, True), 168, Top + 189, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_3._value, True), 168, Top + 197, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_3._value,True), 175, Top + 96, 18, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+
+
+
+        '   Dim firma=getUO2()
+        Select Case usrCntl.cboSprache._value
+            Case "EN"
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM", listTowrite)
+            Case Else
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM", listTowrite)
+        End Select
+        Return ""
+
+
+    End Function
+    Shared Function CBAM_Zertifikate(usrCntl As usrcntlCBAM_Zertifikate) As String
+        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        Dim Top = 0
+        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+        '   listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+
+
+        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))
+
+
+
+
+
+        Select Case usrCntl.cboSprache._value
+            Case "EN"
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_Zertifikate", listTowrite)
+            Case Else
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_Zertifikate", listTowrite)
+        End Select
+        Return ""
+
+
+    End Function
+    Shared Function CBAM_indirekt(usrCntl As usrcntlCBAM_indirekt) As String
+        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+
+        Dim Top = 0
+        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+
+        '   listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 60.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 63.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 66.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 45, Top + 47.4, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 49.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 58.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 99, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 110, 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 + 114.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2))
+
+
+
+        '   Dim firma=getUO2()
+        Select Case usrCntl.cboSprache._value
+            Case "EN"
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt_EN", listTowrite)
+            Case Else
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt", listTowrite)
+        End Select
+        Return ""
+
+
+
     End Function
     Shared Function VM_De(usrCntl As usrcntlVollmacht_DE) As String
 
@@ -1758,7 +1962,7 @@ Public Class FormularManagerNEU
                     Case "ceo_birthcountry" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Geburtsland.Text))
                     Case "ceo_passportvaliduntil" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Passgueltigbis.Text))
 
-                    Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", "")))
+                    Case "Function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", "")))
                     Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
                     Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
                     Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
@@ -1859,7 +2063,7 @@ Public Class FormularManagerNEU
                         Case "private_no" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "Off", "On")))
                         Case "private_yes" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "On", "Off")))
 
-                    'soll nur bei aktv. Flag "private Firma" angedruckt werden!
+                    'soll nur bei aktv. Flag "Private Firma" angedruckt werden!
                         Case "ceo_place_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Ort.Text, "")))
                         Case "ceo_street_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Adresse.Text, "")))
                         Case "ceo_country_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.cbx_GF_Land._value, "")))
@@ -1872,7 +2076,7 @@ Public Class FormularManagerNEU
                         Case "ceo_birthplace_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Geburtsort.Text, "")))
                         Case "ceo_birthcountry_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.cbx_GF_Geburtsland.Text, "")))
 
-                    'soll nur bei deaktv. Flag "private Firma" angedruckt werden!
+                    'soll nur bei deaktv. Flag "Private Firma" angedruckt werden!
                         Case "name_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtFirma.Text, "")))
                         Case "strasse_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtAdresse1.Text, "")))
                         Case "company_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtFirma.Text, "")))
@@ -1888,13 +2092,13 @@ Public Class FormularManagerNEU
                         Case "ceo_birthplace" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Geburtsort.Text))
                         Case "ceo_birthcountry" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Geburtsland.Text))
                         Case "ceo_passportvaliduntil" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Passgueltigbis.Text))
-                        Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_nachname.Text <> "", functionCEO, "")))
+                        Case "Function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_nachname.Text <> "", functionCEO, "")))
                         Case "ceo_surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_nachname.Text))
                         Case "ceo_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_vorname.Text))
 
                         Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
                         Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txtOrt.Text <> "" AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.txtOrt.Text, "")))
-                        Case "date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
+                        Case "Date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")))
                         Case "capital" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value))
                         Case "crnumber" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHRNr.Text))
 
@@ -1909,10 +2113,10 @@ Public Class FormularManagerNEU
                         Case "c_fax" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Telefax))
                         Case "c_mailcontact" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtEmailzurueck.Text))
                         Case "c_bank" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Bankverbindung1))
-                        Case "c_iban" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "")))
+                        Case "c_iban" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "")))
-                        Case "c_bic" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_BIC1.Replace("BIC:", "")))
+                        Case "c_bic" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_BIC1.Replace("BIC", "")))
-                        Case "c_kontonr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(13, 7)))
+                        Case "c_kontonr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "").Replace(" ", "").ToString.Trim().Substring(13, 7)))
-                        Case "c_blz" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(3, 5)))
+                        Case "c_blz" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "").Replace(" ", "").ToString.Trim().Substring(3, 5)))
 
                         Case "date_day" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(0, 2), "")))
                         Case "date_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(3, 2), "")))
@@ -2056,11 +2260,11 @@ Public Class FormularManagerNEU
                         Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmailzurueck.Text
                         Case "c_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1
 
-                        Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
+                        Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN", "")
-                        Case "c_iban1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
+                        Case "c_iban1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN", "")
 
-                        Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
+                        Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC", "")
-                        Case "c_bic1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
+                        Case "c_bic1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC", "")
 
                         Case "c_place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")
                         Case "c_date" : odoc.FormFields(fieldName).Range.Text = IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "")
@@ -2142,7 +2346,7 @@ Public Class FormularManagerNEU
             Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
             Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2)
             Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False)
-            Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 and bnk_hauptkonto = 0 and bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL")
+            Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 And bnk_hauptkonto = 0 And bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL")
             Dim docBez As String = ""
 
             docBez = "VOLLMACHT_" & usrCntl.cboLand._value
@@ -4866,18 +5070,27 @@ Public Class FormularManagerNEU
                     rpt.txtFirmaInfo_VERAG.Visible = False
                     rpt.txtFirmaInfo_IMEX.Visible = True
                     rpt.TextBox6.Visible = False
+                    rpt.TextBox7.Visible = False
                 Case "AMBAR"
                     rpt.txtFirmenkennung.Text = "Ambar Logistic Services GmbH"
                     rpt.picVERAG.Image = My.Resources.ambar_simple
                     rpt.txtFirmaInfo_VERAG.Visible = False
                     rpt.txtFirmaInfo_IMEX.Visible = False
                     rpt.TextBox6.Visible = True
+                    rpt.TextBox7.Visible = False
+                Case "UNISPED"
+                    rpt.txtFirmenkennung.Text = "UNISPED Speditions GmbH"
+                    rpt.picVERAG.Image = My.Resources.Unisped_logo
+                    rpt.txtFirmaInfo_VERAG.Visible = False
+                    rpt.txtFirmaInfo_IMEX.Visible = False
+                    rpt.TextBox7.Visible = True
                 Case "ATILLA"
                     rpt.txtFirmenkennung.Text = "ATILLA Spedition GmbH"
                     rpt.picVERAG.Image = My.Resources.Atilla
                     rpt.txtFirmaInfo_VERAG.Visible = False
                     rpt.txtFirmaInfo_ATILLA.Visible = True
                     rpt.TextBox6.Visible = False
+                    rpt.TextBox7.Visible = False
                 Case Else 'Nix 
                     rpt.txtFirmaInfo_VERAG.Visible = True
             End Select
@@ -6420,6 +6633,26 @@ Public Class FormularManagerNEU
             Case Else : Return ""
         End Select
     End Function
+    Public Shared Function formatAmountEUR(value As Object, addEUR As Boolean) As String
+        If value Is Nothing Then Return ""
+        If value = "" Then Return ""
+        If IsNumeric(value) Then
+            Return If(addEUR, "EUR ", "") & CDbl(value).ToString("N2")
+        Else
+            Return value.ToString
+        End If
+        Return ""
+    End Function
+    Public Shared Function formatProz(value As Object, Optional kommast As Integer = 2) As String
+        If value Is Nothing Then Return ""
+        If value = "" Then Return ""
+        If IsNumeric(value) Then
+            Return CDbl(value).ToString("N" & kommast) & "%"
+        Else
+            Return value.ToString
+        End If
+        Return ""
+    End Function
 
     Shared Function saveCreditreform(usrCntl As usrcntlCreditreformBoniAuskunft) As Boolean
         Try
@@ -6890,6 +7123,7 @@ Public Class FormularManagerArten
     Shared Property VERAG_EXPORT = "VERAG_EXPORT"
     Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"
     Shared Property VUB = "VUB"
+    Shared Property VUB_UNISPED = "VUB_UNISPED"
     Shared Property VUB_AG = "VUB_AG"
     Shared Property VUB_IMEX = "VUB_IMEX"
     Shared Property VUB_CS = "VUB_CS"
@@ -6916,6 +7150,11 @@ Public Class FormularManagerArten
     Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
     Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014"
     Shared Property Lagervertrag = "Lagervertrag"
+    Shared Property CBAM = "CBAM"
+    Shared Property CBAM_Zertifikate = "CBAM_Zertifikate"
+    Shared Property CBAM_indirekt = "CBAM_indirekt"
+
+
 
 End Class
 

SDL/SDL.vbproj

@@ -775,6 +775,24 @@
     <Compile Include="Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.vb">
       <SubType>Component</SubType>
     </Compile>
+    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.Designer.vb">
+      <DependentUpon>usrcntlCBAM_indirekt.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Zertifikate.Designer.vb">
+      <DependentUpon>usrcntlCBAM_Zertifikate.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Zertifikate.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM.Designer.vb">
+      <DependentUpon>usrcntlCBAM.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.Designer.vb">
       <DependentUpon>usrcntlEORI_Antrag.vb</DependentUpon>
     </Compile>
@@ -3490,6 +3508,15 @@
     <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.resx">
       <DependentUpon>subRptLaufzettelZollDE_Vorpapier.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.resx">
+      <DependentUpon>usrcntlCBAM_indirekt.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Zertifikate.resx">
+      <DependentUpon>usrcntlCBAM_Zertifikate.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM.resx">
+      <DependentUpon>usrcntlCBAM.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.resx">
       <DependentUpon>usrcntlEORI_Antrag.vb</DependentUpon>
     </EmbeddedResource>

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -1032,7 +1032,6 @@ Public Class cFormularManager
             Else
                 path_src = vorhandenesLokalesPDF_Path
             End If
-
             Dim fi As New System.IO.DirectoryInfo(path_src)
             Dim destPath = ""
             destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, True, False)