CBAM Checkliste

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

@@ -0,0 +1,297 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrcntlCBAM_Checkliste
+    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()
+        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.Enabled = False
+        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.Enabled = False
+        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.Enabled = False
+        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(158, 20)
+        Me.lblLagervertrag.TabIndex = 1
+        Me.lblLagervertrag.Text = "CBAM - Checkliste"
+        '
+        '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
+        '
+        'usrcntlCBAM_Checkliste
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.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_Checkliste"
+        Me.Size = New System.Drawing.Size(1000, 105)
+        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
+End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Checkliste.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_Checkliste.vb

@@ -0,0 +1,89 @@
+Public Class usrcntlCBAM_Checkliste
+    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"))
+
+
+
+        ' 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

@@ -194,9 +194,9 @@ Partial Class usrcntlCBAM_Zertifikate
         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.Size = New System.Drawing.Size(157, 20)
         Me.lblLagervertrag.TabIndex = 1
-        Me.lblLagervertrag.Text = "CBAM - direkt"
+        Me.lblLagervertrag.Text = "CBAM - Zertifikate"
         '
         'btnDown
         '

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -218,9 +218,10 @@ Public Class frmFormulare
                     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 direkt Kunden", 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))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Checkliste", FormularManagerArten.CBAM_Checkliste))
                     Case Else
                 End Select
             Case Else
@@ -978,6 +979,18 @@ Public Class frmFormulare
                         AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                         MyFlowLayoutPanel1.Controls.Add(c)
                     End If
+                Case FormularManagerArten.CBAM_Checkliste
+                    Dim c As New usrcntlCBAM_Checkliste
+                    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
@@ -1632,6 +1645,10 @@ Public Class FormularManagerNEU
             Case GetType(usrcntlCBAM_Zertifikate).ToString
                 retStr = FormularManagerNEU.CBAM_Zertifikate(c)
 
+
+            Case GetType(usrcntlCBAM_Checkliste).ToString
+                retStr = FormularManagerNEU.CBAM_Checkliste(c)
+
             Case GetType(usrcntlCBAM_indirekt).ToString
                 retStr = FormularManagerNEU.CBAM_indirekt(c)
 
@@ -1807,6 +1824,38 @@ Public Class FormularManagerNEU
         Return ""
 
 
+    End Function
+    Shared Function CBAM_Checkliste(usrCntl As usrcntlCBAM_Checkliste) 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_Checkliste", listTowrite)
+            Case Else
+                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_Checkliste", listTowrite)
+        End Select
+        Return ""
+
+
     End Function
     Shared Function CBAM_indirekt(usrCntl As usrcntlCBAM_indirekt) As String
         Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -7153,6 +7202,7 @@ Public Class FormularManagerArten
     Shared Property CBAM = "CBAM"
     Shared Property CBAM_Zertifikate = "CBAM_Zertifikate"
     Shared Property CBAM_indirekt = "CBAM_indirekt"
+    Shared Property CBAM_Checkliste = "CBAM_Checkliste"
 
 
 

SDL/SDL.vbproj

@@ -775,6 +775,12 @@
     <Compile Include="Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.vb">
       <SubType>Component</SubType>
     </Compile>
+    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Checkliste.Designer.vb">
+      <DependentUpon>usrcntlCBAM_Checkliste.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Checkliste.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.Designer.vb">
       <DependentUpon>usrcntlCBAM_indirekt.vb</DependentUpon>
     </Compile>
@@ -3508,6 +3514,9 @@
     <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.resx">
       <DependentUpon>subRptLaufzettelZollDE_Vorpapier.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Checkliste.resx">
+      <DependentUpon>usrcntlCBAM_Checkliste.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.resx">
       <DependentUpon>usrcntlCBAM_indirekt.vb</DependentUpon>
     </EmbeddedResource>