Mailsender, StartOptions

UID/ADMIN.vbproj

@@ -642,6 +642,12 @@
     <Compile Include="Programme\usrCntlProgramme.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="usrCntlMailsender_.Designer.vb">
+      <DependentUpon>usrCntlMailsender_.vb</DependentUpon>
+    </Compile>
+    <Compile Include="usrCntlMailsender_.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="usrCntlDatenarchiv.Designer.vb">
       <DependentUpon>usrCntlDatenarchiv.vb</DependentUpon>
     </Compile>
@@ -852,6 +858,9 @@
     <EmbeddedResource Include="Programme\usrCntlProgramme.resx">
       <DependentUpon>usrCntlProgramme.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="usrCntlMailsender_.resx">
+      <DependentUpon>usrCntlMailsender_.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="usrCntlDatenarchiv.resx">
       <DependentUpon>usrCntlDatenarchiv.vb</DependentUpon>
     </EmbeddedResource>

UID/frmMain.vb

@@ -230,7 +230,7 @@ Public Class frmMain
 
     Private Sub btnMailroutine_Click(sender As Object, e As EventArgs) Handles btnMailroutine.Click
         clrPnlMain()
-        Dim usrCntl As New usrCntlDatenarchiv("tblMailsender", "ADMIN")
+        Dim usrCntl As New usrCntlMailsender_("tblMailsender", "ADMIN")
         pnlMain.Controls.Add(usrCntl)
         usrCntl.Dock = DockStyle.Fill
         button_Click(sender)

UID/usrCntlMailsender_.Designer.vb

@@ -0,0 +1,352 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlMailsender_
+    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.SplitContainer = New System.Windows.Forms.SplitContainer()
+        Me.pnlSearch = New System.Windows.Forms.Panel()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.cbxaktiv = New System.Windows.Forms.CheckBox()
+        Me.cboPartnersystem = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.btnSuche = New System.Windows.Forms.Button()
+        Me.pnlAnzeige = New System.Windows.Forms.Panel()
+        Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.btnSave = New System.Windows.Forms.Button()
+        Me.lblErgebnis = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Button11 = New System.Windows.Forms.Button()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer.Panel1.SuspendLayout()
+        Me.SplitContainer.Panel2.SuspendLayout()
+        Me.SplitContainer.SuspendLayout()
+        Me.pnlSearch.SuspendLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        Me.pnlAnzeige.SuspendLayout()
+        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'SplitContainer
+        '
+        Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+        Me.SplitContainer.IsSplitterFixed = True
+        Me.SplitContainer.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer.Name = "SplitContainer"
+        Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer.Panel1
+        '
+        Me.SplitContainer.Panel1.Controls.Add(Me.pnlSearch)
+        '
+        'SplitContainer.Panel2
+        '
+        Me.SplitContainer.Panel2.Controls.Add(Me.pnlAnzeige)
+        Me.SplitContainer.Size = New System.Drawing.Size(1020, 687)
+        Me.SplitContainer.SplitterDistance = 80
+        Me.SplitContainer.SplitterWidth = 2
+        Me.SplitContainer.TabIndex = 3
+        '
+        'pnlSearch
+        '
+        Me.pnlSearch.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnlSearch.BackColor = System.Drawing.Color.White
+        Me.pnlSearch.Controls.Add(Me.SplitContainer1)
+        Me.pnlSearch.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnlSearch.Location = New System.Drawing.Point(0, 0)
+        Me.pnlSearch.Name = "pnlSearch"
+        Me.pnlSearch.Size = New System.Drawing.Size(1020, 80)
+        Me.pnlSearch.TabIndex = 0
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.txtSuche)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label9)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cbxaktiv)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboPartnersystem)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label8)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnSuche)
+        Me.SplitContainer1.Panel2Collapsed = True
+        Me.SplitContainer1.Size = New System.Drawing.Size(1020, 80)
+        Me.SplitContainer1.SplitterDistance = 55
+        Me.SplitContainer1.TabIndex = 0
+        '
+        'cbxaktiv
+        '
+        Me.cbxaktiv.AutoSize = True
+        Me.cbxaktiv.Location = New System.Drawing.Point(27, 9)
+        Me.cbxaktiv.Name = "cbxaktiv"
+        Me.cbxaktiv.Size = New System.Drawing.Size(49, 17)
+        Me.cbxaktiv.TabIndex = 55
+        Me.cbxaktiv.Text = "aktiv"
+        Me.cbxaktiv.UseVisualStyleBackColor = True
+        '
+        'cboPartnersystem
+        '
+        Me.cboPartnersystem._allowedValuesFreiText = Nothing
+        Me.cboPartnersystem._allowFreiText = False
+        Me.cboPartnersystem._value = ""
+        Me.cboPartnersystem.DropDownWidth = 250
+        Me.cboPartnersystem.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboPartnersystem.FormattingEnabled = True
+        Me.cboPartnersystem.Location = New System.Drawing.Point(18, 44)
+        Me.cboPartnersystem.Name = "cboPartnersystem"
+        Me.cboPartnersystem.Size = New System.Drawing.Size(73, 22)
+        Me.cboPartnersystem.TabIndex = 54
+        '
+        '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.Location = New System.Drawing.Point(15, 29)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(46, 13)
+        Me.Label8.TabIndex = 45
+        Me.Label8.Text = "Param:"
+        '
+        'btnSuche
+        '
+        Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSuche.Location = New System.Drawing.Point(850, 9)
+        Me.btnSuche.Name = "btnSuche"
+        Me.btnSuche.Size = New System.Drawing.Size(162, 52)
+        Me.btnSuche.TabIndex = 28
+        Me.btnSuche.Text = "Ergebnisse laden"
+        Me.btnSuche.UseVisualStyleBackColor = True
+        '
+        'pnlAnzeige
+        '
+        Me.pnlAnzeige.BackColor = System.Drawing.Color.White
+        Me.pnlAnzeige.Controls.Add(Me.DataGridView)
+        Me.pnlAnzeige.Controls.Add(Me.Panel1)
+        Me.pnlAnzeige.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnlAnzeige.Location = New System.Drawing.Point(0, 0)
+        Me.pnlAnzeige.Name = "pnlAnzeige"
+        Me.pnlAnzeige.Size = New System.Drawing.Size(1020, 605)
+        Me.pnlAnzeige.TabIndex = 0
+        '
+        'DataGridView
+        '
+        Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1
+        Me.DataGridView.AllowUserToDeleteRows = False
+        Me.DataGridView.AllowUserToOrderColumns = True
+        Me.DataGridView.AllowUserToResizeRows = False
+        Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DataGridView.Location = New System.Drawing.Point(0, 0)
+        Me.DataGridView.Name = "DataGridView"
+        Me.DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect
+        Me.DataGridView.Size = New System.Drawing.Size(1020, 561)
+        Me.DataGridView.TabIndex = 0
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.btnSave)
+        Me.Panel1.Controls.Add(Me.lblErgebnis)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.txtMaxSrch)
+        Me.Panel1.Controls.Add(Me.Button10)
+        Me.Panel1.Controls.Add(Me.Button11)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel1.Location = New System.Drawing.Point(0, 561)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1020, 44)
+        Me.Panel1.TabIndex = 1
+        '
+        'btnSave
+        '
+        Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSave.Location = New System.Drawing.Point(789, 5)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(118, 26)
+        Me.btnSave.TabIndex = 56
+        Me.btnSave.Text = "speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        '
+        'lblErgebnis
+        '
+        Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblErgebnis.Location = New System.Drawing.Point(864, 25)
+        Me.lblErgebnis.Name = "lblErgebnis"
+        Me.lblErgebnis.Size = New System.Drawing.Size(152, 13)
+        Me.lblErgebnis.TabIndex = 45
+        Me.lblErgebnis.Text = "Max:"
+        Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(930, 5)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(30, 13)
+        Me.Label4.TabIndex = 43
+        Me.Label4.Text = "Max:"
+        '
+        'txtMaxSrch
+        '
+        Me.txtMaxSrch._DateTimeOnly = False
+        Me.txtMaxSrch._numbersOnly = True
+        Me.txtMaxSrch._numbersOnlyKommastellen = ""
+        Me.txtMaxSrch._numbersOnlyTrennzeichen = True
+        Me.txtMaxSrch._Prozent = False
+        Me.txtMaxSrch._ShortDateNew = False
+        Me.txtMaxSrch._ShortDateOnly = False
+        Me.txtMaxSrch._TimeOnly = False
+        Me.txtMaxSrch._TimeOnly_Seconds = False
+        Me.txtMaxSrch._value = ""
+        Me.txtMaxSrch._Waehrung = False
+        Me.txtMaxSrch._WaehrungZeichen = True
+        Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
+        Me.txtMaxSrch.Location = New System.Drawing.Point(966, 2)
+        Me.txtMaxSrch.MaxLineLength = -1
+        Me.txtMaxSrch.MaxLines_Warning = ""
+        Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
+        Me.txtMaxSrch.Name = "txtMaxSrch"
+        Me.txtMaxSrch.Size = New System.Drawing.Size(51, 20)
+        Me.txtMaxSrch.TabIndex = 44
+        Me.txtMaxSrch.Text = "1000"
+        Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Button10
+        '
+        Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button10.Location = New System.Drawing.Point(1117, 1)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(41, 34)
+        Me.Button10.TabIndex = 3
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Button11
+        '
+        Me.Button11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button11.ForeColor = System.Drawing.Color.Black
+        Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button11.Location = New System.Drawing.Point(1164, 1)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(41, 34)
+        Me.Button11.TabIndex = 4
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(108, 26)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(45, 13)
+        Me.Label9.TabIndex = 56
+        Me.Label9.Text = "Suche*:"
+        '
+        'txtSuche
+        '
+        Me.txtSuche._DateTimeOnly = False
+        Me.txtSuche._numbersOnly = False
+        Me.txtSuche._numbersOnlyKommastellen = ""
+        Me.txtSuche._numbersOnlyTrennzeichen = True
+        Me.txtSuche._Prozent = False
+        Me.txtSuche._ShortDateNew = False
+        Me.txtSuche._ShortDateOnly = False
+        Me.txtSuche._TimeOnly = False
+        Me.txtSuche._TimeOnly_Seconds = False
+        Me.txtSuche._value = ""
+        Me.txtSuche._Waehrung = False
+        Me.txtSuche._WaehrungZeichen = True
+        Me.txtSuche.ForeColor = System.Drawing.Color.Black
+        Me.txtSuche.Location = New System.Drawing.Point(169, 22)
+        Me.txtSuche.MaxLineLength = -1
+        Me.txtSuche.MaxLines_Warning = ""
+        Me.txtSuche.MaxLines_Warning_Label = Nothing
+        Me.txtSuche.Name = "txtSuche"
+        Me.txtSuche.Size = New System.Drawing.Size(217, 20)
+        Me.txtSuche.TabIndex = 57
+        '
+        'usrCntlMailsender_
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.SplitContainer)
+        Me.Name = "usrCntlMailsender_"
+        Me.Size = New System.Drawing.Size(1020, 687)
+        Me.SplitContainer.Panel1.ResumeLayout(False)
+        Me.SplitContainer.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer.ResumeLayout(False)
+        Me.pnlSearch.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.PerformLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer1.ResumeLayout(False)
+        Me.pnlAnzeige.ResumeLayout(False)
+        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents SplitContainer As SplitContainer
+    Friend WithEvents pnlSearch As Panel
+    Friend WithEvents SplitContainer1 As SplitContainer
+    Friend WithEvents btnSuche As Button
+    Friend WithEvents pnlAnzeige As Panel
+    Friend WithEvents DataGridView As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label4 As Label
+    Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Button10 As Button
+    Friend WithEvents Button11 As Button
+    Friend WithEvents Label8 As Label
+    Friend WithEvents lblErgebnis As Label
+    Friend WithEvents cboPartnersystem As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cbxaktiv As CheckBox
+    Friend WithEvents btnSave As Button
+    Friend WithEvents Label9 As Label
+    Friend WithEvents txtSuche As VERAG_PROG_ALLGEMEIN.MyTextBox
+End Class

UID/usrCntlMailsender_.resx

@@ -0,0 +1,123 @@
+<?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>
+  <metadata name="pnlAnzeige.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+</root>

UID/usrCntlMailsender_.vb

@@ -0,0 +1,220 @@
+Imports System.ComponentModel
+Imports System.Data.SqlTypes
+Imports System.IO
+Imports System.Windows.Documents
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrCntlMailsender_
+
+
+    Dim DatenarchivBind As cEasyBinding
+    Public table
+    Public BIND_DB
+    Private EditRow As Integer = -1
+    Sub New(table, BIND_DB)
+        Me.table = table
+        Me.BIND_DB = BIND_DB
+        InitializeComponent()
+    End Sub
+
+
+    Private Sub usrCntlDatenarchiv_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        loaddgv()
+
+        'cboPartnersystem.Items.Clear()
+        Dim distinctDT As DataTable = DatenarchivBind.bindingdataTable.DefaultView.ToTable(True, "ms_param")
+
+        For Each d As DataRow In distinctDT.Rows
+            If Not cboPartnersystem.Items.Contains(d.Item(0)) Then cboPartnersystem.Items.Add(d.Item(0))
+        Next
+
+
+    End Sub
+
+    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
+        Me.Cursor = Cursors.WaitCursor
+
+        loaddgv()
+
+        Me.Cursor = Cursors.Default
+    End Sub
+
+
+    Function getParamwhere() As String
+
+        Dim sqlstr = ""
+        If cboPartnersystem._value <> "" Then sqlstr &= " AND [ms_param] = '" & cboPartnersystem._value & "'"
+
+        If txtSuche.Text <> "" Then
+            sqlstr &= " AND ([ms_subject] like '" & txtSuche.Text.Replace("*", "%") & "' Or [ms_an] like '" & txtSuche.Text.Replace("*", "%") & "' OR [ms_info] like '" & txtSuche.Text.Replace("*", "%") & "')  "
+        End If
+
+
+        sqlstr &= " and ms_aktiv = " & IIf(cbxaktiv.Checked, 1, 0)
+
+        Return sqlstr
+    End Function
+
+
+    Private Sub DataGridView_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView.CellDoubleClick
+        'Me.Cursor = Cursors.WaitCursor
+        'Dim tmprowindex As Integer = e.RowIndex
+        'If DataGridView.Columns(e.ColumnIndex).Name = "open" Then
+
+        '    If DataGridView.CurrentRow.Cells("param").Value IsNot DBNull.Value AndAlso DataGridView.CurrentRow.Cells("param").Value.ToString.StartsWith("\\") Then
+        '        Process.Start(DataGridView.CurrentRow.Cells("param").Value)
+        '    End If
+        'Else
+
+        'End If
+        'Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxaktiv.CheckedChanged
+
+        'DatenarchivBind = New cEasyBinding(BIND_DB)
+
+        Dim sqlstr As String = ""
+        Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
+
+
+        DatenarchivBind.initBinding("SELECT " & TopMax & " [ms_id],[ms_param],[ms_an],[ms_cc],[ms_bcc],[ms_subject],[ms_mailtext],[ms_aktiv],[ms_info],[ms_firma]   FROM " & table & " WHERE 1 = 1 " & getParamwhere(), table)
+
+        DataGridView.DataSource = DatenarchivBind.bindingdataTable
+
+        Dim distinctDT As DataTable = DatenarchivBind.bindingdataTable.DefaultView.ToTable(True, "ms_param")
+
+        For Each d As DataRow In distinctDT.Rows
+            If Not cboPartnersystem.Items.Contains(d.Item(0)) Then cboPartnersystem.Items.Add(d.Item(0))
+        Next
+
+        Me.usrCntlDatenarchiv_Load(sender, e)
+
+    End Sub
+
+    Private Sub cboPartnersystem_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPartnersystem.SelectedIndexChanged
+        btnSuche_Click(sender, e)
+    End Sub
+
+
+    Public Sub loaddgv()
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxaktiv.Checked
+
+        Try
+            DatenarchivBind = New cEasyBinding(BIND_DB)
+
+
+            Dim sqlstr As String = ""
+            Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
+
+
+            DatenarchivBind.initBinding("SELECT " & TopMax & " [ms_id],[ms_param],[ms_an],[ms_cc],[ms_bcc],[ms_subject],[ms_mailtext],[ms_aktiv],[ms_info],[ms_firma]  FROM " & table & " WHERE 1 = 1 " & getParamwhere(), table)
+
+            DataGridView.DataSource = DatenarchivBind.bindingdataTable
+
+
+            With DataGridView
+
+                If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
+                .RowHeadersVisible = False
+                .ReadOnly = False
+                '.SelectionMode = DataGridViewSelectionMode.FullRowSelect
+                .MultiSelect = False
+
+
+                For Each cc As DataGridViewColumn In .Columns
+                    If cc.Name.ToLower.Contains("ms_") Then
+                        cc.HeaderText = cc.Name.Replace("ms_", "")
+                        If cc.Name.ToLower.Contains("mailtext") Then
+                            cc.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                        ElseIf cc.Name.ToLower.Contains("aktiv") Then
+                            cc.Width = 50
+
+                        ElseIf cc.Name.ToLower.Contains("id") Then
+                            cc.Visible = False
+
+                        Else
+                            cc.Width = 150
+                        End If
+                    End If
+                Next
+
+
+                lblErgebnis.Text = "Ergebnisse: " & .RowCount
+
+
+                'If .Columns("open") Is Nothing Then
+
+                '    Dim c As New DataGridViewImageColumn
+                '    c.Name = "open" : c.HeaderText = "open"
+                '    c.Image = New Bitmap(1, 1)
+                '    c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+                '    c.DefaultCellStyle.Tag = "open"
+                '    .Columns.Add(c)
+
+                'End If
+
+                For Each r As DataGridViewRow In .Rows
+
+                    'If r.Cells("ms_param").Value IsNot DBNull.Value AndAlso r.Cells("ms_param").Value <> "" Then
+                    '    Dim path As New System.IO.DirectoryInfo(r.Cells("ms_param").Value)
+
+                    '    'If path.Exists Then
+                    '    '    DirectCast(r.Cells("open"), DataGridViewImageCell).Value = My.Resources.search
+                    '    'End If
+                    'End If
+
+                Next
+
+
+            End With
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+
+        If DataGridView.Columns.Count = 0 Or DataGridView.SelectedRows.Count = 0 Then 'alles gelöscht oder markierte Zeile gelöscht
+            DatenarchivBind.updateBinding()
+            Exit Sub
+        End If
+
+        If DataGridView.CurrentRow.Cells("ms_param").ToString <> "" AndAlso DataGridView.CurrentRow.Cells("ms_an").ToString <> "" AndAlso DataGridView.CurrentRow.Cells("ms_subject").ToString <> "" AndAlso EditRow >= 0 Then
+            DatenarchivBind.updateBinding()
+        End If
+
+    End Sub
+
+
+    Private Sub DataGridView_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView.EditingControlShowing
+        EditRow = DataGridView.CurrentRow.Index
+    End Sub
+
+    Private Sub DataGridView_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView.SelectionChanged
+        If EditRow >= 0 Then
+            Dim new_row As Integer = EditRow
+            EditRow = -1
+            DataGridView.CurrentCell = DataGridView.Rows(new_row).Cells(
+                DataGridView.CurrentCell.ColumnIndex)
+        End If
+    End Sub
+
+    Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
+
+        If e.KeyCode = Keys.Enter Then
+
+            Me.btnSuche_Click(sender, e)
+            e.Handled = True
+        End If
+
+    End Sub
+
+    Private Sub DataGridView_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles DataGridView.DefaultValuesNeeded
+        e.Row.Cells("ms_aktiv").Value = False
+    End Sub
+End Class

initATLASAufschubkonten/frmStartOptions.vb

@@ -5341,69 +5341,7 @@ Public Class frmStartOptions
 
     Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
 
-        Dim test As Boolean = False
 
-        Dim dir = IIf(test, "C:\Users\d.breimaier\Desktop\MSE_test\", "C:\Users\d.breimaier\Desktop\MSE\") & Now.ToShortDateString.Replace(":", "") & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "")
-
-        If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
-
-        Directory.CreateDirectory(dir)
-
-
-        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-        Dim dt_CSV_selected = sql.loadDgvBySql_Param("SELECT TOP (10) controller_id as [Controller ID], 'VERAG 360 GmbH' as [Controller Name] , inv.[invoice_id] as [Invoice ID], inv.invoice_date as [Invoice Date], 
-                                cust.customer_id as [CustomerID], cust.partner_customer_number as [Customer No], cust.customer_name as [Customer name], bills.specification_page_name as [Specification Page], bills.specification_page_id as [Specification ID], trans.purchase_datetime as [Transaction date], trans.transaction_id as [Transaction ID], 
-                                trans.supplier_name as [Transaction Supplier/Terminal], trans.transaction_country as [Transaction Country], trans.transaction_product_name as [Product description], trans.transaction_product_id as [Product Description ID], trans.device_product_type as [Card Type], trans.device_product_number as [Card number], trans.license_plate_number as [Load File Licence Plate Number],
-                                '' as [Card Licence Plate Number], trans.license_plate_number as [Truck Licence Plate Number], '' as [Truck Fleet Code], '' as [Truck Driver Name], trans.entry_point_name as [Entry Terminal/Direction], trans.entry_datetime as [Start date], trans.entry_datetime as [Start Time], trans.exit_point_name as [Exit Terminal Description], trans.exit_datetime as [End Date], trans.exit_datetime as [End Time],
-                                ''  as [Eurovignet K-Number], '' as [LKW-Kostenstelle], trans.original_net_amount as [Original Nett Amount], trans.original_vat_amount as [Original VAT Amount], trans.original_gross_amount as [Original Amount], trans.original_currency as [Original Currency],
-                                 trans.transaction_gross_amount as [Transaction Amount ( EUR )], trans.msts_fee_amount as [Admin Fee Amount ( EUR )], '' as [Fees and Costs Amount ( EUR )], trans.msts_vat_amount as [VAT Amount ( EUR )],trans.total_gross_amount as [Total Amount ( EUR )], ''  as [Total Dutch VAT ( EUR )], '' as [Total Foreign VAT ( EUR )], trans.[USteuer_EUR] as [USteuer_EUR]
-                                FROM [VERAG].[dbo].[tblMSESettlements] as bills 
-                                left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] 
-                                left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
-                                left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.[invoice_id] = bills.[invoice_number] and inv.customer_number = cust.[customer_id] and trans.transaction_country = inv.country
-                                where (trans.transaction_gross_amount <> 0 or [msts_fee_amount] <> 0) ", "FMZOLL")
-
-        dt_CSV_selected.ParentRelations.Clear()
-        dt_CSV_selected.ChildRelations.Clear()
-        dt_CSV_selected.Constraints.Clear()
-
-
-        For Each csv As DataRow In dt_CSV_selected.Rows
-
-            Dim teststring As String = csv.Item(2)
-
-            Dim fn As String = dir
-            fn &= "\"
-            fn &= teststring & "_Maut_MSE.csv"
-            Dim outFile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
-            Dim clmns As String = ""
-            For i = 0 To dt_CSV_selected.Columns.Count - 1
-                clmns &= dt_CSV_selected.Columns(i).ColumnName.ToString().Replace(";", ", ") & ";"
-            Next
-            outFile.WriteLine(clmns)
-            For i = 0 To dt_CSV_selected.Rows.Count - 1
-                clmns = ""
-                For j = 0 To dt_CSV_selected.Columns.Count - 1
-                    clmns &= dt_CSV_selected.Rows(i)(j).ToString.Replace(";", ", ") & ";"
-                Next
-                outFile.WriteLine(clmns)
-            Next
-            outFile.Close()
-        Next
-
-
-        Dim dirAnhang = "C:\Users\d.breimaier\Desktop\MSE_ARCHIV\" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString
-        If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True)
-            For Each f In Directory.GetFiles(dirAnhang)
-                File.Delete(f)
-            Next
-        Else
-            Directory.CreateDirectory(dirAnhang)
-        End If
-
-        For Each f In Directory.GetFiles(dir)
-            File.Copy(f, dirAnhang & "\" & (New FileInfo(f)).Name)
-        Next
 
     End Sub