Nachrichtenverarbeitung RMC

UID/ADMIN.vbproj

@@ -629,6 +629,12 @@
     <Compile Include="Programme\usrCntlProgramme.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="usrCntlDatenarchiv.Designer.vb">
+      <DependentUpon>usrCntlDatenarchiv.vb</DependentUpon>
+    </Compile>
+    <Compile Include="usrCntlDatenarchiv.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="usrCntlERS.Designer.vb">
       <DependentUpon>usrCntlERS.vb</DependentUpon>
     </Compile>
@@ -830,6 +836,9 @@
     <EmbeddedResource Include="Programme\usrCntlProgramme.resx">
       <DependentUpon>usrCntlProgramme.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="usrCntlDatenarchiv.resx">
+      <DependentUpon>usrCntlDatenarchiv.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="usrCntlERS.resx">
       <DependentUpon>usrCntlERS.vb</DependentUpon>
     </EmbeddedResource>

UID/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.2.9")>
-<Assembly: AssemblyFileVersion("1.2.2.9")>
+<Assembly: AssemblyVersion("1.2.3.1")>
+<Assembly: AssemblyFileVersion("1.2.3.1")>

UID/frmAPIEinstellungen.Designer.vb

@@ -28,6 +28,7 @@ Partial Class frmAPIEinstellungen
         Me.DataGridView = New System.Windows.Forms.DataGridView()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
+        Me.cbxProduktivsystem = New System.Windows.Forms.CheckBox()
         CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -88,11 +89,22 @@ Partial Class frmAPIEinstellungen
         Me.Label3.TabIndex = 24
         Me.Label3.Text = "Token:Für Authentifizierung werden Token verwendet!"
         '
+        'cbxProduktivsystem
+        '
+        Me.cbxProduktivsystem.AutoSize = True
+        Me.cbxProduktivsystem.Location = New System.Drawing.Point(213, 26)
+        Me.cbxProduktivsystem.Name = "cbxProduktivsystem"
+        Me.cbxProduktivsystem.Size = New System.Drawing.Size(109, 17)
+        Me.cbxProduktivsystem.TabIndex = 25
+        Me.cbxProduktivsystem.Text = "Produktivsysteme"
+        Me.cbxProduktivsystem.UseVisualStyleBackColor = True
+        '
         'frmAPIEinstellungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1158, 485)
+        Me.Controls.Add(Me.cbxProduktivsystem)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.Label2)
@@ -113,4 +125,5 @@ Partial Class frmAPIEinstellungen
     Friend WithEvents DataGridView As DataGridView
     Friend WithEvents Label1 As Label
     Friend WithEvents Label3 As Label
+    Friend WithEvents cbxProduktivsystem As CheckBox
 End Class

UID/frmAPIEinstellungen.vb

@@ -29,10 +29,10 @@ Public Class frmAPIEinstellungen
 
             If sqlwhere = "" Then
 
-                APIBind.initBinding("SELECT [api_active],[api_productive], [api_program],[api_id],[api_url] ,[api_user],[api_password] ,[api_UseToken],[api_token] ,[api_description] FROM " & table, table)
+                APIBind.initBinding("SELECT [api_active],[api_productive], [api_program],[api_id],[api_url] ,[api_user],[api_password] ,[api_UseToken],[api_token] ,[api_description] FROM " & table & " WHERE api_productive = " & IIf(cbxProduktivsystem.Checked, "1", "0"), table)
             Else
 
-                APIBind.initBinding("SELECT [api_active],[api_productive], [api_program], [api_id],[api_url] ,[api_user],[api_password] ,[api_useToken],[api_token] ,[api_description]  FROM " & table & " WHERE " & sqlwhere, table)
+                APIBind.initBinding("Select [api_active], [api_productive], [api_program], [api_id], [api_url], [api_user], [api_password], [api_useToken], [api_token], [api_description]  FROM " & table & " WHERE api_productive = " & IIf(cbxProduktivsystem.Checked, "1", "0") & sqlwhere, table)
 
             End If
 
@@ -62,29 +62,32 @@ Public Class frmAPIEinstellungen
                     .Columns("api_description").HeaderText = "Beschreibung"
                     .Columns("api_description").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
-                    Dim c As New DataGridViewImageColumn
-                    c.Name = "isRunning" : c.HeaderText = "Online"
-                    c.Image = My.Resources.wait : c.ImageLayout = DataGridViewImageCellLayout.Zoom
-                    c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
-                    c.DefaultCellStyle.Tag = "Online"
-                    .Columns.Add(c)
 
+                    If .Columns("isRunning") Is Nothing Then
 
+                        Dim c As New DataGridViewImageColumn
+                        c.Name = "isRunning" : c.HeaderText = "Online"
+                        c.Image = My.Resources.wait : c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                        c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+                        c.DefaultCellStyle.Tag = "Online"
+                        .Columns.Add(c)
+
+                    End If
 
                     For Each r As DataGridViewRow In .Rows
-                        If r.Cells("api_url").Value Is DBNull.Value Then
-                            r.DefaultCellStyle.ForeColor = Color.Gray
-                        ElseIf CBool(r.Cells("api_active").Value) = False Then
-                            r.DefaultCellStyle.ForeColor = Color.Gray
-                        End If
+                            If r.Cells("api_url").Value Is DBNull.Value Then
+                                r.DefaultCellStyle.ForeColor = Color.Gray
+                            ElseIf CBool(r.Cells("api_active").Value) = False Then
+                                r.DefaultCellStyle.ForeColor = Color.Gray
+                            End If
 
-                        If r.Cells("api_url").Value IsNot DBNull.Value AndAlso CheckAddress(r.Cells("api_url").Value) Then
-                            DirectCast(r.Cells("isRunning"), DataGridViewImageCell).Value = My.Resources.ok
-                        Else
-                            DirectCast(r.Cells("isRunning"), DataGridViewImageCell).Value = My.Resources.del
-                        End If
-                    Next
-                End If
+                            If r.Cells("api_url").Value IsNot DBNull.Value AndAlso CheckAddress(r.Cells("api_url").Value) Then
+                                DirectCast(r.Cells("isRunning"), DataGridViewImageCell).Value = My.Resources.ok
+                            Else
+                                DirectCast(r.Cells("isRunning"), DataGridViewImageCell).Value = My.Resources.del
+                            End If
+                        Next
+                    End If
 
 
             End With
@@ -139,9 +142,6 @@ Public Class frmAPIEinstellungen
 
     Private Sub Button1_Click(sender As Object, e As EventArgs)
         If DataGridView.SelectedRows.Count = 0 Then Exit Sub
-
-
-
     End Sub
 
     Private Function CheckAddress(url As String) As Boolean
@@ -156,14 +156,29 @@ Public Class frmAPIEinstellungen
     End Function
 
     Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
+
         Dim sqladdon As String = ""
 
+
         If e.KeyCode = Keys.Enter Then
             If txtSuche.Text <> "" Then
-                sqladdon &= " [api_program] like '%" & txtSuche.Text & "%' or  [api_url] like '%" & txtSuche.Text & "%'"
+                sqladdon &= " [api_program] Like '%" & txtSuche.Text & "%' or  [api_url] like '%" & txtSuche.Text & "%'"
             End If
             loadDGV(sqladdon)
         End If
 
     End Sub
+
+    Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxProduktivsystem.CheckedChanged
+        Dim sqladdon As String = ""
+        If txtSuche.Text <> "" Then
+            sqladdon &= " [api_program] Like '%" & txtSuche.Text & "%' or  [api_url] like '%" & txtSuche.Text & "%'"
+        End If
+        loadDGV(sqladdon)
+
+    End Sub
+
+    Private Sub DataGridView_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView.CellContentDoubleClick
+
+    End Sub
 End Class

UID/frmMain.Designer.vb

@@ -33,6 +33,7 @@ Partial Class frmMain
         Me.TableAdapterManager1 = New ADMIN.DataSetBerechtigungenTableAdapters.TableAdapterManager()
         Me.pnlMain = New System.Windows.Forms.Panel()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
         Me.btnFehler = New System.Windows.Forms.Button()
         Me.btnAPI = New System.Windows.Forms.Button()
         Me.btnHomepage = New System.Windows.Forms.Button()
@@ -108,6 +109,7 @@ Partial Class frmMain
         'Panel3
         '
         Me.Panel3.BackColor = System.Drawing.Color.White
+        Me.Panel3.Controls.Add(Me.Button2)
         Me.Panel3.Controls.Add(Me.btnFehler)
         Me.Panel3.Controls.Add(Me.btnAPI)
         Me.Panel3.Controls.Add(Me.btnHomepage)
@@ -125,6 +127,18 @@ Partial Class frmMain
         Me.Panel3.Size = New System.Drawing.Size(137, 801)
         Me.Panel3.TabIndex = 32
         '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button2.Location = New System.Drawing.Point(12, 319)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(94, 33)
+        Me.Button2.TabIndex = 41
+        Me.Button2.Text = "Datenarchiv"
+        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.UseVisualStyleBackColor = True
+        '
         'btnFehler
         '
         Me.btnFehler.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -315,4 +329,5 @@ Partial Class frmMain
     Friend WithEvents btnHomepage As System.Windows.Forms.Button
     Friend WithEvents btnFehler As Button
     Friend WithEvents btnAPI As Button
+    Friend WithEvents Button2 As Button
 End Class

UID/frmMain.vb

@@ -214,4 +214,12 @@ Public Class frmMain
         usrCntl.Dock = DockStyle.Fill
         button_Click(sender)
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        clrPnlMain()
+        Dim usrCntl As New usrCntlDatenarchiv("tblPartnersystem_Paramter", "FMZOLL")
+        pnlMain.Controls.Add(usrCntl)
+        usrCntl.Dock = DockStyle.Fill
+        button_Click(sender)
+    End Sub
 End Class

UID/usrCntlAPI.vb

@@ -7,10 +7,10 @@ Public Class usrCntlAPI
 
     Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
     Dim srcTAG As Date = CDate(Now.ToShortDateString)
-
     Dim JAHR As Date = CDate("01.01." & Now.Year)
 
     Private Sub usrCntlAPI_Load(sender As Object, e As EventArgs) Handles Me.Load
+
         txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).txtAbfertDatBisToShortDateString
         txtAbfertDatBis.Text = Now.ToShortDateString
 
@@ -31,10 +31,14 @@ Public Class usrCntlAPI
         cboDatum.changeItem("ADat")
 
         cboInOut.Items.Clear()
-        cboInOut.fillWithSQL("SELECT distinct([api_InOut]) FROM [tblAPI] ", False, "ADMIN", True)
+        'cboInOut.fillWithSQL("SELECT distinct([api_InOut]) FROM [tblAPI] ", False, "ADMIN", True)
+        cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IN", "IN"))
+        cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OUT", "OUT"))
 
         cboType.Items.Clear()
-        cboType.fillWithSQL("SELECT distinct(api_Type) FROM [tblAPI] ", False, "ADMIN", True)
+        'cboType.fillWithSQL("SELECT distinct(api_Type) FROM [tblAPI] ", False, "ADMIN", True)
+        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FTP", "FTP"))
+        cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", "MAIL"))
 
         cboAPIArt.Items.Clear()
         cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -51,11 +55,11 @@ Public Class usrCntlAPI
         cboFirma.Items.Clear()
         cboFirma.fillWithSQL("SELECT distinct([api_Firma]) FROM [tblAPI] where api_Firma is not null ", False, "ADMIN", True)
 
+
         cboProgram.Items.Clear()
         cboProgram.fillWithSQL("SELECT distinct([api_progName]) FROM [tblAPI] where api_progName is not null ", False, "ADMIN", True)
 
 
-
     End Sub
 
     Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged

UID/usrCntlDatenarchiv.Designer.vb

@@ -0,0 +1,346 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlDatenarchiv
+    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.cbxTestsystem = 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.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.pnlAnzeige = New System.Windows.Forms.Panel()
+        Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        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.btnSave = New System.Windows.Forms.Button()
+        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.cbxTestsystem)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboPartnersystem)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label8)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnSuche)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboFirma)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label12)
+        Me.SplitContainer1.Panel2Collapsed = True
+        Me.SplitContainer1.Size = New System.Drawing.Size(1020, 80)
+        Me.SplitContainer1.SplitterDistance = 55
+        Me.SplitContainer1.TabIndex = 0
+        '
+        'cbxTestsystem
+        '
+        Me.cbxTestsystem.AutoSize = True
+        Me.cbxTestsystem.Location = New System.Drawing.Point(129, 9)
+        Me.cbxTestsystem.Name = "cbxTestsystem"
+        Me.cbxTestsystem.Size = New System.Drawing.Size(79, 17)
+        Me.cbxTestsystem.TabIndex = 55
+        Me.cbxTestsystem.Text = "Testsystem"
+        Me.cbxTestsystem.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, 24)
+        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, 9)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(90, 13)
+        Me.Label8.TabIndex = 45
+        Me.Label8.Text = "Partnersystem:"
+        '
+        '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
+        '
+        'cboFirma
+        '
+        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.cboFirma._allowFreiText = False
+        Me.cboFirma._value = ""
+        Me.cboFirma.DropDownWidth = 250
+        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Location = New System.Drawing.Point(234, 28)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(104, 22)
+        Me.cboFirma.TabIndex = 20
+        Me.cboFirma.Visible = False
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label12.Location = New System.Drawing.Point(231, 10)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(37, 13)
+        Me.Label12.TabIndex = 6
+        Me.Label12.Text = "Firma"
+        Me.Label12.Visible = False
+        '
+        '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.AllowUserToAddRows = False
+        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
+        '
+        '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
+        '
+        '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
+        '
+        'usrCntlDatenarchiv
+        '
+        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 = "usrCntlDatenarchiv"
+        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 cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents cbxTestsystem As CheckBox
+    Friend WithEvents btnSave As Button
+End Class

UID/usrCntlDatenarchiv.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/usrCntlDatenarchiv.vb

@@ -0,0 +1,185 @@
+Imports System.ComponentModel
+Imports System.IO
+Imports System.Windows.Documents
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrCntlDatenarchiv
+
+
+    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, "Param_system")
+
+        For Each d As DataRow In distinctDT.Rows
+            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 getAPIList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Param_system", cboPartnersystem._value))
+
+        Return list
+
+    End Function
+
+    Function getDatenarchivwhere() As String
+
+        Dim sqlstr = ""
+        If cboPartnersystem._value <> "" Then sqlstr &= " AND [Param_system] = '" & cboPartnersystem._value & "'"
+
+        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").Value IsNot DBNull.Value AndAlso DataGridView.CurrentRow.Cells("Param_value").Value.ToString.StartsWith("\\") Then
+                Process.Start(DataGridView.CurrentRow.Cells("Param_value").Value)
+            End If
+        Else
+
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
+
+        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 = cbxTestsystem.Checked
+
+        Try
+            DatenarchivBind = New cEasyBinding(BIND_DB)
+
+
+            Dim sqlstr As String = ""
+            Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
+
+
+            DatenarchivBind.initBinding("SELECT " & TopMax & " [Param_name],[Param_value], [Param_system]  FROM " & table & " WHERE 1 = 1 " & getDatenarchivwhere(), 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("param_") Then
+                        cc.HeaderText = cc.Name.Replace("Param_", "")
+                        If cc.Name.ToLower.Contains("value") Then
+                            cc.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                        Else
+                            cc.Width = 200
+                        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 = My.Resources.wait : c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                    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("Param_value").Value IsNot DBNull.Value AndAlso r.Cells("Param_value").Value.ToString.StartsWith("\\") Then
+                        DirectCast(r.Cells("open"), DataGridViewImageCell).Value = My.Resources.stift
+                    Else
+                        DirectCast(r.Cells("open"), DataGridViewImageCell).Value = My.Resources.del
+                    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("Param_name").ToString <> "" AndAlso DataGridView.CurrentRow.Cells("Param_value").ToString <> "" AndAlso DataGridView.CurrentRow.Cells("Param_system").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
+
+End Class