Revert "commit"

SDL/mdm/SDLLeistungenDetails/cValidationSDLLeistungen.vb

@@ -0,0 +1,70 @@
+Imports System.Globalization
+
+Public Class cValidationSDLLeistungen
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+
+    Sub setFalse(o)
+        Try
+            If o.GetType.Name = "TextBox" Then
+                o.BackColor = Color.Red
+                o.ForeColor = Color.White
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
+    Sub setTrue(o)
+        Try
+            If o.GetType.Name = "TextBox" Then
+                o.BackColor = Color.White
+                o.ForeColor = Color.Black
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+
+    Function checkValidDate(ByVal o As Object, Optional empty As Boolean = False) As Boolean
+        If empty And o.Text = "" Then Return True
+        'If o.length < 10 Then Return True
+        Try
+            DateTime.ParseExact(o.Text, "dd.MM.yyyy", culture)
+            setTrue(o)
+            Return True
+        Catch ex As Exception
+            setFalse(o)
+            Return False
+        End Try
+    End Function
+
+    Function checkValidDate2(ByVal o As VERAG_PROG_ALLGEMEIN.DateTimePickerEx, Optional empty As Boolean = False) As Boolean
+        If o.Checked = False Then Return True
+        ' If empty And o.Text = "" Then Return True
+        'If o.length < 10 Then Return True
+        Try
+            DateTime.ParseExact(o.Text, "dd.MM.yyyy", culture)
+            setTrue(o)
+            Return True
+        Catch ex As Exception
+            setFalse(o)
+            Return False
+        End Try
+    End Function
+
+
+    Function checkValidDateEnd(ByVal o As Object, Optional empty As Boolean = False) As Boolean
+        If empty And o.Text = "" Then Return True
+
+        Try
+            DateTime.ParseExact(o.Text, "dd.MM.yyyy", culture)
+            setTrue(o)
+            Return True
+        Catch ex As Exception
+            setFalse(o)
+            Return False
+        End Try
+    End Function
+
+
+End Class

SDL/mdm/SDLLeistungenDetails/frmChangeLKW.Designer.vb

@@ -0,0 +1,157 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmChangeLKW
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular ü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.pnl = New System.Windows.Forms.Panel()
+        Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.cbxFurAlleLeistungenUbernehmen = New System.Windows.Forms.CheckBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.btnAbbrechen = New System.Windows.Forms.Button()
+        Me.cboLKW = New System.Windows.Forms.ComboBox()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.pnl.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.FlatButton2)
+        Me.pnl.Controls.Add(Me.cbxFurAlleLeistungenUbernehmen)
+        Me.pnl.Controls.Add(Me.Label3)
+        Me.pnl.Controls.Add(Me.btnAbbrechen)
+        Me.pnl.Controls.Add(Me.cboLKW)
+        Me.pnl.Controls.Add(Me.btnOK)
+        Me.pnl.Controls.Add(Me.lbl)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(244, 139)
+        Me.pnl.TabIndex = 0
+        '
+        'FlatButton2
+        '
+        Me.FlatButton2.allowBorder = False
+        Me.FlatButton2.FlatAppearance.BorderSize = 0
+        Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton2.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton2.Image = Global.SDL.My.Resources.plus
+        Me.FlatButton2.Location = New System.Drawing.Point(187, 36)
+        Me.FlatButton2.Name = "FlatButton2"
+        Me.FlatButton2.Size = New System.Drawing.Size(29, 23)
+        Me.FlatButton2.TabIndex = 15
+        Me.FlatButton2.UseVisualStyleBackColor = True
+        '
+        'cbxFurAlleLeistungenUbernehmen
+        '
+        Me.cbxFurAlleLeistungenUbernehmen.AutoSize = True
+        Me.cbxFurAlleLeistungenUbernehmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxFurAlleLeistungenUbernehmen.Location = New System.Drawing.Point(7, 66)
+        Me.cbxFurAlleLeistungenUbernehmen.Name = "cbxFurAlleLeistungenUbernehmen"
+        Me.cbxFurAlleLeistungenUbernehmen.Size = New System.Drawing.Size(223, 17)
+        Me.cbxFurAlleLeistungenUbernehmen.TabIndex = 7
+        Me.cbxFurAlleLeistungenUbernehmen.Text = "Für LKW und alle Leistungen übernehmen"
+        Me.cbxFurAlleLeistungenUbernehmen.UseVisualStyleBackColor = True
+        Me.cbxFurAlleLeistungenUbernehmen.Visible = False
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.Color.White
+        Me.Label3.ForeColor = System.Drawing.Color.Black
+        Me.Label3.Location = New System.Drawing.Point(4, 41)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(34, 13)
+        Me.Label3.TabIndex = 13
+        Me.Label3.Text = "LKW:"
+        '
+        'btnAbbrechen
+        '
+        Me.btnAbbrechen.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btnAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAbbrechen.Location = New System.Drawing.Point(36, 89)
+        Me.btnAbbrechen.Name = "btnAbbrechen"
+        Me.btnAbbrechen.Size = New System.Drawing.Size(87, 34)
+        Me.btnAbbrechen.TabIndex = 5
+        Me.btnAbbrechen.Text = "Abbrechen"
+        Me.btnAbbrechen.UseVisualStyleBackColor = True
+        '
+        'cboLKW
+        '
+        Me.cboLKW.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboLKW.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboLKW.BackColor = System.Drawing.Color.White
+        Me.cboLKW.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboLKW.FormattingEnabled = True
+        Me.cboLKW.Location = New System.Drawing.Point(49, 36)
+        Me.cboLKW.MaxLength = 25
+        Me.cboLKW.Name = "cboLKW"
+        Me.cboLKW.Size = New System.Drawing.Size(132, 24)
+        Me.cboLKW.TabIndex = 14
+        '
+        'btnOK
+        '
+        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOK.Location = New System.Drawing.Point(129, 89)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(101, 34)
+        Me.btnOK.TabIndex = 6
+        Me.btnOK.Text = "OK"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(4, 13)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(180, 13)
+        Me.lbl.TabIndex = 0
+        Me.lbl.Text = "Bitte geben Sie den neuen LKW ein:"
+        '
+        'frmChangeLKW
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(244, 139)
+        Me.Controls.Add(Me.pnl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "frmChangeLKW"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "frmAddLKW"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents lbl As System.Windows.Forms.Label
+    Friend WithEvents btnAbbrechen As System.Windows.Forms.Button
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents cbxFurAlleLeistungenUbernehmen As System.Windows.Forms.CheckBox
+    Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents cboLKW As System.Windows.Forms.ComboBox
+End Class

SDL/mdm/SDLLeistungenDetails/frmChangeLKW.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/mdm/SDLLeistungenDetails/frmChangeLKW.vb

@@ -0,0 +1,89 @@
+Public Class frmChangeLKW
+    Public OldLkW As String = ""
+    Public SDLNr As String = ""
+    Public History As String = ""
+    Public kundenNr As String = ""
+    Public newKFZ As String = ""
+    Dim kundenSQL As New kundenSQL
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+
+        'cboLKW.Text = cboLKW.Text.ToUpper
+        'Label1.ForeColor = Color.Black
+
+        If cboLKW.Text <> "" Then
+            If OldLkW <> "" And OldLkW <> cboLKW.Text Then
+                Try
+                    Dim SQL As New SQL
+                    If cbxFurAlleLeistungenUbernehmen.Checked Then
+                        VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, OldLkW, Nothing, Nothing),
+                                                                           New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, cboLKW.Text, Nothing, Nothing))
+                        SQL.doSQL("UPDATE [LKW] SET KfzKennzeichen= '" & cboLKW.Text & "' WHERE KundenNr='" & kundenNr & "' AND  KfzKennzeichen='" & OldLkW & "'", "SDL", True)
+                        SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & cboLKW.Text & "' WHERE KundenNr='" & kundenNr & "' AND  KfzKennzeichen='" & OldLkW & "'", "SDL", True)
+                        SQL.doSQL("UPDATE [Kartenpool] SET KfzKennzeichen= '" & cboLKW.Text & "' WHERE KundenNr='" & kundenNr & "' AND  KfzKennzeichen='" & OldLkW & "'", "SDL", True)
+                        
+                    Else
+                        Dim newHist = SQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '" & kundenNr & "' AND KfzKennzeichen='" & cboLKW.Text & "' And SDLNr ='" & SDLNr & "' ", "SDL")
+                        VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, OldLkW, "SDL_" & SDLNr, "HIST_" & History),
+                                                                          New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, cboLKW.Text, "SDL_" & SDLNr, "HIST_" & newHist))
+                        SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & cboLKW.Text & "', History='" & newHist & "' WHERE KundenNr='" & kundenNr & "' AND  KfzKennzeichen='" & OldLkW & "' AND  SDLNr='" & SDLNr & "'  AND  History='" & History & "'", "SDL", True)
+                        
+                    End If
+
+                    newKFZ = cboLKW.Text
+                    Me.DialogResult = Windows.Forms.DialogResult.OK
+                    Me.Close()
+                Catch ex As Exception
+                    MsgBox(ex.Message)
+                End Try
+            Else
+                ' Label1.ForeColor = Color.Red
+                cboLKW.Focus()
+                Me.DialogResult = Windows.Forms.DialogResult.None
+            End If
+        End If
+    End Sub
+
+    Private Sub MyTextBox2_KeyDown(sender As Object, e As KeyEventArgs)
+        If e.KeyCode = Keys.Return Then
+            btnOK.PerformClick()
+        End If
+    End Sub
+
+    Private Sub frmAddLKW_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initCboLkw()
+        If OldLkW <> "" Then
+            cboLKW.Text = OldLkW
+        End If
+        cboLKW.Focus()
+    End Sub
+
+    Private Sub txtKennzeichen_LostFocus(sender As Object, e As EventArgs)
+        '   txtKennzeichen.Text = txtKennzeichen.Text.ToUpper
+    End Sub
+
+    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
+        Dim f As New frmAddLKW
+            If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
+                If f.txtKennzeichen.Text <> "" Then
+                kundenSQL.insertLKW(kundenNr, f.txtKennzeichen.Text, f.MyTextBox2.Text)
+                    initCboLkw(f.txtKennzeichen.Text)
+                Else
+                    MsgBox("Kein LKW-Kz angegeben!")
+                End If
+            End If
+    End Sub
+    Sub initCboLkw(Optional cbolkwsearch = "")
+        cboLKW.Text = ""
+        cboLKW.Items.Clear()
+        For Each s In kundenSQL.getLKWKfzByKdNr(kundenNr)
+            cboLKW.Items.Add(s)
+        Next
+        If cbolkwsearch <> "" Then
+            For Each i In cboLKW.Items
+                If i.ToString = cbolkwsearch Then cboLKW.SelectedItem = i : cbolkwsearch = "" : Exit For
+            Next
+        End If
+    End Sub
+
+End Class

SDL/mdm/SDLLeistungenDetails/frmFindNewVeragCard.Designer.vb

@@ -0,0 +1,88 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmFindNewVeragCard
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular ü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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFindNewVeragCard))
+        Me.DataGridView = New System.Windows.Forms.DataGridView()
+        Me.lblBitteWahlenSieEineFreieVERAGCard = New System.Windows.Forms.Label()
+        Me.lblLKW = New System.Windows.Forms.Label()
+        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'DataGridView
+        '
+        Me.DataGridView.AllowUserToAddRows = False
+        Me.DataGridView.AllowUserToDeleteRows = False
+        Me.DataGridView.AllowUserToResizeColumns = False
+        Me.DataGridView.AllowUserToResizeRows = False
+        Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView.Location = New System.Drawing.Point(12, 30)
+        Me.DataGridView.MultiSelect = False
+        Me.DataGridView.Name = "DataGridView"
+        Me.DataGridView.ReadOnly = True
+        Me.DataGridView.RowHeadersVisible = False
+        Me.DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.DataGridView.Size = New System.Drawing.Size(625, 552)
+        Me.DataGridView.TabIndex = 0
+        '
+        'lblBitteWahlenSieEineFreieVERAGCard
+        '
+        Me.lblBitteWahlenSieEineFreieVERAGCard.AutoSize = True
+        Me.lblBitteWahlenSieEineFreieVERAGCard.Location = New System.Drawing.Point(13, 14)
+        Me.lblBitteWahlenSieEineFreieVERAGCard.Name = "lblBitteWahlenSieEineFreieVERAGCard"
+        Me.lblBitteWahlenSieEineFreieVERAGCard.Size = New System.Drawing.Size(197, 13)
+        Me.lblBitteWahlenSieEineFreieVERAGCard.TabIndex = 1
+        Me.lblBitteWahlenSieEineFreieVERAGCard.Text = "Bitte wählen Sie eine freie VERAG-Card:"
+        '
+        'lblLKW
+        '
+        Me.lblLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblLKW.Location = New System.Drawing.Point(440, 9)
+        Me.lblLKW.Name = "lblLKW"
+        Me.lblLKW.Size = New System.Drawing.Size(197, 18)
+        Me.lblLKW.TabIndex = 2
+        Me.lblLKW.Text = "-"
+        Me.lblLKW.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'frmFindNewVeragCard
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(649, 594)
+        Me.Controls.Add(Me.lblLKW)
+        Me.Controls.Add(Me.lblBitteWahlenSieEineFreieVERAGCard)
+        Me.Controls.Add(Me.DataGridView)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmFindNewVeragCard"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "VERAG Card"
+        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents DataGridView As System.Windows.Forms.DataGridView
+    Friend WithEvents lblBitteWahlenSieEineFreieVERAGCard As System.Windows.Forms.Label
+    Friend WithEvents lblLKW As System.Windows.Forms.Label
+End Class

SDL/mdm/SDLLeistungenDetails/frmFindNewVeragCard.resx

@@ -0,0 +1,980 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
+        AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
+        OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
+        //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
+        MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
+        v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
+        jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
+        mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
+        ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
+        y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
+        4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
+        p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
+        SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
+        y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
+        MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
+        //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
+        9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
+        ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
+        ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
+        MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
+        //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
+        ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
+        1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
+        mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
+        MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
+        //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
+        //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
+        p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
+        9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
+        mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
+        //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
+        MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
+        MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
+        6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
+        ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
+        //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
+        //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
+        MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
+        mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
+        //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
+        ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
+        fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
+        ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
+        jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
+        ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
+        USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
+        NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
+        RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
+        NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
+        OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
+        USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
+        s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
+        ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
+        ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
+        ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
+        //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
+        ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
+        ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
+        ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
+        XUL/////////////////////////////////////////////////////////////////////////////
+        ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
+        //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
+        //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
+        ///////////////////////////////////////////////////////////////////////////d1tFm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
+        //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
+        //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
+        1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
+        ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
+        ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
+        ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
+        //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
+        //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
+        SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
+        ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
+        6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
+        fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////////Uy8XB
+        s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
+        //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
+        //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
+        //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
+        ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
+        mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
+        ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
+        ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
+        ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
+        //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
+        ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
+        bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
+        blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
+        //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
+        //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
+        //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
+        //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
+        v7j/////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////////////////+Mblhm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
+        ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
+        ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
+        ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
+        ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
+        ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
+        //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
+        //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
+        //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
+        ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwDm4N3/////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////39fRmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
+        ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
+        ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
+        ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
+        ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
+        p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
+        ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
+        ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
+        blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
+        //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwD39fT/////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////////////////L
+        v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
+        //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
+        //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
+        s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
+        ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
+        ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
+        ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
+        ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
+        MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
+        MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
+        //////////////////////////////////////////////////////////////////////////////+A
+        XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
+        MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        ////////////////////////////////////////////////////////////////////////////////
+        //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
+</value>
+  </data>
+</root>

SDL/mdm/SDLLeistungenDetails/frmFindNewVeragCard.vb

@@ -0,0 +1,56 @@
+Public Class frmFindNewVeragCard
+
+    Public kdNr
+    Public KfzKennzeichen
+    Public SDLNr
+    Public History
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Sub New(lkw, SDLNr)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        lblLKW.Text = lkw
+        Me.SDLNr = SDLNr
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub frmFindNewVeragCard_Load(sender As Object, e As EventArgs) Handles Me.Load
+        With DataGridView
+            .DataSource = SQL.loadDgvBySql("SELECT KundenNr,KfzKennzeichen,SDLNr,History,[KartenNr],[Bestelldatum],[Lieferdatum],[Vermerk],[Fahrer],[Ersatzkarte],[Gesperrt],[Defekt],[Verloren],[Gestohlen]  FROM [SDL]  where SDLNr=" & SDLNr & " and KundenNr <=0 order by cast(kartennr as int)", "SDL")
+            If .RowCount > 0 Then
+                .Columns("KundenNr").Visible = False
+                .Columns("KfzKennzeichen").Visible = False
+                .Columns("SDLNr").Visible = False
+                .Columns("History").Visible = False
+            End If
+        End With
+
+
+    End Sub
+
+  
+    Private Sub DataGridView_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView.CellDoubleClick
+        If DataGridView.SelectedRows.Count > 0 Then
+            kdNr = DataGridView.SelectedRows(0).Cells("KundenNr").Value
+            KfzKennzeichen = DataGridView.SelectedRows(0).Cells("KfzKennzeichen").Value
+            SDLNr = DataGridView.SelectedRows(0).Cells("SDLNr").Value
+            History = DataGridView.SelectedRows(0).Cells("History").Value
+            Me.DialogResult = Windows.Forms.DialogResult.OK
+            Me.Close()
+        End If
+        
+    End Sub
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlAllg.Designer.vb

@@ -0,0 +1,280 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlAllg
+    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.Panel1 = New System.Windows.Forms.Panel()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.txtVermerk = New System.Windows.Forms.TextBox()
+        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.lblLKWabgemeldet = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.lblLKWverkauft = New System.Windows.Forms.Label()
+        Me.lblLKWNr = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.lblErfassung = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.lblAenderung = New System.Windows.Forms.Label()
+        Me.lblSachbearb = New System.Windows.Forms.Label()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.lblKZAenderung = New System.Windows.Forms.Label()
+        Me.Panel1.SuspendLayout()
+        Me.pnl.SuspendLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.pnl)
+        Me.Panel1.Controls.Add(Me.Label6)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.lblErfassung)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.lblAenderung)
+        Me.Panel1.Controls.Add(Me.lblSachbearb)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(238, 131)
+        Me.Panel1.TabIndex = 9
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.lblKZAenderung)
+        Me.pnl.Controls.Add(Me.txtVermerk)
+        Me.pnl.Controls.Add(Me.FlatButton1)
+        Me.pnl.Controls.Add(Me.lblLKWabgemeldet)
+        Me.pnl.Controls.Add(Me.Label7)
+        Me.pnl.Controls.Add(Me.lblLKWverkauft)
+        Me.pnl.Controls.Add(Me.lblLKWNr)
+        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(238, 82)
+        Me.pnl.TabIndex = 8
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.txtVermerk.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtVermerk.Location = New System.Drawing.Point(4, 48)
+        Me.txtVermerk.Margin = New System.Windows.Forms.Padding(0)
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.ReadOnly = True
+        Me.txtVermerk.Size = New System.Drawing.Size(229, 26)
+        Me.txtVermerk.TabIndex = 10
+        '
+        'FlatButton1
+        '
+        Me.FlatButton1.allowBorder = False
+        Me.FlatButton1.BackgroundImage = Global.SDL.My.Resources.stift
+        Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.FlatButton1.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.FlatButton1.FlatAppearance.BorderSize = 0
+        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton1.ForeColor = System.Drawing.Color.BlanchedAlmond
+        Me.FlatButton1.Location = New System.Drawing.Point(215, 22)
+        Me.FlatButton1.Name = "FlatButton1"
+        Me.FlatButton1.Size = New System.Drawing.Size(18, 19)
+        Me.FlatButton1.TabIndex = 9
+        Me.FlatButton1.UseVisualStyleBackColor = True
+        '
+        'lblLKWabgemeldet
+        '
+        Me.lblLKWabgemeldet.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblLKWabgemeldet.BackColor = System.Drawing.Color.Red
+        Me.lblLKWabgemeldet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblLKWabgemeldet.ForeColor = System.Drawing.Color.White
+        Me.lblLKWabgemeldet.Location = New System.Drawing.Point(127, 0)
+        Me.lblLKWabgemeldet.Name = "lblLKWabgemeldet"
+        Me.lblLKWabgemeldet.Size = New System.Drawing.Size(111, 20)
+        Me.lblLKWabgemeldet.TabIndex = 8
+        Me.lblLKWabgemeldet.Text = "LKW abgemeldet!"
+        Me.lblLKWabgemeldet.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblLKWabgemeldet.Visible = False
+        '
+        'Label7
+        '
+        Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(1, 4)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(31, 13)
+        Me.Label7.TabIndex = 6
+        Me.Label7.Text = "LKW"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblLKWverkauft
+        '
+        Me.lblLKWverkauft.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblLKWverkauft.BackColor = System.Drawing.Color.Red
+        Me.lblLKWverkauft.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblLKWverkauft.ForeColor = System.Drawing.Color.White
+        Me.lblLKWverkauft.Location = New System.Drawing.Point(109, 0)
+        Me.lblLKWverkauft.Name = "lblLKWverkauft"
+        Me.lblLKWverkauft.Size = New System.Drawing.Size(127, 20)
+        Me.lblLKWverkauft.TabIndex = 7
+        Me.lblLKWverkauft.Text = "LKW verkauft!"
+        Me.lblLKWverkauft.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'lblLKWNr
+        '
+        Me.lblLKWNr.AutoSize = True
+        Me.lblLKWNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblLKWNr.Location = New System.Drawing.Point(0, 20)
+        Me.lblLKWNr.Name = "lblLKWNr"
+        Me.lblLKWNr.Size = New System.Drawing.Size(93, 20)
+        Me.lblLKWNr.TabIndex = 7
+        Me.lblLKWNr.Text = "SD 123 sd"
+        Me.lblLKWNr.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(2, 85)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(94, 13)
+        Me.Label6.TabIndex = 0
+        Me.Label6.Text = "Erfassungsdatum: "
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(2, 115)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(113, 13)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "letzter Sachbearbeiter:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblErfassung
+        '
+        Me.lblErfassung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblErfassung.AutoSize = True
+        Me.lblErfassung.Location = New System.Drawing.Point(126, 85)
+        Me.lblErfassung.Name = "lblErfassung"
+        Me.lblErfassung.Size = New System.Drawing.Size(10, 13)
+        Me.lblErfassung.TabIndex = 1
+        Me.lblErfassung.Text = "-"
+        Me.lblErfassung.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(2, 100)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(93, 13)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "Änderungsdatum: "
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblAenderung
+        '
+        Me.lblAenderung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblAenderung.AutoSize = True
+        Me.lblAenderung.Location = New System.Drawing.Point(126, 100)
+        Me.lblAenderung.Name = "lblAenderung"
+        Me.lblAenderung.Size = New System.Drawing.Size(10, 13)
+        Me.lblAenderung.TabIndex = 3
+        Me.lblAenderung.Text = "-"
+        Me.lblAenderung.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblSachbearb
+        '
+        Me.lblSachbearb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblSachbearb.AutoSize = True
+        Me.lblSachbearb.Location = New System.Drawing.Point(126, 115)
+        Me.lblSachbearb.Name = "lblSachbearb"
+        Me.lblSachbearb.Size = New System.Drawing.Size(10, 13)
+        Me.lblSachbearb.TabIndex = 5
+        Me.lblSachbearb.Text = "-"
+        Me.lblSachbearb.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'pic
+        '
+        Me.pic.BackColor = System.Drawing.Color.Transparent
+        Me.pic.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pic.Location = New System.Drawing.Point(0, 131)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(238, 59)
+        Me.pic.TabIndex = 9
+        Me.pic.TabStop = False
+        '
+        'lblKZAenderung
+        '
+        Me.lblKZAenderung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblKZAenderung.BackColor = System.Drawing.Color.Red
+        Me.lblKZAenderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblKZAenderung.ForeColor = System.Drawing.Color.White
+        Me.lblKZAenderung.Location = New System.Drawing.Point(38, 0)
+        Me.lblKZAenderung.Name = "lblKZAenderung"
+        Me.lblKZAenderung.Size = New System.Drawing.Size(83, 20)
+        Me.lblKZAenderung.TabIndex = 11
+        Me.lblKZAenderung.Text = "KZ Änderung"
+        Me.lblKZAenderung.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblKZAenderung.Visible = False
+        '
+        'usrCntlAllg
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.pic)
+        Me.Controls.Add(Me.Panel1)
+        Me.Name = "usrCntlAllg"
+        Me.Size = New System.Drawing.Size(238, 190)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Public WithEvents pic As System.Windows.Forms.PictureBox
+    Public WithEvents lblLKWverkauft As System.Windows.Forms.Label
+    Public WithEvents lblLKWNr As System.Windows.Forms.Label
+    Public WithEvents lblErfassung As System.Windows.Forms.Label
+    Public WithEvents lblAenderung As System.Windows.Forms.Label
+    Public WithEvents lblSachbearb As System.Windows.Forms.Label
+    Public WithEvents lblLKWabgemeldet As System.Windows.Forms.Label
+    Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents txtVermerk As System.Windows.Forms.TextBox
+    Public WithEvents lblKZAenderung As System.Windows.Forms.Label
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlAllg.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/mdm/SDLLeistungenDetails/usrCntlAllg.vb

@@ -0,0 +1,29 @@
+Public Class usrCntlAllg
+    Public kdNr As Integer = -1
+    Public SDLNr As String = ""
+    Public History As String = ""
+    Public Event LKWChanged(newKfz As String)
+    Private Sub lblLKWNr_TextChanged(sender As Object, e As EventArgs) Handles lblLKWNr.TextChanged
+        txtVermerk.Text = ""
+        Dim kundenSQL As New kundenSQL
+        Dim dt As DataTable = kundenSQL.loadDgvBySql("SELECT isnull([Verkauft],0) as Verkauft,  isnull([Abgemeldet],0) as Abgemeldet,isnull(Vermerk,'') as Vermerk, isNull(KZAenderung,0) as KZAenderung FROM [LKW] WHERE [KundenNr]=" & kdNr & " AND [KfzKennzeichen]='" & lblLKWNr.Text & "' ")
+        If dt.Rows.Count > 0 Then
+            lblLKWverkauft.Visible = dt(0)("Verkauft")
+            lblLKWabgemeldet.Visible = dt(0)("Abgemeldet")
+            lblKZAenderung.Visible = dt(0)("KZAenderung")
+            txtVermerk.Text = dt(0)("Vermerk")
+        End If
+    End Sub
+
+    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+        Dim f As New frmChangeLKW
+
+        f.OldLkW = lblLKWNr.Text
+        f.SDLNr = SDLNr
+        f.History = History
+        f.kundenNr = kdNr
+        If f.ShowDialog(Me) = DialogResult.OK Then
+            RaiseEvent LKWChanged(f.newKFZ)
+        End If
+    End Sub
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungHUGO.Designer.vb

@@ -0,0 +1,588 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlSDLLeistungHUGO
+    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.components = New System.ComponentModel.Container()
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtPin = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 7
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'txtPin
+        '
+        Me.txtPin._DateTimeOnly = False
+        Me.txtPin._numbersOnly = False
+        Me.txtPin._numbersOnlyKommastellen = ""
+        Me.txtPin._Prozent = False
+        Me.txtPin._ShortDateNew = False
+        Me.txtPin._ShortDateOnly = False
+        Me.txtPin._TimeOnly = False
+        Me.txtPin._value = Nothing
+        Me.txtPin._Waehrung = False
+        Me.txtPin._WaehrungZeichen = True
+        Me.txtPin.ForeColor = System.Drawing.Color.Black
+        Me.txtPin.Location = New System.Drawing.Point(106, 118)
+        Me.txtPin.MaxLength = 6
+        Me.txtPin.MaxLineLength = -1
+        Me.txtPin.MaxLines_Warning = ""
+        Me.txtPin.MaxLines_Warning_Label = Nothing
+        Me.txtPin.Name = "txtPin"
+        Me.txtPin.Size = New System.Drawing.Size(55, 20)
+        Me.txtPin.TabIndex = 3
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.ForeColor = System.Drawing.Color.Black
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 96)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtKartenNr.TabIndex = 2
+        '
+        'txtOBUID
+        '
+        Me.txtOBUID._DateTimeOnly = False
+        Me.txtOBUID._numbersOnly = False
+        Me.txtOBUID._numbersOnlyKommastellen = ""
+        Me.txtOBUID._Prozent = False
+        Me.txtOBUID._ShortDateNew = False
+        Me.txtOBUID._ShortDateOnly = False
+        Me.txtOBUID._TimeOnly = False
+        Me.txtOBUID._value = Nothing
+        Me.txtOBUID._Waehrung = False
+        Me.txtOBUID._WaehrungZeichen = True
+        Me.txtOBUID.ForeColor = System.Drawing.Color.Black
+        Me.txtOBUID.Location = New System.Drawing.Point(106, 140)
+        Me.txtOBUID.MaxLength = 18
+        Me.txtOBUID.MaxLineLength = -1
+        Me.txtOBUID.MaxLines_Warning = ""
+        Me.txtOBUID.MaxLines_Warning_Label = Nothing
+        Me.txtOBUID.Name = "txtOBUID"
+        Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
+        Me.txtOBUID.TabIndex = 4
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(3, 121)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(29, 13)
+        Me.Label3.TabIndex = 14
+        Me.Label3.Text = "Pin:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 99)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(69, 13)
+        Me.Label1.TabIndex = 9
+        Me.Label1.Text = "Karten-Nr.:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 143)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(52, 13)
+        Me.Label9.TabIndex = 12
+        Me.Label9.Text = "OBU-Id:"
+        '
+        'txtMSEKdNr
+        '
+        Me.txtMSEKdNr._DateTimeOnly = False
+        Me.txtMSEKdNr._numbersOnly = True
+        Me.txtMSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtMSEKdNr._Prozent = False
+        Me.txtMSEKdNr._ShortDateNew = False
+        Me.txtMSEKdNr._ShortDateOnly = False
+        Me.txtMSEKdNr._TimeOnly = False
+        Me.txtMSEKdNr._value = ""
+        Me.txtMSEKdNr._Waehrung = False
+        Me.txtMSEKdNr._WaehrungZeichen = True
+        Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtMSEKdNr.MaxLineLength = -1
+        Me.txtMSEKdNr.MaxLines_Warning = ""
+        Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtMSEKdNr.Name = "txtMSEKdNr"
+        Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtMSEKdNr.TabIndex = 21
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(471, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(90, 13)
+        Me.Label2.TabIndex = 20
+        Me.Label2.Text = "MSE-Kunden-Nr.:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtMSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 94
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(105, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "Maut HU - HUGO"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 5
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 119
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 9
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 8
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 10
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 11
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 6
+        Me.txtGueltigkeit2.Visible = False
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 123
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 122
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 121
+        Me.Label11.Text = "Gültig bis:"
+        Me.Label11.Visible = False
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 127
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanLieferschein)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanLieferschein
+        '
+        Me.scanLieferschein._ARCHIV = True
+        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferschein._MULTI_FILES = True
+        Me.scanLieferschein._TEXT_PDF = "Lieferschein"
+        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferschein.BackColor = System.Drawing.Color.White
+        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
+        Me.scanLieferschein.Name = "scanLieferschein"
+        Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
+        Me.scanLieferschein.TabIndex = 23
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges._OPEN_ORIGINAL = False
+        Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(103, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 128
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungHUGO
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.txtPin)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.txtOBUID)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Name = "usrCntlSDLLeistungHUGO"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtPin As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungHUGO.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungHUGO.vb

@@ -0,0 +1,212 @@
+
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungHUGO
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+    Public History As String
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlLKW_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
+        'MsgBox("disp")
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+        If txtMSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        End If
+        ' If txtMSEKdNr.Text = "" Then
+        '  getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        ' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        ' End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            'PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            ' txtGueltigkeit2._value = SDL.GültigBis
+
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxRetourniert.Checked = SDL.Retourniert
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtMSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtOBUID.Text = SDL.OBUID
+            txtKartenNr.Text = SDL.KartenNr
+            txtPin.Text = SDL.PIN
+            PROG.initPIN(txtPin)
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        '   s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        '   If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        ' SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.MSE_Kd_Nr = txtMSEKdNr.Text
+        SDL.OBUID = txtOBUID.Text
+        SDL.KartenNr = txtKartenNr.Text
+        SDL.PIN = txtPin.Text
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtPin.TextChanged, txtVermerk.TextChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged ' txtGueltigkeit2.PropertyChanged, 
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungMautAT.Designer.vb

@@ -0,0 +1,672 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungMautAT
+    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.components = New System.ComponentModel.Container()
+        Me.txtKategorie = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.txtStatus = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.txtUmstellungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVertragabschlussdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSchadstoffklasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.txtCO2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'txtKategorie
+        '
+        Me.txtKategorie._DateTimeOnly = False
+        Me.txtKategorie._numbersOnly = True
+        Me.txtKategorie._numbersOnlyKommastellen = ""
+        Me.txtKategorie._numbersOnlyTrennzeichen = True
+        Me.txtKategorie._Prozent = False
+        Me.txtKategorie._ShortDateNew = False
+        Me.txtKategorie._ShortDateOnly = False
+        Me.txtKategorie._TimeOnly = False
+        Me.txtKategorie._TimeOnly_Seconds = False
+        Me.txtKategorie._value = ""
+        Me.txtKategorie._Waehrung = False
+        Me.txtKategorie._WaehrungZeichen = True
+        Me.txtKategorie.Location = New System.Drawing.Point(106, 115)
+        Me.txtKategorie.MaxLength = 1
+        Me.txtKategorie.MaxLineLength = -1
+        Me.txtKategorie.MaxLines_Warning = ""
+        Me.txtKategorie.MaxLines_Warning_Label = Nothing
+        Me.txtKategorie.Name = "txtKategorie"
+        Me.txtKategorie.Size = New System.Drawing.Size(19, 20)
+        Me.txtKategorie.TabIndex = 2
+        '
+        'txtBestellNr
+        '
+        Me.txtBestellNr._DateTimeOnly = False
+        Me.txtBestellNr._numbersOnly = False
+        Me.txtBestellNr._numbersOnlyKommastellen = ""
+        Me.txtBestellNr._numbersOnlyTrennzeichen = True
+        Me.txtBestellNr._Prozent = False
+        Me.txtBestellNr._ShortDateNew = False
+        Me.txtBestellNr._ShortDateOnly = False
+        Me.txtBestellNr._TimeOnly = False
+        Me.txtBestellNr._TimeOnly_Seconds = False
+        Me.txtBestellNr._value = Nothing
+        Me.txtBestellNr._Waehrung = False
+        Me.txtBestellNr._WaehrungZeichen = True
+        Me.txtBestellNr.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellNr.MaxLength = 15
+        Me.txtBestellNr.MaxLineLength = -1
+        Me.txtBestellNr.MaxLines_Warning = ""
+        Me.txtBestellNr.MaxLines_Warning_Label = Nothing
+        Me.txtBestellNr.Name = "txtBestellNr"
+        Me.txtBestellNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtBestellNr.TabIndex = 0
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(6, 119)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(55, 13)
+        Me.Label13.TabIndex = 18
+        Me.Label13.Text = "Kategorie:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(3, 39)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(58, 13)
+        Me.Label2.TabIndex = 9
+        Me.Label2.Text = "Bestell-Nr.:"
+        '
+        'txtOBUID
+        '
+        Me.txtOBUID._DateTimeOnly = False
+        Me.txtOBUID._numbersOnly = False
+        Me.txtOBUID._numbersOnlyKommastellen = ""
+        Me.txtOBUID._numbersOnlyTrennzeichen = True
+        Me.txtOBUID._Prozent = False
+        Me.txtOBUID._ShortDateNew = False
+        Me.txtOBUID._ShortDateOnly = False
+        Me.txtOBUID._TimeOnly = False
+        Me.txtOBUID._TimeOnly_Seconds = False
+        Me.txtOBUID._value = Nothing
+        Me.txtOBUID._Waehrung = False
+        Me.txtOBUID._WaehrungZeichen = True
+        Me.txtOBUID.Location = New System.Drawing.Point(106, 139)
+        Me.txtOBUID.MaxLength = 18
+        Me.txtOBUID.MaxLineLength = -1
+        Me.txtOBUID.MaxLines_Warning = ""
+        Me.txtOBUID.MaxLines_Warning_Label = Nothing
+        Me.txtOBUID.Name = "txtOBUID"
+        Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
+        Me.txtOBUID.TabIndex = 6
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._numbersOnlyTrennzeichen = True
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._TimeOnly_Seconds = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtKartenNr.Location = New System.Drawing.Point(574, 4)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(183, 23)
+        Me.txtKartenNr.TabIndex = 13
+        '
+        'Label9
+        '
+        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.ForeColor = System.Drawing.Color.White
+        Me.Label9.Location = New System.Drawing.Point(513, 9)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(55, 13)
+        Me.Label9.TabIndex = 12
+        Me.Label9.Text = "Karten-Nr:"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label10.Location = New System.Drawing.Point(3, 142)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(54, 13)
+        Me.Label10.TabIndex = 16
+        Me.Label10.Text = "OBU-ID:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(3, 71)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(96, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "Umstellungsdatum:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(3, 93)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(101, 13)
+        Me.Label3.TabIndex = 20
+        Me.Label3.Text = "Vertr.Abschlussdat.:"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(208, 95)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(40, 13)
+        Me.Label14.TabIndex = 22
+        Me.Label14.Text = "Status:"
+        '
+        'txtStatus
+        '
+        Me.txtStatus._DateTimeOnly = False
+        Me.txtStatus._numbersOnly = False
+        Me.txtStatus._numbersOnlyKommastellen = ""
+        Me.txtStatus._numbersOnlyTrennzeichen = True
+        Me.txtStatus._Prozent = False
+        Me.txtStatus._ShortDateNew = False
+        Me.txtStatus._ShortDateOnly = False
+        Me.txtStatus._TimeOnly = False
+        Me.txtStatus._TimeOnly_Seconds = False
+        Me.txtStatus._value = Nothing
+        Me.txtStatus._Waehrung = False
+        Me.txtStatus._WaehrungZeichen = True
+        Me.txtStatus.Location = New System.Drawing.Point(259, 90)
+        Me.txtStatus.MaxLength = 2
+        Me.txtStatus.MaxLineLength = -1
+        Me.txtStatus.MaxLines_Warning = ""
+        Me.txtStatus.MaxLines_Warning_Label = Nothing
+        Me.txtStatus.Name = "txtStatus"
+        Me.txtStatus.Size = New System.Drawing.Size(30, 20)
+        Me.txtStatus.TabIndex = 4
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(111, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "MAUT AT - GoBox"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtKartenNr)
+        Me.Panel2.Controls.Add(Me.Label9)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 28
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._numbersOnlyTrennzeichen = True
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._TimeOnly_Seconds = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 51)
+        Me.txtVermerk.TabIndex = 7
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 165)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(49, 13)
+        Me.Label6.TabIndex = 32
+        Me.Label6.Text = "Vermerk:"
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 11
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 10
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 12
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 13
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._numbersOnlyTrennzeichen = True
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._TimeOnly_Seconds = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 8
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(330, 39)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(53, 13)
+        Me.Label12.TabIndex = 83
+        Me.Label12.Text = "Gültig bis:"
+        '
+        'txtUmstellungsdatum
+        '
+        Me.txtUmstellungsdatum._DateTimeOnly = False
+        Me.txtUmstellungsdatum._numbersOnly = False
+        Me.txtUmstellungsdatum._numbersOnlyKommastellen = ""
+        Me.txtUmstellungsdatum._numbersOnlyTrennzeichen = True
+        Me.txtUmstellungsdatum._Prozent = False
+        Me.txtUmstellungsdatum._ShortDateNew = True
+        Me.txtUmstellungsdatum._ShortDateOnly = False
+        Me.txtUmstellungsdatum._TimeOnly = False
+        Me.txtUmstellungsdatum._TimeOnly_Seconds = False
+        Me.txtUmstellungsdatum._value = ""
+        Me.txtUmstellungsdatum._Waehrung = False
+        Me.txtUmstellungsdatum._WaehrungZeichen = True
+        Me.txtUmstellungsdatum.ForeColor = System.Drawing.Color.Red
+        Me.txtUmstellungsdatum.Location = New System.Drawing.Point(106, 68)
+        Me.txtUmstellungsdatum.MaxLength = 10
+        Me.txtUmstellungsdatum.MaxLineLength = -1
+        Me.txtUmstellungsdatum.MaxLines_Warning = ""
+        Me.txtUmstellungsdatum.MaxLines_Warning_Label = Nothing
+        Me.txtUmstellungsdatum.Name = "txtUmstellungsdatum"
+        Me.txtUmstellungsdatum.Size = New System.Drawing.Size(74, 20)
+        Me.txtUmstellungsdatum.TabIndex = 1
+        '
+        'txtVertragabschlussdatum
+        '
+        Me.txtVertragabschlussdatum._DateTimeOnly = False
+        Me.txtVertragabschlussdatum._numbersOnly = False
+        Me.txtVertragabschlussdatum._numbersOnlyKommastellen = ""
+        Me.txtVertragabschlussdatum._numbersOnlyTrennzeichen = True
+        Me.txtVertragabschlussdatum._Prozent = False
+        Me.txtVertragabschlussdatum._ShortDateNew = True
+        Me.txtVertragabschlussdatum._ShortDateOnly = False
+        Me.txtVertragabschlussdatum._TimeOnly = False
+        Me.txtVertragabschlussdatum._TimeOnly_Seconds = False
+        Me.txtVertragabschlussdatum._value = ""
+        Me.txtVertragabschlussdatum._Waehrung = False
+        Me.txtVertragabschlussdatum._WaehrungZeichen = True
+        Me.txtVertragabschlussdatum.ForeColor = System.Drawing.Color.Red
+        Me.txtVertragabschlussdatum.Location = New System.Drawing.Point(106, 90)
+        Me.txtVertragabschlussdatum.MaxLength = 10
+        Me.txtVertragabschlussdatum.MaxLineLength = -1
+        Me.txtVertragabschlussdatum.MaxLines_Warning = ""
+        Me.txtVertragabschlussdatum.MaxLines_Warning_Label = Nothing
+        Me.txtVertragabschlussdatum.Name = "txtVertragabschlussdatum"
+        Me.txtVertragabschlussdatum.Size = New System.Drawing.Size(74, 20)
+        Me.txtVertragabschlussdatum.TabIndex = 3
+        '
+        'txtSchadstoffklasse
+        '
+        Me.txtSchadstoffklasse._DateTimeOnly = False
+        Me.txtSchadstoffklasse._numbersOnly = False
+        Me.txtSchadstoffklasse._numbersOnlyKommastellen = ""
+        Me.txtSchadstoffklasse._numbersOnlyTrennzeichen = True
+        Me.txtSchadstoffklasse._Prozent = False
+        Me.txtSchadstoffklasse._ShortDateNew = False
+        Me.txtSchadstoffklasse._ShortDateOnly = False
+        Me.txtSchadstoffklasse._TimeOnly = False
+        Me.txtSchadstoffklasse._TimeOnly_Seconds = False
+        Me.txtSchadstoffklasse._value = Nothing
+        Me.txtSchadstoffklasse._Waehrung = False
+        Me.txtSchadstoffklasse._WaehrungZeichen = True
+        Me.txtSchadstoffklasse.Location = New System.Drawing.Point(270, 112)
+        Me.txtSchadstoffklasse.MaxLength = 2
+        Me.txtSchadstoffklasse.MaxLineLength = -1
+        Me.txtSchadstoffklasse.MaxLines_Warning = ""
+        Me.txtSchadstoffklasse.MaxLines_Warning_Label = Nothing
+        Me.txtSchadstoffklasse.Name = "txtSchadstoffklasse"
+        Me.txtSchadstoffklasse.Size = New System.Drawing.Size(19, 20)
+        Me.txtSchadstoffklasse.TabIndex = 5
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(173, 115)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(91, 13)
+        Me.Label4.TabIndex = 90
+        Me.Label4.Text = "Schadstoffklasse:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 92
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges._OPEN_ORIGINAL = False
+        Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 158)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = Nothing
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 70)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 9
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 93
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'txtCO2
+        '
+        Me.txtCO2._DateTimeOnly = False
+        Me.txtCO2._numbersOnly = False
+        Me.txtCO2._numbersOnlyKommastellen = ""
+        Me.txtCO2._numbersOnlyTrennzeichen = True
+        Me.txtCO2._Prozent = False
+        Me.txtCO2._ShortDateNew = False
+        Me.txtCO2._ShortDateOnly = False
+        Me.txtCO2._TimeOnly = False
+        Me.txtCO2._TimeOnly_Seconds = False
+        Me.txtCO2._value = Nothing
+        Me.txtCO2._Waehrung = False
+        Me.txtCO2._WaehrungZeichen = True
+        Me.txtCO2.Location = New System.Drawing.Point(270, 67)
+        Me.txtCO2.MaxLength = 2
+        Me.txtCO2.MaxLineLength = -1
+        Me.txtCO2.MaxLines_Warning = ""
+        Me.txtCO2.MaxLines_Warning_Label = Nothing
+        Me.txtCO2.Name = "txtCO2"
+        Me.txtCO2.Size = New System.Drawing.Size(19, 20)
+        Me.txtCO2.TabIndex = 94
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(186, 70)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(76, 13)
+        Me.Label5.TabIndex = 95
+        Me.Label5.Text = "CO2 Kategorie"
+        '
+        'usrCntlSDLLeistungMautAT
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.txtCO2)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtSchadstoffklasse)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.txtVertragabschlussdatum)
+        Me.Controls.Add(Me.txtUmstellungsdatum)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.txtStatus)
+        Me.Controls.Add(Me.txtKategorie)
+        Me.Controls.Add(Me.txtBestellNr)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.txtOBUID)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label1)
+        Me.Name = "usrCntlSDLLeistungMautAT"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtKategorie As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label13 As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label14 As System.Windows.Forms.Label
+    Friend WithEvents txtStatus As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents txtUmstellungsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtVertragabschlussdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtSchadstoffklasse As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtCO2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label5 As Label
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungMautAT.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungMautAT.vb

@@ -0,0 +1,190 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungMautAT
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+        'Scan-Elemente initialisieren:
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        'initForm()
+        boud = True
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtVertragabschlussdatum)
+            PROG.initDTPE(txtUmstellungsdatum)
+            PROG.initDTPE(txtGueltigkeit2)
+
+            txtVertragabschlussdatum._value = SDL.Vertragsabschlussdatum
+            txtUmstellungsdatum._value = SDL.Umstellungsdatum
+            txtGueltigkeit2._value = SDL.GültigBis
+
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+            txtCO2.Text = SDL.CO2Kategorie
+            txtSchadstoffklasse.Text = SDL.Schadstoffklasse
+            txtBestellNr.Text = SDL.BestellNr
+            txtOBUID.Text = SDL.OBUID
+            txtKartenNr.Text = SDL.KartenNr
+            txtStatus.Text = SDL.Status
+            txtKategorie.Text = SDL.Kategorie
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+    End Sub
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        's.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        'If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+        SDL.Bestelldatum = Now.ToShortDateString
+        txtKartenNr.Text = kundenSQL.getValueTxtBySql("SELECT isnull(MautAT_KartenNr,'') FROM [KundenSDL] WHERE [KundenNr]=" & kdNr & " AND SDLNr=" & SDLNr, "SDL")
+
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        '   If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+   
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Vertragsabschlussdatum = PROG.isEmptyNull(txtVertragabschlussdatum._value)
+        SDL.Umstellungsdatum = PROG.isEmptyNull(txtUmstellungsdatum._value)
+        SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.Schadstoffklasse = txtSchadstoffklasse.Text
+        SDL.BestellNr = txtBestellNr.Text
+        SDL.OBUID = txtOBUID.Text
+        SDL.KartenNr = txtKartenNr.Text
+        SDL.Status = txtStatus.Text
+        SDL.Kategorie = txtKategorie.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '   If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtUmstellungsdatum, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Umstellungsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtVertragabschlussdatum, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Vertragabschlussdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtVertragabschlussdatum.PropertyChanged, txtUmstellungsdatum.PropertyChanged, txtSchadstoffklasse.TextChanged, txtBestellNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtStatus.TextChanged, txtKategorie.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungMautDE.Designer.vb

@@ -0,0 +1,531 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungMautDE
+    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.components = New System.ComponentModel.Container()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtPartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtFlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxAbgemeldet = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(260, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(44, 13)
+        Me.Label1.TabIndex = 12
+        Me.Label1.Text = "Partner:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(383, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(69, 13)
+        Me.Label2.TabIndex = 18
+        Me.Label2.Text = "Benutzer-Nr.:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.White
+        Me.Label3.Location = New System.Drawing.Point(523, 9)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(63, 13)
+        Me.Label3.TabIndex = 14
+        Me.Label3.Text = "Flotten-PIN:"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.ForeColor = System.Drawing.Color.White
+        Me.Label13.Location = New System.Drawing.Point(643, 9)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(63, 13)
+        Me.Label13.TabIndex = 20
+        Me.Label13.Text = "Master-PIN:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 120
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = Nothing
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 4
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 6
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 5
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 7
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 8
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtPartner)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Controls.Add(Me.txtMasterPIN)
+        Me.Panel2.Controls.Add(Me.Label13)
+        Me.Panel2.Controls.Add(Me.txtFlottenPIN)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Controls.Add(Me.txtBenutzerNr)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 122
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(132, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "Maut DE - Toll Collect"
+        '
+        'txtPartner
+        '
+        Me.txtPartner._numbersOnly = False
+        Me.txtPartner._Prozent = False
+        Me.txtPartner._ShortDateNew = False
+        Me.txtPartner._ShortDateOnly = False
+        Me.txtPartner._TimeOnly = False
+        Me.txtPartner._value = Nothing
+        Me.txtPartner._Waehrung = False
+        Me.txtPartner.Location = New System.Drawing.Point(310, 6)
+        Me.txtPartner.MaxLength = 10
+        Me.txtPartner.MaxLineLength = -1
+        Me.txtPartner.MaxLines_Warning = ""
+        Me.txtPartner.MaxLines_Warning_Label = Nothing
+        Me.txtPartner.Name = "txtPartner"
+        Me.txtPartner.Size = New System.Drawing.Size(67, 20)
+        Me.txtPartner.TabIndex = 13
+        '
+        'txtMasterPIN
+        '
+        Me.txtMasterPIN._numbersOnly = False
+        Me.txtMasterPIN._Prozent = False
+        Me.txtMasterPIN._ShortDateNew = False
+        Me.txtMasterPIN._ShortDateOnly = False
+        Me.txtMasterPIN._TimeOnly = False
+        Me.txtMasterPIN._value = Nothing
+        Me.txtMasterPIN._Waehrung = False
+        Me.txtMasterPIN.Location = New System.Drawing.Point(712, 6)
+        Me.txtMasterPIN.MaxLength = 4
+        Me.txtMasterPIN.MaxLineLength = -1
+        Me.txtMasterPIN.MaxLines_Warning = ""
+        Me.txtMasterPIN.MaxLines_Warning_Label = Nothing
+        Me.txtMasterPIN.Name = "txtMasterPIN"
+        Me.txtMasterPIN.Size = New System.Drawing.Size(45, 20)
+        Me.txtMasterPIN.TabIndex = 21
+        '
+        'txtFlottenPIN
+        '
+        Me.txtFlottenPIN._numbersOnly = False
+        Me.txtFlottenPIN._Prozent = False
+        Me.txtFlottenPIN._ShortDateNew = False
+        Me.txtFlottenPIN._ShortDateOnly = False
+        Me.txtFlottenPIN._TimeOnly = False
+        Me.txtFlottenPIN._value = Nothing
+        Me.txtFlottenPIN._Waehrung = False
+        Me.txtFlottenPIN.Location = New System.Drawing.Point(592, 6)
+        Me.txtFlottenPIN.MaxLength = 4
+        Me.txtFlottenPIN.MaxLineLength = -1
+        Me.txtFlottenPIN.MaxLines_Warning = ""
+        Me.txtFlottenPIN.MaxLines_Warning_Label = Nothing
+        Me.txtFlottenPIN.Name = "txtFlottenPIN"
+        Me.txtFlottenPIN.Size = New System.Drawing.Size(45, 20)
+        Me.txtFlottenPIN.TabIndex = 16
+        '
+        'txtBenutzerNr
+        '
+        Me.txtBenutzerNr._numbersOnly = False
+        Me.txtBenutzerNr._Prozent = False
+        Me.txtBenutzerNr._ShortDateNew = False
+        Me.txtBenutzerNr._ShortDateOnly = False
+        Me.txtBenutzerNr._TimeOnly = False
+        Me.txtBenutzerNr._value = Nothing
+        Me.txtBenutzerNr._Waehrung = False
+        Me.txtBenutzerNr.ForeColor = System.Drawing.Color.Black
+        Me.txtBenutzerNr.Location = New System.Drawing.Point(458, 6)
+        Me.txtBenutzerNr.MaxLength = 7
+        Me.txtBenutzerNr.MaxLineLength = -1
+        Me.txtBenutzerNr.MaxLines_Warning = ""
+        Me.txtBenutzerNr.MaxLines_Warning_Label = Nothing
+        Me.txtBenutzerNr.Name = "txtBenutzerNr"
+        Me.txtBenutzerNr.Size = New System.Drawing.Size(59, 20)
+        Me.txtBenutzerNr.TabIndex = 19
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 126
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 125
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 110)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(83, 13)
+        Me.Label9.TabIndex = 130
+        Me.Label9.Text = "Karten-Nummer:"
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 105)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(183, 23)
+        Me.txtKartenNr.TabIndex = 2
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 3
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 132
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 158)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 133
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'cbxAbgemeldet
+        '
+        Me.cbxAbgemeldet._date = Nothing
+        Me.cbxAbgemeldet._showdate = True
+        Me.cbxAbgemeldet._value = ""
+        Me.cbxAbgemeldet.AutoSize = True
+        Me.cbxAbgemeldet.Location = New System.Drawing.Point(333, 88)
+        Me.cbxAbgemeldet.Name = "cbxAbgemeldet"
+        Me.cbxAbgemeldet.Size = New System.Drawing.Size(82, 17)
+        Me.cbxAbgemeldet.TabIndex = 134
+        Me.cbxAbgemeldet.Text = "Abgemeldet"
+        Me.cbxAbgemeldet.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungMautDE
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxAbgemeldet)
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Name = "usrCntlSDLLeistungMautDE"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtPartner As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents txtBenutzerNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtFlottenPIN As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label13 As System.Windows.Forms.Label
+    Friend WithEvents txtMasterPIN As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxAbgemeldet As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungMautDE.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungMautDE.vb

@@ -0,0 +1,203 @@
+Imports System.Globalization
+Imports SDL.cBinding
+
+Public Class usrCntlSDLLeistungMautDE
+    Public KfzKennzeichen As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+    Public SDLNr As String
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+      
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        ' scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        '  PROG.addPicToGueltigBis(txtGueltigkeit)
+        initDataBinding()
+
+        boud = True
+        If txtPartner.Text = "" Then
+            '  getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            '  txtPartner.Text = PartnerKdNrFromFMZOLL.
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+
+
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+            cbxAbgemeldet._date = SDL.LKWAbgemeldetAM
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+            cbxAbgemeldet.Checked = SDL.LKWAbgemeldet
+
+
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtKartenNr.Text = SDL.KartenNr
+            txtPartner.Text = SDL.Partner
+            txtBenutzerNr.Text = SDL.BenutzerNr
+            txtFlottenPIN.Text = SDL.FlottenPIN
+            txtMasterPIN.Text = SDL.MasterPIN
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+
+        Dim sql As New SQL
+        txtFlottenPIN.Text = sql.getValueTxtBySql("SELECT isnull(MautDE_FlottenPIN,'') FROM [KundenSDL] WHERE [KundenNr]=" & kdNr & " AND SDLNr=" & SDLNr, "SDL")
+        txtMasterPIN.Text = sql.getValueTxtBySql("SELECT isnull(MautDE_MasterPIN,'') FROM [KundenSDL] WHERE [KundenNr]=" & kdNr & " AND SDLNr=" & SDLNr, "SDL")
+        txtBenutzerNr.Text = sql.getValueTxtBySql("SELECT isnull(MautDE_BenutzerNr,'') FROM [KundenSDL] WHERE [KundenNr]=" & kdNr & " AND SDLNr=" & SDLNr, "SDL")
+
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.LKWAbgemeldet = cbxAbgemeldet.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.KartenNr = txtKartenNr.Text
+        SDL.Partner = txtPartner.Text
+        SDL.BenutzerNr = txtBenutzerNr.Text
+        SDL.FlottenPIN = txtFlottenPIN.Text
+        SDL.MasterPIN = txtMasterPIN.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.LKWAbgemeldetAM = cbxAbgemeldet._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtPartner.TextChanged, txtBenutzerNr.TextChanged, txtFlottenPIN.TextChanged, txtMasterPIN.TextChanged, txtVermerk.TextChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged, cbxAbgemeldet.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.Designer.vb

@@ -0,0 +1,634 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlSDLLeistungPLOSE
+    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.components = New System.ComponentModel.Container()
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtPin = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 7
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'txtPin
+        '
+        Me.txtPin._DateTimeOnly = False
+        Me.txtPin._numbersOnly = False
+        Me.txtPin._numbersOnlyKommastellen = ""
+        Me.txtPin._Prozent = False
+        Me.txtPin._ShortDateNew = False
+        Me.txtPin._ShortDateOnly = False
+        Me.txtPin._TimeOnly = False
+        Me.txtPin._value = Nothing
+        Me.txtPin._Waehrung = False
+        Me.txtPin._WaehrungZeichen = True
+        Me.txtPin.ForeColor = System.Drawing.Color.Black
+        Me.txtPin.Location = New System.Drawing.Point(106, 118)
+        Me.txtPin.MaxLength = 9
+        Me.txtPin.MaxLineLength = -1
+        Me.txtPin.MaxLines_Warning = ""
+        Me.txtPin.MaxLines_Warning_Label = Nothing
+        Me.txtPin.Name = "txtPin"
+        Me.txtPin.Size = New System.Drawing.Size(74, 20)
+        Me.txtPin.TabIndex = 3
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.ForeColor = System.Drawing.Color.Black
+        Me.txtKartenNr.Location = New System.Drawing.Point(196, 181)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(93, 20)
+        Me.txtKartenNr.TabIndex = 2
+        Me.txtKartenNr.Visible = False
+        '
+        'txtOBUID
+        '
+        Me.txtOBUID._DateTimeOnly = False
+        Me.txtOBUID._numbersOnly = False
+        Me.txtOBUID._numbersOnlyKommastellen = ""
+        Me.txtOBUID._Prozent = False
+        Me.txtOBUID._ShortDateNew = False
+        Me.txtOBUID._ShortDateOnly = False
+        Me.txtOBUID._TimeOnly = False
+        Me.txtOBUID._value = Nothing
+        Me.txtOBUID._Waehrung = False
+        Me.txtOBUID._WaehrungZeichen = True
+        Me.txtOBUID.ForeColor = System.Drawing.Color.Black
+        Me.txtOBUID.Location = New System.Drawing.Point(106, 96)
+        Me.txtOBUID.MaxLength = 18
+        Me.txtOBUID.MaxLineLength = -1
+        Me.txtOBUID.MaxLines_Warning = ""
+        Me.txtOBUID.MaxLines_Warning_Label = Nothing
+        Me.txtOBUID.Name = "txtOBUID"
+        Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
+        Me.txtOBUID.TabIndex = 4
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(3, 121)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(29, 13)
+        Me.Label3.TabIndex = 14
+        Me.Label3.Text = "Pin:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(121, 184)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(69, 13)
+        Me.Label1.TabIndex = 9
+        Me.Label1.Text = "Karten-Nr.:"
+        Me.Label1.Visible = False
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 99)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(52, 13)
+        Me.Label9.TabIndex = 12
+        Me.Label9.Text = "OBU-Id:"
+        '
+        'txtPLOSEKdNr
+        '
+        Me.txtPLOSEKdNr._DateTimeOnly = False
+        Me.txtPLOSEKdNr._numbersOnly = True
+        Me.txtPLOSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtPLOSEKdNr._Prozent = False
+        Me.txtPLOSEKdNr._ShortDateNew = False
+        Me.txtPLOSEKdNr._ShortDateOnly = False
+        Me.txtPLOSEKdNr._TimeOnly = False
+        Me.txtPLOSEKdNr._value = ""
+        Me.txtPLOSEKdNr._Waehrung = False
+        Me.txtPLOSEKdNr._WaehrungZeichen = True
+        Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtPLOSEKdNr.MaxLineLength = -1
+        Me.txtPLOSEKdNr.MaxLines_Warning = ""
+        Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr"
+        Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtPLOSEKdNr.TabIndex = 21
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(471, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(93, 13)
+        Me.Label2.TabIndex = 20
+        Me.Label2.Text = "Plose-Kunden-Nr.:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtPLOSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 94
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(47, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "PLOSE"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 5
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 119
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 9
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 8
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 10
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 11
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 6
+        Me.txtGueltigkeit2.Visible = False
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 123
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 122
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 121
+        Me.Label11.Text = "Gültig bis:"
+        Me.Label11.Visible = False
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 127
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanBestellung)
+        Me.TabPage2.Controls.Add(Me.scanPIN)
+        Me.TabPage2.Controls.Add(Me.scanLieferschein)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanPIN
+        '
+        Me.scanPIN._ARCHIV = True
+        Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanPIN._DATENSERVER_ORDNER = "MDM"
+        Me.scanPIN._DATENSERVER_UOrdner1 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner2 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner3 = Nothing
+        Me.scanPIN._MULTI_FILES = True
+        Me.scanPIN._TEXT_PDF = "PIN"
+        Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanPIN.BackColor = System.Drawing.Color.White
+        Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanPIN.Location = New System.Drawing.Point(192, 4)
+        Me.scanPIN.Name = "scanPIN"
+        Me.scanPIN.Size = New System.Drawing.Size(58, 24)
+        Me.scanPIN.TabIndex = 24
+        '
+        'scanLieferschein
+        '
+        Me.scanLieferschein._ARCHIV = True
+        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferschein._MULTI_FILES = True
+        Me.scanLieferschein._TEXT_PDF = "Lieferschein"
+        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferschein.BackColor = System.Drawing.Color.White
+        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
+        Me.scanLieferschein.Name = "scanLieferschein"
+        Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
+        Me.scanLieferschein.TabIndex = 23
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges._OPEN_ORIGINAL = False
+        Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 56)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 108)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(98, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(93, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 128
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'scanBestellung
+        '
+        Me.scanBestellung._ARCHIV = True
+        Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
+        Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
+        Me.scanBestellung._MULTI_FILES = True
+        Me.scanBestellung._TEXT_PDF = "Bestellung"
+        Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanBestellung.BackColor = System.Drawing.Color.White
+        Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanBestellung.Location = New System.Drawing.Point(3, 30)
+        Me.scanBestellung.Name = "scanBestellung"
+        Me.scanBestellung.Size = New System.Drawing.Size(94, 24)
+        Me.scanBestellung.TabIndex = 26
+        '
+        'usrCntlSDLLeistungPLOSE
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.txtPin)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.txtOBUID)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Name = "usrCntlSDLLeistungPLOSE"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtPin As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb

@@ -0,0 +1,209 @@
+
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungPLOSE
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+    Public History As String
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlLKW_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
+        'MsgBox("disp")
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        If txtPLOSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+        End If
+
+        boud = True
+
+        ' If txtMSEKdNr.Text = "" Then
+        '  getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        ' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        ' End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            'PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            ' txtGueltigkeit2._value = SDL.GültigBis
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxRetourniert.Checked = SDL.Retourniert
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+            ' txtPLOSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtOBUID.Text = SDL.OBUID
+            txtKartenNr.Text = SDL.KartenNr
+            txtPin.Text = SDL.PIN
+            PROG.initPIN(txtPin)
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+    End Sub
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        '   s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        '   If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        ' SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        'SDL. = txtPLOSEKdNr.Text
+        SDL.OBUID = txtOBUID.Text
+        SDL.KartenNr = txtKartenNr.Text
+        SDL.PIN = txtPin.Text
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtPin.TextChanged, txtVermerk.TextChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged ' txtGueltigkeit2.PropertyChanged, 
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungVERAGCard.Designer.vb

@@ -0,0 +1,510 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungVERAGCard
+    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.components = New System.ComponentModel.Container()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestelldatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxAbgemeldet = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.txtKaution = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 17
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = Nothing
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 5
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 13
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 9
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 16
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 19
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 0
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(79, 13)
+        Me.Label8.TabIndex = 0
+        Me.Label8.Text = "VERAG-Card"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 1
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 99)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(83, 13)
+        Me.Label9.TabIndex = 7
+        Me.Label9.Text = "Karten-Nummer:"
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr.Enabled = False
+        Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 94)
+        Me.txtKartenNr.MaxLength = 4
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(158, 23)
+        Me.txtKartenNr.TabIndex = 8
+        '
+        'txtBestelldatum
+        '
+        Me.txtBestelldatum._DateTimeOnly = False
+        Me.txtBestelldatum._numbersOnly = False
+        Me.txtBestelldatum._numbersOnlyKommastellen = ""
+        Me.txtBestelldatum._Prozent = False
+        Me.txtBestelldatum._ShortDateNew = True
+        Me.txtBestelldatum._ShortDateOnly = False
+        Me.txtBestelldatum._TimeOnly = False
+        Me.txtBestelldatum._value = ""
+        Me.txtBestelldatum._Waehrung = False
+        Me.txtBestelldatum.ForeColor = System.Drawing.Color.Red
+        Me.txtBestelldatum.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestelldatum.MaxLength = 10
+        Me.txtBestelldatum.MaxLineLength = -1
+        Me.txtBestelldatum.MaxLines_Warning = ""
+        Me.txtBestelldatum.MaxLines_Warning_Label = Nothing
+        Me.txtBestelldatum.Name = "txtBestelldatum"
+        Me.txtBestelldatum.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestelldatum.TabIndex = 2
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 18
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 21
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 0
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 158)
+        Me.scanSonstiges.TabIndex = 0
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 20
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'cbxAbgemeldet
+        '
+        Me.cbxAbgemeldet._date = Nothing
+        Me.cbxAbgemeldet._showdate = True
+        Me.cbxAbgemeldet._value = ""
+        Me.cbxAbgemeldet.AutoSize = True
+        Me.cbxAbgemeldet.Location = New System.Drawing.Point(333, 88)
+        Me.cbxAbgemeldet.Name = "cbxAbgemeldet"
+        Me.cbxAbgemeldet.Size = New System.Drawing.Size(82, 17)
+        Me.cbxAbgemeldet.TabIndex = 6
+        Me.cbxAbgemeldet.Text = "Abgemeldet"
+        Me.cbxAbgemeldet.UseVisualStyleBackColor = True
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(3, 138)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(89, 13)
+        Me.Label12.TabIndex = 12
+        Me.Label12.Text = "Kaution/BelegNr:"
+        '
+        'txtKaution
+        '
+        Me.txtKaution._DateTimeOnly = False
+        Me.txtKaution._numbersOnly = False
+        Me.txtKaution._numbersOnlyKommastellen = ""
+        Me.txtKaution._Prozent = False
+        Me.txtKaution._ShortDateNew = False
+        Me.txtKaution._ShortDateOnly = False
+        Me.txtKaution._TimeOnly = False
+        Me.txtKaution._value = ""
+        Me.txtKaution._Waehrung = True
+        Me.txtKaution.Location = New System.Drawing.Point(106, 135)
+        Me.txtKaution.MaxLineLength = -1
+        Me.txtKaution.MaxLines_Warning = ""
+        Me.txtKaution.MaxLines_Warning_Label = Nothing
+        Me.txtKaution.Name = "txtKaution"
+        Me.txtKaution.Size = New System.Drawing.Size(113, 20)
+        Me.txtKaution.TabIndex = 14
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(3, 119)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(40, 13)
+        Me.Label11.TabIndex = 10
+        Me.Label11.Text = "Fahrer:"
+        '
+        'txtFahrer
+        '
+        Me.txtFahrer._DateTimeOnly = False
+        Me.txtFahrer._numbersOnly = False
+        Me.txtFahrer._numbersOnlyKommastellen = ""
+        Me.txtFahrer._Prozent = False
+        Me.txtFahrer._ShortDateNew = False
+        Me.txtFahrer._ShortDateOnly = False
+        Me.txtFahrer._TimeOnly = False
+        Me.txtFahrer._value = Nothing
+        Me.txtFahrer._Waehrung = False
+        Me.txtFahrer.Location = New System.Drawing.Point(106, 116)
+        Me.txtFahrer.MaxLength = 40
+        Me.txtFahrer.MaxLineLength = -1
+        Me.txtFahrer.MaxLines_Warning = ""
+        Me.txtFahrer.MaxLines_Warning_Label = Nothing
+        Me.txtFahrer.Name = "txtFahrer"
+        Me.txtFahrer.Size = New System.Drawing.Size(183, 20)
+        Me.txtFahrer.TabIndex = 11
+        '
+        'txtBelegNr
+        '
+        Me.txtBelegNr._DateTimeOnly = False
+        Me.txtBelegNr._numbersOnly = False
+        Me.txtBelegNr._numbersOnlyKommastellen = ""
+        Me.txtBelegNr._Prozent = False
+        Me.txtBelegNr._ShortDateNew = False
+        Me.txtBelegNr._ShortDateOnly = False
+        Me.txtBelegNr._TimeOnly = False
+        Me.txtBelegNr._value = ""
+        Me.txtBelegNr._Waehrung = False
+        Me.txtBelegNr.Location = New System.Drawing.Point(218, 135)
+        Me.txtBelegNr.MaxLineLength = -1
+        Me.txtBelegNr.MaxLines_Warning = ""
+        Me.txtBelegNr.MaxLines_Warning_Label = Nothing
+        Me.txtBelegNr.Name = "txtBelegNr"
+        Me.txtBelegNr.Size = New System.Drawing.Size(71, 20)
+        Me.txtBelegNr.TabIndex = 15
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 61)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 4
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 64)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 3
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.del
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox1.Location = New System.Drawing.Point(270, 94)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(20, 22)
+        Me.PictureBox1.TabIndex = 156
+        Me.PictureBox1.TabStop = False
+        '
+        'usrCntlSDLLeistungVERAGCard
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.txtBelegNr)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.txtKaution)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.txtFahrer)
+        Me.Controls.Add(Me.cbxAbgemeldet)
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.txtBestelldatum)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Name = "usrCntlSDLLeistungVERAGCard"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtBestelldatum As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxAbgemeldet As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents txtKaution As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents txtFahrer As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBelegNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungVERAGCard.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungVERAGCard.vb

@@ -0,0 +1,271 @@
+Imports System.Globalization
+Imports SDL.cBinding
+
+Public Class usrCntlSDLLeistungVERAGCard
+    Public KfzKennzeichen As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+    Public SDLNr As String
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        ' scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        '  PROG.addPicToGueltigBis(txtGueltigkeit)
+        initDataBinding()
+
+        boud = True
+
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtBestelldatum)
+            PROG.initDTPE(txtLieferung)
+
+            txtBestelldatum._value = SDL.Bestelldatum
+            txtLieferung._value = SDL.Lieferdatum
+
+
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+            cbxAbgemeldet._date = SDL.LKWAbgemeldetAM
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+            cbxAbgemeldet.Checked = SDL.LKWAbgemeldet
+
+
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtKartenNr.Text = SDL.KartenNr
+            txtFahrer.Text = SDL.Fahrer
+            txtKaution._value = SDL.Kaution
+            txtBelegNr.Text = SDL.BelegNr
+
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestelldatum.Text = "" Then txtBestelldatum.Text = Now.ToShortDateString
+
+     
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestelldatum._value)
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.LKWAbgemeldet = cbxAbgemeldet.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.KartenNr = txtKartenNr.Text
+
+        SDL.Fahrer = txtFahrer.Text
+        SDL.Kaution = txtKaution._value
+        SDL.BelegNr = txtBelegNr.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.LKWAbgemeldetAM = cbxAbgemeldet._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestelldatum.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtVermerk.TextChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged, cbxAbgemeldet.CheckedChanged,
+        txtKaution.TextChanged, txtFahrer.TextChanged, txtBelegNr.TextChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtBestelldatum Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+
+
+    'Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+    '    If txtKartenNr.Text = "" Then
+
+    '        Dim f As New frmFindNewVeragCard
+    '        If f.ShowDialog(Me) = DialogResult.OK Then
+
+    '            Dim tmpKFZ = Me.KfzKennzeichen
+    '            Dim tmpKdNr = Me.KfzKennzeichen
+
+
+    '            Me.kdNr = f.kdNr
+    '            Me.KfzKennzeichen = f.KfzKennzeichen
+    '            Me.SDLNr = f.SDLNr
+    '            Me.History = f.History
+
+    '            initDataBinding()
+
+    '            Me.KfzKennzeichen = tmpKFZ
+    '            Me.kdNr = tmpKdNr
+
+    '            save()
+
+    '        End If
+
+
+    '        ' 
+
+
+    '    End If
+    '
+    ' End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        If clearVeragCard(kdNr, KfzKennzeichen, History) Then
+            RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+            Me.Visible = False
+        End If
+    End Sub
+
+    Shared Function clearVeragCard(kdNr, KfzKennzeichen, History) As Boolean
+        Dim kundenSQL As New kundenSQL
+        'VERAG Card zurücksetzen --> Kdnr=-1
+        If vbYes = MsgBox("Möchten Sie die Zuordnung der VERAG-Card wirklich aufheben?", vbYesNoCancel) Then
+            Dim hist = kundenSQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '-1' AND KfzKennzeichen='" & KfzKennzeichen & "' And SDLNr ='501' ", "SDL")
+            '  MsgBox("UPDATE [SDL] set KundenNr='-1', History='" & History & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & History & "' and SDLNr=501 ")
+            If kundenSQL.doSQL("UPDATE [SDL] set KundenNr='-1', History='" & hist & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & History & "' and SDLNr=501 ", "SDL") Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
+    Shared Function clearAllVeragCard(kdNr, KfzKennzeichen) As Boolean
+        Try
+
+            Dim kundenSQL As New kundenSQL
+            'VERAG Card zurücksetzen --> Kdnr=-1
+            Dim dt = kundenSQL.loadDgvBySql("Select History FROM SDL WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "'and SDLNr=501")
+            If dt IsNot Nothing Then
+                For Each r In dt.Rows
+                    Dim hist = kundenSQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '-1' AND KfzKennzeichen='" & KfzKennzeichen & "' And SDLNr ='501' ", "SDL")
+                    kundenSQL.doSQL("UPDATE [SDL] set KundenNr='-1', History='" & hist & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & r("History") & "' and SDLNr=501 ", "SDL")
+                Next
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungVERAGCardNEU.Designer.vb

@@ -0,0 +1,510 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlSDLLeistungVERAGCardNEU
+    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.components = New System.ComponentModel.Container()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestelldatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxAbgemeldet = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.txtKaution = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 17
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = Nothing
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 5
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 13
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 9
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 16
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 19
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 0
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(79, 13)
+        Me.Label8.TabIndex = 0
+        Me.Label8.Text = "VERAG-Card"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 1
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 99)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(83, 13)
+        Me.Label9.TabIndex = 7
+        Me.Label9.Text = "Karten-Nummer:"
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr.Enabled = False
+        Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 94)
+        Me.txtKartenNr.MaxLength = 4
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(158, 23)
+        Me.txtKartenNr.TabIndex = 8
+        '
+        'txtBestelldatum
+        '
+        Me.txtBestelldatum._DateTimeOnly = False
+        Me.txtBestelldatum._numbersOnly = False
+        Me.txtBestelldatum._numbersOnlyKommastellen = ""
+        Me.txtBestelldatum._Prozent = False
+        Me.txtBestelldatum._ShortDateNew = True
+        Me.txtBestelldatum._ShortDateOnly = False
+        Me.txtBestelldatum._TimeOnly = False
+        Me.txtBestelldatum._value = ""
+        Me.txtBestelldatum._Waehrung = False
+        Me.txtBestelldatum.ForeColor = System.Drawing.Color.Red
+        Me.txtBestelldatum.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestelldatum.MaxLength = 10
+        Me.txtBestelldatum.MaxLineLength = -1
+        Me.txtBestelldatum.MaxLines_Warning = ""
+        Me.txtBestelldatum.MaxLines_Warning_Label = Nothing
+        Me.txtBestelldatum.Name = "txtBestelldatum"
+        Me.txtBestelldatum.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestelldatum.TabIndex = 2
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 18
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 21
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 0
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 158)
+        Me.scanSonstiges.TabIndex = 0
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 20
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'cbxAbgemeldet
+        '
+        Me.cbxAbgemeldet._date = Nothing
+        Me.cbxAbgemeldet._showdate = True
+        Me.cbxAbgemeldet._value = ""
+        Me.cbxAbgemeldet.AutoSize = True
+        Me.cbxAbgemeldet.Location = New System.Drawing.Point(333, 88)
+        Me.cbxAbgemeldet.Name = "cbxAbgemeldet"
+        Me.cbxAbgemeldet.Size = New System.Drawing.Size(82, 17)
+        Me.cbxAbgemeldet.TabIndex = 6
+        Me.cbxAbgemeldet.Text = "Abgemeldet"
+        Me.cbxAbgemeldet.UseVisualStyleBackColor = True
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(3, 138)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(89, 13)
+        Me.Label12.TabIndex = 12
+        Me.Label12.Text = "Kaution/BelegNr:"
+        '
+        'txtKaution
+        '
+        Me.txtKaution._DateTimeOnly = False
+        Me.txtKaution._numbersOnly = False
+        Me.txtKaution._numbersOnlyKommastellen = ""
+        Me.txtKaution._Prozent = False
+        Me.txtKaution._ShortDateNew = False
+        Me.txtKaution._ShortDateOnly = False
+        Me.txtKaution._TimeOnly = False
+        Me.txtKaution._value = ""
+        Me.txtKaution._Waehrung = True
+        Me.txtKaution.Location = New System.Drawing.Point(106, 135)
+        Me.txtKaution.MaxLineLength = -1
+        Me.txtKaution.MaxLines_Warning = ""
+        Me.txtKaution.MaxLines_Warning_Label = Nothing
+        Me.txtKaution.Name = "txtKaution"
+        Me.txtKaution.Size = New System.Drawing.Size(113, 20)
+        Me.txtKaution.TabIndex = 14
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(3, 119)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(40, 13)
+        Me.Label11.TabIndex = 10
+        Me.Label11.Text = "Fahrer:"
+        '
+        'txtFahrer
+        '
+        Me.txtFahrer._DateTimeOnly = False
+        Me.txtFahrer._numbersOnly = False
+        Me.txtFahrer._numbersOnlyKommastellen = ""
+        Me.txtFahrer._Prozent = False
+        Me.txtFahrer._ShortDateNew = False
+        Me.txtFahrer._ShortDateOnly = False
+        Me.txtFahrer._TimeOnly = False
+        Me.txtFahrer._value = Nothing
+        Me.txtFahrer._Waehrung = False
+        Me.txtFahrer.Location = New System.Drawing.Point(106, 116)
+        Me.txtFahrer.MaxLength = 40
+        Me.txtFahrer.MaxLineLength = -1
+        Me.txtFahrer.MaxLines_Warning = ""
+        Me.txtFahrer.MaxLines_Warning_Label = Nothing
+        Me.txtFahrer.Name = "txtFahrer"
+        Me.txtFahrer.Size = New System.Drawing.Size(183, 20)
+        Me.txtFahrer.TabIndex = 11
+        '
+        'txtBelegNr
+        '
+        Me.txtBelegNr._DateTimeOnly = False
+        Me.txtBelegNr._numbersOnly = False
+        Me.txtBelegNr._numbersOnlyKommastellen = ""
+        Me.txtBelegNr._Prozent = False
+        Me.txtBelegNr._ShortDateNew = False
+        Me.txtBelegNr._ShortDateOnly = False
+        Me.txtBelegNr._TimeOnly = False
+        Me.txtBelegNr._value = ""
+        Me.txtBelegNr._Waehrung = False
+        Me.txtBelegNr.Location = New System.Drawing.Point(218, 135)
+        Me.txtBelegNr.MaxLineLength = -1
+        Me.txtBelegNr.MaxLines_Warning = ""
+        Me.txtBelegNr.MaxLines_Warning_Label = Nothing
+        Me.txtBelegNr.Name = "txtBelegNr"
+        Me.txtBelegNr.Size = New System.Drawing.Size(71, 20)
+        Me.txtBelegNr.TabIndex = 15
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 61)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 4
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 64)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 3
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.del
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox1.Location = New System.Drawing.Point(270, 94)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(20, 22)
+        Me.PictureBox1.TabIndex = 156
+        Me.PictureBox1.TabStop = False
+        '
+        'usrCntlSDLLeistungVERAGCard
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.txtBelegNr)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.txtKaution)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.txtFahrer)
+        Me.Controls.Add(Me.cbxAbgemeldet)
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.txtBestelldatum)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Name = "usrCntlSDLLeistungVERAGCard"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtBestelldatum As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxAbgemeldet As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents txtKaution As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents txtFahrer As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBelegNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungVERAGCardNEU.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungVERAGCardNEU.vb

@@ -0,0 +1,270 @@
+Imports System.Globalization
+Imports SDL.cBinding
+
+Public Class usrCntlSDLLeistungVERAGCardNEU
+    Public KfzKennzeichen As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+    Public SDLNr As String
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        ' scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        '  PROG.addPicToGueltigBis(txtGueltigkeit)
+        initDataBinding()
+
+        boud = True
+
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtBestelldatum)
+            PROG.initDTPE(txtLieferung)
+
+            txtBestelldatum._value = SDL.Bestelldatum
+            txtLieferung._value = SDL.Lieferdatum
+
+
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+            cbxAbgemeldet._date = SDL.LKWAbgemeldetAM
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+            cbxAbgemeldet.Checked = SDL.LKWAbgemeldet
+
+
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtKartenNr.Text = SDL.KartenNr
+            txtFahrer.Text = SDL.Fahrer
+            txtKaution._value = SDL.Kaution
+            txtBelegNr.Text = SDL.BelegNr
+
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestelldatum.Text = "" Then txtBestelldatum.Text = Now.ToShortDateString
+
+
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestelldatum._value)
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.LKWAbgemeldet = cbxAbgemeldet.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.KartenNr = txtKartenNr.Text
+
+        SDL.Fahrer = txtFahrer.Text
+        SDL.Kaution = txtKaution._value
+        SDL.BelegNr = txtBelegNr.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.LKWAbgemeldetAM = cbxAbgemeldet._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestelldatum.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtVermerk.TextChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged, cbxAbgemeldet.CheckedChanged,
+        txtKaution.TextChanged, txtFahrer.TextChanged, txtBelegNr.TextChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtBestelldatum Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+
+
+    'Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+    '    If txtKartenNr.Text = "" Then
+
+    '        Dim f As New frmFindNewVeragCard
+    '        If f.ShowDialog(Me) = DialogResult.OK Then
+
+    '            Dim tmpKFZ = Me.KfzKennzeichen
+    '            Dim tmpKdNr = Me.KfzKennzeichen
+
+
+    '            Me.kdNr = f.kdNr
+    '            Me.KfzKennzeichen = f.KfzKennzeichen
+    '            Me.SDLNr = f.SDLNr
+    '            Me.History = f.History
+
+    '            initDataBinding()
+
+    '            Me.KfzKennzeichen = tmpKFZ
+    '            Me.kdNr = tmpKdNr
+
+    '            save() 
+    '        End If
+
+
+    '        ' 
+
+
+    '    End If
+    '
+    ' End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        If clearVeragCard(kdNr, KfzKennzeichen, History) Then
+            RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+            Me.Visible = False
+        End If
+    End Sub
+
+    Shared Function clearVeragCard(kdNr, KfzKennzeichen, History) As Boolean
+        Dim kundenSQL As New kundenSQL
+        'VERAG Card zurücksetzen --> Kdnr=-1
+        If vbYes = MsgBox("Möchten Sie die Zuordnung der VERAG-Card wirklich aufheben?", vbYesNoCancel) Then
+            Dim hist = kundenSQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '-1' AND KfzKennzeichen='" & KfzKennzeichen & "' And SDLNr ='502' ", "SDL")
+            '  MsgBox("UPDATE [SDL] set KundenNr='-1', History='" & History & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & History & "' and SDLNr=502 ")
+            If kundenSQL.doSQL("UPDATE [SDL] set KundenNr='-1', History='" & hist & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & History & "' and SDLNr=502 ", "SDL") Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
+    Shared Function clearAllVeragCard(kdNr, KfzKennzeichen) As Boolean
+        Try
+
+            Dim kundenSQL As New kundenSQL
+            'VERAG Card zurücksetzen --> Kdnr=-1
+            Dim dt = kundenSQL.loadDgvBySql("Select History FROM SDL WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "'and SDLNr=502")
+            If dt IsNot Nothing Then
+                For Each r In dt.Rows
+                    Dim hist = kundenSQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '-1' AND KfzKennzeichen='" & KfzKennzeichen & "' And SDLNr ='502' ", "SDL")
+                    kundenSQL.doSQL("UPDATE [SDL] set KundenNr='-1', History='" & hist & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & r("History") & "' and SDLNr=502 ", "SDL")
+                Next
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenCZ.Designer.vb

@@ -0,0 +1,509 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenCZ
+    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.components = New System.ComponentModel.Container()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(481, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(87, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "MSE-Kunden-Nr:"
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 5
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 104)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(65, 13)
+        Me.Label9.TabIndex = 9
+        Me.Label9.Text = "Karten-Nr:"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(3, 165)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(49, 13)
+        Me.Label12.TabIndex = 18
+        Me.Label12.Text = "Vermerk:"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label10.Location = New System.Drawing.Point(3, 129)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(54, 13)
+        Me.Label10.TabIndex = 12
+        Me.Label10.Text = "OBU-ID:"
+        Me.Label10.Visible = False
+        '
+        'txtMSEKdNr
+        '
+        Me.txtMSEKdNr._DateTimeOnly = False
+        Me.txtMSEKdNr._numbersOnly = True
+        Me.txtMSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtMSEKdNr._Prozent = False
+        Me.txtMSEKdNr._ShortDateNew = False
+        Me.txtMSEKdNr._ShortDateOnly = False
+        Me.txtMSEKdNr._TimeOnly = False
+        Me.txtMSEKdNr._value = ""
+        Me.txtMSEKdNr._Waehrung = False
+        Me.txtMSEKdNr._WaehrungZeichen = True
+        Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtMSEKdNr.MaxLineLength = -1
+        Me.txtMSEKdNr.MaxLines_Warning = ""
+        Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtMSEKdNr.Name = "txtMSEKdNr"
+        Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtMSEKdNr.TabIndex = 15
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'txtOBUID
+        '
+        Me.txtOBUID._DateTimeOnly = False
+        Me.txtOBUID._numbersOnly = False
+        Me.txtOBUID._numbersOnlyKommastellen = ""
+        Me.txtOBUID._Prozent = False
+        Me.txtOBUID._ShortDateNew = False
+        Me.txtOBUID._ShortDateOnly = False
+        Me.txtOBUID._TimeOnly = False
+        Me.txtOBUID._value = Nothing
+        Me.txtOBUID._Waehrung = False
+        Me.txtOBUID._WaehrungZeichen = True
+        Me.txtOBUID.Location = New System.Drawing.Point(106, 126)
+        Me.txtOBUID.MaxLength = 18
+        Me.txtOBUID.MaxLineLength = -1
+        Me.txtOBUID.MaxLines_Warning = ""
+        Me.txtOBUID.MaxLines_Warning_Label = Nothing
+        Me.txtOBUID.Name = "txtOBUID"
+        Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
+        Me.txtOBUID.TabIndex = 3
+        Me.txtOBUID.Visible = False
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 99)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(183, 23)
+        Me.txtKartenNr.TabIndex = 2
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.txtMSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 20
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(62, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "MAUT CZ"
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 135)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 7
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 112)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 6
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 156)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 8
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 178)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 9
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(105, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(105, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(2, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 85
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(2, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 84
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 89
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanBestellung)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanBestellung
+        '
+        Me.scanBestellung._ARCHIV = True
+        Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
+        Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
+        Me.scanBestellung._MULTI_FILES = True
+        Me.scanBestellung._TEXT_PDF = "Bestellung"
+        Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanBestellung.BackColor = System.Drawing.Color.White
+        Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanBestellung.Location = New System.Drawing.Point(3, 4)
+        Me.scanBestellung.Name = "scanBestellung"
+        Me.scanBestellung.Size = New System.Drawing.Size(91, 24)
+        Me.scanBestellung.TabIndex = 22
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(100, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 201)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 90
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenCZ
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.txtOBUID)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.Label10)
+        Me.Name = "usrCntlSDLLeistungenCZ"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenCZ.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenCZ.vb

@@ -0,0 +1,213 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenCZ
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim kundenSQL As New kundenSQL
+    Dim PROG As New cProgramFunctions
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    '    Public WithEvents s As New cBinding 'fürs Binding
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+        ' initDataBinding()
+        ' boud = True
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        If txtMSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        End If
+
+        'Scan-Elemente initialisieren:
+        scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+    Sub initDataBinding(Optional newKfz = "")
+        Try
+
+
+            If addnew Then newEntry() 'NEUER EINTRAG!
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+          
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+            ' cbxGesperrt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gesperrt", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxDefekt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Defekt", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxGestohlen.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gestohlen", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxVerloren.DataBindings.Add(New Binding("Checked", s.bindingSource, "Verloren", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
+            cbxRetourniert.Checked = SDL.Retourniert
+            'cbxErsatzkarte.DataBindings.Add(New Binding("Checked", s.bindingSource, "Ersatzkarte", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
+            txtVermerk.Text = SDL.Vermerk
+            'txtVermerk.DataBindings.Add(New Binding("Text", s.bindingSource, "Vermerk", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+            '   UsrCntlDetails.lblErfassung.DataBindings.Add(New Binding("Text", s.bindingSource, "Erfassungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            ' UsrCntlDetails.lblAenderung.DataBindings.Add(New Binding("Text", s.bindingSource, "Änderungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            ' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+
+            txtMSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtKartenNr.Text = SDL.KartenNr
+            txtOBUID.Text = SDL.OBUID
+
+            '     Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'"
+            '   s.initBinding("SELECT  * FROM SDL WHERE KundenNr='" & kdNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "'  AND SDLNr='" & SDLNr & "' " & tmpHist, "SDL")
+
+
+            '  cbxRetourniert.DataBindings.Add(New Binding("Checked", s.bindingSource, "Retourniert", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+    End Sub
+
+    Public Sub newEntry()
+        's.updateBinding()
+        '  s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.MSE_Kd_Nr = txtMSEKdNr.Text
+        SDL.KartenNr = txtKartenNr.Text
+        SDL.OBUID = txtOBUID.Text
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+
+    End Sub
+
+
+
+
+    Function checkSave() As Boolean
+        ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtMSEKdNr.TextChanged, txtOBUID.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenDUOBOX.Designer.vb

@@ -0,0 +1,523 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenDUOBOX
+    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.components = New System.ComponentModel.Container()
+        Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtPANNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSERIE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'txtMSEKdNr
+        '
+        Me.txtMSEKdNr._DateTimeOnly = False
+        Me.txtMSEKdNr._numbersOnly = True
+        Me.txtMSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtMSEKdNr._Prozent = False
+        Me.txtMSEKdNr._ShortDateNew = False
+        Me.txtMSEKdNr._ShortDateOnly = False
+        Me.txtMSEKdNr._TimeOnly = False
+        Me.txtMSEKdNr._value = ""
+        Me.txtMSEKdNr._Waehrung = False
+        Me.txtMSEKdNr._WaehrungZeichen = True
+        Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtMSEKdNr.MaxLineLength = -1
+        Me.txtMSEKdNr.MaxLines_Warning = ""
+        Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtMSEKdNr.Name = "txtMSEKdNr"
+        Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtMSEKdNr.TabIndex = 2
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(471, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(90, 13)
+        Me.Label2.TabIndex = 1
+        Me.Label2.Text = "MSE-Kunden-Nr.:"
+        '
+        'txtPANNr
+        '
+        Me.txtPANNr._DateTimeOnly = False
+        Me.txtPANNr._numbersOnly = False
+        Me.txtPANNr._numbersOnlyKommastellen = ""
+        Me.txtPANNr._Prozent = False
+        Me.txtPANNr._ShortDateNew = False
+        Me.txtPANNr._ShortDateOnly = False
+        Me.txtPANNr._TimeOnly = False
+        Me.txtPANNr._value = Nothing
+        Me.txtPANNr._Waehrung = False
+        Me.txtPANNr._WaehrungZeichen = True
+        Me.txtPANNr.Location = New System.Drawing.Point(106, 127)
+        Me.txtPANNr.MaxLength = 19
+        Me.txtPANNr.MaxLineLength = -1
+        Me.txtPANNr.MaxLines_Warning = ""
+        Me.txtPANNr.MaxLines_Warning_Label = Nothing
+        Me.txtPANNr.Name = "txtPANNr"
+        Me.txtPANNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtPANNr.TabIndex = 3
+        '
+        'txtSERIE
+        '
+        Me.txtSERIE._DateTimeOnly = False
+        Me.txtSERIE._numbersOnly = False
+        Me.txtSERIE._numbersOnlyKommastellen = ""
+        Me.txtSERIE._Prozent = False
+        Me.txtSERIE._ShortDateNew = False
+        Me.txtSERIE._ShortDateOnly = False
+        Me.txtSERIE._TimeOnly = False
+        Me.txtSERIE._value = Nothing
+        Me.txtSERIE._Waehrung = False
+        Me.txtSERIE._WaehrungZeichen = True
+        Me.txtSERIE.Location = New System.Drawing.Point(106, 102)
+        Me.txtSERIE.MaxLength = 16
+        Me.txtSERIE.MaxLineLength = -1
+        Me.txtSERIE.MaxLines_Warning = ""
+        Me.txtSERIE.MaxLines_Warning_Label = Nothing
+        Me.txtSERIE.Name = "txtSERIE"
+        Me.txtSERIE.Size = New System.Drawing.Size(183, 20)
+        Me.txtSERIE.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 130)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(57, 13)
+        Me.Label1.TabIndex = 16
+        Me.Label1.Text = "PAN-Nr.:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 105)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(69, 13)
+        Me.Label9.TabIndex = 15
+        Me.Label9.Text = "SERIE-Nr.:"
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = Nothing
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 6
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtMSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 11
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(111, 13)
+        Me.Label8.TabIndex = 0
+        Me.Label8.Text = "MAUT AT - GoBox"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(107, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 8
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 7
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 9
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 10
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(4, 165)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(49, 13)
+        Me.Label12.TabIndex = 17
+        Me.Label12.Text = "Vermerk:"
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 5
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 14
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 12
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 13
+        Me.Label11.Text = "Gültig bis:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 18
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 0
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 1
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(3, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 0
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 199)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 91
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenDUOBOX
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.txtPANNr)
+        Me.Controls.Add(Me.txtSERIE)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Name = "usrCntlSDLLeistungenDUOBOX"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents txtPANNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtSERIE As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenDUOBOX.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenDUOBOX.vb

@@ -0,0 +1,202 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenDUOBOX
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+     
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+     
+        If txtMSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+ 
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            txtGueltigkeit2._value = SDL.GültigBis
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+           
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+          
+            txtMSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtPANNr.Text = SDL.PAN_Nr
+            txtSERIE.Text = SDL.SERIE_Nr
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+   
+    Public Sub newEntry()
+        ' s.updateBinding()
+        ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.MSE_Kd_Nr = txtMSEKdNr.Text
+        SDL.PAN_Nr = txtPANNr.Text
+        SDL.SERIE_Nr = txtSERIE.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '   If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtSERIE.TextChanged, txtPANNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+ 
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenECOTAX.Designer.vb

@@ -0,0 +1,545 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenECOTAX
+    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.components = New System.ComponentModel.Container()
+        Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtSERIE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtPANNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'txtMSEKdNr
+        '
+        Me.txtMSEKdNr._DateTimeOnly = False
+        Me.txtMSEKdNr._numbersOnly = True
+        Me.txtMSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtMSEKdNr._Prozent = False
+        Me.txtMSEKdNr._ShortDateNew = False
+        Me.txtMSEKdNr._ShortDateOnly = False
+        Me.txtMSEKdNr._TimeOnly = False
+        Me.txtMSEKdNr._value = ""
+        Me.txtMSEKdNr._Waehrung = False
+        Me.txtMSEKdNr._WaehrungZeichen = True
+        Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtMSEKdNr.MaxLineLength = -1
+        Me.txtMSEKdNr.MaxLines_Warning = ""
+        Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtMSEKdNr.Name = "txtMSEKdNr"
+        Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtMSEKdNr.TabIndex = 13
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(471, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(90, 13)
+        Me.Label2.TabIndex = 12
+        Me.Label2.Text = "MSE-Kunden-Nr.:"
+        '
+        'txtSERIE
+        '
+        Me.txtSERIE._DateTimeOnly = False
+        Me.txtSERIE._numbersOnly = False
+        Me.txtSERIE._numbersOnlyKommastellen = ""
+        Me.txtSERIE._Prozent = False
+        Me.txtSERIE._ShortDateNew = False
+        Me.txtSERIE._ShortDateOnly = False
+        Me.txtSERIE._TimeOnly = False
+        Me.txtSERIE._value = Nothing
+        Me.txtSERIE._Waehrung = False
+        Me.txtSERIE._WaehrungZeichen = True
+        Me.txtSERIE.Location = New System.Drawing.Point(106, 127)
+        Me.txtSERIE.MaxLength = 16
+        Me.txtSERIE.MaxLineLength = -1
+        Me.txtSERIE.MaxLines_Warning = ""
+        Me.txtSERIE.MaxLines_Warning_Label = Nothing
+        Me.txtSERIE.Name = "txtSERIE"
+        Me.txtSERIE.Size = New System.Drawing.Size(183, 20)
+        Me.txtSERIE.TabIndex = 3
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 130)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(69, 13)
+        Me.Label9.TabIndex = 10
+        Me.Label9.Text = "SERIE-Nr.:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 105)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(57, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "PAN-Nr.:"
+        '
+        'txtPANNr
+        '
+        Me.txtPANNr._DateTimeOnly = False
+        Me.txtPANNr._numbersOnly = False
+        Me.txtPANNr._numbersOnlyKommastellen = ""
+        Me.txtPANNr._Prozent = False
+        Me.txtPANNr._ShortDateNew = False
+        Me.txtPANNr._ShortDateOnly = False
+        Me.txtPANNr._TimeOnly = False
+        Me.txtPANNr._value = Nothing
+        Me.txtPANNr._Waehrung = False
+        Me.txtPANNr._WaehrungZeichen = True
+        Me.txtPANNr.Location = New System.Drawing.Point(106, 102)
+        Me.txtPANNr.MaxLength = 19
+        Me.txtPANNr.MaxLineLength = -1
+        Me.txtPANNr.MaxLines_Warning = ""
+        Me.txtPANNr.MaxLines_Warning_Label = Nothing
+        Me.txtPANNr.Name = "txtPANNr"
+        Me.txtPANNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtPANNr.TabIndex = 2
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtMSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 29
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(123, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "MULTIBOX ECOTAX"
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 8
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 7
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 9
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 10
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(81, 17)
+        Me.cbxRetourniert.TabIndex = 6
+        Me.cbxRetourniert.Text = "Retourniert "
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(3, 165)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(49, 13)
+        Me.Label3.TabIndex = 41
+        Me.Label3.Text = "Vermerk:"
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 5
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 85
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 84
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 83
+        Me.Label11.Text = "Gültig bis:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 89
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanLieferschein)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanLieferschein
+        '
+        Me.scanLieferschein._ARCHIV = True
+        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferschein._MULTI_FILES = True
+        Me.scanLieferschein._TEXT_PDF = "Lieferschein"
+        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferschein.BackColor = System.Drawing.Color.White
+        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
+        Me.scanLieferschein.Name = "scanLieferschein"
+        Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
+        Me.scanLieferschein.TabIndex = 23
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(103, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 91
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenECOTAX
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtPANNr)
+        Me.Controls.Add(Me.txtSERIE)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Name = "usrCntlSDLLeistungenECOTAX"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents txtSERIE As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtPANNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenECOTAX.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenECOTAX.vb

@@ -0,0 +1,201 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenECOTAX
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+       
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+
+        If txtMSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+ 
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            txtGueltigkeit2._value = SDL.GültigBis
+
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxRetourniert.Checked = SDL.Retourniert
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtMSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtPANNr.Text = SDL.PAN_Nr
+            txtSERIE.Text = SDL.SERIE_Nr
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+    
+    Public Sub newEntry()
+        '    s.updateBinding()
+        's.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        '  If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.MSE_Kd_Nr = txtMSEKdNr.Text
+        SDL.PAN_Nr = txtPANNr.Text
+        SDL.SERIE_Nr = txtSERIE.Text
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'ProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtSERIE.TextChanged, txtPANNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenFR.Designer.vb

@@ -0,0 +1,523 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenFR
+    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.components = New System.ComponentModel.Container()
+        Me.txtPANNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSERIE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'txtPANNr
+        '
+        Me.txtPANNr._DateTimeOnly = False
+        Me.txtPANNr._numbersOnly = False
+        Me.txtPANNr._numbersOnlyKommastellen = ""
+        Me.txtPANNr._Prozent = False
+        Me.txtPANNr._ShortDateNew = False
+        Me.txtPANNr._ShortDateOnly = False
+        Me.txtPANNr._TimeOnly = False
+        Me.txtPANNr._value = Nothing
+        Me.txtPANNr._Waehrung = False
+        Me.txtPANNr._WaehrungZeichen = True
+        Me.txtPANNr.Location = New System.Drawing.Point(106, 127)
+        Me.txtPANNr.MaxLength = 19
+        Me.txtPANNr.MaxLineLength = -1
+        Me.txtPANNr.MaxLines_Warning = ""
+        Me.txtPANNr.MaxLines_Warning_Label = Nothing
+        Me.txtPANNr.Name = "txtPANNr"
+        Me.txtPANNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtPANNr.TabIndex = 3
+        '
+        'txtSERIE
+        '
+        Me.txtSERIE._DateTimeOnly = False
+        Me.txtSERIE._numbersOnly = False
+        Me.txtSERIE._numbersOnlyKommastellen = ""
+        Me.txtSERIE._Prozent = False
+        Me.txtSERIE._ShortDateNew = False
+        Me.txtSERIE._ShortDateOnly = False
+        Me.txtSERIE._TimeOnly = False
+        Me.txtSERIE._value = Nothing
+        Me.txtSERIE._Waehrung = False
+        Me.txtSERIE._WaehrungZeichen = True
+        Me.txtSERIE.Location = New System.Drawing.Point(106, 102)
+        Me.txtSERIE.MaxLength = 16
+        Me.txtSERIE.MaxLineLength = -1
+        Me.txtSERIE.MaxLines_Warning = ""
+        Me.txtSERIE.MaxLines_Warning_Label = Nothing
+        Me.txtSERIE.Name = "txtSERIE"
+        Me.txtSERIE.Size = New System.Drawing.Size(183, 20)
+        Me.txtSERIE.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 130)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(57, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "PAN-Nr.:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 105)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(69, 13)
+        Me.Label9.TabIndex = 10
+        Me.Label9.Text = "SERIE-Nr.:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtMSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 30
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(55, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "Maut FR"
+        '
+        'txtMSEKdNr
+        '
+        Me.txtMSEKdNr._DateTimeOnly = False
+        Me.txtMSEKdNr._numbersOnly = True
+        Me.txtMSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtMSEKdNr._Prozent = False
+        Me.txtMSEKdNr._ShortDateNew = False
+        Me.txtMSEKdNr._ShortDateOnly = False
+        Me.txtMSEKdNr._TimeOnly = False
+        Me.txtMSEKdNr._value = ""
+        Me.txtMSEKdNr._Waehrung = False
+        Me.txtMSEKdNr._WaehrungZeichen = True
+        Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtMSEKdNr.MaxLineLength = -1
+        Me.txtMSEKdNr.MaxLines_Warning = ""
+        Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtMSEKdNr.Name = "txtMSEKdNr"
+        Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtMSEKdNr.TabIndex = 13
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.White
+        Me.Label3.Location = New System.Drawing.Point(471, 9)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(90, 13)
+        Me.Label3.TabIndex = 12
+        Me.Label3.Text = "MSE-Kunden-Nr.:"
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = Nothing
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 6
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 8
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 7
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 9
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 10
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(3, 165)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(49, 13)
+        Me.Label2.TabIndex = 53
+        Me.Label2.Text = "Vermerk:"
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 5
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 85
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 84
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 83
+        Me.Label11.Text = "Gültig bis:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 89
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(3, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 91
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenFR
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtPANNr)
+        Me.Controls.Add(Me.txtSERIE)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Name = "usrCntlSDLLeistungenFR"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtPANNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtSERIE As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenFR.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenFR.vb

@@ -0,0 +1,226 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenFR
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    '    Public WithEvents s As New cBinding 'fürs Binding
+
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+      
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+        If txtMSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+   
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+
+    Sub initDataBinding()
+        Try
+
+            ' Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'"
+            ' s.initBinding("SELECT * FROM SDL WHERE KundenNr='" & kdNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "'  AND SDLNr='" & SDLNr & "' " & tmpHist, "SDL")
+
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+            '  AddHandler s.bindingdataTable.ColumnChanged, AddressOf BindingTableColumnChanged
+            'AddHandler s.bindingdataTable.TableNewRow, AddressOf s.bindingdataTable_TableNewRow_SDLLeistungen
+
+            'PROG.setBindingDTPE(txtLieferung, "Lieferdatum", s.bindingSource)
+            '  PROG.setBindingDTPE(txtBestellung, "Bestelldatum", s.bindingSource)
+            '  PROG.setBindingDTPE(txtGueltigkeit2, "GültigBis", s.bindingSource)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            txtGueltigkeit2._value = SDL.GültigBis
+
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+            ' cbxGesperrt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gesperrt", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxDefekt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Defekt", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxGestohlen.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gestohlen", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxVerloren.DataBindings.Add(New Binding("Checked", s.bindingSource, "Verloren", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+            'cbxErsatzkarte.DataBindings.Add(New Binding("Checked", s.bindingSource, "Ersatzkarte", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
+            txtVermerk.Text = SDL.Vermerk
+            'txtVermerk.DataBindings.Add(New Binding("Text", s.bindingSource, "Vermerk", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+            '   UsrCntlDetails.lblErfassung.DataBindings.Add(New Binding("Text", s.bindingSource, "Erfassungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            ' UsrCntlDetails.lblAenderung.DataBindings.Add(New Binding("Text", s.bindingSource, "Änderungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            ' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+
+            
+            txtMSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtPANNr.Text = SDL.PAN_Nr
+            txtSERIE.Text = SDL.SERIE_Nr
+
+            'txtPIN.DataBindings.Add(New Binding("Text", s.bindingSource, "PIN", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            'txtKartenNr.DataBindings.Add(New Binding("Text", s.bindingSource, "KartenNr", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+
+            '  If History <> "" Then
+            'Try : s.bindingSource.Position = s.bindingSource.Find("History", History)
+            'Catch ex As Exception : End Try
+            '  End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+
+    Public Sub newEntry()
+        ' s.updateBinding()
+        ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        '  If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+   
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.MSE_Kd_Nr = txtMSEKdNr.Text
+        SDL.PAN_Nr = txtPANNr.Text
+        SDL.SERIE_Nr = txtSERIE.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtPANNr.TextChanged, txtSERIE.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenFREJUS.Designer.vb

@@ -0,0 +1,484 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenFREJUS
+    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.components = New System.ComponentModel.Container()
+        Me.txtECOKlasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtFrejusCardNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'txtECOKlasse
+        '
+        Me.txtECOKlasse._DateTimeOnly = False
+        Me.txtECOKlasse._numbersOnly = False
+        Me.txtECOKlasse._numbersOnlyKommastellen = ""
+        Me.txtECOKlasse._Prozent = False
+        Me.txtECOKlasse._ShortDateNew = False
+        Me.txtECOKlasse._ShortDateOnly = False
+        Me.txtECOKlasse._TimeOnly = False
+        Me.txtECOKlasse._value = Nothing
+        Me.txtECOKlasse._Waehrung = False
+        Me.txtECOKlasse._WaehrungZeichen = True
+        Me.txtECOKlasse.Location = New System.Drawing.Point(106, 127)
+        Me.txtECOKlasse.MaxLength = 2
+        Me.txtECOKlasse.MaxLineLength = -1
+        Me.txtECOKlasse.MaxLines_Warning = ""
+        Me.txtECOKlasse.MaxLines_Warning_Label = Nothing
+        Me.txtECOKlasse.Name = "txtECOKlasse"
+        Me.txtECOKlasse.Size = New System.Drawing.Size(32, 20)
+        Me.txtECOKlasse.TabIndex = 3
+        '
+        'txtFrejusCardNr
+        '
+        Me.txtFrejusCardNr._DateTimeOnly = False
+        Me.txtFrejusCardNr._numbersOnly = False
+        Me.txtFrejusCardNr._numbersOnlyKommastellen = ""
+        Me.txtFrejusCardNr._Prozent = False
+        Me.txtFrejusCardNr._ShortDateNew = False
+        Me.txtFrejusCardNr._ShortDateOnly = False
+        Me.txtFrejusCardNr._TimeOnly = False
+        Me.txtFrejusCardNr._value = Nothing
+        Me.txtFrejusCardNr._Waehrung = False
+        Me.txtFrejusCardNr._WaehrungZeichen = True
+        Me.txtFrejusCardNr.Location = New System.Drawing.Point(106, 102)
+        Me.txtFrejusCardNr.MaxLength = 20
+        Me.txtFrejusCardNr.MaxLineLength = -1
+        Me.txtFrejusCardNr.MaxLines_Warning = ""
+        Me.txtFrejusCardNr.MaxLines_Warning_Label = Nothing
+        Me.txtFrejusCardNr.Name = "txtFrejusCardNr"
+        Me.txtFrejusCardNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtFrejusCardNr.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 130)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(77, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "ECO-Klasse:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 105)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(106, 13)
+        Me.Label9.TabIndex = 11
+        Me.Label9.Text = "FREJUS-Crd--Nr.:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtMSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 31
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(126, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "FREJUS Tunnelkarte"
+        '
+        'txtMSEKdNr
+        '
+        Me.txtMSEKdNr._DateTimeOnly = False
+        Me.txtMSEKdNr._numbersOnly = True
+        Me.txtMSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtMSEKdNr._Prozent = False
+        Me.txtMSEKdNr._ShortDateNew = False
+        Me.txtMSEKdNr._ShortDateOnly = False
+        Me.txtMSEKdNr._TimeOnly = False
+        Me.txtMSEKdNr._value = ""
+        Me.txtMSEKdNr._Waehrung = False
+        Me.txtMSEKdNr._WaehrungZeichen = True
+        Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtMSEKdNr.MaxLineLength = -1
+        Me.txtMSEKdNr.MaxLines_Warning = ""
+        Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtMSEKdNr.Name = "txtMSEKdNr"
+        Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtMSEKdNr.TabIndex = 13
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.White
+        Me.Label3.Location = New System.Drawing.Point(471, 9)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(90, 13)
+        Me.Label3.TabIndex = 12
+        Me.Label3.Text = "MSE-Kunden-Nr.:"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 66
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = Nothing
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 5
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 7
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 6
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 8
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 9
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 85
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 84
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 89
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanLieferschein)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanLieferschein
+        '
+        Me.scanLieferschein._ARCHIV = True
+        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferschein._MULTI_FILES = True
+        Me.scanLieferschein._TEXT_PDF = "Lieferschein"
+        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferschein.BackColor = System.Drawing.Color.White
+        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
+        Me.scanLieferschein.Name = "scanLieferschein"
+        Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
+        Me.scanLieferschein.TabIndex = 23
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 91
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenFREJUS
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtECOKlasse)
+        Me.Controls.Add(Me.txtFrejusCardNr)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Name = "usrCntlSDLLeistungenFREJUS"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtECOKlasse As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtFrejusCardNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenFREJUS.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenFREJUS.vb

@@ -0,0 +1,199 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenFREJUS
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+        
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+        If txtMSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtMSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtFrejusCardNr.Text = SDL.FREJUS_CARD_Nr
+            txtECOKlasse.Text = SDL.ECO
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        '  s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+   
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.MSE_Kd_Nr = txtMSEKdNr.Text
+        SDL.FREJUS_CARD_Nr = txtFrejusCardNr.Text
+        SDL.ECO = txtECOKlasse.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+
+    Function checkSave() As Boolean
+        ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then Return False ' cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+  
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtFrejusCardNr.TextChanged, txtECOKlasse.TextChanged, txtVermerk.TextChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenIDS.Designer.vb

@@ -0,0 +1,524 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenIDS
+    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.components = New System.ComponentModel.Container()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.txtIDSKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 105)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(97, 13)
+        Me.Label9.TabIndex = 7
+        Me.Label9.Text = "Karten-Nummer:"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(3, 133)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(28, 13)
+        Me.Label10.TabIndex = 9
+        Me.Label10.Text = "PIN:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 3
+        Me.Label11.Text = "Gültig bis:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 11
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = New Date(CType(0, Long))
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 6
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = New Date(CType(0, Long))
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 8
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = New Date(CType(0, Long))
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 7
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = New Date(CType(0, Long))
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 9
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = New Date(CType(0, Long))
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 10
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 6
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 1
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.txtIDSKdNr)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 0
+        '
+        'txtIDSKdNr
+        '
+        Me.txtIDSKdNr._DateTimeOnly = False
+        Me.txtIDSKdNr._numbersOnly = True
+        Me.txtIDSKdNr._numbersOnlyKommastellen = ""
+        Me.txtIDSKdNr._Prozent = False
+        Me.txtIDSKdNr._ShortDateNew = False
+        Me.txtIDSKdNr._ShortDateOnly = False
+        Me.txtIDSKdNr._TimeOnly = False
+        Me.txtIDSKdNr._value = ""
+        Me.txtIDSKdNr._Waehrung = False
+        Me.txtIDSKdNr._WaehrungZeichen = True
+        Me.txtIDSKdNr.Location = New System.Drawing.Point(574, 7)
+        Me.txtIDSKdNr.MaxLineLength = -1
+        Me.txtIDSKdNr.MaxLines_Warning = ""
+        Me.txtIDSKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtIDSKdNr.Name = "txtIDSKdNr"
+        Me.txtIDSKdNr.ReadOnly = True
+        Me.txtIDSKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtIDSKdNr.TabIndex = 2
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.White
+        Me.Label3.Location = New System.Drawing.Point(471, 10)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(85, 13)
+        Me.Label3.TabIndex = 1
+        Me.Label3.Text = "IDS-Kunden-Nr.:"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(90, 13)
+        Me.Label8.TabIndex = 0
+        Me.Label8.Text = "IDS Tankkarte"
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 5
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'txtPIN
+        '
+        Me.txtPIN._DateTimeOnly = False
+        Me.txtPIN._numbersOnly = False
+        Me.txtPIN._numbersOnlyKommastellen = ""
+        Me.txtPIN._Prozent = False
+        Me.txtPIN._ShortDateNew = False
+        Me.txtPIN._ShortDateOnly = False
+        Me.txtPIN._TimeOnly = False
+        Me.txtPIN._value = ""
+        Me.txtPIN._Waehrung = False
+        Me.txtPIN._WaehrungZeichen = True
+        Me.txtPIN.Location = New System.Drawing.Point(106, 130)
+        Me.txtPIN.MaxLength = 4
+        Me.txtPIN.MaxLineLength = -1
+        Me.txtPIN.MaxLines_Warning = ""
+        Me.txtPIN.MaxLines_Warning_Label = Nothing
+        Me.txtPIN.Name = "txtPIN"
+        Me.txtPIN.Size = New System.Drawing.Size(57, 20)
+        Me.txtPIN.TabIndex = 3
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = True
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = ""
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 100)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(183, 23)
+        Me.txtKartenNr.TabIndex = 2
+        '
+        'scanPIN
+        '
+        Me.scanPIN._ARCHIV = False
+        Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanPIN._DATENSERVER_ORDNER = "MDM"
+        Me.scanPIN._DATENSERVER_UOrdner1 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner2 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner3 = Nothing
+        Me.scanPIN._MULTI_FILES = True
+        Me.scanPIN._TEXT_PDF = "PIN"
+        Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanPIN.BackColor = System.Drawing.Color.White
+        Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanPIN.Location = New System.Drawing.Point(3, 4)
+        Me.scanPIN.Name = "scanPIN"
+        Me.scanPIN.Size = New System.Drawing.Size(57, 24)
+        Me.scanPIN.TabIndex = 19
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 22
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanPIN)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 91
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenIDS
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.txtPIN)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Label11)
+        Me.Name = "usrCntlSDLLeistungenIDS"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtPIN As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtIDSKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Private WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenIDS.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenIDS.vb

@@ -0,0 +1,225 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenIDS
+    Public KfzKennzeichen As String
+    Public kdNr As String
+    Public SDLNr As String
+    Public History As String
+
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    Dim boud = False
+    
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+           UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        txtIDSKdNr.Text = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr).IDSKundenNr
+
+        'Scan-Elemente initialisieren:
+        scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+
+    End Sub
+    Function gueltigBisabgelaufen(o) As Boolean
+        Try
+            If CDate(o) > Now Then
+                Return False
+            End If
+            Return True
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+
+
+
+    Sub initDataBinding()
+        Try
+
+            ' Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'"
+            ' s.initBinding("SELECT * FROM SDL WHERE KundenNr='" & kdNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "'  AND SDLNr='" & SDLNr & "' " & tmpHist, "SDL")
+
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+            '  AddHandler s.bindingdataTable.ColumnChanged, AddressOf BindingTableColumnChanged
+            'AddHandler s.bindingdataTable.TableNewRow, AddressOf s.bindingdataTable_TableNewRow_SDLLeistungen
+
+            'PROG.setBindingDTPE(txtLieferung, "Lieferdatum", s.bindingSource)
+            '  PROG.setBindingDTPE(txtBestellung, "Bestelldatum", s.bindingSource)
+            '  PROG.setBindingDTPE(txtGueltigkeit2, "GültigBis", s.bindingSource)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            txtGueltigkeit2._value = SDL.GültigBis
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+            ' cbxGesperrt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gesperrt", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxDefekt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Defekt", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxGestohlen.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gestohlen", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxVerloren.DataBindings.Add(New Binding("Checked", s.bindingSource, "Verloren", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
+           
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+            'cbxErsatzkarte.DataBindings.Add(New Binding("Checked", s.bindingSource, "Ersatzkarte", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
+            txtVermerk.Text = SDL.Vermerk
+            'txtVermerk.DataBindings.Add(New Binding("Text", s.bindingSource, "Vermerk", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+            '   UsrCntlDetails.lblErfassung.DataBindings.Add(New Binding("Text", s.bindingSource, "Erfassungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            ' UsrCntlDetails.lblAenderung.DataBindings.Add(New Binding("Text", s.bindingSource, "Änderungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            ' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+
+            txtPIN.Text = SDL.PIN
+            PROG.initPIN(txtPIN)
+            txtKartenNr.Text = SDL.KartenNr
+            'txtPIN.DataBindings.Add(New Binding("Text", s.bindingSource, "PIN", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            'txtKartenNr.DataBindings.Add(New Binding("Text", s.bindingSource, "KartenNr", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+
+            '  If History <> "" Then
+            'Try : s.bindingSource.Position = s.bindingSource.Find("History", History)
+            'Catch ex As Exception : End Try
+            '  End If
+
+            
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+    Public Sub newEntry()
+        '   s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.PIN = txtPIN.Text
+        SDL.KartenNr = txtKartenNr.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+
+    Function checkSave() As Boolean
+        ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub datBestellung_ValueChanged(sender As Object, e As EventArgs)
+        If sender.value Is DBNull.Value Then
+            sender.checked = False
+        End If
+    End Sub
+
+    Private Sub txtBestellung_TextChanged2(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtPIN.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-KundenNr im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+  
+   
+End Class
+

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenIT.Designer.vb

@@ -0,0 +1,545 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenIT
+    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.components = New System.ComponentModel.Container()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtTelepassKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanLieferscheinVIA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanLieferscheinTP = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxErsatztelepass = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtVIACard = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtTelepassNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(464, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(107, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "Telepass-Kunden-Nr:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(6, 129)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(79, 13)
+        Me.Label9.TabIndex = 9
+        Me.Label9.Text = "Telepass-Nr:"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label10.Location = New System.Drawing.Point(6, 101)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(69, 13)
+        Me.Label10.TabIndex = 12
+        Me.Label10.Text = "VIA-CARD:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(3, 165)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(49, 13)
+        Me.Label2.TabIndex = 66
+        Me.Label2.Text = "Vermerk:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtTelepassKdNr)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 68
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(51, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "Maut IT"
+        '
+        'txtTelepassKdNr
+        '
+        Me.txtTelepassKdNr._DateTimeOnly = False
+        Me.txtTelepassKdNr._numbersOnly = True
+        Me.txtTelepassKdNr._numbersOnlyKommastellen = ""
+        Me.txtTelepassKdNr._Prozent = False
+        Me.txtTelepassKdNr._ShortDateNew = False
+        Me.txtTelepassKdNr._ShortDateOnly = False
+        Me.txtTelepassKdNr._TimeOnly = False
+        Me.txtTelepassKdNr._value = ""
+        Me.txtTelepassKdNr._Waehrung = False
+        Me.txtTelepassKdNr._WaehrungZeichen = True
+        Me.txtTelepassKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtTelepassKdNr.MaxLineLength = -1
+        Me.txtTelepassKdNr.MaxLines_Warning = ""
+        Me.txtTelepassKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtTelepassKdNr.Name = "txtTelepassKdNr"
+        Me.txtTelepassKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtTelepassKdNr.TabIndex = 15
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 85
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 84
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 89
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanLieferscheinVIA)
+        Me.TabPage2.Controls.Add(Me.scanLieferscheinTP)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanLieferscheinVIA
+        '
+        Me.scanLieferscheinVIA._ARCHIV = True
+        Me.scanLieferscheinVIA._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferscheinVIA._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferscheinVIA._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferscheinVIA._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferscheinVIA._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferscheinVIA._MULTI_FILES = True
+        Me.scanLieferscheinVIA._TEXT_PDF = "Lieferschein VIA-Card"
+        Me.scanLieferscheinVIA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferscheinVIA.BackColor = System.Drawing.Color.White
+        Me.scanLieferscheinVIA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferscheinVIA.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferscheinVIA.Location = New System.Drawing.Point(3, 30)
+        Me.scanLieferscheinVIA.Name = "scanLieferscheinVIA"
+        Me.scanLieferscheinVIA.Size = New System.Drawing.Size(155, 24)
+        Me.scanLieferscheinVIA.TabIndex = 24
+        '
+        'scanLieferscheinTP
+        '
+        Me.scanLieferscheinTP._ARCHIV = True
+        Me.scanLieferscheinTP._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferscheinTP._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferscheinTP._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferscheinTP._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferscheinTP._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferscheinTP._MULTI_FILES = True
+        Me.scanLieferscheinTP._TEXT_PDF = "Lieferschein Telepass"
+        Me.scanLieferscheinTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferscheinTP.BackColor = System.Drawing.Color.White
+        Me.scanLieferscheinTP.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferscheinTP.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferscheinTP.Location = New System.Drawing.Point(3, 4)
+        Me.scanLieferscheinTP.Name = "scanLieferscheinTP"
+        Me.scanLieferscheinTP.Size = New System.Drawing.Size(155, 24)
+        Me.scanLieferscheinTP.TabIndex = 23
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 57)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 104)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(163, 30)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxErsatztelepass
+        '
+        Me.cbxErsatztelepass._date = Nothing
+        Me.cbxErsatztelepass._showdate = True
+        Me.cbxErsatztelepass._value = ""
+        Me.cbxErsatztelepass.AutoSize = True
+        Me.cbxErsatztelepass.Location = New System.Drawing.Point(327, 38)
+        Me.cbxErsatztelepass.Name = "cbxErsatztelepass"
+        Me.cbxErsatztelepass.Size = New System.Drawing.Size(94, 17)
+        Me.cbxErsatztelepass.TabIndex = 5
+        Me.cbxErsatztelepass.Text = "Ersatztelepass"
+        Me.cbxErsatztelepass.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(327, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 8
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(327, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 7
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(327, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 9
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(327, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 10
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(327, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 6
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'txtVIACard
+        '
+        Me.txtVIACard._DateTimeOnly = False
+        Me.txtVIACard._numbersOnly = False
+        Me.txtVIACard._numbersOnlyKommastellen = ""
+        Me.txtVIACard._Prozent = False
+        Me.txtVIACard._ShortDateNew = False
+        Me.txtVIACard._ShortDateOnly = False
+        Me.txtVIACard._TimeOnly = False
+        Me.txtVIACard._value = Nothing
+        Me.txtVIACard._Waehrung = False
+        Me.txtVIACard._WaehrungZeichen = True
+        Me.txtVIACard.Location = New System.Drawing.Point(106, 98)
+        Me.txtVIACard.MaxLength = 9
+        Me.txtVIACard.MaxLineLength = -1
+        Me.txtVIACard.MaxLines_Warning = ""
+        Me.txtVIACard.MaxLines_Warning_Label = Nothing
+        Me.txtVIACard.Name = "txtVIACard"
+        Me.txtVIACard.Size = New System.Drawing.Size(183, 20)
+        Me.txtVIACard.TabIndex = 2
+        '
+        'txtTelepassNr
+        '
+        Me.txtTelepassNr._DateTimeOnly = False
+        Me.txtTelepassNr._numbersOnly = False
+        Me.txtTelepassNr._numbersOnlyKommastellen = ""
+        Me.txtTelepassNr._Prozent = False
+        Me.txtTelepassNr._ShortDateNew = False
+        Me.txtTelepassNr._ShortDateOnly = False
+        Me.txtTelepassNr._TimeOnly = False
+        Me.txtTelepassNr._value = Nothing
+        Me.txtTelepassNr._Waehrung = False
+        Me.txtTelepassNr._WaehrungZeichen = True
+        Me.txtTelepassNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtTelepassNr.Location = New System.Drawing.Point(106, 124)
+        Me.txtTelepassNr.MaxLength = 10
+        Me.txtTelepassNr.MaxLineLength = -1
+        Me.txtTelepassNr.MaxLines_Warning = ""
+        Me.txtTelepassNr.MaxLines_Warning_Label = Nothing
+        Me.txtTelepassNr.Name = "txtTelepassNr"
+        Me.txtTelepassNr.Size = New System.Drawing.Size(183, 23)
+        Me.txtTelepassNr.TabIndex = 3
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(327, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 91
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenIT
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.cbxErsatztelepass)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.txtVIACard)
+        Me.Controls.Add(Me.txtTelepassNr)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Label10)
+        Me.Name = "usrCntlSDLLeistungenIT"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtTelepassKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtVIACard As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtTelepassNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanLieferscheinTP As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanLieferscheinVIA As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxErsatztelepass As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenIT.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenIT.vb

@@ -0,0 +1,207 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenIT
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+      
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+        'Scan-Elemente initialisieren:
+        scanLieferscheinTP.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanLieferscheinVIA.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+
+        If txtTelepassKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtTelepassKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+ 
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxErsatztelepass._date = SDL.TelepassErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxRetourniert.Checked = SDL.Retourniert
+            cbxErsatztelepass.Checked = SDL.TelepassErsatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtTelepassKdNr.Text = SDL.TELEPASS_Kd_Nr
+            txtTelepassNr.Text = SDL.TELEPASS_Nr
+            txtVIACard.Text = SDL.VIACARD
+
+            '   txtTelepassKdNr.Text = SDL.MSE_Kd_Nr
+            ' txtTelepassNr.Text = SDL.PAN_Nr
+            '  txtVIACard.Text = SDL.SERIE_Nr
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+  
+
+    Public Sub newEntry()
+        's.updateBinding()
+        '  s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.TELEPASS_Kd_Nr = txtTelepassKdNr.Text
+        SDL.TELEPASS_Nr = txtTelepassNr.Text
+        SDL.VIACARD = txtVIACard.Text
+        SDL.TelepassErsatzkarte = cbxErsatztelepass.Checked
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.TelepassErsatzkarteAm = cbxErsatztelepass._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '   If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtTelepassKdNr.TextChanged, txtTelepassNr.TextChanged, txtVIACard.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxErsatztelepass.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt, boolDate) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & If(boolDate, ", am " & Now.ToShortDateString, "")
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMANAbgas.Designer.vb

@@ -0,0 +1,285 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenMANAbgas
+    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.components = New System.ComponentModel.Container()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.lblBestellformularAusdrucken = New System.Windows.Forms.Label()
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 107)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 11
+        Me.Label4.Text = "Vermerk:"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 6
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 1
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 0
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(119, 13)
+        Me.Label8.TabIndex = 0
+        Me.Label8.Text = "MAN Abgasplakette"
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 104)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 113)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 158)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 22
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 91
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'lblBestellformularAusdrucken
+        '
+        Me.lblBestellformularAusdrucken.BackColor = System.Drawing.Color.Green
+        Me.lblBestellformularAusdrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBestellformularAusdrucken.ForeColor = System.Drawing.Color.White
+        Me.lblBestellformularAusdrucken.Location = New System.Drawing.Point(230, 36)
+        Me.lblBestellformularAusdrucken.Name = "lblBestellformularAusdrucken"
+        Me.lblBestellformularAusdrucken.Size = New System.Drawing.Size(168, 20)
+        Me.lblBestellformularAusdrucken.TabIndex = 92
+        Me.lblBestellformularAusdrucken.Text = "Bestellformular ausdrucken!"
+        Me.lblBestellformularAusdrucken.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblBestellformularAusdrucken.Visible = False
+        '
+        'usrCntlSDLLeistungenMANAbgas
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.lblBestellformularAusdrucken)
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Name = "usrCntlSDLLeistungenMANAbgas"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents lblBestellformularAusdrucken As System.Windows.Forms.Label
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMANAbgas.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMANAbgas.vb

@@ -0,0 +1,165 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenMANAbgas
+    Public KfzKennzeichen As String
+    Public kdNr As String
+    Public SDLNr As String
+    Public History As String
+
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+       
+        'Scan-Elemente initialisieren:
+         scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+        lblBestellformularAusdrucken.Visible = False
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+
+    End Sub
+    Function gueltigBisabgelaufen(o) As Boolean
+        Try
+            If CDate(o) > Now Then
+                Return False
+            End If
+            Return True
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+
+
+
+    Sub initDataBinding()
+        Try
+
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            cbxArchiviert.Checked = SDL.Archiviert
+            txtVermerk.Text = SDL.Vermerk
+          
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+  
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+    Public Sub newEntry()
+        '   s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+     SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+       
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+
+    Function checkSave() As Boolean
+        ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub datBestellung_ValueChanged(sender As Object, e As EventArgs)
+        If sender.value Is DBNull.Value Then
+            sender.checked = False
+        End If
+    End Sub
+
+    Private Sub txtBestellung_TextChanged2(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtVermerk.TextChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+  
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtBestellung Then
+                'MsgBox("Bestellformular ausdrucken!")
+                lblBestellformularAusdrucken.Visible = True
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+
+
+End Class
+

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMSE.Designer.vb

@@ -0,0 +1,486 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenMSE
+    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.components = New System.ComponentModel.Container()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtMSECardNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 127)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(69, 13)
+        Me.Label9.TabIndex = 10
+        Me.Label9.Text = "Karten-Nr.:"
+        '
+        'txtMSECardNr
+        '
+        Me.txtMSECardNr._DateTimeOnly = False
+        Me.txtMSECardNr._numbersOnly = False
+        Me.txtMSECardNr._numbersOnlyKommastellen = ""
+        Me.txtMSECardNr._Prozent = False
+        Me.txtMSECardNr._ShortDateNew = False
+        Me.txtMSECardNr._ShortDateOnly = False
+        Me.txtMSECardNr._TimeOnly = False
+        Me.txtMSECardNr._value = Nothing
+        Me.txtMSECardNr._Waehrung = False
+        Me.txtMSECardNr._WaehrungZeichen = True
+        Me.txtMSECardNr.Location = New System.Drawing.Point(106, 124)
+        Me.txtMSECardNr.MaxLength = 22
+        Me.txtMSECardNr.MaxLineLength = -1
+        Me.txtMSECardNr.MaxLines_Warning = ""
+        Me.txtMSECardNr.MaxLines_Warning_Label = Nothing
+        Me.txtMSECardNr.Name = "txtMSECardNr"
+        Me.txtMSECardNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtMSECardNr.TabIndex = 2
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtMSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 43
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(65, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "Maut MSE"
+        '
+        'txtMSEKdNr
+        '
+        Me.txtMSEKdNr._DateTimeOnly = False
+        Me.txtMSEKdNr._numbersOnly = True
+        Me.txtMSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtMSEKdNr._Prozent = False
+        Me.txtMSEKdNr._ShortDateNew = False
+        Me.txtMSEKdNr._ShortDateOnly = False
+        Me.txtMSEKdNr._TimeOnly = False
+        Me.txtMSEKdNr._value = ""
+        Me.txtMSEKdNr._Waehrung = False
+        Me.txtMSEKdNr._WaehrungZeichen = True
+        Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtMSEKdNr.MaxLineLength = -1
+        Me.txtMSEKdNr.MaxLines_Warning = ""
+        Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtMSEKdNr.Name = "txtMSEKdNr"
+        Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtMSEKdNr.TabIndex = 13
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.White
+        Me.Label3.Location = New System.Drawing.Point(471, 9)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(90, 13)
+        Me.Label3.TabIndex = 12
+        Me.Label3.Text = "MSE-Kunden-Nr.:"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 3
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(3, 165)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(49, 13)
+        Me.Label1.TabIndex = 79
+        Me.Label1.Text = "Vermerk:"
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 7
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 6
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 8
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 9
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 4
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 85
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 84
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 83
+        Me.Label11.Text = "Gültig bis:"
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 5
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 90
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanLieferschein)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanLieferschein
+        '
+        Me.scanLieferschein._ARCHIV = True
+        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferschein._MULTI_FILES = True
+        Me.scanLieferschein._TEXT_PDF = "Lieferschein"
+        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferschein.BackColor = System.Drawing.Color.White
+        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
+        Me.scanLieferschein.Name = "scanLieferschein"
+        Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
+        Me.scanLieferschein.TabIndex = 23
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 91
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenMSE
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtMSECardNr)
+        Me.Controls.Add(Me.Label9)
+        Me.Name = "usrCntlSDLLeistungenMSE"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents txtMSECardNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMSE.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMSE.vb

@@ -0,0 +1,198 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenMSE
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+       
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+        If txtMSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            txtGueltigkeit2._value = SDL.GültigBis
+
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxRetourniert.Checked = SDL.Retourniert
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtMSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtMSECardNr.Text = SDL.KartenNr
+            
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+   
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        '  s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.MSE_Kd_Nr = txtMSEKdNr.Text
+        SDL.KartenNr = txtMSECardNr.Text
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+
+    Function checkSave() As Boolean
+        ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtMSECardNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+ 
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMotorWayMaut.Designer.vb

@@ -0,0 +1,524 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenMotorWayMaut
+    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.components = New System.ComponentModel.Container()
+        Me.txtCardNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtMotorWayCardNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.txtClientNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'txtCardNr
+        '
+        Me.txtCardNr._DateTimeOnly = False
+        Me.txtCardNr._numbersOnly = False
+        Me.txtCardNr._numbersOnlyKommastellen = ""
+        Me.txtCardNr._Prozent = False
+        Me.txtCardNr._ShortDateNew = False
+        Me.txtCardNr._ShortDateOnly = False
+        Me.txtCardNr._TimeOnly = False
+        Me.txtCardNr._value = Nothing
+        Me.txtCardNr._Waehrung = False
+        Me.txtCardNr._WaehrungZeichen = True
+        Me.txtCardNr.Location = New System.Drawing.Point(106, 124)
+        Me.txtCardNr.MaxLength = 3
+        Me.txtCardNr.MaxLineLength = -1
+        Me.txtCardNr.MaxLines_Warning = ""
+        Me.txtCardNr.MaxLines_Warning_Label = Nothing
+        Me.txtCardNr.Name = "txtCardNr"
+        Me.txtCardNr.Size = New System.Drawing.Size(43, 20)
+        Me.txtCardNr.TabIndex = 3
+        '
+        'txtMotorWayCardNr
+        '
+        Me.txtMotorWayCardNr._DateTimeOnly = False
+        Me.txtMotorWayCardNr._numbersOnly = False
+        Me.txtMotorWayCardNr._numbersOnlyKommastellen = ""
+        Me.txtMotorWayCardNr._Prozent = False
+        Me.txtMotorWayCardNr._ShortDateNew = False
+        Me.txtMotorWayCardNr._ShortDateOnly = False
+        Me.txtMotorWayCardNr._TimeOnly = False
+        Me.txtMotorWayCardNr._value = Nothing
+        Me.txtMotorWayCardNr._Waehrung = False
+        Me.txtMotorWayCardNr._WaehrungZeichen = True
+        Me.txtMotorWayCardNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtMotorWayCardNr.Location = New System.Drawing.Point(106, 95)
+        Me.txtMotorWayCardNr.MaxLength = 17
+        Me.txtMotorWayCardNr.MaxLineLength = -1
+        Me.txtMotorWayCardNr.MaxLines_Warning = ""
+        Me.txtMotorWayCardNr.MaxLines_Warning_Label = Nothing
+        Me.txtMotorWayCardNr.Name = "txtMotorWayCardNr"
+        Me.txtMotorWayCardNr.Size = New System.Drawing.Size(183, 23)
+        Me.txtMotorWayCardNr.TabIndex = 2
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 95)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(64, 26)
+        Me.Label9.TabIndex = 10
+        Me.Label9.Text = "MotorWay" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Card-Nr.:"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label10.Location = New System.Drawing.Point(3, 127)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(58, 13)
+        Me.Label10.TabIndex = 12
+        Me.Label10.Text = "Card-Nr.:"
+        '
+        'txtClientNr
+        '
+        Me.txtClientNr._DateTimeOnly = False
+        Me.txtClientNr._numbersOnly = True
+        Me.txtClientNr._numbersOnlyKommastellen = ""
+        Me.txtClientNr._Prozent = False
+        Me.txtClientNr._ShortDateNew = False
+        Me.txtClientNr._ShortDateOnly = False
+        Me.txtClientNr._TimeOnly = False
+        Me.txtClientNr._value = ""
+        Me.txtClientNr._Waehrung = False
+        Me.txtClientNr._WaehrungZeichen = True
+        Me.txtClientNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtClientNr.MaxLineLength = -1
+        Me.txtClientNr.MaxLines_Warning = ""
+        Me.txtClientNr.MaxLines_Warning_Label = Nothing
+        Me.txtClientNr.Name = "txtClientNr"
+        Me.txtClientNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtClientNr.TabIndex = 15
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(518, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(50, 13)
+        Me.Label2.TabIndex = 14
+        Me.Label2.Text = "Client-Nr:"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(3, 165)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(49, 13)
+        Me.Label1.TabIndex = 66
+        Me.Label1.Text = "Vermerk:"
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = Nothing
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 6
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 8
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 7
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 9
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 10
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtClientNr)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 68
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(125, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "MotorWay Mautkarte"
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 5
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 85
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 84
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 83
+        Me.Label11.Text = "Gültig bis:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 89
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(3, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 91
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenMotorWayMaut
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.txtCardNr)
+        Me.Controls.Add(Me.txtMotorWayCardNr)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Label10)
+        Me.Name = "usrCntlSDLLeistungenMotorWayMaut"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtCardNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtMotorWayCardNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents txtClientNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMotorWayMaut.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenMotorWayMaut.vb

@@ -0,0 +1,200 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenMotorWayMaut
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+    Public History As String
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+       
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+        If txtClientNr.Text = "" Then
+            '   getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            '  txtClientNr.Text = PartnerKdNrFromFMZOLL.
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+   
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            txtGueltigkeit2._value = SDL.GültigBis
+
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtClientNr.Text = SDL.CLIENT_Nr
+            txtMotorWayCardNr.Text = SDL.MOTORWAY_CARD_Nr
+            txtCardNr.Text = SDL.CARD_Nr
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+   
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.CLIENT_Nr = txtClientNr.Text
+        SDL.MOTORWAY_CARD_Nr = txtMotorWayCardNr.Text
+        SDL.CARD_Nr = txtCardNr.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+
+    Function checkSave() As Boolean
+        ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtClientNr.TextChanged, txtMotorWayCardNr.TextChanged, txtCardNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+    
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPL.Designer.vb

@@ -0,0 +1,508 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenPL
+    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.components = New System.ComponentModel.Container()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.anBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 131)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(58, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "OBU-ID.:"
+        Me.Label1.Visible = False
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 105)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(69, 13)
+        Me.Label9.TabIndex = 10
+        Me.Label9.Text = "Karten-Nr.:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtMSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 45
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(54, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "Maut PL"
+        '
+        'txtMSEKdNr
+        '
+        Me.txtMSEKdNr._DateTimeOnly = False
+        Me.txtMSEKdNr._numbersOnly = True
+        Me.txtMSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtMSEKdNr._Prozent = False
+        Me.txtMSEKdNr._ShortDateNew = False
+        Me.txtMSEKdNr._ShortDateOnly = False
+        Me.txtMSEKdNr._TimeOnly = False
+        Me.txtMSEKdNr._value = ""
+        Me.txtMSEKdNr._Waehrung = False
+        Me.txtMSEKdNr._WaehrungZeichen = True
+        Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtMSEKdNr.MaxLineLength = -1
+        Me.txtMSEKdNr.MaxLines_Warning = ""
+        Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtMSEKdNr.Name = "txtMSEKdNr"
+        Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtMSEKdNr.TabIndex = 13
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.White
+        Me.Label3.Location = New System.Drawing.Point(471, 9)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(90, 13)
+        Me.Label3.TabIndex = 12
+        Me.Label3.Text = "MSE-Kunden-Nr.:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 90
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 5
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 7
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 6
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 8
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 9
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 94
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 93
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'txtOBUID
+        '
+        Me.txtOBUID._DateTimeOnly = False
+        Me.txtOBUID._numbersOnly = False
+        Me.txtOBUID._numbersOnlyKommastellen = ""
+        Me.txtOBUID._Prozent = False
+        Me.txtOBUID._ShortDateNew = False
+        Me.txtOBUID._ShortDateOnly = False
+        Me.txtOBUID._TimeOnly = False
+        Me.txtOBUID._value = Nothing
+        Me.txtOBUID._Waehrung = False
+        Me.txtOBUID._WaehrungZeichen = True
+        Me.txtOBUID.Location = New System.Drawing.Point(106, 128)
+        Me.txtOBUID.MaxLength = 18
+        Me.txtOBUID.MaxLineLength = -1
+        Me.txtOBUID.MaxLines_Warning = ""
+        Me.txtOBUID.MaxLines_Warning_Label = Nothing
+        Me.txtOBUID.Name = "txtOBUID"
+        Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
+        Me.txtOBUID.TabIndex = 3
+        Me.txtOBUID.Visible = False
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 102)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtKartenNr.TabIndex = 2
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 98
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.anBestellung)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'anBestellung
+        '
+        Me.anBestellung._ARCHIV = True
+        Me.anBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.anBestellung._DATENSERVER_ORDNER = "MDM"
+        Me.anBestellung._DATENSERVER_UOrdner1 = Nothing
+        Me.anBestellung._DATENSERVER_UOrdner2 = Nothing
+        Me.anBestellung._DATENSERVER_UOrdner3 = Nothing
+        Me.anBestellung._MULTI_FILES = True
+        Me.anBestellung._TEXT_PDF = "Bestellung"
+        Me.anBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.anBestellung.BackColor = System.Drawing.Color.White
+        Me.anBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.anBestellung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.anBestellung.Location = New System.Drawing.Point(3, 4)
+        Me.anBestellung.Name = "anBestellung"
+        Me.anBestellung.Size = New System.Drawing.Size(91, 24)
+        Me.anBestellung.TabIndex = 23
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(100, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 99
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenPL
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtOBUID)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Name = "usrCntlSDLLeistungenPL"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents anBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPL.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPL.vb

@@ -0,0 +1,198 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenPL
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+
+    Public addnew As Boolean = False
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    Dim VAL As New cValidationSDLLeistungen
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+       
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        anBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+        If txtMSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxRetourniert.Checked = SDL.Retourniert
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtOBUID.Text = SDL.OBUID
+            txtKartenNr.Text = SDL.KartenNr
+            txtMSEKdNr.Text = SDL.MSE_Kd_Nr
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+   
+
+    Public Sub newEntry()
+        ' s.updateBinding()
+        ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+   
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+   
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.MSE_Kd_Nr = txtMSEKdNr.Text
+        SDL.OBUID = txtOBUID.Text
+        SDL.KartenNr = txtKartenNr.Text
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.Designer.vb

@@ -0,0 +1,509 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlSDLLeistungenPLOSE_CZ
+    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.components = New System.ComponentModel.Container()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(462, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(99, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "PLOSE-Kunden-Nr:"
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 5
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 104)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(65, 13)
+        Me.Label9.TabIndex = 9
+        Me.Label9.Text = "Karten-Nr:"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(3, 165)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(49, 13)
+        Me.Label12.TabIndex = 18
+        Me.Label12.Text = "Vermerk:"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label10.Location = New System.Drawing.Point(3, 129)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(54, 13)
+        Me.Label10.TabIndex = 12
+        Me.Label10.Text = "OBU-ID:"
+        Me.Label10.Visible = False
+        '
+        'txtPLOSEKdNr
+        '
+        Me.txtPLOSEKdNr._DateTimeOnly = False
+        Me.txtPLOSEKdNr._numbersOnly = True
+        Me.txtPLOSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtPLOSEKdNr._Prozent = False
+        Me.txtPLOSEKdNr._ShortDateNew = False
+        Me.txtPLOSEKdNr._ShortDateOnly = False
+        Me.txtPLOSEKdNr._TimeOnly = False
+        Me.txtPLOSEKdNr._value = ""
+        Me.txtPLOSEKdNr._Waehrung = False
+        Me.txtPLOSEKdNr._WaehrungZeichen = True
+        Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtPLOSEKdNr.MaxLineLength = -1
+        Me.txtPLOSEKdNr.MaxLines_Warning = ""
+        Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr"
+        Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtPLOSEKdNr.TabIndex = 15
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'txtOBUID
+        '
+        Me.txtOBUID._DateTimeOnly = False
+        Me.txtOBUID._numbersOnly = False
+        Me.txtOBUID._numbersOnlyKommastellen = ""
+        Me.txtOBUID._Prozent = False
+        Me.txtOBUID._ShortDateNew = False
+        Me.txtOBUID._ShortDateOnly = False
+        Me.txtOBUID._TimeOnly = False
+        Me.txtOBUID._value = Nothing
+        Me.txtOBUID._Waehrung = False
+        Me.txtOBUID._WaehrungZeichen = True
+        Me.txtOBUID.Location = New System.Drawing.Point(106, 126)
+        Me.txtOBUID.MaxLength = 18
+        Me.txtOBUID.MaxLineLength = -1
+        Me.txtOBUID.MaxLines_Warning = ""
+        Me.txtOBUID.MaxLines_Warning_Label = Nothing
+        Me.txtOBUID.Name = "txtOBUID"
+        Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
+        Me.txtOBUID.TabIndex = 3
+        Me.txtOBUID.Visible = False
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 99)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(183, 23)
+        Me.txtKartenNr.TabIndex = 2
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.txtPLOSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 20
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(114, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "MAUT CZ - PLOSE"
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 135)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 7
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 112)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 6
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 156)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 8
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 178)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 9
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(105, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(105, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(2, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 85
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(2, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 84
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 89
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanBestellung)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanBestellung
+        '
+        Me.scanBestellung._ARCHIV = True
+        Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
+        Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
+        Me.scanBestellung._MULTI_FILES = True
+        Me.scanBestellung._TEXT_PDF = "Bestellung"
+        Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanBestellung.BackColor = System.Drawing.Color.White
+        Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanBestellung.Location = New System.Drawing.Point(3, 4)
+        Me.scanBestellung.Name = "scanBestellung"
+        Me.scanBestellung.Size = New System.Drawing.Size(91, 24)
+        Me.scanBestellung.TabIndex = 22
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(100, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 201)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 90
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenPLOSE_CZ
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.txtOBUID)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.Label10)
+        Me.Name = "usrCntlSDLLeistungenPLOSE_CZ"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.vb

@@ -0,0 +1,214 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenPLOSE_CZ
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim kundenSQL As New kundenSQL
+    Dim PROG As New cProgramFunctions
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    '    Public WithEvents s As New cBinding 'fürs Binding
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+        ' initDataBinding()
+        ' boud = True
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        If txtPLOSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+        End If
+
+        'Scan-Elemente initialisieren:
+        scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+    Sub initDataBinding(Optional newKfz = "")
+        Try
+
+
+            If addnew Then newEntry() 'NEUER EINTRAG!
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+            ' cbxGesperrt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gesperrt", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxDefekt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Defekt", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxGestohlen.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gestohlen", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            ' cbxVerloren.DataBindings.Add(New Binding("Checked", s.bindingSource, "Verloren", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
+            cbxRetourniert.Checked = SDL.Retourniert
+            'cbxErsatzkarte.DataBindings.Add(New Binding("Checked", s.bindingSource, "Ersatzkarte", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
+            txtVermerk.Text = SDL.Vermerk
+            'txtVermerk.DataBindings.Add(New Binding("Text", s.bindingSource, "Vermerk", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+            '   UsrCntlDetails.lblErfassung.DataBindings.Add(New Binding("Text", s.bindingSource, "Erfassungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            ' UsrCntlDetails.lblAenderung.DataBindings.Add(New Binding("Text", s.bindingSource, "Änderungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            ' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+
+            '     txtMSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtKartenNr.Text = SDL.KartenNr
+            txtOBUID.Text = SDL.OBUID
+
+            '     Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'"
+            '   s.initBinding("SELECT  * FROM SDL WHERE KundenNr='" & kdNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "'  AND SDLNr='" & SDLNr & "' " & tmpHist, "SDL")
+
+
+            '  cbxRetourniert.DataBindings.Add(New Binding("Checked", s.bindingSource, "Retourniert", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+    End Sub
+
+    Public Sub newEntry()
+        's.updateBinding()
+        '  s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        '    SDL.MSE_Kd_Nr = txtMSEKdNr.Text
+        SDL.KartenNr = txtKartenNr.Text
+        SDL.OBUID = txtOBUID.Text
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+
+    End Sub
+
+
+
+
+    Function checkSave() As Boolean
+        ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.Designer.vb

@@ -0,0 +1,570 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlSDLLeistungenPLOSE_IT
+    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.components = New System.ComponentModel.Container()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanLieferscheinVIA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanLieferscheinTP = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxErsatztelepass = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtVIACard = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtTelepassNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(464, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(99, 13)
+        Me.Label1.TabIndex = 14
+        Me.Label1.Text = "PLOSE-Kunden-Nr:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(6, 129)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(79, 13)
+        Me.Label9.TabIndex = 9
+        Me.Label9.Text = "Telepass-Nr:"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label10.Location = New System.Drawing.Point(6, 101)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(69, 13)
+        Me.Label10.TabIndex = 12
+        Me.Label10.Visible = False
+        Me.Label10.Text = "VIA-CARD:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(3, 165)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(49, 13)
+        Me.Label2.TabIndex = 66
+        Me.Label2.Text = "Vermerk:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtPLOSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 68
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(103, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "Maut IT - PLOSE"
+        '
+        'txtPLOSEKdNr
+        '
+        Me.txtPLOSEKdNr._DateTimeOnly = False
+        Me.txtPLOSEKdNr._numbersOnly = True
+        Me.txtPLOSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtPLOSEKdNr._Prozent = False
+        Me.txtPLOSEKdNr._ShortDateNew = False
+        Me.txtPLOSEKdNr._ShortDateOnly = False
+        Me.txtPLOSEKdNr._TimeOnly = False
+        Me.txtPLOSEKdNr._value = ""
+        Me.txtPLOSEKdNr._Waehrung = False
+        Me.txtPLOSEKdNr._WaehrungZeichen = True
+        Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtPLOSEKdNr.MaxLineLength = -1
+        Me.txtPLOSEKdNr.MaxLines_Warning = ""
+        Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr"
+        Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtPLOSEKdNr.TabIndex = 15
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 85
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 84
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 89
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanBestellung)
+        Me.TabPage2.Controls.Add(Me.scanLieferscheinVIA)
+        Me.TabPage2.Controls.Add(Me.scanLieferscheinTP)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanLieferscheinVIA
+        '
+        Me.scanLieferscheinVIA._ARCHIV = True
+        Me.scanLieferscheinVIA._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferscheinVIA._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferscheinVIA._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferscheinVIA._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferscheinVIA._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferscheinVIA._MULTI_FILES = True
+        Me.scanLieferscheinVIA._TEXT_PDF = "Lieferschein VIA-Card"
+        Me.scanLieferscheinVIA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferscheinVIA.BackColor = System.Drawing.Color.White
+        Me.scanLieferscheinVIA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferscheinVIA.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferscheinVIA.Location = New System.Drawing.Point(3, 30)
+        Me.scanLieferscheinVIA.Name = "scanLieferscheinVIA"
+        Me.scanLieferscheinVIA.Size = New System.Drawing.Size(155, 24)
+        Me.scanLieferscheinVIA.TabIndex = 24
+        '
+        'scanLieferscheinTP
+        '
+        Me.scanLieferscheinTP._ARCHIV = True
+        Me.scanLieferscheinTP._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferscheinTP._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferscheinTP._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferscheinTP._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferscheinTP._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferscheinTP._MULTI_FILES = True
+        Me.scanLieferscheinTP._TEXT_PDF = "Lieferschein Telepass"
+        Me.scanLieferscheinTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferscheinTP.BackColor = System.Drawing.Color.White
+        Me.scanLieferscheinTP.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferscheinTP.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferscheinTP.Location = New System.Drawing.Point(3, 4)
+        Me.scanLieferscheinTP.Name = "scanLieferscheinTP"
+        Me.scanLieferscheinTP.Size = New System.Drawing.Size(155, 24)
+        Me.scanLieferscheinTP.TabIndex = 23
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges._OPEN_ORIGINAL = False
+        Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 57)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 104)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(163, 30)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxErsatztelepass
+        '
+        Me.cbxErsatztelepass._date = Nothing
+        Me.cbxErsatztelepass._showdate = True
+        Me.cbxErsatztelepass._value = ""
+        Me.cbxErsatztelepass.AutoSize = True
+        Me.cbxErsatztelepass.Location = New System.Drawing.Point(327, 38)
+        Me.cbxErsatztelepass.Name = "cbxErsatztelepass"
+        Me.cbxErsatztelepass.Size = New System.Drawing.Size(94, 17)
+        Me.cbxErsatztelepass.TabIndex = 5
+        Me.cbxErsatztelepass.Text = "Ersatztelepass"
+        Me.cbxErsatztelepass.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(327, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 8
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(327, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 7
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(327, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 9
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(327, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 10
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(327, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 6
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'txtVIACard
+        '
+        Me.txtVIACard._DateTimeOnly = False
+        Me.txtVIACard._numbersOnly = False
+        Me.txtVIACard._numbersOnlyKommastellen = ""
+        Me.txtVIACard._Prozent = False
+        Me.txtVIACard._ShortDateNew = False
+        Me.txtVIACard._ShortDateOnly = False
+        Me.txtVIACard._TimeOnly = False
+        Me.txtVIACard._value = Nothing
+        Me.txtVIACard._Waehrung = False
+        Me.txtVIACard._WaehrungZeichen = True
+        Me.txtVIACard.Location = New System.Drawing.Point(106, 98)
+        Me.txtVIACard.MaxLength = 9
+        Me.txtVIACard.MaxLineLength = -1
+        Me.txtVIACard.MaxLines_Warning = ""
+        Me.txtVIACard.MaxLines_Warning_Label = Nothing
+        Me.txtVIACard.Name = "txtVIACard"
+        Me.txtVIACard.Size = New System.Drawing.Size(183, 20)
+        Me.txtVIACard.TabIndex = 2
+        Me.txtVIACard.Visible = False
+        '
+        'txtTelepassNr
+        '
+        Me.txtTelepassNr._DateTimeOnly = False
+        Me.txtTelepassNr._numbersOnly = False
+        Me.txtTelepassNr._numbersOnlyKommastellen = ""
+        Me.txtTelepassNr._Prozent = False
+        Me.txtTelepassNr._ShortDateNew = False
+        Me.txtTelepassNr._ShortDateOnly = False
+        Me.txtTelepassNr._TimeOnly = False
+        Me.txtTelepassNr._value = Nothing
+        Me.txtTelepassNr._Waehrung = False
+        Me.txtTelepassNr._WaehrungZeichen = True
+        Me.txtTelepassNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtTelepassNr.Location = New System.Drawing.Point(106, 124)
+        Me.txtTelepassNr.MaxLength = 10
+        Me.txtTelepassNr.MaxLineLength = -1
+        Me.txtTelepassNr.MaxLines_Warning = ""
+        Me.txtTelepassNr.MaxLines_Warning_Label = Nothing
+        Me.txtTelepassNr.Name = "txtTelepassNr"
+        Me.txtTelepassNr.Size = New System.Drawing.Size(183, 23)
+        Me.txtTelepassNr.TabIndex = 3
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(327, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 91
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'scanBestellung
+        '
+        Me.scanBestellung._ARCHIV = True
+        Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
+        Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
+        Me.scanBestellung._MULTI_FILES = True
+        Me.scanBestellung._TEXT_PDF = "Bestellung"
+        Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanBestellung.BackColor = System.Drawing.Color.White
+        Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanBestellung.Location = New System.Drawing.Point(163, 4)
+        Me.scanBestellung.Name = "scanBestellung"
+        Me.scanBestellung.Size = New System.Drawing.Size(90, 24)
+        Me.scanBestellung.TabIndex = 25
+        '
+        'usrCntlSDLLeistungenPLOSE_IT
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.cbxErsatztelepass)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.txtVIACard)
+        Me.Controls.Add(Me.txtTelepassNr)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Label10)
+        Me.Name = "usrCntlSDLLeistungenPLOSE_IT"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents txtVIACard As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtTelepassNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label10 As System.Windows.Forms.Label
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanLieferscheinTP As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanLieferscheinVIA As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxErsatztelepass As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb

@@ -0,0 +1,208 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenPLOSE_IT
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Public History As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+        'Scan-Elemente initialisieren:
+        scanLieferscheinTP.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanLieferscheinVIA.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+
+
+        If txtPLOSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+        End If
+        boud = True
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxErsatztelepass._date = SDL.TelepassErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxRetourniert.Checked = SDL.Retourniert
+            cbxErsatztelepass.Checked = SDL.TelepassErsatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            '  txtPLOSEKdNr.Text = SDL.TELEPASS_Kd_Nr
+            txtTelepassNr.Text = SDL.TELEPASS_Nr
+            txtVIACard.Text = SDL.VIACARD
+
+            '   txtTelepassKdNr.Text = SDL.MSE_Kd_Nr
+            ' txtTelepassNr.Text = SDL.PAN_Nr
+            '  txtVIACard.Text = SDL.SERIE_Nr
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+    Public Sub newEntry()
+        's.updateBinding()
+        '  s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.TELEPASS_Kd_Nr = txtPLOSEKdNr.Text
+        SDL.TELEPASS_Nr = txtTelepassNr.Text
+        SDL.VIACARD = txtVIACard.Text
+        SDL.TelepassErsatzkarte = cbxErsatztelepass.Checked
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.TelepassErsatzkarteAm = cbxErsatztelepass._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '   If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtTelepassNr.TextChanged, txtVIACard.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxErsatztelepass.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt, boolDate) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & If(boolDate, ", am " & Now.ToShortDateString, "")
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb

@@ -0,0 +1,650 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlSDLLeistungenPLOSE_MEDPASS
+    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.components = New System.ComponentModel.Container()
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtPin = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 7
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'txtPin
+        '
+        Me.txtPin._DateTimeOnly = False
+        Me.txtPin._numbersOnly = False
+        Me.txtPin._numbersOnlyKommastellen = ""
+        Me.txtPin._numbersOnlyTrennzeichen = True
+        Me.txtPin._Prozent = False
+        Me.txtPin._ShortDateNew = False
+        Me.txtPin._ShortDateOnly = False
+        Me.txtPin._TimeOnly = False
+        Me.txtPin._TimeOnly_Seconds = False
+        Me.txtPin._value = Nothing
+        Me.txtPin._Waehrung = False
+        Me.txtPin._WaehrungZeichen = True
+        Me.txtPin.ForeColor = System.Drawing.Color.Black
+        Me.txtPin.Location = New System.Drawing.Point(106, 118)
+        Me.txtPin.MaxLength = 9
+        Me.txtPin.MaxLineLength = -1
+        Me.txtPin.MaxLines_Warning = ""
+        Me.txtPin.MaxLines_Warning_Label = Nothing
+        Me.txtPin.Name = "txtPin"
+        Me.txtPin.Size = New System.Drawing.Size(74, 20)
+        Me.txtPin.TabIndex = 3
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._numbersOnlyTrennzeichen = True
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._TimeOnly_Seconds = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.ForeColor = System.Drawing.Color.Black
+        Me.txtKartenNr.Location = New System.Drawing.Point(196, 181)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(93, 20)
+        Me.txtKartenNr.TabIndex = 2
+        Me.txtKartenNr.Visible = False
+        '
+        'txtOBUID
+        '
+        Me.txtOBUID._DateTimeOnly = False
+        Me.txtOBUID._numbersOnly = False
+        Me.txtOBUID._numbersOnlyKommastellen = ""
+        Me.txtOBUID._numbersOnlyTrennzeichen = True
+        Me.txtOBUID._Prozent = False
+        Me.txtOBUID._ShortDateNew = False
+        Me.txtOBUID._ShortDateOnly = False
+        Me.txtOBUID._TimeOnly = False
+        Me.txtOBUID._TimeOnly_Seconds = False
+        Me.txtOBUID._value = Nothing
+        Me.txtOBUID._Waehrung = False
+        Me.txtOBUID._WaehrungZeichen = True
+        Me.txtOBUID.ForeColor = System.Drawing.Color.Black
+        Me.txtOBUID.Location = New System.Drawing.Point(106, 96)
+        Me.txtOBUID.MaxLength = 18
+        Me.txtOBUID.MaxLineLength = -1
+        Me.txtOBUID.MaxLines_Warning = ""
+        Me.txtOBUID.MaxLines_Warning_Label = Nothing
+        Me.txtOBUID.Name = "txtOBUID"
+        Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
+        Me.txtOBUID.TabIndex = 4
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(3, 121)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(29, 13)
+        Me.Label3.TabIndex = 14
+        Me.Label3.Text = "Pin:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(121, 184)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(69, 13)
+        Me.Label1.TabIndex = 9
+        Me.Label1.Text = "Karten-Nr.:"
+        Me.Label1.Visible = False
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 99)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(52, 13)
+        Me.Label9.TabIndex = 12
+        Me.Label9.Text = "OBU-Id:"
+        '
+        'txtPLOSEKdNr
+        '
+        Me.txtPLOSEKdNr._DateTimeOnly = False
+        Me.txtPLOSEKdNr._numbersOnly = True
+        Me.txtPLOSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtPLOSEKdNr._numbersOnlyTrennzeichen = True
+        Me.txtPLOSEKdNr._Prozent = False
+        Me.txtPLOSEKdNr._ShortDateNew = False
+        Me.txtPLOSEKdNr._ShortDateOnly = False
+        Me.txtPLOSEKdNr._TimeOnly = False
+        Me.txtPLOSEKdNr._TimeOnly_Seconds = False
+        Me.txtPLOSEKdNr._value = ""
+        Me.txtPLOSEKdNr._Waehrung = False
+        Me.txtPLOSEKdNr._WaehrungZeichen = True
+        Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtPLOSEKdNr.MaxLineLength = -1
+        Me.txtPLOSEKdNr.MaxLines_Warning = ""
+        Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr"
+        Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtPLOSEKdNr.TabIndex = 21
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(471, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(93, 13)
+        Me.Label2.TabIndex = 20
+        Me.Label2.Text = "Plose-Kunden-Nr.:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtPLOSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 94
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(114, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "PLOSE MED PASS"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._numbersOnlyTrennzeichen = True
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._TimeOnly_Seconds = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 5
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 119
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 9
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 8
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 10
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 11
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._numbersOnlyTrennzeichen = True
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._TimeOnly_Seconds = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._numbersOnlyTrennzeichen = True
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._TimeOnly_Seconds = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._numbersOnlyTrennzeichen = True
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._TimeOnly_Seconds = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 6
+        Me.txtGueltigkeit2.Visible = False
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 123
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 122
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 121
+        Me.Label11.Text = "Gültig bis:"
+        Me.Label11.Visible = False
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 127
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanBestellung)
+        Me.TabPage2.Controls.Add(Me.scanPIN)
+        Me.TabPage2.Controls.Add(Me.scanLieferschein)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanBestellung
+        '
+        Me.scanBestellung._ARCHIV = True
+        Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
+        Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
+        Me.scanBestellung._MULTI_FILES = True
+        Me.scanBestellung._TEXT_PDF = "Bestellung"
+        Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanBestellung.BackColor = System.Drawing.Color.White
+        Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanBestellung.Location = New System.Drawing.Point(3, 30)
+        Me.scanBestellung.Name = "scanBestellung"
+        Me.scanBestellung.Size = New System.Drawing.Size(94, 24)
+        Me.scanBestellung.TabIndex = 26
+        '
+        'scanPIN
+        '
+        Me.scanPIN._ARCHIV = True
+        Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanPIN._DATENSERVER_ORDNER = "MDM"
+        Me.scanPIN._DATENSERVER_UOrdner1 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner2 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner3 = Nothing
+        Me.scanPIN._MULTI_FILES = True
+        Me.scanPIN._TEXT_PDF = "PIN"
+        Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanPIN.BackColor = System.Drawing.Color.White
+        Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanPIN.Location = New System.Drawing.Point(192, 4)
+        Me.scanPIN.Name = "scanPIN"
+        Me.scanPIN.Size = New System.Drawing.Size(58, 24)
+        Me.scanPIN.TabIndex = 24
+        '
+        'scanLieferschein
+        '
+        Me.scanLieferschein._ARCHIV = True
+        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferschein._MULTI_FILES = True
+        Me.scanLieferschein._TEXT_PDF = "Lieferschein"
+        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferschein.BackColor = System.Drawing.Color.White
+        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
+        Me.scanLieferschein.Name = "scanLieferschein"
+        Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
+        Me.scanLieferschein.TabIndex = 23
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges._OPEN_ORIGINAL = False
+        Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 56)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 108)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(98, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(93, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 128
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenPLOSE_MEDPASS
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.txtPin)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.txtOBUID)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Name = "usrCntlSDLLeistungenPLOSE_MEDPASS"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtPin As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.vb

@@ -0,0 +1,209 @@
+
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenPLOSE_MEDPASS
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+    Public History As String
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlLKW_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
+        'MsgBox("disp")
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        If txtPLOSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+        End If
+
+        boud = True
+
+        ' If txtMSEKdNr.Text = "" Then
+        '  getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        ' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        ' End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            'PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            ' txtGueltigkeit2._value = SDL.GültigBis
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxRetourniert.Checked = SDL.Retourniert
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+            ' txtPLOSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtOBUID.Text = SDL.OBUID
+            txtKartenNr.Text = SDL.KartenNr
+            txtPin.Text = SDL.PIN
+            PROG.initPIN(txtPin)
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+    End Sub
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        '   s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        '   If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        ' SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        'SDL. = txtPLOSEKdNr.Text
+        SDL.OBUID = txtOBUID.Text
+        SDL.KartenNr = txtKartenNr.Text
+        SDL.PIN = txtPin.Text
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtPin.TextChanged, txtVermerk.TextChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged ' txtGueltigkeit2.PropertyChanged, 
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_TRUCKMASTER.Designer.vb

@@ -0,0 +1,650 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlSDLLeistungenPLOSE_TRUCKMASTER
+    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.components = New System.ComponentModel.Container()
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtPin = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 7
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'txtPin
+        '
+        Me.txtPin._DateTimeOnly = False
+        Me.txtPin._numbersOnly = False
+        Me.txtPin._numbersOnlyKommastellen = ""
+        Me.txtPin._numbersOnlyTrennzeichen = True
+        Me.txtPin._Prozent = False
+        Me.txtPin._ShortDateNew = False
+        Me.txtPin._ShortDateOnly = False
+        Me.txtPin._TimeOnly = False
+        Me.txtPin._TimeOnly_Seconds = False
+        Me.txtPin._value = Nothing
+        Me.txtPin._Waehrung = False
+        Me.txtPin._WaehrungZeichen = True
+        Me.txtPin.ForeColor = System.Drawing.Color.Black
+        Me.txtPin.Location = New System.Drawing.Point(106, 118)
+        Me.txtPin.MaxLength = 9
+        Me.txtPin.MaxLineLength = -1
+        Me.txtPin.MaxLines_Warning = ""
+        Me.txtPin.MaxLines_Warning_Label = Nothing
+        Me.txtPin.Name = "txtPin"
+        Me.txtPin.Size = New System.Drawing.Size(74, 20)
+        Me.txtPin.TabIndex = 3
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._numbersOnlyTrennzeichen = True
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._TimeOnly_Seconds = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.ForeColor = System.Drawing.Color.Black
+        Me.txtKartenNr.Location = New System.Drawing.Point(196, 181)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(93, 20)
+        Me.txtKartenNr.TabIndex = 2
+        Me.txtKartenNr.Visible = False
+        '
+        'txtOBUID
+        '
+        Me.txtOBUID._DateTimeOnly = False
+        Me.txtOBUID._numbersOnly = False
+        Me.txtOBUID._numbersOnlyKommastellen = ""
+        Me.txtOBUID._numbersOnlyTrennzeichen = True
+        Me.txtOBUID._Prozent = False
+        Me.txtOBUID._ShortDateNew = False
+        Me.txtOBUID._ShortDateOnly = False
+        Me.txtOBUID._TimeOnly = False
+        Me.txtOBUID._TimeOnly_Seconds = False
+        Me.txtOBUID._value = Nothing
+        Me.txtOBUID._Waehrung = False
+        Me.txtOBUID._WaehrungZeichen = True
+        Me.txtOBUID.ForeColor = System.Drawing.Color.Black
+        Me.txtOBUID.Location = New System.Drawing.Point(106, 96)
+        Me.txtOBUID.MaxLength = 18
+        Me.txtOBUID.MaxLineLength = -1
+        Me.txtOBUID.MaxLines_Warning = ""
+        Me.txtOBUID.MaxLines_Warning_Label = Nothing
+        Me.txtOBUID.Name = "txtOBUID"
+        Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
+        Me.txtOBUID.TabIndex = 4
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(3, 121)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(29, 13)
+        Me.Label3.TabIndex = 14
+        Me.Label3.Text = "Pin:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(121, 184)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(69, 13)
+        Me.Label1.TabIndex = 9
+        Me.Label1.Text = "Karten-Nr.:"
+        Me.Label1.Visible = False
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 99)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(52, 13)
+        Me.Label9.TabIndex = 12
+        Me.Label9.Text = "OBU-Id:"
+        '
+        'txtPLOSEKdNr
+        '
+        Me.txtPLOSEKdNr._DateTimeOnly = False
+        Me.txtPLOSEKdNr._numbersOnly = True
+        Me.txtPLOSEKdNr._numbersOnlyKommastellen = ""
+        Me.txtPLOSEKdNr._numbersOnlyTrennzeichen = True
+        Me.txtPLOSEKdNr._Prozent = False
+        Me.txtPLOSEKdNr._ShortDateNew = False
+        Me.txtPLOSEKdNr._ShortDateOnly = False
+        Me.txtPLOSEKdNr._TimeOnly = False
+        Me.txtPLOSEKdNr._TimeOnly_Seconds = False
+        Me.txtPLOSEKdNr._value = ""
+        Me.txtPLOSEKdNr._Waehrung = False
+        Me.txtPLOSEKdNr._WaehrungZeichen = True
+        Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtPLOSEKdNr.MaxLineLength = -1
+        Me.txtPLOSEKdNr.MaxLines_Warning = ""
+        Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing
+        Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr"
+        Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtPLOSEKdNr.TabIndex = 21
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(471, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(93, 13)
+        Me.Label2.TabIndex = 20
+        Me.Label2.Text = "Plose-Kunden-Nr.:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtPLOSEKdNr)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 94
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(148, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "PLOSE TRUCK MASTER"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._numbersOnlyTrennzeichen = True
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._TimeOnly_Seconds = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 5
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 119
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 9
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 8
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 10
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 11
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._numbersOnlyTrennzeichen = True
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._TimeOnly_Seconds = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._numbersOnlyTrennzeichen = True
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._TimeOnly_Seconds = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._numbersOnlyTrennzeichen = True
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._TimeOnly_Seconds = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 6
+        Me.txtGueltigkeit2.Visible = False
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 123
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 122
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 121
+        Me.Label11.Text = "Gültig bis:"
+        Me.Label11.Visible = False
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 127
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanBestellung)
+        Me.TabPage2.Controls.Add(Me.scanPIN)
+        Me.TabPage2.Controls.Add(Me.scanLieferschein)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanBestellung
+        '
+        Me.scanBestellung._ARCHIV = True
+        Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
+        Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
+        Me.scanBestellung._MULTI_FILES = True
+        Me.scanBestellung._TEXT_PDF = "Bestellung"
+        Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanBestellung.BackColor = System.Drawing.Color.White
+        Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanBestellung.Location = New System.Drawing.Point(3, 30)
+        Me.scanBestellung.Name = "scanBestellung"
+        Me.scanBestellung.Size = New System.Drawing.Size(94, 24)
+        Me.scanBestellung.TabIndex = 26
+        '
+        'scanPIN
+        '
+        Me.scanPIN._ARCHIV = True
+        Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanPIN._DATENSERVER_ORDNER = "MDM"
+        Me.scanPIN._DATENSERVER_UOrdner1 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner2 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner3 = Nothing
+        Me.scanPIN._MULTI_FILES = True
+        Me.scanPIN._TEXT_PDF = "PIN"
+        Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanPIN.BackColor = System.Drawing.Color.White
+        Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanPIN.Location = New System.Drawing.Point(192, 4)
+        Me.scanPIN.Name = "scanPIN"
+        Me.scanPIN.Size = New System.Drawing.Size(58, 24)
+        Me.scanPIN.TabIndex = 24
+        '
+        'scanLieferschein
+        '
+        Me.scanLieferschein._ARCHIV = True
+        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferschein._MULTI_FILES = True
+        Me.scanLieferschein._TEXT_PDF = "Lieferschein"
+        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferschein.BackColor = System.Drawing.Color.White
+        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
+        Me.scanLieferschein.Name = "scanLieferschein"
+        Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
+        Me.scanLieferschein.TabIndex = 23
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges._OPEN_ORIGINAL = False
+        Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 56)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 108)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(98, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(93, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 128
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenPLOSE_TRUCKMASTER
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.txtPin)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.txtOBUID)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Name = "usrCntlSDLLeistungenPLOSE_TRUCKMASTER"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtPin As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_TRUCKMASTER.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_TRUCKMASTER.vb

@@ -0,0 +1,209 @@
+
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenPLOSE_TRUCKMASTER
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+    Public History As String
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Dim boud = False
+
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlLKW_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
+        'MsgBox("disp")
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        If txtPLOSEKdNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+        End If
+
+        boud = True
+
+        ' If txtMSEKdNr.Text = "" Then
+        '  getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        ' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        ' End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            'PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            ' txtGueltigkeit2._value = SDL.GültigBis
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxRetourniert.Checked = SDL.Retourniert
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+            ' txtPLOSEKdNr.Text = SDL.MSE_Kd_Nr
+            txtOBUID.Text = SDL.OBUID
+            txtKartenNr.Text = SDL.KartenNr
+            txtPin.Text = SDL.PIN
+            PROG.initPIN(txtPin)
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+    End Sub
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        '   s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        '   If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        ' SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        'SDL. = txtPLOSEKdNr.Text
+        SDL.OBUID = txtOBUID.Text
+        SDL.KartenNr = txtKartenNr.Text
+        SDL.PIN = txtPin.Text
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtPin.TextChanged, txtVermerk.TextChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged ' txtGueltigkeit2.PropertyChanged, 
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenSI.Designer.vb

@@ -0,0 +1,507 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenSI
+    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.components = New System.ComponentModel.Container()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtSERIE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanBestellPerPost = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 133)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtKartenNr.TabIndex = 5
+        '
+        'txtOBUID
+        '
+        Me.txtOBUID._DateTimeOnly = False
+        Me.txtOBUID._numbersOnly = False
+        Me.txtOBUID._numbersOnlyKommastellen = ""
+        Me.txtOBUID._Prozent = False
+        Me.txtOBUID._ShortDateNew = False
+        Me.txtOBUID._ShortDateOnly = False
+        Me.txtOBUID._TimeOnly = False
+        Me.txtOBUID._value = Nothing
+        Me.txtOBUID._Waehrung = False
+        Me.txtOBUID._WaehrungZeichen = True
+        Me.txtOBUID.Location = New System.Drawing.Point(106, 91)
+        Me.txtOBUID.MaxLength = 18
+        Me.txtOBUID.MaxLineLength = -1
+        Me.txtOBUID.MaxLines_Warning = ""
+        Me.txtOBUID.MaxLines_Warning_Label = Nothing
+        Me.txtOBUID.Name = "txtOBUID"
+        Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
+        Me.txtOBUID.TabIndex = 3
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 136)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(69, 13)
+        Me.Label1.TabIndex = 9
+        Me.Label1.Text = "Karten-Nr.:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 94)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(52, 13)
+        Me.Label9.TabIndex = 12
+        Me.Label9.Text = "OBU-Id:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(3, 115)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(69, 13)
+        Me.Label3.TabIndex = 16
+        Me.Label3.Text = "SERIE-Nr.:"
+        '
+        'txtSERIE
+        '
+        Me.txtSERIE._DateTimeOnly = False
+        Me.txtSERIE._numbersOnly = False
+        Me.txtSERIE._numbersOnlyKommastellen = ""
+        Me.txtSERIE._Prozent = False
+        Me.txtSERIE._ShortDateNew = False
+        Me.txtSERIE._ShortDateOnly = False
+        Me.txtSERIE._TimeOnly = False
+        Me.txtSERIE._value = Nothing
+        Me.txtSERIE._Waehrung = False
+        Me.txtSERIE._WaehrungZeichen = True
+        Me.txtSERIE.Location = New System.Drawing.Point(106, 112)
+        Me.txtSERIE.MaxLength = 16
+        Me.txtSERIE.MaxLineLength = -1
+        Me.txtSERIE.MaxLines_Warning = ""
+        Me.txtSERIE.MaxLines_Warning_Label = Nothing
+        Me.txtSERIE.Name = "txtSERIE"
+        Me.txtSERIE.Size = New System.Drawing.Size(183, 20)
+        Me.txtSERIE.TabIndex = 4
+        '
+        'cbxRetourniert
+        '
+        Me.cbxRetourniert._date = Nothing
+        Me.cbxRetourniert._showdate = True
+        Me.cbxRetourniert._value = ""
+        Me.cbxRetourniert.AutoSize = True
+        Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
+        Me.cbxRetourniert.Name = "cbxRetourniert"
+        Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
+        Me.cbxRetourniert.TabIndex = 7
+        Me.cbxRetourniert.Text = "Retourniert"
+        Me.cbxRetourniert.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 47
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(51, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "Maut SI"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 6
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 103
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 9
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 8
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 10
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 11
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 107
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 106
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 111
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanBestellPerPost)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Controls.Add(Me.scanRetourniert)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanBestellPerPost
+        '
+        Me.scanBestellPerPost._ARCHIV = True
+        Me.scanBestellPerPost._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanBestellPerPost._DATENSERVER_ORDNER = "MDM"
+        Me.scanBestellPerPost._DATENSERVER_UOrdner1 = Nothing
+        Me.scanBestellPerPost._DATENSERVER_UOrdner2 = Nothing
+        Me.scanBestellPerPost._DATENSERVER_UOrdner3 = Nothing
+        Me.scanBestellPerPost._MULTI_FILES = True
+        Me.scanBestellPerPost._TEXT_PDF = "Bestellung per Post"
+        Me.scanBestellPerPost.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanBestellPerPost.BackColor = System.Drawing.Color.White
+        Me.scanBestellPerPost.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanBestellPerPost.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanBestellPerPost.Location = New System.Drawing.Point(3, 4)
+        Me.scanBestellPerPost.Name = "scanBestellPerPost"
+        Me.scanBestellPerPost.Size = New System.Drawing.Size(135, 24)
+        Me.scanBestellPerPost.TabIndex = 22
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'scanRetourniert
+        '
+        Me.scanRetourniert._ARCHIV = True
+        Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
+        Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
+        Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
+        Me.scanRetourniert._MULTI_FILES = True
+        Me.scanRetourniert._TEXT_PDF = "Retourniert"
+        Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanRetourniert.BackColor = System.Drawing.Color.White
+        Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanRetourniert.Location = New System.Drawing.Point(144, 4)
+        Me.scanRetourniert.Name = "scanRetourniert"
+        Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
+        Me.scanRetourniert.TabIndex = 20
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 112
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenSI
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.cbxRetourniert)
+        Me.Controls.Add(Me.txtSERIE)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.txtOBUID)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Name = "usrCntlSDLLeistungenSI"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtSERIE As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents scanBestellPerPost As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenSI.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenSI.vb

@@ -0,0 +1,198 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenSI
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+    Public History As String
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+    
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        'scanRetourschreiben.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanBestellPerPost.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+        ' If txtMSEKdNr.Text = "" Then
+        'getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        ' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
+        'End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+
+
+            cbxRetourniert._date = SDL.RetourniertAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxRetourniert.Checked = SDL.Retourniert
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtOBUID.Text = SDL.OBUID
+            txtKartenNr.Text = SDL.KartenNr
+            txtSERIE.Text = SDL.SERIE_Nr
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+    Public Sub newEntry()
+        ' s.updateBinding()
+        ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Retourniert = cbxRetourniert.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.OBUID = txtOBUID.Text
+        SDL.KartenNr = txtKartenNr.Text
+        SDL.SERIE_Nr = txtSERIE.Text
+
+        SDL.RetourniertAm = cbxRetourniert._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+
+    Function checkSave() As Boolean
+        ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'ProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtSERIE.TextChanged, txtOBUID.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.Designer.vb

@@ -0,0 +1,560 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenUTA
+    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.components = New System.ComponentModel.Container()
+        Me.txtClientNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtCardNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'txtClientNr
+        '
+        Me.txtClientNr._DateTimeOnly = False
+        Me.txtClientNr._numbersOnly = True
+        Me.txtClientNr._numbersOnlyKommastellen = ""
+        Me.txtClientNr._Prozent = False
+        Me.txtClientNr._ShortDateNew = False
+        Me.txtClientNr._ShortDateOnly = False
+        Me.txtClientNr._TimeOnly = False
+        Me.txtClientNr._value = ""
+        Me.txtClientNr._Waehrung = False
+        Me.txtClientNr._WaehrungZeichen = True
+        Me.txtClientNr.Location = New System.Drawing.Point(574, 6)
+        Me.txtClientNr.MaxLineLength = -1
+        Me.txtClientNr.MaxLines_Warning = ""
+        Me.txtClientNr.MaxLines_Warning_Label = Nothing
+        Me.txtClientNr.Name = "txtClientNr"
+        Me.txtClientNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtClientNr.TabIndex = 15
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(515, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(53, 13)
+        Me.Label2.TabIndex = 14
+        Me.Label2.Text = "Client-Nr.:"
+        '
+        'txtCardNr
+        '
+        Me.txtCardNr._DateTimeOnly = False
+        Me.txtCardNr._numbersOnly = False
+        Me.txtCardNr._numbersOnlyKommastellen = ""
+        Me.txtCardNr._Prozent = False
+        Me.txtCardNr._ShortDateNew = False
+        Me.txtCardNr._ShortDateOnly = False
+        Me.txtCardNr._TimeOnly = False
+        Me.txtCardNr._value = Nothing
+        Me.txtCardNr._Waehrung = False
+        Me.txtCardNr._WaehrungZeichen = True
+        Me.txtCardNr.Location = New System.Drawing.Point(106, 122)
+        Me.txtCardNr.MaxLength = 3
+        Me.txtCardNr.MaxLineLength = -1
+        Me.txtCardNr.MaxLines_Warning = ""
+        Me.txtCardNr.MaxLines_Warning_Label = Nothing
+        Me.txtCardNr.Name = "txtCardNr"
+        Me.txtCardNr.Size = New System.Drawing.Size(44, 20)
+        Me.txtCardNr.TabIndex = 3
+        '
+        'txtKartenNr
+        '
+        Me.txtKartenNr._DateTimeOnly = False
+        Me.txtKartenNr._numbersOnly = False
+        Me.txtKartenNr._numbersOnlyKommastellen = ""
+        Me.txtKartenNr._Prozent = False
+        Me.txtKartenNr._ShortDateNew = False
+        Me.txtKartenNr._ShortDateOnly = False
+        Me.txtKartenNr._TimeOnly = False
+        Me.txtKartenNr._value = Nothing
+        Me.txtKartenNr._Waehrung = False
+        Me.txtKartenNr._WaehrungZeichen = True
+        Me.txtKartenNr.Location = New System.Drawing.Point(106, 97)
+        Me.txtKartenNr.MaxLength = 22
+        Me.txtKartenNr.MaxLineLength = -1
+        Me.txtKartenNr.MaxLines_Warning = ""
+        Me.txtKartenNr.MaxLines_Warning_Label = Nothing
+        Me.txtKartenNr.Name = "txtKartenNr"
+        Me.txtKartenNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtKartenNr.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(3, 125)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(58, 13)
+        Me.Label1.TabIndex = 12
+        Me.Label1.Text = "Card-Nr.:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 100)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(69, 13)
+        Me.Label9.TabIndex = 9
+        Me.Label9.Text = "Karten-Nr.:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(207, 126)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(32, 13)
+        Me.Label3.TabIndex = 16
+        Me.Label3.Text = "PIN:"
+        '
+        'txtPIN
+        '
+        Me.txtPIN._DateTimeOnly = False
+        Me.txtPIN._numbersOnly = False
+        Me.txtPIN._numbersOnlyKommastellen = ""
+        Me.txtPIN._Prozent = False
+        Me.txtPIN._ShortDateNew = False
+        Me.txtPIN._ShortDateOnly = False
+        Me.txtPIN._TimeOnly = False
+        Me.txtPIN._value = Nothing
+        Me.txtPIN._Waehrung = False
+        Me.txtPIN._WaehrungZeichen = True
+        Me.txtPIN.Location = New System.Drawing.Point(245, 123)
+        Me.txtPIN.MaxLength = 4
+        Me.txtPIN.MaxLineLength = -1
+        Me.txtPIN.MaxLines_Warning = ""
+        Me.txtPIN.MaxLines_Warning_Label = Nothing
+        Me.txtPIN.Name = "txtPIN"
+        Me.txtPIN.Size = New System.Drawing.Size(44, 20)
+        Me.txtPIN.TabIndex = 4
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 5
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 90
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = Nothing
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 7
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 9
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 8
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 10
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 11
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Controls.Add(Me.txtClientNr)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 92
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(66, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "UTA Karte"
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'txtGueltigkeit2
+        '
+        Me.txtGueltigkeit2._DateTimeOnly = False
+        Me.txtGueltigkeit2._numbersOnly = False
+        Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
+        Me.txtGueltigkeit2._Prozent = False
+        Me.txtGueltigkeit2._ShortDateNew = True
+        Me.txtGueltigkeit2._ShortDateOnly = False
+        Me.txtGueltigkeit2._TimeOnly = False
+        Me.txtGueltigkeit2._value = ""
+        Me.txtGueltigkeit2._Waehrung = False
+        Me.txtGueltigkeit2._WaehrungZeichen = True
+        Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
+        Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
+        Me.txtGueltigkeit2.MaxLength = 10
+        Me.txtGueltigkeit2.MaxLineLength = -1
+        Me.txtGueltigkeit2.MaxLines_Warning = ""
+        Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
+        Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
+        Me.txtGueltigkeit2.TabIndex = 6
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 96
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 95
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 39)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(53, 13)
+        Me.Label11.TabIndex = 94
+        Me.Label11.Text = "Gültig bis:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 100
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanPIN)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanPIN
+        '
+        Me.scanPIN._ARCHIV = True
+        Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanPIN._DATENSERVER_ORDNER = "MDM"
+        Me.scanPIN._DATENSERVER_UOrdner1 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner2 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner3 = Nothing
+        Me.scanPIN._MULTI_FILES = True
+        Me.scanPIN._TEXT_PDF = "PIN"
+        Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanPIN.BackColor = System.Drawing.Color.White
+        Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanPIN.Location = New System.Drawing.Point(3, 4)
+        Me.scanPIN.Name = "scanPIN"
+        Me.scanPIN.Size = New System.Drawing.Size(57, 24)
+        Me.scanPIN.TabIndex = 19
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 101
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenUTA
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.txtGueltigkeit2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.txtPIN)
+        Me.Controls.Add(Me.txtCardNr)
+        Me.Controls.Add(Me.txtKartenNr)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label9)
+        Me.Name = "usrCntlSDLLeistungenUTA"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtClientNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents txtCardNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtPIN As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.vb

@@ -0,0 +1,205 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenUTA
+    Public KfzKennzeichen As String
+    Public SDLNr As String
+    Public kdNr As String
+    Dim PROG As New cProgramFunctions
+    Dim kundenSQL As New kundenSQL
+
+    Public History As String
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Public addnew As Boolean = False
+    Dim VAL As New cValidationSDLLeistungen
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+
+    Dim boud = False
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+       
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+       scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+
+        If txtClientNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtClientNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr
+        End If
+        boud = True
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+
+
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+            PROG.initDTPE(txtGueltigkeit2)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+            txtGueltigkeit2._value = SDL.GültigBis
+
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtPIN.Text = SDL.PIN
+            PROG.initPIN(txtPIN)
+            txtKartenNr.Text = SDL.KartenNr
+            txtClientNr.Text = SDL.CLIENT_Nr
+            txtCardNr.Text = SDL.CARD_Nr
+
+            'Me.Enabled = s.bindingSource.Count > 0
+            'AddHandler s.bindingSource.PositionChanged, Sub()
+            'Me.Enabled = s.bindingSource.Count > 0
+            ' End Sub
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+    Public Sub newEntry()
+        ' s.updateBinding()
+        '  s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.PIN = txtPIN.Text
+        SDL.KartenNr = txtKartenNr.Text
+        SDL.CLIENT_Nr = txtClientNr.Text
+        SDL.CARD_Nr = txtCardNr.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+    Function checkSave() As Boolean
+        '  If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        '  If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPIN.TextChanged, txtKartenNr.TextChanged, txtClientNr.TextChanged, txtCardNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenWOELFL.Designer.vb

@@ -0,0 +1,485 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlSDLLeistungenWOELFL
+    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.components = New System.ComponentModel.Container()
+        Me.txtPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKartenschluesselNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.txtClientNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.tbcntr = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlDetails = New SDL.usrCntlAllg()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
+        Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.Panel2.SuspendLayout()
+        Me.tbcntr.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'txtPIN
+        '
+        Me.txtPIN._DateTimeOnly = False
+        Me.txtPIN._numbersOnly = False
+        Me.txtPIN._numbersOnlyKommastellen = ""
+        Me.txtPIN._Prozent = False
+        Me.txtPIN._ShortDateNew = False
+        Me.txtPIN._ShortDateOnly = False
+        Me.txtPIN._TimeOnly = False
+        Me.txtPIN._value = Nothing
+        Me.txtPIN._Waehrung = False
+        Me.txtPIN._WaehrungZeichen = True
+        Me.txtPIN.Location = New System.Drawing.Point(106, 128)
+        Me.txtPIN.MaxLength = 4
+        Me.txtPIN.MaxLineLength = -1
+        Me.txtPIN.MaxLines_Warning = ""
+        Me.txtPIN.MaxLines_Warning_Label = Nothing
+        Me.txtPIN.Name = "txtPIN"
+        Me.txtPIN.Size = New System.Drawing.Size(48, 20)
+        Me.txtPIN.TabIndex = 3
+        '
+        'txtKartenschluesselNummer
+        '
+        Me.txtKartenschluesselNummer._DateTimeOnly = False
+        Me.txtKartenschluesselNummer._numbersOnly = False
+        Me.txtKartenschluesselNummer._numbersOnlyKommastellen = ""
+        Me.txtKartenschluesselNummer._Prozent = False
+        Me.txtKartenschluesselNummer._ShortDateNew = False
+        Me.txtKartenschluesselNummer._ShortDateOnly = False
+        Me.txtKartenschluesselNummer._TimeOnly = False
+        Me.txtKartenschluesselNummer._value = Nothing
+        Me.txtKartenschluesselNummer._Waehrung = False
+        Me.txtKartenschluesselNummer._WaehrungZeichen = True
+        Me.txtKartenschluesselNummer.Location = New System.Drawing.Point(106, 102)
+        Me.txtKartenschluesselNummer.MaxLength = 7
+        Me.txtKartenschluesselNummer.MaxLineLength = -1
+        Me.txtKartenschluesselNummer.MaxLines_Warning = ""
+        Me.txtKartenschluesselNummer.MaxLines_Warning_Label = Nothing
+        Me.txtKartenschluesselNummer.Name = "txtKartenschluesselNummer"
+        Me.txtKartenschluesselNummer.Size = New System.Drawing.Size(100, 20)
+        Me.txtKartenschluesselNummer.TabIndex = 2
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(3, 131)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(32, 13)
+        Me.Label3.TabIndex = 12
+        Me.Label3.Text = "PIN:"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 105)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(102, 13)
+        Me.Label9.TabIndex = 10
+        Me.Label9.Text = "Karten-Schl.-Nr.:"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel2.Controls.Add(Me.txtClientNr)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Controls.Add(Me.Label8)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(760, 30)
+        Me.Panel2.TabIndex = 94
+        '
+        'txtClientNr
+        '
+        Me.txtClientNr._DateTimeOnly = False
+        Me.txtClientNr._numbersOnly = True
+        Me.txtClientNr._numbersOnlyKommastellen = ""
+        Me.txtClientNr._Prozent = False
+        Me.txtClientNr._ShortDateNew = False
+        Me.txtClientNr._ShortDateOnly = False
+        Me.txtClientNr._TimeOnly = False
+        Me.txtClientNr._value = ""
+        Me.txtClientNr._Waehrung = False
+        Me.txtClientNr._WaehrungZeichen = True
+        Me.txtClientNr.Location = New System.Drawing.Point(573, 6)
+        Me.txtClientNr.MaxLineLength = -1
+        Me.txtClientNr.MaxLines_Warning = ""
+        Me.txtClientNr.MaxLines_Warning_Label = Nothing
+        Me.txtClientNr.Name = "txtClientNr"
+        Me.txtClientNr.ReadOnly = True
+        Me.txtClientNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtClientNr.TabIndex = 117
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(506, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(61, 13)
+        Me.Label2.TabIndex = 116
+        Me.Label2.Text = "Wölfl KdNr:"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(6, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(111, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "WÖLFL Tankkarte"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._value = Nothing
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = True
+        Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Multiline = True
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
+        Me.txtVermerk.TabIndex = 4
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(3, 165)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(49, 13)
+        Me.Label4.TabIndex = 107
+        Me.Label4.Text = "Vermerk:"
+        '
+        'cbxErsatzkarte
+        '
+        Me.cbxErsatzkarte._date = Nothing
+        Me.cbxErsatzkarte._showdate = True
+        Me.cbxErsatzkarte._value = ""
+        Me.cbxErsatzkarte.AutoSize = True
+        Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
+        Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
+        Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
+        Me.cbxErsatzkarte.TabIndex = 5
+        Me.cbxErsatzkarte.Text = "Ersatzkarte"
+        Me.cbxErsatzkarte.UseVisualStyleBackColor = True
+        '
+        'cbxGestohlen
+        '
+        Me.cbxGestohlen._date = Nothing
+        Me.cbxGestohlen._showdate = True
+        Me.cbxGestohlen._value = ""
+        Me.cbxGestohlen.AutoSize = True
+        Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
+        Me.cbxGestohlen.Name = "cbxGestohlen"
+        Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
+        Me.cbxGestohlen.TabIndex = 7
+        Me.cbxGestohlen.Text = "Gestohlen"
+        Me.cbxGestohlen.UseVisualStyleBackColor = True
+        '
+        'cbxVerloren
+        '
+        Me.cbxVerloren._date = Nothing
+        Me.cbxVerloren._showdate = True
+        Me.cbxVerloren._value = ""
+        Me.cbxVerloren.AutoSize = True
+        Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
+        Me.cbxVerloren.Name = "cbxVerloren"
+        Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
+        Me.cbxVerloren.TabIndex = 6
+        Me.cbxVerloren.Text = "Verloren"
+        Me.cbxVerloren.UseVisualStyleBackColor = True
+        '
+        'cbxGesperrt
+        '
+        Me.cbxGesperrt._date = Nothing
+        Me.cbxGesperrt._showdate = True
+        Me.cbxGesperrt._value = ""
+        Me.cbxGesperrt.AutoSize = True
+        Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
+        Me.cbxGesperrt.Name = "cbxGesperrt"
+        Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
+        Me.cbxGesperrt.TabIndex = 8
+        Me.cbxGesperrt.Text = "Gesperrt"
+        Me.cbxGesperrt.UseVisualStyleBackColor = True
+        '
+        'cbxDefekt
+        '
+        Me.cbxDefekt._date = Nothing
+        Me.cbxDefekt._showdate = True
+        Me.cbxDefekt._value = ""
+        Me.cbxDefekt.AutoSize = True
+        Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
+        Me.cbxDefekt.Name = "cbxDefekt"
+        Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
+        Me.cbxDefekt.TabIndex = 9
+        Me.cbxDefekt.Text = "Defekt"
+        Me.cbxDefekt.UseVisualStyleBackColor = True
+        '
+        'txtLieferung
+        '
+        Me.txtLieferung._DateTimeOnly = False
+        Me.txtLieferung._numbersOnly = False
+        Me.txtLieferung._numbersOnlyKommastellen = ""
+        Me.txtLieferung._Prozent = False
+        Me.txtLieferung._ShortDateNew = True
+        Me.txtLieferung._ShortDateOnly = False
+        Me.txtLieferung._TimeOnly = False
+        Me.txtLieferung._value = ""
+        Me.txtLieferung._Waehrung = False
+        Me.txtLieferung._WaehrungZeichen = True
+        Me.txtLieferung.ForeColor = System.Drawing.Color.Red
+        Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
+        Me.txtLieferung.MaxLength = 10
+        Me.txtLieferung.MaxLineLength = -1
+        Me.txtLieferung.MaxLines_Warning = ""
+        Me.txtLieferung.MaxLines_Warning_Label = Nothing
+        Me.txtLieferung.Name = "txtLieferung"
+        Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
+        Me.txtLieferung.TabIndex = 1
+        '
+        'txtBestellung
+        '
+        Me.txtBestellung._DateTimeOnly = False
+        Me.txtBestellung._numbersOnly = False
+        Me.txtBestellung._numbersOnlyKommastellen = ""
+        Me.txtBestellung._Prozent = False
+        Me.txtBestellung._ShortDateNew = True
+        Me.txtBestellung._ShortDateOnly = False
+        Me.txtBestellung._TimeOnly = False
+        Me.txtBestellung._value = ""
+        Me.txtBestellung._Waehrung = False
+        Me.txtBestellung._WaehrungZeichen = True
+        Me.txtBestellung.ForeColor = System.Drawing.Color.Red
+        Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
+        Me.txtBestellung.MaxLength = 10
+        Me.txtBestellung.MaxLineLength = -1
+        Me.txtBestellung.MaxLines_Warning = ""
+        Me.txtBestellung.MaxLines_Warning_Label = Nothing
+        Me.txtBestellung.Name = "txtBestellung"
+        Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
+        Me.txtBestellung.TabIndex = 0
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(65, 13)
+        Me.Label6.TabIndex = 111
+        Me.Label6.Text = "Lieferdatum:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 39)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(70, 13)
+        Me.Label7.TabIndex = 110
+        Me.Label7.Text = "Bestelldatum:"
+        '
+        'tbcntr
+        '
+        Me.tbcntr.Controls.Add(Me.TabPage1)
+        Me.tbcntr.Controls.Add(Me.TabPage2)
+        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
+        Me.tbcntr.Location = New System.Drawing.Point(496, 30)
+        Me.tbcntr.Name = "tbcntr"
+        Me.tbcntr.SelectedIndex = 0
+        Me.tbcntr.Size = New System.Drawing.Size(264, 190)
+        Me.tbcntr.TabIndex = 115
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Details"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'UsrCntlDetails
+        '
+        Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
+        Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlDetails.Name = "UsrCntlDetails"
+        Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
+        Me.UsrCntlDetails.TabIndex = 18
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.scanPIN)
+        Me.TabPage2.Controls.Add(Me.scanSonstiges)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(256, 164)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "Dokumente"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'scanPIN
+        '
+        Me.scanPIN._ARCHIV = True
+        Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanPIN._DATENSERVER_ORDNER = "MDM"
+        Me.scanPIN._DATENSERVER_UOrdner1 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner2 = Nothing
+        Me.scanPIN._DATENSERVER_UOrdner3 = Nothing
+        Me.scanPIN._MULTI_FILES = True
+        Me.scanPIN._TEXT_PDF = "PIN"
+        Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanPIN.BackColor = System.Drawing.Color.White
+        Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanPIN.Location = New System.Drawing.Point(3, 4)
+        Me.scanPIN.Name = "scanPIN"
+        Me.scanPIN.Size = New System.Drawing.Size(57, 24)
+        Me.scanPIN.TabIndex = 19
+        '
+        'scanSonstiges
+        '
+        Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
+        Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
+        Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanSonstiges.BackColor = System.Drawing.Color.White
+        Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
+        Me.scanSonstiges.Name = "scanSonstiges"
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.TabIndex = 21
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert._date = Nothing
+        Me.cbxArchiviert._showdate = True
+        Me.cbxArchiviert._value = ""
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
+        Me.cbxArchiviert.TabIndex = 116
+        Me.cbxArchiviert.Text = "ARCHIVIERT"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'usrCntlSDLLeistungenWOELFL
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.cbxArchiviert)
+        Me.Controls.Add(Me.tbcntr)
+        Me.Controls.Add(Me.txtLieferung)
+        Me.Controls.Add(Me.txtBestellung)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.txtVermerk)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.cbxErsatzkarte)
+        Me.Controls.Add(Me.cbxGestohlen)
+        Me.Controls.Add(Me.cbxVerloren)
+        Me.Controls.Add(Me.cbxGesperrt)
+        Me.Controls.Add(Me.cbxDefekt)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.txtPIN)
+        Me.Controls.Add(Me.txtKartenschluesselNummer)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label9)
+        Me.Name = "usrCntlSDLLeistungenWOELFL"
+        Me.Size = New System.Drawing.Size(760, 220)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.tbcntr.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage2.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents txtPIN As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtKartenschluesselNummer As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents Label9 As System.Windows.Forms.Label
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label8 As System.Windows.Forms.Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+    Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As System.Windows.Forms.Label
+    Friend WithEvents tbcntr As System.Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
+    Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
+    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
+    Friend WithEvents txtClientNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
+
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenWOELFL.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/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenWOELFL.vb

@@ -0,0 +1,224 @@
+Imports System.Globalization
+
+Public Class usrCntlSDLLeistungenWOELFL
+    Public KfzKennzeichen As String
+    Public kdNr As String
+    Public SDLNr As String
+    Public History As String
+    Dim kundenSQL As New kundenSQL
+
+    Dim culture As CultureInfo = New CultureInfo("de-DE")
+    Public addnew As Boolean = False
+
+    'Public WithEvents s As New cBinding 'fürs Binding
+    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
+    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
+    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
+    Public PROG As New cProgramFunctions
+    Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
+    Dim VAL As New cValidationSDLLeistungen
+    Dim boud = False
+
+
+    Sub New(kdNr, KfzKennzeichen, SDLNr, History)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.kdNr = kdNr
+        Me.KfzKennzeichen = KfzKennzeichen
+        Me.SDLNr = SDLNr
+        Me.History = History
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
+      
+        UsrCntlDetails.kdNr = kdNr
+        UsrCntlDetails.SDLNr = SDLNr
+        UsrCntlDetails.History = History
+        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
+        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
+                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
+                                              End Sub
+
+        'Scan-Elemente initialisieren:
+        scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+
+        initDataBinding()
+        boud = True
+
+        If txtClientNr.Text = "" Then
+            getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+            txtClientNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr
+        End If
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
+            cProgramFunctions.setControlReadOnly(Me)
+        End If
+    End Sub
+    Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
+        PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+    End Sub
+
+
+    Function gueltigBisabgelaufen(o) As Boolean
+        If CDate(o) > Now Then
+            Return False
+        End If
+        Return True
+    End Function
+    Sub initDataBinding()
+        Try
+            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
+
+            PROG.initDTPE(txtLieferung)
+            PROG.initDTPE(txtBestellung)
+
+            txtLieferung._value = SDL.Lieferdatum
+            txtBestellung._value = SDL.Bestelldatum
+
+
+            cbxErsatzkarte._date = SDL.ErsatzkarteAm
+            cbxVerloren._date = SDL.VerlorenAm
+            cbxGestohlen._date = SDL.GestohlenAm
+            cbxGesperrt._date = SDL.GesperrtAm
+            cbxDefekt._date = SDL.DefektAm
+
+            cbxGesperrt.Checked = SDL.Gesperrt
+            cbxDefekt.Checked = SDL.Defekt
+            cbxGestohlen.Checked = SDL.Gestohlen
+            cbxVerloren.Checked = SDL.Verloren
+            cbxArchiviert.Checked = SDL.Archiviert
+
+            cbxErsatzkarte.Checked = SDL.Ersatzkarte
+
+            txtVermerk.Text = SDL.Vermerk
+
+            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
+            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
+            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
+
+
+            txtPIN.Text = SDL.PIN
+            PROG.initPIN(txtPIN)
+            txtKartenschluesselNummer.Text = SDL.KartenSchlüsselNr
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            MsgBox(ex.StackTrace)
+        End Try
+
+
+
+    End Sub
+
+
+
+    Public Sub newEntry()
+        '  s.updateBinding()
+        's.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
+        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
+    End Sub
+
+    Sub BindingTableColumnChanged()
+        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
+        '  If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
+        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
+    End Sub
+
+   
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
+        Dim valid As Boolean = VAL.checkValidDate(sender, True)
+    End Sub
+   
+    Public Function save() As Boolean
+        loadDataInClass()
+        Return SDL.SAVE
+        'If checkSave() Then
+        '        Return kundenSQL.doSQLByList(s.bindingSource)
+        'End If
+        Return False
+    End Function
+
+    Sub loadDataInClass()
+        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
+        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
+        SDL.Gesperrt = cbxGesperrt.Checked
+        SDL.Defekt = cbxDefekt.Checked
+        SDL.Gestohlen = cbxGestohlen.Checked
+        SDL.Verloren = cbxVerloren.Checked
+        SDL.Ersatzkarte = cbxErsatzkarte.Checked
+        SDL.Vermerk = txtVermerk.Text
+        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
+        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
+        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
+        SDL.PIN = txtPIN.Text
+        SDL.KartenSchlüsselNr = txtKartenschluesselNummer.Text
+
+        SDL.ErsatzkarteAm = cbxErsatzkarte._date
+        SDL.VerlorenAm = cbxVerloren._date
+        SDL.GestohlenAm = cbxGestohlen._date
+        SDL.GesperrtAm = cbxGesperrt._date
+        SDL.DefektAm = cbxDefekt._date
+        SDL.Archiviert = cbxArchiviert.Checked
+    End Sub
+
+
+    Public Sub reInit()
+        For Each c In Me.Controls
+            If c.GetType.Name = "TextBox" Then
+                Dim tb As TextBox = DirectCast(c, TextBox)
+                tb.Text = tb.Text
+                '        MsgBox(tb.Name)
+            End If
+        Next
+
+
+    End Sub
+
+    Function checkSave() As Boolean
+        ' ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
+        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
+        Return True
+    End Function
+
+    '??????????????????????????????????????????????????????????????????????????????????
+    ' DGV mit CRTL+S speichern
+    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As PreviewKeyDownEventArgs) Handles MyBase.PreviewKeyDown
+        Exit Sub
+        'If dgvSDLLeistungen.Focused Or (Not dgvSDLLeistungen.EditingControl Is Nothing AndAlso dgvSDLLeistungen.EditingControl.Focused) Then ' wenn DGV fokusiert, oder in Bearbeitung
+        If e.Modifiers = Keys.Control Then
+            If e.KeyCode = Keys.S Then
+                ' dgvSDLLeistungen.EndEdit() ' Falls noch in Bearbeitung
+                save() ' Speichern 
+            End If
+        End If
+    End Sub
+
+
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPIN.TextChanged, txtKartenschluesselNummer.TextChanged, txtVermerk.TextChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
+
+        If boud And Me.FindForm IsNot Nothing Then
+            If sender Is txtLieferung Then
+                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
+            End If
+            BindingTableColumnChanged()
+        End If
+    End Sub
+    Function addTxtToVermerk(tmp, txt) As String
+        If txtVermerk.Text <> "" Then tmp &= " / "
+        tmp &= txt & ", am " & Now.ToShortDateString
+        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
+        Return tmp
+    End Function
+
+  
+End Class