Merge branch 'master' of https://dev.azure.com/VeragAG/_git/AVISO

Untschriftsfelder -> AMBAR hinzugefügt
Bestimmungszollsteller auf Feld 13
Fehler bei Gewichtsangabe korrigiert.

AVISOUPDATER/AVISOUPDATER.vbproj

@@ -11,12 +11,12 @@
     <AssemblyName>AVISOUPDATER</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <TargetFrameworkProfile>
     </TargetFrameworkProfile>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x64</PlatformTarget>
     <DebugSymbols>true</DebugSymbols>
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
@@ -75,11 +75,13 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="Update.vb" />
+    <Compile Include="cProgrammeUpdate.vb" />
+    <Compile Include="OLDUpdate.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>

AVISOUPDATER/AVISOUPDATER_Settings.txt

@@ -1 +1,9 @@
-F:\Programme\AVISO\
+F:\Programme\AVISO\
+192.168.0.**|\\share01.verag.ost.dmn\Programme\AVISO
+172.16.0.**|\\172.16.0.99\Daten\PROGRAMME\AVISO
+192.168.1.**|\\192.168.1.20\daten\VERAG Programme\AVISO
+192.168.133.**|\\192.168.133.98\f\Programme\AVISO
+172.16.1.**|\\172.16.1.100\f\PROGRAMME\AVISO
+192.168.32.**|\\192.168.32.253\Files\Programme\AVISO
+192.168.100.**|\\192.168.100.11\Daten\Programme\AVISO
+10.4.**|\\10.4.3.17\VERAG gemeinsam\AVISO

AVISOUPDATER/AVISOUPDATER_Version.txt

@@ -1 +1 @@
-4.0
+7.4

AVISOUPDATER/App.config

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup> 
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
 </configuration>

AVISOUPDATER/My Project/Application.Designer.vb

@@ -14,8 +14,8 @@ Option Explicit On
 
 Namespace My
     
-    'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
-    ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
     ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
     ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
     '

AVISOUPDATER/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _

AVISOUPDATER/My Project/Settings.Designer.vb

@@ -15,21 +15,21 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.6.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
         
         Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
         
-#Region "Funktion zum automatischen Speichern von My.Settings"
+#Region "Automatische My.Settings-Speicherfunktion"
 #If _MyType = "WindowsForms" Then
     Private Shared addedHandler As Boolean
 
     Private Shared addedHandlerLockObject As New Object
 
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
         If My.Application.SaveMySettingsOnExit Then
             My.Settings.Save()
         End If

AVISOUPDATER/OLDUpdate.vb

@@ -6,6 +6,7 @@
     Sub Main()
         'Falls Settings existiert, wird der Pfad daraus verwendet.
         F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
+
         If Not System.IO.Directory.Exists(F) Then
             MsgBox("ERROR_UPDATE_05: Es konnte keine Verbindung mit dem F:\ Laufwerk hergestellt werden." & vbNewLine & "Wenn Sie eine Remote-Sitzung verwenden, melden Sie sich mit dieser erneut an.", MsgBoxStyle.Critical, "ERROR")
             Environment.Exit(0)
@@ -13,6 +14,7 @@
         System.Console.WriteLine("3 Sekunden warten, um sicherzustellen, dass das Programm beendet wurde...")
         Threading.Thread.Sleep(3000) 'Falls Programm gerade am Beenden
         System.Console.WriteLine("Starte Update...")
+        System.Console.WriteLine("UPDATEPFAD: " & F)
         ' If Not My.Computer.FileSystem.DirectoryExists(F) Then
         'MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR")
         ' Else
@@ -47,6 +49,8 @@
         'End If
         Environment.Exit(0)
     End Sub
+
+
     Private Sub FileCopier()
         For Each file As String In IO.Directory.GetFiles(F) ' Ermittelt alle Dateien des Ordners 
             IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next 

AVISOUPDATER/UPDATERfrm.vb

@@ -3,7 +3,7 @@ Imports System.Security.Cryptography
 
 Public Class UPDATERfrm
 
-    Dim CopyIdentical = False ' selbe Dateien nicht kopieren
+    Dim CopyIncremental = True ' selbe Dateien nicht kopieren
 
     Private Sub UPDATERfrm_Load(sender As Object, e As EventArgs) Handles Me.Load
 
@@ -13,16 +13,38 @@ Public Class UPDATERfrm
         Dim trd As New Threading.Thread(AddressOf Main)
         trd.IsBackground = True
         trd.Start()
+        'prevent user to close form
+        btnClose.Enabled = False
+
     End Sub
 
 
 
     Dim F As String = "F:\Programme\AVISO\" ' WDH TERM
-    Dim F_PROD As String = "\\192.168.0.91\f\Programme\AVISO\" ' VERAG
+    ' Dim F_PROD As String = "\\192.168.0.91\f\Programme\AVISO\" ' VERAG
+    Dim F_PROD As String = "\\share01.verag.ost.dmn\Programme\AVISO\" ' VERAG
     ' Dim F As String = "\\192.168.0.90\f\Programme\AVISO\" 'DEVELOPER
     Dim F_ATILLA As String = "\\172.16.0.99\Daten\Programme\AVISO\" ' ATILLA
     Public Sub Main()
 
+        'STARTPARAMETER - DP
+        Dim PARAM = ""
+        Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
+        If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
+            PARAM = parameter(1)
+        End If
+
+        If PARAM = "full" Then
+            CopyIncremental = False
+        End If
+
+        If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" OrElse
+            System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO_INSTALL\" Then
+            MsgBox("Programm kann im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " nicht geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
+            Me.Close()
+            Exit Sub
+        End If
+
         Dim FIRMA = "VERAG"
         Dim pfadDatei As String = System.AppDomain.CurrentDomain.BaseDirectory & "\Standort.txt"
         FIRMA = "VERAG"
@@ -38,23 +60,34 @@ Public Class UPDATERfrm
         If FIRMA = "ATILLA" Then F = F_ATILLA 'Sichere Verbindung
 
 
+        If F.Contains("10.4.3.17") Then buildConnectionUNISPED()
+
         'Falls Settings existiert, wird der Pfad daraus verwendet.
-        F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
+        ' F = System.IO.File.ReadAllLines(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")(0)
+        '   F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
+
         If Not System.IO.Directory.Exists(F) Then
+            F = getFByIP()
 
-            If FIRMA = "ATILLA" Then
-                F = F_ATILLA 'Sichere Verbindung
-            Else
-                F = F_PROD
-            End If
-
-            writeLine(RichTextBox, "F-Pfad nicht gefunden, verbinde mit '" & F & "' ...")
+            writeLine(RichTextBox, "Verbinde mit '" & F & "' ...")
             If Not System.IO.Directory.Exists(F) Then
-                MsgBox("ERROR_UPDATE_05: Es konnte keine Verbindung mit dem F:\ Laufwerk hergestellt werden." & vbNewLine & "Wenn Sie eine Remote-Sitzung verwenden, melden Sie sich mit dieser erneut an.", MsgBoxStyle.Critical, "ERROR")
-                Environment.Exit(0)
+                If FIRMA = "ATILLA" Then
+                    F = F_ATILLA 'Sichere Verbindung
+                Else
+                    F = F_PROD
+                End If
+                writeLine(RichTextBox, "Standard-Freigabelaufwerk nicht gefunden. Verbinde mit '" & F & "' ...")
+
+                If Not System.IO.Directory.Exists(F) Then
+                    MsgBox("ERROR_UPDATE_05: Es konnte keine Verbindung mit dem Freigabe-Laufwerk hergestellt werden." & vbNewLine & "Wenn Sie eine Remote-Sitzung verwenden, melden Sie sich mit dieser erneut an.", MsgBoxStyle.Critical, "ERROR")
+                    Environment.Exit(0)
+                End If
             End If
 
             writeLine(RichTextBox, "Verbindung erfolgreich...")
+            'Else
+            '  System.Console.WriteLine("UPDATEPFAD: " & F)
+
         End If
 
         writeLine(RichTextBox, "3 Sekunden warten, um sicherzustellen, dass das Programm beendet wurde...")
@@ -73,14 +106,22 @@ Public Class UPDATERfrm
                     End If
 
                     '---------------------------
-                    delFiles()
-                    FileCopier()
                     '---------------------------
                     'Alternative: 
-                    '---------------------------
+                    '-------
                     'copyAndDelFilesAndDir()
                     '---------------------------
 
+                    '     If Not cut_file(File).Contains("AVISOUPDATER") And Not cut_file(File).Contains("NOT_DEL_") Then
+
+
+                    If CopyIncremental Then
+                        cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_", "Standort.txt"})
+                    Else
+                        delFiles()
+                        FileCopier()
+                    End If
+
 
 
                     If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "AVISO.exe") Then
@@ -105,6 +146,64 @@ Public Class UPDATERfrm
         Environment.Exit(0)
     End Sub
 
+    Function getFByIP() As String
+        Dim default_F = ""
+        getFByIP = ""
+        Try
+            Dim IPADDR As System.Net.IPAddress
+            IPADDR = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0)
+            'MsgBox(IPADDR.ToString())
+
+            For Each l In System.IO.File.ReadAllLines(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
+                If l.Contains("|") Then
+                    Dim sp = l.Split("|")
+                    If IPADDR.ToString.Contains(sp(0).Replace("**", "")) Then
+                        getFByIP = sp(1)
+                    End If
+                Else
+                    default_F = l
+                End If
+            Next
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        If getFByIP = "" Then
+            If default_F <> "" Then
+                getFByIP = default_F
+            Else
+                getFByIP = F
+            End If
+        End If
+    End Function
+
+
+    Sub buildConnectionUNISPED()
+        Try
+
+            writeLine(RichTextBox, "UNISPED Netzwerkzugriff einrichten...")
+            'Dim netuse1 As New System.Diagnostics.ProcessStartInfo()
+
+            'netuse1.FileName = "C:\Windows\system32\net"
+            'netuse1.Arguments = "use \\10.4.3.17 /User:VERAG 1VerSub9#"
+            'netuse1.CreateNoWindow = True
+            'netuse1.WindowStyle = ProcessWindowStyle.Hidden
+            'System.Diagnostics.Process.Start(netuse1)
+
+            Dim netuse As New System.Diagnostics.ProcessStartInfo()
+
+            netuse.FileName = "C:\Windows\system32\net"
+            netuse.Arguments = "use \\10.4.3.17 /User:VERAG 1VerSub9#"
+            netuse.CreateNoWindow = True
+            netuse.WindowStyle = ProcessWindowStyle.Hidden
+            System.Diagnostics.Process.Start(netuse)
+
+        Catch ex As Exception
+            writeLine(RichTextBox, "ERR: UNISPED Netzwerkzugriff fehlgeschlagen...")
+
+        End Try
+    End Sub
+
+
     Delegate Sub writeLineCallback(rtb As System.Windows.Forms.RichTextBox, text As String)
     Private Sub writeLine(rtb As System.Windows.Forms.RichTextBox, text As String)
         If Me.InvokeRequired Then
@@ -166,7 +265,7 @@ Public Class UPDATERfrm
             For Each file_source In IO.Directory.GetFiles(F) 'jedes File in F:\
                 Dim found = False
                 For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners 
-                    If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then 'alles außer den Updater
+                    If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") And Not cut_file(file).Contains("Standort.txt") Then 'alles außer den Updater
                         If cut_file(file) = cut_file(file_source) Then 'Gleicher Name
                             If CompareFiles(file, file_source) Then
                                 'selbe Datei --> Nichts
@@ -189,7 +288,7 @@ Public Class UPDATERfrm
             For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners 
                 Dim found = False
                 For Each file_source In IO.Directory.GetFiles(F) 'jedes File in F:\
-                    If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then 'alles außer den Updater
+                    If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") And Not cut_file(file).Contains("Standort.txt") Then 'alles außer den Updater
                         If cut_file(file) = cut_file(file_source) Then 'Gleicher Name
                             found = True
                         End If
@@ -222,7 +321,7 @@ Public Class UPDATERfrm
         'Dim f As String = "no"
         Try
             For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners 
-                If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then
+                If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") And Not cut_file(file).Contains("Standort.txt") Then
                     '   f = file
                     My.Computer.FileSystem.DeleteFile(file) 'Löscht das AVISO-Programm, außer den Updater
                     ' IO.File.Delete(file)

AVISOUPDATER/cProgrammeUpdate.vb

@@ -0,0 +1,224 @@
+
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cProgrammeUpdate
+    Property pud_progId As Object = Nothing
+    Property pud_codename As String
+    Property pud_version As String
+    Property pud_fileName As String
+    Property pud_filePathFolder As Object = Nothing
+    Property pud_datum As Date = Now
+
+    Property pud_file_Verion As String
+    Property pud_file_Date As Date
+    Property pud_file_Size As Integer
+
+
+    Shared Function getParameterList(UD As cProgrammeUpdate) As List(Of SQLVariable)
+        Dim list As New List(Of SQLVariable)
+        list.Add(New SQLVariable("pud_progId", UD.pud_progId))
+        list.Add(New SQLVariable("pud_codename", UD.pud_codename))
+        list.Add(New SQLVariable("pud_version", UD.pud_version))
+        list.Add(New SQLVariable("pud_fileName", UD.pud_fileName))
+        list.Add(New SQLVariable("pud_filePathFolder", UD.pud_filePathFolder))
+        list.Add(New SQLVariable("pud_datum", UD.pud_datum))
+        list.Add(New SQLVariable("pud_file_Verion", UD.pud_file_Verion))
+        list.Add(New SQLVariable("pud_file_Date", UD.pud_file_Date))
+        list.Add(New SQLVariable("pud_file_Size", UD.pud_file_Size))
+        Return list
+    End Function
+
+
+
+
+    Public Shared Function isNewFile(ByRef file As cProgrammeUpdate, LIST_DEST As List(Of cProgrammeUpdate)) As Boolean
+        For Each l In LIST_DEST
+            If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
+                Return False
+            End If
+        Next
+        Return True
+    End Function
+
+    Public Shared Function isOldFile(ByRef file As cProgrammeUpdate, LIST_SOURCE As List(Of cProgrammeUpdate)) As Boolean
+        For Each l In LIST_SOURCE
+            If l.pud_filePathFolder = file.pud_filePathFolder And l.pud_fileName = file.pud_fileName And l.pud_file_Size = file.pud_file_Size And l.pud_file_Date = file.pud_file_Date Then
+                Return False
+            End If
+        Next
+        Return True
+    End Function
+
+
+    Public Shared Function copyProgramLIST(ByRef sourcePfad As String, ByVal destPfad As String, ignoreFilesBeginWith As String()) As Boolean
+        Try
+
+            If destPfad.Trim = "" Then Return False
+            If sourcePfad.Trim = "" Then Return False
+
+            If Not My.Computer.FileSystem.DirectoryExists(sourcePfad) Then
+                MsgBox("ERROR_COPY_01: Quell-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
+            End If
+            If Not My.Computer.FileSystem.DirectoryExists(destPfad) Then
+                MsgBox("ERROR_COPY_02: Ziel-Ordner existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
+            End If
+
+            Dim LIST_SOURCE As New List(Of cProgrammeUpdate)
+            Dim dirNameReplace_SOURCE = ""
+            Dim DI_SOURCE As New IO.DirectoryInfo(sourcePfad)
+            RekursivGetFiles(DI_SOURCE, dirNameReplace_SOURCE, LIST_SOURCE, {})
+
+            Dim LIST_DEST As New List(Of cProgrammeUpdate)
+            Dim dirNameReplace_DEST = ""
+            Dim DI_DEST As New IO.DirectoryInfo(destPfad)
+            RekursivGetFiles(DI_DEST, dirNameReplace_DEST, LIST_DEST, ignoreFilesBeginWith)
+
+            If LIST_SOURCE.Count = 0 Then
+                MsgBox("ERROR_COPY_01: Quell-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
+            End If
+            If LIST_DEST.Count = 0 Then
+                MsgBox("ERROR_COPY_02: Ziel-Daten existiert nicht.", MsgBoxStyle.Critical, "ERROR") : Return False
+            End If
+
+            'ORDNER erstellen:
+            For Each f In LIST_SOURCE
+                If If(f.pud_filePathFolder, "") <> "" Then
+                    If Not IO.Directory.Exists(dirNameReplace_DEST & "\" & f.pud_filePathFolder.Replace("\\", "\")) Then
+                        IO.Directory.CreateDirectory(dirNameReplace_DEST & "\" & f.pud_filePathFolder.Replace("\\", "\"))
+                    End If
+                End If
+            Next
+
+            'Löschen der unbenötigten Files:
+            For Each f In LIST_DEST
+                If isOldFile(f, LIST_SOURCE) Then
+                    IO.File.Delete(dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\"))
+                End If
+            Next
+
+            'Kopieren/Überschreiben der neuen Files:
+            For Each f In LIST_SOURCE
+                If isNewFile(f, LIST_DEST) Then
+                    'Dim FI = New IO.FileInfo()
+
+                    Dim s_path = dirNameReplace_SOURCE & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
+                        Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
+                    If fileStartsWith(f.pud_fileName, ignoreFilesBeginWith) And IO.File.Exists(d_path) Then
+                        'Wenn Ziel-Date in der ignore-List und die Datei existiert auch, soll diese nicht kopiert werden.
+                        'Wenn Sie nicht exisistiert wir die Datei schon kopiert (zB Standort.txt)
+                    Else
+
+                        IO.File.Copy(s_path, d_path, True)
+                    End If
+                End If
+
+            Next
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+            Return False
+        End Try
+        '  If isNewFile(destPfad) Then Return FileCopier(sourcePfad, destPfad)
+        Return True
+    End Function
+
+    Public Shared Function fileStartsWith(fileName As String, ignoreFilesBeginWith As String())
+        For Each s In ignoreFilesBeginWith
+            If fileName.StartsWith(s) Then Return True
+        Next
+        Return False
+    End Function
+    Public Shared Sub RekursivGetFiles(ByVal oDir As IO.DirectoryInfo, ByRef dirNameReplace As String, ByRef LIST As List(Of cProgrammeUpdate), ignoreFilesBeginWith As String())
+        Dim oSubDir As IO.DirectoryInfo
+        Dim FI As IO.FileInfo
+
+        ' zunächst alle Dateien des Ordners aufspüren
+        For Each FI In oDir.GetFiles()
+            If Not fileStartsWith(FI.Name, ignoreFilesBeginWith) Then 'DATEIEN beginnen mit betimmten Namen, z.B. UPDATER
+
+
+                ' Dim FI As New IO.FileInfo(oFile)
+                If dirNameReplace = "" Then
+                    dirNameReplace = FI.DirectoryName
+                End If
+
+                Dim UD As New cProgrammeUpdate
+                UD.pud_fileName = FI.Name
+                UD.pud_filePathFolder = FI.DirectoryName.Replace(dirNameReplace, "")
+                If UD.pud_filePathFolder = "" Then UD.pud_filePathFolder = Nothing
+                UD.pud_file_Size = FI.Length
+                UD.pud_file_Date = FI.LastWriteTime
+                UD.pud_file_Verion = "" 'FI.
+                LIST.Add(UD)
+
+            End If
+            'With oFile
+            '    ListBox1.Items.Add(.DirectoryName & "\" & .Name & vbTab &
+            '      .Length & vbTab & .LastWriteTime)
+            'End With
+        Next
+
+        ' Jetzt alle Unterverzeichnis durchlaufen
+        ' und die Prozedur rekursiv selbst aufrufen
+        For Each oSubDir In oDir.GetDirectories()
+            RekursivGetFiles(oSubDir, dirNameReplace, LIST, {})
+        Next
+    End Sub
+
+End Class
+
+Public Class SQLVariable
+    Private TextSQLName As String
+    Private ValueSQLVALUE As Object
+    Private Scalarvariablename As String
+    Private primaryParam As Boolean
+    Private onlyForLoad As Boolean
+
+    Public Sub New(ByVal Text As String, ByVal Value As Object, Optional Scalarvariablename As String = "", Optional primaryParam As Boolean = False, Optional onlyForLoad As Boolean = False)
+        Me.TextSQLName = Text
+        Me.ValueSQLVALUE = Value
+        Me.primaryParam = primaryParam
+        Me.onlyForLoad = onlyForLoad
+
+        If Scalarvariablename <> "" Then Me.Scalarvariablename = Scalarvariablename Else Me.Scalarvariablename = Text
+    End Sub
+
+    Public ReadOnly Property Text() As String
+        Get
+            Return TextSQLName
+        End Get
+    End Property
+
+    Public ReadOnly Property Value() As Object
+        Get
+            Return ValueSQLVALUE
+        End Get
+    End Property
+
+    Public ReadOnly Property Scalarvariable() As Object
+        Get
+            Return Scalarvariablename
+        End Get
+    End Property
+
+    Public ReadOnly Property isPrimaryParam() As Boolean
+        Get
+            Return primaryParam
+        End Get
+    End Property
+
+    Public ReadOnly Property isonlyForLoad() As Boolean
+        Get
+            Return onlyForLoad
+        End Get
+    End Property
+
+
+    '  Public Overrides Function ToString() As Object
+    '      Return mText
+    '  End Function
+
+
+
+End Class

AVISOUPDATER/packages.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net48" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net48" />
+  <package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net48" />
+</packages>

AVISO_CHECKIN/AVISO_CHECKIN.vbproj

@@ -0,0 +1,292 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{CB95CC0E-D73A-4D11-9FF8-197A392D831F}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>AVISO_CHECKIN.My.MyApplication</StartupObject>
+    <RootNamespace>AVISO_CHECKIN</RootNamespace>
+    <AssemblyName>AVISO_CHECKIN</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <Deterministic>true</Deterministic>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>x64</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>AVISO_CHECKIN.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>AVISO_CHECKIN.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="ClosedXML">
+      <HintPath>..\..\..\dll\ClosedXML.dll</HintPath>
+    </Reference>
+    <Reference Include="DocumentFormat.OpenXml, Version=2.5.5631.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\DocumentFormat.OpenXml.dll</HintPath>
+    </Reference>
+    <Reference Include="Dynamsoft.Forms.Viewer">
+      <HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.Forms.Viewer.dll</HintPath>
+    </Reference>
+    <Reference Include="Dynamsoft.ImageCore">
+      <HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.ImageCore.dll</HintPath>
+    </Reference>
+    <Reference Include="Dynamsoft.PDF">
+      <HintPath>..\..\SICHERUNG\Aviso_12.02.2018\Aviso\Aviso\bin\Debug\Dynamsoft.PDF.dll</HintPath>
+    </Reference>
+    <Reference Include="Dynamsoft.Twain">
+      <HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.Twain.dll</HintPath>
+    </Reference>
+    <Reference Include="Ghostscript.NET">
+      <HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
+    </Reference>
+    <Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Document.v12.dll</HintPath>
+    </Reference>
+    <Reference Include="GrapeCity.ActiveReports.Export.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Export.Document.v12.dll</HintPath>
+    </Reference>
+    <Reference Include="GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Export.Pdf.v12.dll</HintPath>
+    </Reference>
+    <Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.v12.dll</HintPath>
+    </Reference>
+    <Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Viewer.Win.v12.dll</HintPath>
+    </Reference>
+    <Reference Include="GrapeCity.Documents.Pdf">
+      <HintPath>..\packages\GrapeCity.Documents.Pdf.2.2.0.315\lib\net461\GrapeCity.Documents.Pdf.dll</HintPath>
+    </Reference>
+    <Reference Include="itextsharp">
+      <HintPath>..\..\..\dll\itextsharp.dll</HintPath>
+    </Reference>
+    <Reference Include="NetSpell.SpellChecker">
+      <HintPath>..\..\..\dll\NetSpell.SpellChecker.DLL</HintPath>
+    </Reference>
+    <Reference Include="Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL" />
+    <Reference Include="Spire.Pdf">
+      <HintPath>..\..\..\dll\PDF Spire\6.10\Spire.Pdf.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.DirectoryServices" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Web.Services" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Form1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.Designer.vb">
+      <DependentUpon>Form1.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmCheckIn.Designer.vb">
+      <DependentUpon>frmCheckIn.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmCheckIn.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="usrCntlFinish.Designer.vb">
+      <DependentUpon>usrCntlFinish.vb</DependentUpon>
+    </Compile>
+    <Compile Include="usrCntlFinish.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="usrCntlFound.Designer.vb">
+      <DependentUpon>usrCntlFound.vb</DependentUpon>
+    </Compile>
+    <Compile Include="usrCntlFound.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="usrCntlSearch.Designer.vb">
+      <DependentUpon>usrCntlSearch.vb</DependentUpon>
+    </Compile>
+    <Compile Include="usrCntlSearch.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+    <Compile Include="usrCntlWelcome.Designer.vb">
+      <DependentUpon>usrCntlWelcome.vb</DependentUpon>
+    </Compile>
+    <Compile Include="usrCntlWelcome.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="frmCheckIn.resx">
+      <DependentUpon>frmCheckIn.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="usrCntlFinish.resx">
+      <DependentUpon>usrCntlFinish.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="usrCntlFound.resx">
+      <DependentUpon>usrCntlFound.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="usrCntlSearch.resx">
+      <DependentUpon>usrCntlSearch.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="usrCntlWelcome.resx">
+      <DependentUpon>usrCntlWelcome.vb</DependentUpon>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_srb.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_srb2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\flag_tr.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\handy_QR.jpg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\lan_de.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\lan_eng.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\qr_search.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\timer.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\searchGG.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\Aviso\Aviso.vbproj">
+      <Project>{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}</Project>
+      <Name>Aviso</Name>
+    </ProjectReference>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\LKW_mit_Aufleger.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\LKW.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Sprinter.jpg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Sprinter.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Logo_blue_globe_Horizontal.jpg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\FO_white.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\EMail-Signatur.jpg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Verag-AG-Logopng.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Unisped_logo.jpg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\IMEX-LOGO_simple.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\fragezeichen.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\brexit.png" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

AVISO_CHECKIN/App.config

@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
+    </startup>
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="GrapeCity.Documents.Common" publicKeyToken="d55d733d2bfd5065" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.0.722" newVersion="4.2.0.722" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Spire.License" publicKeyToken="b1144360237c8b3f" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-1.4.0.46" newVersion="1.4.0.46" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="GrapeCity.Documents.Pdf" publicKeyToken="d55d733d2bfd5065" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-2.2.0.315" newVersion="2.2.0.315" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-6.10.0.0" newVersion="6.10.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="BouncyCastle.Crypto" publicKeyToken="0e99375e54769942" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-1.8.2.0" newVersion="1.8.2.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-2.7.2.0" newVersion="2.7.2.0" />
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
+</configuration>

AVISO_CHECKIN/Form1.Designer.vb

@@ -0,0 +1,31 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form1
+    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()
+        components = New System.ComponentModel.Container()
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Text = "Form1"
+    End Sub
+
+End Class

AVISO_CHECKIN/Form1.vb

@@ -0,0 +1,3 @@
+Public Class Form1
+
+End Class

AVISO_CHECKIN/My Project/Application.Designer.vb

@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = true
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.AVISO_CHECKIN.frmCheckIn
+        End Sub
+    End Class
+End Namespace

AVISO_CHECKIN/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>frmCheckIn</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

AVISO_CHECKIN/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("AVISO_CHECKIN")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("AVISO_CHECKIN")>
+<Assembly: AssemblyCopyright("Copyright ©  2020")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+<Assembly: Guid("09cd248d-00b5-4889-95a8-8a01842d88d9")>
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

AVISO_CHECKIN/My Project/Resources.Designer.vb

@@ -0,0 +1,293 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("AVISO_CHECKIN.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property DGS_Instructions_Export() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Export", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property DGS_Instructions_Export_T1() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Export_T1", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property DGS_Instructions_Import() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Import", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property EMail_Signatur() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("EMail-Signatur", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_srb() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_srb", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_srb2() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_srb2", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_tr() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_tr", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property FO_white() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("FO_white", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property fragezeichen() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("fragezeichen", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property handy_QR() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("handy_QR", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property IMEX_LOGO_simple() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("IMEX-LOGO_simple", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property lan_de() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("lan_de", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property lan_eng() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("lan_eng", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property LKW() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("LKW", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property LKW_mit_Aufleger() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("LKW_mit_Aufleger", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Logo_blue_globe_Horizontal() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Logo_blue_globe_Horizontal", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property qr_search() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("qr_search", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property searchGG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("searchGG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Sprinter() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Sprinter", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Sprinter1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Sprinter1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property timer() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("timer", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Unisped_logo() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Unisped_logo", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Verag_AG_Logopng() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Verag-AG-Logopng", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+    End Module
+End Namespace

AVISO_CHECKIN/My Project/Resources.resx

@@ -0,0 +1,190 @@
+<?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.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="Sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Sprinter.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="EMail-Signatur" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\EMail-Signatur.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="LKW_mit_Aufleger" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\LKW_mit_Aufleger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="lan_de" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\lan_de.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="lan_eng" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\lan_eng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="handy_QR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\handy_QR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Logo_blue_globe_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="qr_search" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\qr_search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="searchGG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\searchGG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Sprinter1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="FO_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\FO_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_srb" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_srb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="timer" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\timer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="LKW" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\LKW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_srb2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_srb2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Verag-AG-Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\aviso\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="DGS_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\aviso\resources\dgs_instructions_export_t1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="DGS_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\aviso\resources\dgs_instructions_import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+</root>

AVISO_CHECKIN/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
+
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+        Private Shared addedHandler As Boolean
+
+        Private Shared addedHandlerLockObject As New Object
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+            If My.Application.SaveMySettingsOnExit Then
+                My.Settings.Save()
+            End If
+        End Sub
+#End If
+#End Region
+
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+
+#If _MyType = "WindowsForms" Then
+                   If Not addedHandler Then
+                        SyncLock addedHandlerLockObject
+                            If Not addedHandler Then
+                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                                addedHandler = True
+                            End If
+                        End SyncLock
+                    End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    Friend Module MySettingsProperty
+
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        Friend ReadOnly Property Settings() As Global.AVISO_CHECKIN.My.MySettings
+            Get
+                Return Global.AVISO_CHECKIN.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

AVISO_CHECKIN/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

AVISO_CHECKIN/My Project/licenses.licx

@@ -0,0 +1,5 @@
+GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
+GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
+Spire.PdfViewer.Forms.PdfDocumentViewer, Spire.PdfViewer.Forms, Version=4.5.1.3046, Culture=neutral, PublicKeyToken=663f351905198cb3
+GrapeCity.ActiveReports.Export.Excel.Section.XlsExport, GrapeCity.ActiveReports.Export.Excel.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
+GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff

AVISO_CHECKIN/frmCheckIn.Designer.vb

@@ -0,0 +1,329 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmCheckIn
+    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.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmCheckIn))
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnResetSearch = New System.Windows.Forms.Button()
+        Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.Panel = New System.Windows.Forms.Panel()
+        Me.Timer = New System.Windows.Forms.Timer(Me.components)
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.timerResetDefault = New System.Windows.Forms.Timer(Me.components)
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.pnl.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.FlowLayoutPanel.SuspendLayout()
+        Me.Panel.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.Panel3)
+        Me.pnl.Controls.Add(Me.Panel1)
+        Me.pnl.Controls.Add(Me.Panel)
+        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(1577, 559)
+        Me.pnl.TabIndex = 1
+        '
+        'Panel3
+        '
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel3.Location = New System.Drawing.Point(0, 121)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(1575, 364)
+        Me.Panel3.TabIndex = 9
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.btnResetSearch)
+        Me.Panel1.Controls.Add(Me.FlowLayoutPanel)
+        Me.Panel1.Controls.Add(Me.lbl)
+        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(1575, 121)
+        Me.Panel1.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.Font = New System.Drawing.Font("Arial", 50.0!, System.Drawing.FontStyle.Bold)
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(467, -1)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(565, 121)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "SELF CHECK-IN"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'btnResetSearch
+        '
+        Me.btnResetSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.btnResetSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnResetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnResetSearch.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+        Me.btnResetSearch.ForeColor = System.Drawing.Color.White
+        Me.btnResetSearch.Location = New System.Drawing.Point(14, 3)
+        Me.btnResetSearch.Name = "btnResetSearch"
+        Me.btnResetSearch.Size = New System.Drawing.Size(236, 51)
+        Me.btnResetSearch.TabIndex = 1
+        Me.btnResetSearch.Text = "X    RESET"
+        Me.btnResetSearch.UseVisualStyleBackColor = False
+        Me.btnResetSearch.Visible = False
+        '
+        'FlowLayoutPanel
+        '
+        Me.FlowLayoutPanel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.FlowLayoutPanel.Controls.Add(Me.btn)
+        Me.FlowLayoutPanel.Controls.Add(Me.Button1)
+        Me.FlowLayoutPanel.Controls.Add(Me.Button2)
+        Me.FlowLayoutPanel.Controls.Add(Me.Button4)
+        Me.FlowLayoutPanel.Controls.Add(Me.Button5)
+        Me.FlowLayoutPanel.Controls.Add(Me.Button3)
+        Me.FlowLayoutPanel.Location = New System.Drawing.Point(1073, 3)
+        Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
+        Me.FlowLayoutPanel.Size = New System.Drawing.Size(491, 75)
+        Me.FlowLayoutPanel.TabIndex = 2
+        '
+        'Button4
+        '
+        Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button4.Location = New System.Drawing.Point(246, 3)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(75, 63)
+        Me.Button4.TabIndex = 4
+        Me.Button4.Tag = "RUS"
+        Me.Button4.UseVisualStyleBackColor = True
+        Me.Button4.Visible = False
+        '
+        'Button5
+        '
+        Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button5.Location = New System.Drawing.Point(327, 3)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(75, 63)
+        Me.Button5.TabIndex = 5
+        Me.Button5.Tag = "BG"
+        Me.Button5.UseVisualStyleBackColor = True
+        Me.Button5.Visible = False
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.lbl.ForeColor = System.Drawing.Color.White
+        Me.lbl.Location = New System.Drawing.Point(10, 57)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(240, 20)
+        Me.lbl.TabIndex = 0
+        Me.lbl.Text = "Bitte scannen Sie den QR-Code:"
+        Me.lbl.Visible = False
+        '
+        'Panel
+        '
+        Me.Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel.Controls.Add(Me.Label3)
+        Me.Panel.Controls.Add(Me.Label2)
+        Me.Panel.Controls.Add(Me.PictureBox1)
+        Me.Panel.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel.Location = New System.Drawing.Point(0, 485)
+        Me.Panel.Name = "Panel"
+        Me.Panel.Size = New System.Drawing.Size(1575, 72)
+        Me.Panel.TabIndex = 0
+        '
+        'Timer
+        '
+        Me.Timer.Interval = 1000
+        '
+        'Timer1
+        '
+        Me.Timer1.Enabled = True
+        '
+        'timerResetDefault
+        '
+        Me.timerResetDefault.Enabled = True
+        Me.timerResetDefault.Interval = 5000
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(1387, 5)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(179, 60)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "Tel.: +43 7711 / 31636 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "suben@front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.front-office.eu"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.Label3.ForeColor = System.Drawing.Color.White
+        Me.Label3.Location = New System.Drawing.Point(7, 6)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(171, 60)
+        Me.Label3.TabIndex = 19
+        Me.Label3.Text = "Front-Office Suben eG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben Nr. 14" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
+        '
+        'btn
+        '
+        Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btn.Location = New System.Drawing.Point(3, 3)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(75, 63)
+        Me.btn.TabIndex = 0
+        Me.btn.Tag = "DE"
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button1.Location = New System.Drawing.Point(84, 3)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 63)
+        Me.Button1.TabIndex = 1
+        Me.Button1.Tag = "EN"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
+        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button2.Location = New System.Drawing.Point(165, 3)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(75, 63)
+        Me.Button2.TabIndex = 2
+        Me.Button2.Tag = "SRB"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image)
+        Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button3.Location = New System.Drawing.Point(408, 3)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(75, 63)
+        Me.Button3.TabIndex = 3
+        Me.Button3.Tag = "TR"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.FO_white
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(480, 12)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(552, 54)
+        Me.PictureBox1.TabIndex = 18
+        Me.PictureBox1.TabStop = False
+        '
+        'frmCheckIn
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1577, 559)
+        Me.Controls.Add(Me.pnl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmCheckIn"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Info"
+        Me.TopMost = True
+        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
+        Me.pnl.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.FlowLayoutPanel.ResumeLayout(False)
+        Me.Panel.ResumeLayout(False)
+        Me.Panel.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnl As Panel
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents lbl As Label
+    Friend WithEvents Panel As Panel
+    Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
+    Friend WithEvents btn As Button
+    Friend WithEvents Timer As Timer
+    Friend WithEvents btnResetSearch As Button
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Public WithEvents timerResetDefault As Timer
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents Label1 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label2 As Label
+End Class

AVISO_CHECKIN/frmCheckIn.vb

@@ -0,0 +1,106 @@
+
+Public Class frmCheckIn
+    Dim cAvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
+    Dim LAN = "DE"
+
+    Private Sub frmInfo_Load(sender As Object, e As EventArgs) Handles Me.Load
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        Dim cOptionenDAL As New SDL.cOptionenDAL
+        If Not cOptionenDAL.checkLogin("CHECKIN", "CHECKIN", "AVISO") Then 'XXXXXX Or true
+            Me.Close()
+        End If
+
+        'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
+        'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB"
+
+        SET_WELCOME()
+
+    End Sub
+
+
+    Public Sub SET_WELCOME()
+        LAN = "DE"
+        Panel.Visible = True
+        btnResetSearch.Visible = False
+        FlowLayoutPanel.Visible = False
+        '    PictureBox1.Visible = False
+        If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
+        Dim USRCNTL As New usrCntlWelcome(Me)
+        setPos(USRCNTL)
+        Panel3.Controls.Add(USRCNTL)
+    End Sub
+
+    Public Sub SET_LANGUAGE(LAN)
+        Me.LAN = LAN
+    End Sub
+
+    Public Sub SET_SEARCH()
+        Panel.Visible = False
+        btnResetSearch.Visible = True
+        FlowLayoutPanel.Visible = True
+        ' PictureBox1.Visible = True
+        If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
+        Dim USRCNTL As New usrCntlSearch(Me)
+        setPos(USRCNTL)
+        Panel3.Controls.Add(USRCNTL)
+    End Sub
+
+    Public Sub SET_FOUND(AvisoId)
+        Panel.Visible = False
+        btnResetSearch.Visible = True
+        FlowLayoutPanel.Visible = True
+        '  PictureBox1.Visible = True
+        If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
+        Dim USRCNTL As New usrCntlFound(Me, cAvisoDAL.LesenAviso(AvisoId, ""))
+        setPos(USRCNTL)
+        Panel3.Controls.Add(USRCNTL)
+    End Sub
+
+    Public Sub SET_FINISH(AVISO)
+        Panel.Visible = False
+        btnResetSearch.Visible = True
+        FlowLayoutPanel.Visible = True
+        '  PictureBox1.Visible = True
+        If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
+        Dim USRCNTL As New usrCntlFinish(Me, AVISO)
+        setPos(USRCNTL, True)
+        Panel3.Controls.Add(USRCNTL)
+    End Sub
+
+    Public Sub TRANSLATE(CNTL As Control, Optional forceDETraslation As Boolean = False)
+        If LAN = "DE" And Not forceDETraslation Then Exit Sub
+        Exit Sub 'TEST
+        For Each c As Control In CNTL.Controls
+            If c.Controls.Count > 0 Then
+                TRANSLATE(c)
+            Else
+                Select Case c.GetType.ToString
+                    Case GetType(TextBox).ToString
+                        'NIX
+                    Case GetType(Label).ToString, GetType(CheckBox).ToString, GetType(Button).ToString
+                        c.Text = "OOO"
+                End Select
+            End If
+
+        Next
+    End Sub
+
+    Sub setPos(ByRef USRCNTL As Control, Optional fill As Boolean = False)
+        If fill Then
+            USRCNTL.Dock = DockStyle.Fill
+        Else
+            USRCNTL.Left = (Panel3.Width - USRCNTL.Width) / 2
+            USRCNTL.Top = 0
+            USRCNTL.Height = Panel3.Height
+        End If
+    End Sub
+
+    Private Sub btnResetSearch_Click(sender As Object, e As EventArgs) Handles btnResetSearch.Click
+        SET_WELCOME()
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click
+        LAN = sender.tag
+        TRANSLATE(Me)
+    End Sub '
+End Class

AVISO_CHECKIN/usrCntlFinish.Designer.vb

@@ -0,0 +1,160 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlFinish
+    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.lblKennzeichen = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Timer = New System.Windows.Forms.Timer(Me.components)
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'lblKennzeichen
+        '
+        Me.lblKennzeichen.BackColor = System.Drawing.Color.SeaGreen
+        Me.lblKennzeichen.Dock = System.Windows.Forms.DockStyle.Top
+        Me.lblKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 60.0!, System.Drawing.FontStyle.Bold)
+        Me.lblKennzeichen.ForeColor = System.Drawing.Color.White
+        Me.lblKennzeichen.Location = New System.Drawing.Point(0, 0)
+        Me.lblKennzeichen.Name = "lblKennzeichen"
+        Me.lblKennzeichen.Size = New System.Drawing.Size(1562, 165)
+        Me.lblKennzeichen.TabIndex = 4
+        Me.lblKennzeichen.Text = "FERTIG!"
+        Me.lblKennzeichen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label3.Location = New System.Drawing.Point(785, 200)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(293, 46)
+        Me.Label3.TabIndex = 10
+        Me.Label3.Text = "2. AKT:"
+        '
+        'btn
+        '
+        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
+        Me.btn.ForeColor = System.Drawing.Color.White
+        Me.btn.Location = New System.Drawing.Point(605, 788)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(347, 87)
+        Me.btn.TabIndex = 19
+        Me.btn.Text = "RESET (30)"
+        Me.btn.UseVisualStyleBackColor = False
+        '
+        'Label1
+        '
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label1.Location = New System.Drawing.Point(72, 200)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(293, 46)
+        Me.Label1.TabIndex = 20
+        Me.Label1.Text = "1. TICKET:"
+        '
+        'Label2
+        '
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label2.Location = New System.Drawing.Point(72, 647)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(682, 46)
+        Me.Label2.TabIndex = 22
+        Me.Label2.Text = "TICKET BITTE BEHALTEN"
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label4.Location = New System.Drawing.Point(785, 647)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(688, 121)
+        Me.Label4.TabIndex = 23
+        Me.Label4.Text = "BITTE ALLE UNTERLAGEN IN DEN AKT GEBEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UND INS FRONT-OFFICE BRINGEN"
+        '
+        'Timer
+        '
+        Me.Timer.Enabled = True
+        Me.Timer.Interval = 1000
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox2.Location = New System.Drawing.Point(792, 249)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(681, 395)
+        Me.PictureBox2.TabIndex = 24
+        Me.PictureBox2.TabStop = False
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Location = New System.Drawing.Point(79, 249)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(675, 395)
+        Me.PictureBox1.TabIndex = 21
+        Me.PictureBox1.TabStop = False
+        '
+        'usrCntlFinish
+        '
+        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.PictureBox2)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.lblKennzeichen)
+        Me.Name = "usrCntlFinish"
+        Me.Size = New System.Drawing.Size(1562, 878)
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents lblKennzeichen As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents btn As Button
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Timer As Timer
+End Class

AVISO_CHECKIN/usrCntlFinish.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="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

AVISO_CHECKIN/usrCntlFinish.vb

@@ -0,0 +1,55 @@
+Imports AVISO
+
+Public Class usrCntlFinish
+
+    Dim MAIN As frmCheckIn
+    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
+
+    Sub New(MAIN, AVISO)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.MAIN = MAIN
+        Me.AVISO = AVISO
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlFound_Load(sender As Object, e As EventArgs) Handles Me.Load
+        MAIN.TRANSLATE(Me)
+        If AVISO IsNot Nothing Then
+
+            Dim printerINFO = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
+            Dim printerStandard = SDL.cProgramFunctions.getDruckernameBySearch("XXXXXXX", True)
+
+            ' If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Then
+            Dim rpt As New rptQRAviso(AVISO)
+            If printerINFO <> "" Then
+                SDL.cProgramFunctions.printRpt(rpt, printerINFO, True)
+            Else
+                SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
+            End If
+            'End If
+
+            SDL.FormularManagerNEU.Sammelakt_CheckIn(AVISO, Nothing, True, printerStandard)
+
+        Else
+            MAIN.SET_WELCOME()
+        End If
+
+
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        MAIN.SET_WELCOME()
+    End Sub
+
+    Dim cnt = 30
+    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
+        If cnt = 0 Then
+            MAIN.SET_WELCOME()
+        End If
+        btn.Text = "RESET (" & cnt & ")"
+        cnt -= 1
+    End Sub
+End Class

AVISO_CHECKIN/usrCntlFound.Designer.vb

@@ -0,0 +1,410 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlFound
+    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.lblKennzeichen = New System.Windows.Forms.Label()
+        Me.txtFahrername = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.txtHandy = New System.Windows.Forms.TextBox()
+        Me.cbxHandyKeineAngabe = New System.Windows.Forms.CheckBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.lblAvisierer = New System.Windows.Forms.Label()
+        Me.lblFraechter = New System.Windows.Forms.Label()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.lblErrName = New System.Windows.Forms.Label()
+        Me.lblErrHandy = New System.Windows.Forms.Label()
+        Me.lblErrFahrzeugtyp = New System.Windows.Forms.Label()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
+        Me.lblErrSpedition = New System.Windows.Forms.Label()
+        Me.pnl = New System.Windows.Forms.Panel()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnl.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'lblKennzeichen
+        '
+        Me.lblKennzeichen.BackColor = System.Drawing.Color.PapayaWhip
+        Me.lblKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 60.0!, System.Drawing.FontStyle.Bold)
+        Me.lblKennzeichen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.lblKennzeichen.Location = New System.Drawing.Point(675, 58)
+        Me.lblKennzeichen.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblKennzeichen.Name = "lblKennzeichen"
+        Me.lblKennzeichen.Size = New System.Drawing.Size(1560, 195)
+        Me.lblKennzeichen.TabIndex = 4
+        Me.lblKennzeichen.Text = "34SD123AD/34SD123AD"
+        Me.lblKennzeichen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'txtFahrername
+        '
+        Me.txtFahrername.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
+        Me.txtFahrername.Location = New System.Drawing.Point(1110, 475)
+        Me.txtFahrername.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.txtFahrername.Name = "txtFahrername"
+        Me.txtFahrername.Size = New System.Drawing.Size(1123, 75)
+        Me.txtFahrername.TabIndex = 5
+        '
+        'Label2
+        '
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label2.Location = New System.Drawing.Point(54, 45)
+        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(520, 71)
+        Me.Label2.TabIndex = 9
+        Me.Label2.Text = "Bitte Typ auswählen:"
+        '
+        'Label3
+        '
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label3.Location = New System.Drawing.Point(662, 475)
+        Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(440, 71)
+        Me.Label3.TabIndex = 10
+        Me.Label3.Text = "Soför Name:"
+        '
+        'Label4
+        '
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label4.Location = New System.Drawing.Point(662, 566)
+        Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(440, 71)
+        Me.Label4.TabIndex = 12
+        Me.Label4.Text = "Handy-Nr (SMS):"
+        '
+        'txtHandy
+        '
+        Me.txtHandy.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
+        Me.txtHandy.Location = New System.Drawing.Point(1110, 566)
+        Me.txtHandy.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.txtHandy.Name = "txtHandy"
+        Me.txtHandy.Size = New System.Drawing.Size(1123, 75)
+        Me.txtHandy.TabIndex = 11
+        '
+        'cbxHandyKeineAngabe
+        '
+        Me.cbxHandyKeineAngabe.AutoSize = True
+        Me.cbxHandyKeineAngabe.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.cbxHandyKeineAngabe.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.cbxHandyKeineAngabe.Location = New System.Drawing.Point(1110, 657)
+        Me.cbxHandyKeineAngabe.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.cbxHandyKeineAngabe.Name = "cbxHandyKeineAngabe"
+        Me.cbxHandyKeineAngabe.Size = New System.Drawing.Size(365, 62)
+        Me.cbxHandyKeineAngabe.TabIndex = 13
+        Me.cbxHandyKeineAngabe.Text = "Keine Angabe"
+        Me.cbxHandyKeineAngabe.UseVisualStyleBackColor = True
+        '
+        'Label5
+        '
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
+        Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label5.Location = New System.Drawing.Point(1102, 715)
+        Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(854, 51)
+        Me.Label5.TabIndex = 14
+        Me.Label5.Text = "(Sie erhalen keine Nachrichten, wenn der LKW fertig ist)"
+        '
+        'lblAvisierer
+        '
+        Me.lblAvisierer.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold)
+        Me.lblAvisierer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lblAvisierer.Location = New System.Drawing.Point(672, 354)
+        Me.lblAvisierer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblAvisierer.Name = "lblAvisierer"
+        Me.lblAvisierer.Size = New System.Drawing.Size(1563, 71)
+        Me.lblAvisierer.TabIndex = 18
+        Me.lblAvisierer.Text = "Avisierer"
+        Me.lblAvisierer.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblAvisierer.Visible = False
+        '
+        'lblFraechter
+        '
+        Me.lblFraechter.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold)
+        Me.lblFraechter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lblFraechter.Location = New System.Drawing.Point(672, 263)
+        Me.lblFraechter.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblFraechter.Name = "lblFraechter"
+        Me.lblFraechter.Size = New System.Drawing.Size(1563, 71)
+        Me.lblFraechter.TabIndex = 17
+        Me.lblFraechter.Text = "Firma"
+        Me.lblFraechter.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'btn
+        '
+        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
+        Me.btn.ForeColor = System.Drawing.Color.White
+        Me.btn.Location = New System.Drawing.Point(1818, 1092)
+        Me.btn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(520, 134)
+        Me.btn.TabIndex = 19
+        Me.btn.Text = "WEITER >>"
+        Me.btn.UseVisualStyleBackColor = False
+        '
+        'lblErrName
+        '
+        Me.lblErrName.BackColor = System.Drawing.Color.Red
+        Me.lblErrName.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
+        Me.lblErrName.ForeColor = System.Drawing.Color.White
+        Me.lblErrName.Location = New System.Drawing.Point(1612, 420)
+        Me.lblErrName.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblErrName.Name = "lblErrName"
+        Me.lblErrName.Size = New System.Drawing.Size(622, 51)
+        Me.lblErrName.TabIndex = 20
+        Me.lblErrName.Text = "Bitte geben Sie Ihren Namen ein!"
+        Me.lblErrName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblErrName.Visible = False
+        '
+        'lblErrHandy
+        '
+        Me.lblErrHandy.BackColor = System.Drawing.Color.Red
+        Me.lblErrHandy.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
+        Me.lblErrHandy.ForeColor = System.Drawing.Color.White
+        Me.lblErrHandy.Location = New System.Drawing.Point(1612, 652)
+        Me.lblErrHandy.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblErrHandy.Name = "lblErrHandy"
+        Me.lblErrHandy.Size = New System.Drawing.Size(622, 51)
+        Me.lblErrHandy.TabIndex = 21
+        Me.lblErrHandy.Text = "Bitte geben Sie Ihre Handy-Nr. ein!"
+        Me.lblErrHandy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblErrHandy.Visible = False
+        '
+        'lblErrFahrzeugtyp
+        '
+        Me.lblErrFahrzeugtyp.BackColor = System.Drawing.Color.Red
+        Me.lblErrFahrzeugtyp.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
+        Me.lblErrFahrzeugtyp.ForeColor = System.Drawing.Color.White
+        Me.lblErrFahrzeugtyp.Location = New System.Drawing.Point(64, 1120)
+        Me.lblErrFahrzeugtyp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblErrFahrzeugtyp.Name = "lblErrFahrzeugtyp"
+        Me.lblErrFahrzeugtyp.Padding = New System.Windows.Forms.Padding(8, 8, 8, 8)
+        Me.lblErrFahrzeugtyp.Size = New System.Drawing.Size(474, 95)
+        Me.lblErrFahrzeugtyp.TabIndex = 22
+        Me.lblErrFahrzeugtyp.Text = "Bitte geben Sie den " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Fahrzeugtyp an!"
+        Me.lblErrFahrzeugtyp.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblErrFahrzeugtyp.Visible = False
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Sprinter1
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.Location = New System.Drawing.Point(64, 772)
+        Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(474, 317)
+        Me.PictureBox2.TabIndex = 16
+        Me.PictureBox2.TabStop = False
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.LKW
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(64, 446)
+        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(474, 317)
+        Me.PictureBox1.TabIndex = 15
+        Me.PictureBox1.TabStop = False
+        '
+        'pic
+        '
+        Me.pic.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.LKW_mit_Aufleger
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.pic.Location = New System.Drawing.Point(64, 120)
+        Me.pic.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(474, 317)
+        Me.pic.TabIndex = 8
+        Me.pic.TabStop = False
+        '
+        'Label1
+        '
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label1.Location = New System.Drawing.Point(3, 7)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(440, 71)
+        Me.Label1.TabIndex = 23
+        Me.Label1.Text = "Spedition:"
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.CheckBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.CheckBox1.Location = New System.Drawing.Point(451, 6)
+        Me.CheckBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(225, 62)
+        Me.CheckBox1.TabIndex = 24
+        Me.CheckBox1.Text = "VERAG"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'CheckBox2
+        '
+        Me.CheckBox2.AutoSize = True
+        Me.CheckBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.CheckBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.CheckBox2.Location = New System.Drawing.Point(451, 78)
+        Me.CheckBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.CheckBox2.Name = "CheckBox2"
+        Me.CheckBox2.Size = New System.Drawing.Size(272, 62)
+        Me.CheckBox2.TabIndex = 25
+        Me.CheckBox2.Text = "UNISPED"
+        Me.CheckBox2.UseVisualStyleBackColor = True
+        '
+        'CheckBox3
+        '
+        Me.CheckBox3.AutoSize = True
+        Me.CheckBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.CheckBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.CheckBox3.Location = New System.Drawing.Point(451, 150)
+        Me.CheckBox3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.CheckBox3.Name = "CheckBox3"
+        Me.CheckBox3.Size = New System.Drawing.Size(173, 62)
+        Me.CheckBox3.TabIndex = 26
+        Me.CheckBox3.Text = "IMEX"
+        Me.CheckBox3.UseVisualStyleBackColor = True
+        '
+        'CheckBox4
+        '
+        Me.CheckBox4.AutoSize = True
+        Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.CheckBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.CheckBox4.Location = New System.Drawing.Point(451, 222)
+        Me.CheckBox4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.CheckBox4.Name = "CheckBox4"
+        Me.CheckBox4.Size = New System.Drawing.Size(292, 62)
+        Me.CheckBox4.TabIndex = 27
+        Me.CheckBox4.Text = "(ANDERE)"
+        Me.CheckBox4.UseVisualStyleBackColor = True
+        '
+        'lblErrSpedition
+        '
+        Me.lblErrSpedition.BackColor = System.Drawing.Color.Red
+        Me.lblErrSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
+        Me.lblErrSpedition.ForeColor = System.Drawing.Color.White
+        Me.lblErrSpedition.Location = New System.Drawing.Point(659, 1120)
+        Me.lblErrSpedition.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lblErrSpedition.Name = "lblErrSpedition"
+        Me.lblErrSpedition.Size = New System.Drawing.Size(875, 51)
+        Me.lblErrSpedition.TabIndex = 28
+        Me.lblErrSpedition.Text = "Bitte wählen Sie eine Spedition aus!"
+        Me.lblErrSpedition.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblErrSpedition.Visible = False
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.PapayaWhip
+        Me.pnl.Controls.Add(Me.CheckBox4)
+        Me.pnl.Controls.Add(Me.CheckBox3)
+        Me.pnl.Controls.Add(Me.CheckBox2)
+        Me.pnl.Controls.Add(Me.CheckBox1)
+        Me.pnl.Controls.Add(Me.Label1)
+        Me.pnl.Location = New System.Drawing.Point(659, 823)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(875, 297)
+        Me.pnl.TabIndex = 29
+        '
+        'usrCntlFound
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.pnl)
+        Me.Controls.Add(Me.lblErrSpedition)
+        Me.Controls.Add(Me.lblErrFahrzeugtyp)
+        Me.Controls.Add(Me.lblErrHandy)
+        Me.Controls.Add(Me.lblErrName)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.lblAvisierer)
+        Me.Controls.Add(Me.lblFraechter)
+        Me.Controls.Add(Me.PictureBox2)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.cbxHandyKeineAngabe)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.txtHandy)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.pic)
+        Me.Controls.Add(Me.txtFahrername)
+        Me.Controls.Add(Me.lblKennzeichen)
+        Me.Controls.Add(Me.Label5)
+        Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Name = "usrCntlFound"
+        Me.Size = New System.Drawing.Size(2343, 1249)
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents lblKennzeichen As Label
+    Friend WithEvents txtFahrername As TextBox
+    Friend WithEvents pic As PictureBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents txtHandy As TextBox
+    Friend WithEvents cbxHandyKeineAngabe As CheckBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents lblAvisierer As Label
+    Friend WithEvents lblFraechter As Label
+    Friend WithEvents btn As Button
+    Friend WithEvents lblErrName As Label
+    Friend WithEvents lblErrHandy As Label
+    Friend WithEvents lblErrFahrzeugtyp As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents CheckBox2 As CheckBox
+    Friend WithEvents CheckBox3 As CheckBox
+    Friend WithEvents CheckBox4 As CheckBox
+    Friend WithEvents lblErrSpedition As Label
+    Friend WithEvents pnl As Panel
+End Class

AVISO_CHECKIN/usrCntlFound.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>

AVISO_CHECKIN/usrCntlFound.vb

@@ -0,0 +1,85 @@
+Public Class usrCntlFound
+
+    Dim MAIN As frmCheckIn
+    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
+    Dim FTYP As eFahrzeugtyp = eFahrzeugtyp.None
+
+    Sub New(MAIN, AVISO)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.MAIN = MAIN
+        Me.AVISO = AVISO
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub usrCntlFound_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txtFahrername.Focus()
+
+        MAIN.TRANSLATE(Me)
+        If AVISO IsNot Nothing Then
+            lblKennzeichen.Text = AVISO.LKW_Nr
+            lblFraechter.Text = AVISO.Frächter
+            lblAvisierer.Text = AVISO.Auftraggeber
+            'txtFahrername.Text = AVISO.FahrerHandy
+            txtHandy.Text = AVISO.FahrerHandy
+
+        Else
+            MAIN.SET_WELCOME()
+        End If
+
+
+    End Sub
+
+    Private Sub cbxHandyKeineAngabe_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHandyKeineAngabe.CheckedChanged
+        txtHandy.Enabled = Not cbxHandyKeineAngabe.Checked
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        lblErrName.Visible = False
+        lblErrHandy.Visible = False
+        lblErrFahrzeugtyp.Visible = False
+
+        If txtFahrername.Text.Trim = "" Then
+            lblErrName.Visible = True
+            txtFahrername.Focus()
+            Exit Sub
+        End If
+        If Not cbxHandyKeineAngabe.Checked AndAlso txtHandy.Text.Trim = "" Then
+            lblErrHandy.Visible = True
+            txtHandy.Focus()
+            Exit Sub
+        End If
+        If FTYP = eFahrzeugtyp.None Then
+            lblErrFahrzeugtyp.Visible = True : Exit Sub
+        End If
+        MAIN.SET_FINISH(AVISO)
+    End Sub
+
+
+    Enum eFahrzeugtyp
+        None = 0
+        LKW_Auflieger = 1
+        LKW = 2
+        Sprinter = 3
+    End Enum
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, PictureBox1.Click, PictureBox2.Click
+        pic.BackColor = Color.White
+        PictureBox1.BackColor = Color.White
+        PictureBox2.BackColor = Color.White
+        pic.BorderStyle = BorderStyle.None
+        PictureBox1.BorderStyle = BorderStyle.None
+        PictureBox2.BorderStyle = BorderStyle.None
+
+        If sender Is pic Then FTYP = 1 : pic.BorderStyle = BorderStyle.FixedSingle
+        If sender Is PictureBox1 Then FTYP = 2 : PictureBox1.BorderStyle = BorderStyle.FixedSingle
+        If sender Is PictureBox2 Then FTYP = 3 : PictureBox2.BorderStyle = BorderStyle.FixedSingle
+
+        sender.BackColor = Color.PapayaWhip
+
+    End Sub
+
+
+End Class

AVISO_CHECKIN/usrCntlSearch.Designer.vb

@@ -0,0 +1,169 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlSearch
+    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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSearch))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txt = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label1.Location = New System.Drawing.Point(3, 85)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(1556, 46)
+        Me.Label1.TabIndex = 4
+        Me.Label1.Text = "Bitte geben Sie das Kennzeichen oder den Frächter ein und wählen Sie einen Eintra" &
+    "g aus:"
+        '
+        'txt
+        '
+        Me.txt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txt.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
+        Me.txt.Location = New System.Drawing.Point(3, 134)
+        Me.txt.Name = "txt"
+        Me.txt.Size = New System.Drawing.Size(1475, 53)
+        Me.txt.TabIndex = 5
+        '
+        'Button1
+        '
+        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
+        Me.Button1.ForeColor = System.Drawing.Color.White
+        Me.Button1.Location = New System.Drawing.Point(1212, 613)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(347, 87)
+        Me.Button1.TabIndex = 20
+        Me.Button1.Text = "WEITER >>"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label2.Location = New System.Drawing.Point(152, 597)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(986, 116)
+        Me.Label2.TabIndex = 22
+        Me.Label2.Text = "Sie können Ihr Fahrzeug nicht finden?" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Bitte melden Sie sich am Schalter."
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.fragezeichen
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(10, 597)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(124, 116)
+        Me.PictureBox1.TabIndex = 21
+        Me.PictureBox1.TabStop = False
+        '
+        'btn
+        '
+        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Location = New System.Drawing.Point(1484, 134)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(75, 53)
+        Me.btn.TabIndex = 6
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'MyDatagridview1
+        '
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview1.AllowUserToAddRows = False
+        Me.MyDatagridview1.AllowUserToDeleteRows = False
+        Me.MyDatagridview1.AllowUserToResizeColumns = False
+        Me.MyDatagridview1.AllowUserToResizeRows = False
+        Me.MyDatagridview1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.WhiteSmoke
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview1.ColumnHeadersVisible = False
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle1
+        Me.MyDatagridview1.Location = New System.Drawing.Point(3, 194)
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.ReadOnly = True
+        Me.MyDatagridview1.RowHeadersVisible = False
+        Me.MyDatagridview1.RowTemplate.Height = 60
+        Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.MyDatagridview1.Size = New System.Drawing.Size(1556, 377)
+        Me.MyDatagridview1.TabIndex = 7
+        '
+        'usrCntlSearch
+        '
+        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.Label2)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.MyDatagridview1)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.txt)
+        Me.Controls.Add(Me.Label1)
+        Me.Name = "usrCntlSearch"
+        Me.Size = New System.Drawing.Size(1562, 713)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents txt As TextBox
+    Friend WithEvents btn As Button
+    Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Button1 As Button
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label2 As Label
+End Class

AVISO_CHECKIN/usrCntlSearch.resx

@@ -0,0 +1,278 @@
+<?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="btn.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAI19JREFUeF7t
+        3f+Z1Dj2L+DdjoAQOgQy+JLBkMGQwZDBTgZLBkMGQwaQAWQAGUAG957TdrM9xgXdVbZLR3rf5/n8cX/s
+        IFfL9rEsyf+CRj2P/N+c3yP/ydzc3Pz33//+9/sT+X+PzNr/9n3+t+//nfnfvP/3sy0AwAbyxvpb5OFN
+        /WNk7YbdUrKND4uFPIY8FgBg9iySN8c/4ob5V944H9xIe00WB3/lMc/Hnr8BAHQrh8nvhurzJhj5+uCm
+        OHryt3ifv838G3mlAEBZ+XSbN/u/5xvc2o1PTid/s7/zN5x/SwBoTg5j//bgXf3aDU0uz/3cgpxX4NUB
+        AFeRw9T5hF9hYl6v+Zh/g/lvAQC7yCfO3+fJeob028vXeXJhziEwOgDARW4jf8TNxVN+veToQK40yL8h
+        APySm35/UQwAsMpNf5woBgD41+9xQzBrf9zkMsOcMwDAAG7n5Xom8sl9cgJhLi80KgDQmbsZ/HGh97Qv
+        v0ruSGhUAKC4fNq3bE/Oyf2yQqMCAIW8iAt4bsG7dmEXeWpyrsCLqWsB0CLD/LJnvB4AaMj9+/3Pi4u1
+        yF75nH1u7nsAHCwvvrkXv/f7cq18zT4490UAdubGL61FIQCwsxzqd+OXVnP/agCAjXjHL5WiEAC40Mu8
+        mC4uriJVkoXAy6krA/AYz+PiaTmf9JJcPvh86toArHk279y3dhEVKZ15Z0ETBQEWzOyXEXK/YgBgeN7z
+        y4jJ+QG2FwaG9Cwugvbrl9GT3xnwWgAYhvX8Iv9LvhawbBDo2m1c7MzuF1lPrhbw+WGgO3/EBc5Tv8jP
+        k6MBf0ynDEBtuab/4+IiJyI/z8c8d6ZTCKAeT/0i58doAFCOGf4i28VKAaCEF3HB8tQvsm1yNMC+AUCb
+        bm5u/rty4RKRjZLn2Hy6ATTBRD+R42KCINCE3MrXkL/IsclXAj41DFyHIX+R68YrAeBoOcvfjn4ibSR3
+        ELRKANhdvu/39b528inyIfIungb/vE/8nXLG+MM85Z1x/v/9x//+4X87/63538x/e61Ncnzy64LmBQC7
+        ebVy4ZF98y3yIW68b+Ybe773zZtyS0982ZZs08u5SHiTbZ7bvnZMslPib/Aq/yAAm4mL+l9rFxzZNJ/i
+        d3473+jzhtrDh2HyGO5HEN7mMS6OWTZOnqvTTw9wGbv67ZN8Or4bto/fOG/2o7krCvI3mH+Ltd9Izo/d
+        A4GL5M3f+v5tcnfDj980h2h98vVH+f46XzEpCLZL7hegCACezGS/y5ND+vmEb3LW0z2fRwi8MrgsJgcC
+        T2I///Nz/5TvyWs7+Vvejw6s/eby8/iOAPAoZvo/PW76x1EMnJn83e5+QYAVbv6Pj5v+9SkGnpj8ve5+
+        OYAH3Px/nS/zO32T+NpzO88Z+LL4m8ki8VspAoBJXDit8f9J4vd5Gz+Td6h15BLD3HNg9e8p9goAgpv/
+        yXyL3yaf9g3x1/Us/4b5t1z8bSWiCICBufmv5kv8NIZI+5OvuLweWEQRAANy8/8hH+JnMczfv1zimt8p
+        WOsDQ0YRAANx8/9H3PjHpBB4EEUADMDN/3vc+EkKgTmKAOiYm/9d3PhZoxCIKAKgQ27+d5P73Pj5lSwE
+        hp4sqAiAvoy8yc+3OP7X088Aj/Y6+86iLw2TPP7pZwAqG/bmH08yb+L4rePnXLmPwJu1vjVC4vgth4XC
+        Rr3553t+2/WyldvsU4s+NkTi2BUBUFC+y1w9qTtODve7YLGXLKiHey0Qx23uDBTyPE7c0b7nn1/nM9zP
+        3p5lX1v0vd7zNY77+XT4QMvyAvV5cQL3HLP7uYbRVgt8jmNWYEPD8ub/cXHidhuT/Liy0SYJfsxjng4d
+        aEqcoH8vTthek+/6X05HDVf3Mvvkoo/2mr/nYwZakZt3rJysPSZn+HsKoTU5+jbESoG81szHDDRghOV+
+        NvShgiE2EIrjtNoGGpAz/ldP0o7yKY9zOlxoXp6TnxZ9uLvkcU6HC1zDCDP+Le+johGWC1oZANcSJ+D7
+        xQnZVeIQDflTXb4SWO3fneT9fJzAUTpffpTv+63tpxe5Z0C38wLm5bjAQXLZ0erJ2EHyfb9hRXqT3xPo
+        dl5AHJ9luXCAbrf5jSeJt3F8bv70qud5AbYLhr3FidblTn/zzR+6l3197RzoILlTILCHXt/7x6FZU8xo
+        uty7w3wA2EePn/e1pS8j63IL4TguE3hhQ/nusLf3/nnz986Q0eWcnt6KgJwPYC4PbCFOqN4+8uPmD//T
+        YxHgo0Gwgd42EnHzhx91VwTEMdnICy7Q25I/a/zhtN72CrA0EM4VJ1BPS/7c/OHXcr5PT0WApYFwhp6G
+        /t384fG6KgLieLwKgCfIocBehv7d/OHpeioC8lXA7XRYwE/FCdPLV/5ywp8TH86TDwK9TAz01UB4hF4+
+        9GO2P1yum9UBcSx2/ISf6GXDHzd/2E4vRYANguCUOEF62PDHzR+210sRYIMgWNHFXv9xHPb2h3108QGh
+        OA7XCHgoTozPyxOlWuIwvOODffVQBHyejwUI5df8+54/HCPPtbVzsFLiGP6cDweGVn7in5s/HCvOu3fL
+        87BYTAiEuHm+WTk5KsVGP3C88hsFeXBgdDmzd/XkKBIb/cD1lN8oKI7BiiHGFCdA6R3/4hBeTEcCXEn1
+        1UN2CGRIpXf8i/b7wAc0ICfUrZ2jVRKHYFkgY4mOX3nZ37v5MIAG5Dm5OEcrxbJAhlJ5La9Jf9Ce0pMC
+        o/32EGEM0eGrPv3b5hfaVXm7YKMADKHs03+03Xt/aFvZTcWy7dMhQKeio1d9+v8wHwLQsDxXF+duldgc
+        iK5Vrc5z6N+JCTXkfICSrwJsEUyvym75G223TAdqqbrM2CgA/am6Vje3Kp4PASgkt9pdO6dbj1EAelP1
+        6f9Ltn06BKCYvO58WZzTFWIUgK6UnPkf7bbVL9RW8lVAtNuKAPoQHbrizH+7/UEH8lxenNsVYl8AulCx
+        AjfrH/pRclVAtNvugNQWHbncF/+i2YbfoC8VlyB/nNsOJVX8VKcNf6BDeW4vzvXmE802D4maKi7DiWbf
+        Tq0HOnO7ds43nvdz26GUciebNf/QNw8lcIC8ma515oZj4h/0r9yEwCxa5rZDDdFxS238E0028Q8GEDfU
+        aruS2hiIUqpt/JM7/gGDyHN+cQ1oOtFkSwKpITpsqaV/0WQf+4GxVNufxJJASqg2+c+yPxhQnvuLa0HT
+        iSY/n1oOjao2+S+abJ0tjKnUPiUmA9K86KiVJv95+oeB5TVgcU1oOTkZEJpVavJftNfTP4yt1ChAtNdk
+        QNoUHbTSV7c8/QPVRgHsDEiTcoONtQ7bZKK9nv6BVG0UwM6ANKfS8L+nf+C7vCYsrhHNJppr0zLaEh3z
+        47KjtppornX/wEOV9gWwJwBNqbT2365/wA/y2rC4VjSbaK7XADTj9VonbTHRVrNogTVlXmNGW70GoA3R
+        IasM//viH3BKpS8Feg1AE8oM/+dXwOY2A/yg0pcCo7leA3B1lYb/nTDAz5R5oIm2eg3AdUVHLDH8bx9t
+        4DHielFlQzOvAbiqMpv/RFst/QMeo8ySwGirUU2upsqsWUv/gEfLa8biGtJkoqlWNXEdOay+1ilbi8l/
+        wFMUmgz4bm4yHCs63+dFZ2wy0VTDZMBTVJkM6BPBXMXzlc7YYuz7DzxZXjsW15ImE031YTMOV2L5X7TT
+        OzLgHCXmON3c3LyZ2wvHiI5XpTq28x9wjiqrnCwH5FBVTgwTZICz5TVkcU1pMtFU85w4TIl1stFOw//A
+        JUq8Bsh2Ts2FnVVZIhNNNfwPXKLEaKd5ABwmOlyF9/+G/4GL5bVkcW1pMeYBcIyVztdcopmGxIAtVHkN
+        YMST3b1Y63ytJdrpZAC2UOI1QLTTfgDsrsL6/09zWwEulteUxTWmudjynN1FR2v+fZgTAdhSTrJbu9Y0
+        Fruesq/oZF8Xna65RDMNhQFbqvLqE3ZT4QMZ3+a2Amwmry2La01ziWY+n1oL26swG9byP2BzeW1ZXGua
+        SzTz9dRa2FiFDYCimU4AYA/NT4C2IRC7iQ7W/AZA0UxDYMAeKnwC3URA9hGd6/Ois7UW7/+B3eQ1ZnHN
+        aS5zU2FTFTbDUP0Cu8lrzOKa01yimb4MyOaaXwZj/T+wpyLzoF5OrYXtND8BJtpo/T+wJw9CjCc61du1
+        ztZSopn2/wf2VOFVqKXQbCs6Vevvvuz/D+wurzWLa09r8WlgtrXSyZpKjlDMTQXYTZHRUNjOWidrKd57
+        AUfIa83aNailRDOtBGAzzU98yTZOTQXYleshQ6nQ4VW8wBGa/yhatPHV1FS4UJEhL4BDrF2DWopXomym
+        QAFgB0DgMHnNWVyDWoulgGwjOlPTnT0KFF/AAg4T15zWVwJ4KGIb0Zk+LjpXUzHcBRypwKjo17mpcJmV
+        ztVUoon2vgaO9HLtWtRS5nbCZdY6V0uJJlryAhypwsqo51NT4XzP1zpXS4k2+gYAcKTmvwkQbfRgxMUq
+        VLoAh1q7FrWUaKICgIu1XgD4CBBwuLz2LK5FTSWaaDMgLvZqrXM1FMtdgMPltWdxLWoqVkdxsQLLXWx4
+        ARwurz2La1FTUQBwsdYLAJ0cuIYC10YbpHGZ7ERrnauVKACAa2i9AIh4PcplshMtOlVTUQAA16AAoHvZ
+        iRadqqlEE+0CCFxD67sBKgC4THaiRadqKtFEa12Ba2h9ifTHuZ1wnuhECgCAH9kkjb5FJ1IAAPxIAUDf
+        ohO1XgD44AVwDQoA+rbWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZNailzM+E8a52qpczNBDjc2jWp
+        pczNhPOsdaqWMjcT4HBr16SWMjcTzrPWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZNailzM+E8a52q
+        pczNBDjc2jWppczNhPOsdaqWMjcT4HBr16SWMjcTzrPWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZN
+        ailzM+E80YlsBQzwI1sB07foRD4GBPAjBQB9i06kAAD4kQKAvkUnUgAA/Kj1AuDb3E44T3QiBQDAj1ov
+        AD7M7YTzZCdadKqmcnNz8+fcVIDD5LVn7ZrUUBQAXCY6+ZuVjtVMFADANSgA6F7rnVwBAFxDgQLg3dxU
+        OE+BAuDt3FSAw+S1Z+2a1Eo8HLGF12udq6EY5gIOl9eexbWoqSgA2IKZrgALce35uLgWNRUFAFuw2QXA
+        wtq1qKVEE19NLYXzKQAA/unZ2rWopUQb7ZHC5dY6V0uJJurowJEqPBj5UBqXW+tcLSWaqAAAjmRklDFE
+        Z/q07FwtxWQX4Eh5zVm7FrWUualwmehMrS93eTM3FWB3ec1ZuxY1FKuj2IbODvA/ec1ZXINai2si2ygw
+        3PV1birA7vKas7gGNZW4Ztshlc28XOtkLSXa+GxqKsCuml8CmA9tc1vhYhVmvFoJAByhwvXw5dRUuFyF
+        TS9eT00F2FXr30fJ66E9ANjOWidrKd55AUfIa83aNailzE2FbUSnanovgIhZr8Du8lqzuPa0li9zU2Eb
+        ql6A9kdDIx6G2FbOKl3paE0lmmkiILCn5icAxrXaxmhsrsLMVxMBgT1VmADoOsjmbtc6W2N5N7cVYHN5
+        jVlcc5pLNNNIKNuLzvVt2dkaix0Bgd3kNWZxzWkuc1NhW9G5Wp/9mp3/dmotwKYqjIJ+mtsK28rJJSsd
+        rqlEM19NrQXY1Ku1a05j8RqU3TR/AuRyxbmtAJupsBQ6V2vNzYXNPV/rdI3FPABgc3ltWVxrmks00wRA
+        9rPW6VpLNNM+2MCWKjz85LXPV1HZT3SyChMBrYMFttT8+v+ILYDZV75jWul4rcVWmMBm8pqyuMY0F/Of
+        OELzOwJmop2GwoAtNP859Ey00woodlflZHg5NRfgIi/XrjGtJdppDxT2F52t9U8DGw4DNlFh+V/k29xc
+        2FecEM1vCBSxHBC4WF5LFteWFmMDIA5TYUcsrwGAS1UZ/rfyicNU2BPbawDgIkWG/7MAsPcJx4lO1/w8
+        gIjXAMDZ8hqyuKa0GO//OVaReQBeAwDnKjH8b6STayixH0DE5BjgyfLasbiWNJloqvX/HC8637dlZ2wx
+        0VSbAgFPUWK/k0y2dWoyHCg6X5UK2QxZ4Ckq7P2f+TS3Fw5XYjlg5PPcXoBfymvG4hrSZG5ubv6cmwyH
+        K7EcMBNttUwGeIwSn/7NZFunJsMVRCessBzQTFngUaqs/Y9Y/sd1VVkOGMk9AUyWAX4mJ/9VWPvvoYYm
+        VBouMxkQ+Jkqk//yemaPE64vOmOJ1wARkwGBk/IasbhmtBrD/zSjUtVs0wxgTZVVTYb/aUqZ1QCR93Ob
+        Ab7La8PiWtFsormG/2lHdMoqrwHy5HkxtRrgTpWtzTOG/2lOmdcAhs+Ahwot/XP9okmVXgPkKMDt1Gxg
+        cNWuXTb/oT3ROcu8BlBFA6nS03/ky9xsaE6ZWbSZaK9RABhbtad/e5nQrNxFq8Qnguf8PbcbGFCxp38P
+        LbSt4AllRQCMqdTTf+TD3G5oVpmtgefYFwAGVPBhxSZmtC8665dl52050WSjADCWSuv+M7n238fMKKHM
+        ngBzPs7tBgYQ53yZXf8yNzc3b+amQ/NyMuBqR2410WbDazCGUquVMtFmk/+oo9r7tUh+KdAQG3Quz/XF
+        ud963s1NhzKqvWPLYbY/57YDHcpzfO3cbznRbHOUqCc674dlZ248X6PZhtqgT/lq8uvinG89dv6jrJcr
+        Hbr12BwIOpTn9uJcbz7RbDv/UVd04lJLAjPRbN/ahr6UeyUZsfSP8srNuI2YEAj9yKH/ahP/zEmiD9GZ
+        K30f4C7W3UIfKk78y0TTPYRQX+ET0OxbqK3a1uR3iWumz5XTjXIbA82xQyAUlufw4pwukWi61Uj0I4fU
+        1zp668nRi/kQgEKqjjx6+qdHOQpQbi5AJtruVQDUUnLoPxNt9/RPf6pW5BGrAqCOfNgoOfTv6Z+elR0F
+        iNggCAqIm2jJ142ZaL6nf/pVeBQgT04bBEHbKu4+ehdP/4yg8iiAbwVAu/LaUm2v/++J9ru20L/KowAR
+        SwOhQXFuvl+cq2Xi6Z+RVB4FyJP1r/k4gAbEOVn2vX8k9/z39M9QXq+cCGUS7X81HQZwZWXf+2dyRHQ+
+        DhhHdP5yXwp8mDiE59ORAFeS6/3LvveP+OIfw6r4ic6HsT8AXE/Z9f73iWMwksi44iT4sDwpiuX9fCjA
+        geLc+3txLlbLp/lQYFi3KydGqZgUCMcqPunvLnEYthiHnASzdoJUShzG6+logJ29WjsHi+XdfCwwvNLL
+        Au8Tx+F9Huyr9Iz/OZb9wUIPVb2VAbCf6jP+72LZH6yIk6P6hMBMbhesCIBtld7m90FM/IMTyk8InJNF
+        gOWBsI3yy/3uE8di4h+c0sOEwDn5zQBFAFymm5t/rlyYjwk4JU6WT8uTp2gUAXC+bm7+ETv+wSPlZJ+1
+        k6hiFAHwdD3d/HPo/+V0WMAv9bDRx4MoAuAJ4vz/a+U8qhpr/uGJ8gmg9MeCFlEEwCN0dvM39A9nqv6x
+        oGUUAXBaV8P+mTgmQ/9wrs5eBWQUAfCj7m7+ce16Ox8bcK44mXpZFXAfRQD8T3c3/8iXPK7p8IBL5KqA
+        8t8KWMSOgdDnzd+GP7Cx12snWvEoAhhZFvafF+dE+eRry/n4gK3EyfVuebJ1kCwCfEWQ0eQE3x729l/G
+        Xv+wkxwu7O1VwF3i2P6YDhG618WXP1fiM7+ws96WBn5Prn+ejxF69Z+1vt9D4tgs+YMD9Dgf4D7v4/jM
+        HqY3zzrb4Ocf8d4fDhQnXY/zAe7zOQ7R5EB6kZ/57m6m/4N47w8Hy/kAve0P8DAmB9KDl9mXF327q3h1
+        B9fR4/4A/4iLC4V1+75/GecpXEc+YayelB3FzoFUkqNzfy/6cPdRBMAV5ASctROys+QrAbOMaV2u0ulu
+        c5/HRhEAVxAnX8+TAr9nvsAYDaA50Tf/u9ZnR4siAI7X+6TAh7FKgJbkXJyeZ/k/OYoAOF63OwWuJY73
+        P9Nhw9X8EX2x61n+50YRAMfrfmXAIjlB0GgAR8u1/e8XfVEWUQTA8UZYGfCP5PvXOG5zAzhCLu/z1P/I
+        KALgeL1+cORnybkBvkPOXnKGv3f9Z0QRAAeLk26E5YFr+TsO32gAW8l9/M3wvzCKADhYnHRv107GAZL7
+        BpgkyKV+z7606FtyZhQBcLCBi4BMvhawgRBPZbh/pygC4GCDFwGZ/Myw+QH8itn9B0QRAAeLE2+UjYJO
+        Zr7w3E6/CHx3m31jrc/IPlEEwLFG2i3wp1EIMHPjv2IUAXAsRcCDKASG5cbfSBQBcCxFwCLzRciOgv1z
+        428wigA4liJgPTlZ8LfpJ6IjOat/uG/0V4oiAI6lCDidXD74e/5Gd78UVeU6fsv5ikQRAAeLk270JYI/
+        y9f4ffI7A+YJ1JF/q9yv//PibykFogiAgykCHpX88qBRgXbl0741/B1EEQAHUwQ8OjkqkBcoGwtd3/P8
+        W+TfZPE3kuJRBMDBFAFPzuf4zfIVgYmDx8mbfn6cxxB/51EEwPFG/JTwFrkfGVAMbM9Nf9AoAuB4L+Pk
+        +7Y8GeXRySHp/CxxzhkwgfDp8jf7PS/+82+59hvLIFEEwPGex8mnCNgmD18VmES47rf5Kd+yPfkhigA4
+        Xn4dzV4B2+fjfEHLEYIRdyC8f8J3w5dHRxEAx8sNgz4sT0bZNDnMnbsQ/ifSW1GQx5IjH7k2P3fjM6Qv
+        Z0cRAFcQJ54VAscnn45zLsF9YfB/kRbnFORrjWzbwxu9J3vZJYoAuI5cIWBeQBvJGfHv54thFgiZPyJ5
+        I77PJfMN7m/q98n/9t2/k/9m/ttzG9baJrJrrlQEfD8P4t/POT33552VPwwjJwd+WZ6QIiJH5oAiIEfb
+        /oh/6zEfksrvh7y6+19B58wLELl+coLu0JN0dyoCfov/9llfj5xHBqB/0dn/XDsJRGTfxLn3Zj4Nh/+q
+        54ZFQH5P4uLXWjsVJdAkmwaJHJdvec5Np953ioDLbro5zL/pfBZFACPJ/QK8EhDZN5/yXJtOuR8oAp5+
+        093kif9UFAEMJTq8VwIiOyTOrfsh/59RBDzuppsTmQ/5dLQigNFYJSCyXXLI/ymfnlYEnL7pPov/t9x9
+        cvV/t1cUAYwmT7Q3ayeDiDw67/Jcmk6pJ1EE/HjTfRH/91fbt0IRwIhMEBR5etYm+j2VImC66V7lqX8t
+        igBGlBeid8uTQURW8yHPmenUudjwRUCkqW9PKAIYVQ7BmRsgsp586t9jJzlFQGNRBDAqcwNEFolz4m2e
+        G9MpsgujcI1FEcDIcjTAU4mMni95LkynxP6y0Fhpg1wpigCGFidA7htgkqAMl+z782lwKEVAW1EEMLpb
+        FyUZKDnJ79RufodwvrUVRQBMrwVsJyy95tDh/l9RBLQVRQBMXsUJYbWA9JKc3f966tptUQS0FUUATHK1
+        gO8KSOlEH879+/ec3X8xRUBbUQTA/5gfIOWSfTb77tSF2+ccayuKAPgnhYA0n2o3/oecX21FEQA/UghI
+        i8mZ/c+nLlqXc6utKAJgnUJAWkh+ra+Zmf1bcF61FUUAnKYQkMOTfS773tQF++OcaiuKAPi5LATsKih7
+        5lvvN/6HFAFtRREAv5ZLruwjIFvmSxaXc98aiiKgrSgC4PGyELCzoJybnNi3x+d5S1EEtBVFADzN8zhp
+        8hPEXg/IrzLUMP9jKQLaiiIAzmNUQNbyKftGZLhh/sdSBLQVRQCcLycNGhUYO/luP7fq9bT/SIqAtqII
+        gMu9nC9sioEBkn/r/JtPf3qeShHQVhQBsB3FQH/Jv2Vu2GOIfyOKgLaiCIDtKQbq5n4ynyf9nSgC2ooi
+        APbzIk6wnDPwaXniSTO5f6fvpn8QRUBbUQTA/nLSWK4meBcxOnDd5ND+6/lvwhUoAtqKIgCOlaMDuQ2x
+        5YX750P+1vmbTz89LVAEtBVFAFxPfhb2dZyIOUJgS+Lzcz95L5/w3fAbpwhoK4oAaMPdK4M4IXMOQY4S
+        eG3wY/I3uX+6z3f45b+tPyJFQFtRBECbcjna3auD+aI50uTCLILePbjZe3/fEUVAW1EEQB15M8zh7td5
+        g4wTOF8jVBw1yDbfP9HfD+G70Q9CEdBWFAHQhxwaz5vp/ejBXeIkvy8UMnvMO8gRivv/ft7Y39z/29GW
+        fIp3g+cfom8oAhpK/D0UAcBUQKzEDZxNKQLaiiIAgKM8ixvP1+WNSK4XRQAAu4ubTa58Wb0RyfWiCABg
+        Ty/Wbj7SRhQBAOwhh/4/L2860lYUAQBsKm4suTJl9aYjbUURAMBWbtduNNJuFAEAXCxuKO+XNxhpP4oA
+        AC5h4l/hKAIAOEvcREz8Kx5FAABP9WrthiL1oggA4NHixuHpv6MoAgB4DE//HUYRAMBPxc3i4/LmIX1E
+        EQDAKWb+dx5FAAA/iJuDT/4OEEUAAA/53O9AUQQAcM/kv8GiCADA8P+gUQQADC5uBob/B40iAGBcvvo3
+        eBQBAGN6uXZTkLGiCAAYTFz4/1y7Ich4UQQADEQBIA+jCAAYhAJAllEEAIzh9dpNQMaOIgCgf8/XbgAi
+        igCAzsXF/svy4i+SUQQA9M2XAOVkFAEAffM9ADkZRQBA3xQBcjKKAIC+KQLkZBQBAH1TBMjJKAIA+qYI
+        kJNRBAD0TREgJ6MIAOibIkBORhEA0DdFgJyMIgCgb4oAORlFAEDfFAFyMooAgL4pAuRkFAEAfVMEyMko
+        AgD6pgiQk1EEAPRNESAnowgA6JsiQE5GEQDQN0WAnIwiAKBvigA5GUUAQN8UAXIyigCAvikC5GQUAQB9
+        UwTIySgCAPqmCJCTUQQA9E0RICejCADomyJATkYRANA3RYCcjCIAoG+KADkZRQBA3xQBcjKKAIC+KQLk
+        ZBQBAH1TBMjJKAIA+qYIkJNRBAD0TREgJ6MIAOibIkBORhEA0DdFgJyMIgCgb4oAORlFAEDfFAFyMooA
+        gL4pAuRkFAEAfVMEyMkoAgD6pgiQk1EEAPRNESAnowgA6JsiQE5GEQDQN0WAnIwiAKBvigA5GUUAQN8U
+        AXIyigCAvikC5GQUAQB9UwTIySgCAPqmCJCTUQQA9E0RICcT/eP11E0A6JEiQE4m+sft1E0A6JEiQFZz
+        c3PzZu4jAHRKESBr+Tj3DwA6pgiQHzL3DQA6pwiQf2TuFwAMQBEg3zP3CQAGoQiQzIe5PwAwEEXA4Lm5
+        uXk79wUABqMIGDhRAPw59wMABqQIGDTxt38+dQEARqUIGC9f5r89AINTBAwU7/8BeEgRMEjib/1y+pMD
+        wEQR0H8M/wOwShHQceLv61PAAJykCOgz3+Jv+2z6EwPAOkVAZ7H2H4DHUgR0lPh7evoH4NEUAR3E0z8A
+        51AE1I53/wCcTRFQNPm3m/6EAHAeRUC9WPcPwCYUAYUSf68X058NAC6nCKiRd/PfCwA2owhoOyb+AbAb
+        RUCjib+ND/4AsCtFQHsx9A/AIRQB7cTQPwCHUgQ0kPg7GPoH4HCKgCvm5ubmzfx3AIDDKQKuk0/z7w8A
+        V6MIODb53v92+ukB4LoUAQclfmvv/QFoiiJg5/jMLwCtUgTslLj5v51/YwBokiJg++SkP+v9AWieImC7
+        2OwHgFIUAZcnb/7Pp58TAOpQBFyQ+P3M+AegLEXAGcnfbfr5AKAuRcATkr/X9LMBQH2KgEfEHv8A9EgR
+        8JNY6w9AzxQBK3HzB2AEioAHcfMHYCSKgIibPwAjGroIcPMHYGRDFgFx8zfbH4DhDVUE5PFOhw0ADFEE
+        5HFOhwsA3Ou5CMgP+9jbHwBO6LEI8FU/AHiEnoqAT3E8vucPAI9UvgiYl/m5+QPAE5UtAuLm/+d8DADA
+        GaoVASb7AcBGqhQB+b7/dmoyALCFposAO/sBwH5aLAIM+QPAAVoqAt5Fe8zyB4CDXLsI8NQPAFdyrSLA
+        Uz8AXNmRRcCX+PdeTP8sAHBtexcBOdz/evqnAICW7FIEzLv5Ge4HgIZtVQR8m2/8NvQBgCIuKQLyHX8O
+        9XviB4CCsgj4tri5n0o+7ecX+yzpA4AO3ObWvHGD/7S44ef/+d08xD/QTf9f//r/oSs8kHKK7soAAAAA
+        SUVORK5CYII=
+</value>
+  </data>
+</root>

AVISO_CHECKIN/usrCntlSearch.vb

@@ -0,0 +1,66 @@
+Public Class usrCntlSearch
+
+    Dim MAIN As frmCheckIn
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+    Sub New(MAIN)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.MAIN = MAIN
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub txt_TextChanged(sender As Object, e As EventArgs) Handles txt.TextChanged
+        initDGV()
+    End Sub
+
+
+    Sub initDGV()
+
+        With MyDatagridview1
+
+            Dim search = txt.Text
+            If search.Length <= 2 Then .Columns.Clear() : Exit Sub
+
+            Dim sqlstr = "SELECT TOP (20) [AvisoID],[LKW_Nr] LKW,[Frächter],Auftraggeber Avisierer
+                          FROM [Aviso]
+                          WHERE ((LKW_Nr LIKE '%" & search & "%') OR (Frächter LIKE '%" & search & "%') OR (Auftraggeber LIKE '%" & search & "%'))  AND Status NOT IN (1,2) AND Datum > DATEADD(MONTH,-1 ,GETDATE())
+                          order by DATUM DESC"
+
+            ' .SET_SQL(sqlstr, "AVISO")
+            '.LOAD()
+            .DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
+
+            If .RowCount = 0 Then
+                .Columns.Clear() : Exit Sub
+            End If
+
+
+            .Columns("AvisoID").Visible = False
+            .Columns("LKW").Width = 400
+            .Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            '.loa.Columns("Avisierer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("Avisierer").Visible = False
+
+            '   MsgBox(dt.Rows(0)("AvisoID"))
+
+        End With
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If MyDatagridview1.SelectedRows.Count > 0 Then
+            MAIN.SET_FOUND(MyDatagridview1.SelectedRows(0).Cells("AvisoId").Value)
+        End If
+    End Sub
+
+    Private Sub usrCntlSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txt.Focus()
+        MAIN.TRANSLATE(Me)
+    End Sub
+
+
+End Class

AVISO_CHECKIN/usrCntlWelcome.Designer.vb

@@ -0,0 +1,263 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlWelcome
+    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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlWelcome))
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Button4
+        '
+        Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.AliceBlue
+        Me.Button4.Location = New System.Drawing.Point(123, 501)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(75, 63)
+        Me.Button4.TabIndex = 10
+        Me.Button4.Tag = "RUS"
+        Me.Button4.UseVisualStyleBackColor = True
+        Me.Button4.Visible = False
+        '
+        'Button5
+        '
+        Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.ForeColor = System.Drawing.Color.AliceBlue
+        Me.Button5.Location = New System.Drawing.Point(123, 570)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(75, 63)
+        Me.Button5.TabIndex = 11
+        Me.Button5.Tag = "BG"
+        Me.Button5.UseVisualStyleBackColor = True
+        Me.Button5.Visible = False
+        '
+        'Label1
+        '
+        Me.Label1.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label1.Location = New System.Drawing.Point(384, 262)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
+        Me.Label1.Size = New System.Drawing.Size(514, 63)
+        Me.Label1.TabIndex = 12
+        Me.Label1.Tag = "DE"
+        Me.Label1.Text = "WILLKOMMEN!"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label2
+        '
+        Me.Label2.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label2.Location = New System.Drawing.Point(384, 331)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
+        Me.Label2.Size = New System.Drawing.Size(514, 63)
+        Me.Label2.TabIndex = 13
+        Me.Label2.Tag = "EN"
+        Me.Label2.Text = "WELCOME!"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label3
+        '
+        Me.Label3.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
+        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label3.Location = New System.Drawing.Point(384, 400)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
+        Me.Label3.Size = New System.Drawing.Size(514, 63)
+        Me.Label3.TabIndex = 14
+        Me.Label3.Tag = "YU"
+        Me.Label3.Text = "DOBRODOŠLI!"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label4
+        '
+        Me.Label4.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
+        Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label4.Location = New System.Drawing.Point(384, 469)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
+        Me.Label4.Size = New System.Drawing.Size(514, 63)
+        Me.Label4.TabIndex = 15
+        Me.Label4.Text = "HOŞGELDINIZ!"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
+        Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label5.Location = New System.Drawing.Point(303, 173)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(481, 46)
+        Me.Label5.TabIndex = 16
+        Me.Label5.Text = "Please select Language:"
+        '
+        'PictureBox3
+        '
+        Me.PictureBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox3.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.IMEX_LOGO_simple
+        Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox3.Location = New System.Drawing.Point(824, 582)
+        Me.PictureBox3.Name = "PictureBox3"
+        Me.PictureBox3.Size = New System.Drawing.Size(385, 93)
+        Me.PictureBox3.TabIndex = 19
+        Me.PictureBox3.TabStop = False
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox2.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Unisped_logo
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.Location = New System.Drawing.Point(414, 582)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(385, 93)
+        Me.PictureBox2.TabIndex = 18
+        Me.PictureBox2.TabStop = False
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Verag_AG_Logopng
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(0, 582)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(385, 93)
+        Me.PictureBox1.TabIndex = 17
+        Me.PictureBox1.TabStop = False
+        '
+        'btn
+        '
+        Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.ForeColor = System.Drawing.Color.White
+        Me.btn.Location = New System.Drawing.Point(310, 262)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(75, 63)
+        Me.btn.TabIndex = 6
+        Me.btn.Tag = "DE"
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.White
+        Me.Button1.Location = New System.Drawing.Point(310, 331)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 63)
+        Me.Button1.TabIndex = 7
+        Me.Button1.Tag = "EN"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
+        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ForeColor = System.Drawing.Color.White
+        Me.Button2.Location = New System.Drawing.Point(310, 400)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(75, 63)
+        Me.Button2.TabIndex = 8
+        Me.Button2.Tag = "YU"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image)
+        Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.ForeColor = System.Drawing.Color.White
+        Me.Button3.Location = New System.Drawing.Point(310, 469)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(75, 63)
+        Me.Button3.TabIndex = 9
+        Me.Button3.Tag = "TR"
+        Me.Button3.Text = "TR"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'usrCntlWelcome
+        '
+        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.PictureBox3)
+        Me.Controls.Add(Me.PictureBox2)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button5)
+        Me.Controls.Add(Me.Button3)
+        Me.Name = "usrCntlWelcome"
+        Me.Size = New System.Drawing.Size(1212, 678)
+        CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents btn As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents PictureBox3 As PictureBox
+End Class

AVISO_CHECKIN/usrCntlWelcome.vb

@@ -0,0 +1,26 @@
+Public Class usrCntlWelcome
+
+    Dim MAIN As frmCheckIn
+    Sub New(MAIN)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.MAIN = MAIN
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, Label1.Click, Button1.Click, Label2.Click, Button2.Click, Label3.Click, Button3.Click, Label4.Click
+        MAIN.SET_LANGUAGE(sender.tag)
+        MAIN.SET_SEARCH()
+    End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+    End Sub
+End Class

AVISO_INFO/AVISO_INFO.vbproj

@@ -0,0 +1,218 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{A734141E-2C4E-4D70-81E8-A88184282AF5}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>AVISO_INFO.My.MyApplication</StartupObject>
+    <RootNamespace>AVISO_INFO</RootNamespace>
+    <AssemblyName>AVISO_INFO</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
+    <Deterministic>true</Deterministic>
+    <TargetFrameworkProfile />
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
+    <IsWebBootstrapper>true</IsWebBootstrapper>
+    <PublishUrl>\\ftps.verag.ag\g\ftp\programme\AVISO_INFO\</PublishUrl>
+    <Install>true</Install>
+    <InstallFrom>Web</InstallFrom>
+    <UpdateEnabled>true</UpdateEnabled>
+    <UpdateMode>Foreground</UpdateMode>
+    <UpdateInterval>7</UpdateInterval>
+    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+    <UpdatePeriodically>false</UpdatePeriodically>
+    <UpdateRequired>false</UpdateRequired>
+    <MapFileExtensions>true</MapFileExtensions>
+    <InstallUrl>http://ftps.verag.ag/AVISO_INFO/</InstallUrl>
+    <CreateWebPageOnPublish>true</CreateWebPageOnPublish>
+    <WebPage>publish.htm</WebPage>
+    <ApplicationRevision>4</ApplicationRevision>
+    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+    <UseApplicationTrust>false</UseApplicationTrust>
+    <PublishWizardCompleted>true</PublishWizardCompleted>
+    <BootstrapperEnabled>true</BootstrapperEnabled>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>x64</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>AVISO_INFO.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>AVISO_INFO.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>aviso.ico</ApplicationIcon>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ManifestCertificateThumbprint>9D59777AB77A758BD3CBA1B39EAE25EC16C09CA2</ManifestCertificateThumbprint>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ManifestKeyFile>AVISO_INFO_TemporaryKey.pfx</ManifestKeyFile>
+  </PropertyGroup>
+  <PropertyGroup>
+    <GenerateManifests>true</GenerateManifests>
+  </PropertyGroup>
+  <PropertyGroup>
+    <SignManifests>true</SignManifests>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Design" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xaml" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+    <Reference Include="WindowsBase" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="AVISO_INFO" />
+    <Import Include="Microsoft.Toolkit.Forms.UI.Controls" />
+    <Import Include="Microsoft.Toolkit.UI.Controls" />
+    <Import Include="Microsoft.Toolkit.Win32.UI.Controls" />
+    <Import Include="Microsoft.Toolkit.Win32.UI.Controls.Interop.WinRT" />
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="frmInfo.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmInfo.Designer.vb">
+      <DependentUpon>frmInfo.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="frmInfo.resx">
+      <DependentUpon>frmInfo.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="AVISO_INFO_TemporaryKey.pfx" />
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="App.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\lan_de.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\timer.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\handy_QR.jpg" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\qr_search.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <PackageReference Include="Microsoft.Toolkit.Forms.UI.Controls.WebView">
+      <Version>6.0.0</Version>
+    </PackageReference>
+    <PackageReference Include="Microsoft.Windows.SDK.Contracts">
+      <Version>10.0.19041.1-preview.vb-release</Version>
+    </PackageReference>
+    <PackageReference Include="System.Runtime.WindowsRuntime">
+      <Version>4.7.0</Version>
+    </PackageReference>
+    <PackageReference Include="System.Runtime.WindowsRuntime.UI.Xaml">
+      <Version>4.7.0</Version>
+    </PackageReference>
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="aviso.ico" />
+    <None Include="Resources\flag_srb2.png" />
+    <None Include="Resources\flag_tr.png" />
+    <None Include="Resources\flag_srb.png" />
+    <None Include="Resources\lan_eng.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <BootstrapperPackage Include=".NETFramework,Version=v4.7">
+      <Visible>False</Visible>
+      <ProductName>Microsoft .NET Framework 4.7 %28x86 und x64%29</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+      <Visible>False</Visible>
+      <ProductName>.NET Framework 3.5 SP1</ProductName>
+      <Install>false</Install>
+    </BootstrapperPackage>
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\Gemeinsames\Gemeinsames.vbproj">
+      <Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
+      <Name>Gemeinsames</Name>
+    </ProjectReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

AVISO_INFO/App.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
+    </startup>
+</configuration>

AVISO_INFO/My Project/Application.Designer.vb

@@ -0,0 +1,44 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
+    '
+    Partial Friend Class MyApplication
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Public Sub New()
+            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
+            Me.IsSingleInstance = false
+            Me.EnableVisualStyles = false
+            Me.SaveMySettingsOnExit = true
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Sub OnCreateMainForm()
+            Me.MainForm = Global.AVISO_INFO.frmInfo
+        End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
+            Me.MinimumSplashScreenDisplayTime = 0
+            Return MyBase.OnInitialize(commandLineArgs)
+        End Function
+    End Class
+End Namespace

AVISO_INFO/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>frmInfo</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>false</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

AVISO_INFO/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("AVISO_INFO")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("AVISO_INFO")>
+<Assembly: AssemblyCopyright("Copyright ©  2020")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+<Assembly: Guid("a1cc3d6c-2f32-42bf-ab74-d65a06593798")>
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

AVISO_INFO/My Project/Resources.Designer.vb

@@ -0,0 +1,143 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("AVISO_INFO.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_srb() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_srb", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_srb2() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_srb2", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property flag_tr() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("flag_tr", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property handy_QR() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("handy_QR", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property lan_de() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("lan_de", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property lan_eng() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("lan_eng", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property qr_search() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("qr_search", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property timer() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("timer", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+    End Module
+End Namespace

AVISO_INFO/My Project/Resources.resx

@@ -0,0 +1,145 @@
+<?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.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="lan_de" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\lan_de.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_srb" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_srb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="timer" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\timer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="qr_search" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\qr_search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="lan_eng" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\lan_eng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="handy_QR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\handy_QR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="flag_srb2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\flag_srb2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+</root>

AVISO_INFO/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.8.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Automatische My.Settings-Speicherfunktion"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.AVISO_INFO.My.MySettings
+            Get
+                Return Global.AVISO_INFO.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

AVISO_INFO/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

AVISO_INFO/frmInfo.Designer.vb

@@ -0,0 +1,372 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmInfo
+    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.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmInfo))
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.WebView1 = New Microsoft.Toolkit.Forms.UI.Controls.WebView()
+        Me.WebBrowser = New System.Windows.Forms.WebBrowser()
+        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.btnResetSearch = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.lblClock = New System.Windows.Forms.Label()
+        Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.MyTextBox1 = New System.Windows.Forms.TextBox()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.Panel = New System.Windows.Forms.Panel()
+        Me.Timer = New System.Windows.Forms.Timer(Me.components)
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.timerResetDefault = New System.Windows.Forms.Timer(Me.components)
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.pnl.SuspendLayout()
+        CType(Me.WebView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.FlowLayoutPanel.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.Panel3)
+        Me.pnl.Controls.Add(Me.WebBrowser)
+        Me.pnl.Controls.Add(Me.WebBrowser1)
+        Me.pnl.Controls.Add(Me.Panel1)
+        Me.pnl.Controls.Add(Me.Panel)
+        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(1388, 559)
+        Me.pnl.TabIndex = 1
+        '
+        'WebView1
+        '
+        Me.WebView1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.WebView1.Location = New System.Drawing.Point(0, 0)
+        Me.WebView1.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebView1.Name = "WebView1"
+        Me.WebView1.Size = New System.Drawing.Size(1386, 398)
+        Me.WebView1.TabIndex = 7
+        '
+        'WebBrowser
+        '
+        Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.WebBrowser.Location = New System.Drawing.Point(0, 129)
+        Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser.Name = "WebBrowser"
+        Me.WebBrowser.Size = New System.Drawing.Size(1386, 398)
+        Me.WebBrowser.TabIndex = 6
+        '
+        'WebBrowser1
+        '
+        Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.WebBrowser1.Location = New System.Drawing.Point(0, 129)
+        Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.WebBrowser1.Name = "WebBrowser1"
+        Me.WebBrowser1.Size = New System.Drawing.Size(1386, 398)
+        Me.WebBrowser1.TabIndex = 5
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.PictureBox1)
+        Me.Panel1.Controls.Add(Me.btnResetSearch)
+        Me.Panel1.Controls.Add(Me.Panel2)
+        Me.Panel1.Controls.Add(Me.FlowLayoutPanel)
+        Me.Panel1.Controls.Add(Me.MyTextBox1)
+        Me.Panel1.Controls.Add(Me.lbl)
+        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(1386, 129)
+        Me.Panel1.TabIndex = 2
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.qr_search
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(3, 6)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(129, 104)
+        Me.PictureBox1.TabIndex = 6
+        Me.PictureBox1.TabStop = False
+        '
+        'btnResetSearch
+        '
+        Me.btnResetSearch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnResetSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.btnResetSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnResetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnResetSearch.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+        Me.btnResetSearch.ForeColor = System.Drawing.Color.White
+        Me.btnResetSearch.Location = New System.Drawing.Point(581, 3)
+        Me.btnResetSearch.Name = "btnResetSearch"
+        Me.btnResetSearch.Size = New System.Drawing.Size(251, 51)
+        Me.btnResetSearch.TabIndex = 1
+        Me.btnResetSearch.Text = "X   Suche zurücksetzen"
+        Me.btnResetSearch.UseVisualStyleBackColor = False
+        Me.btnResetSearch.Visible = False
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.Gold
+        Me.Panel2.Controls.Add(Me.pic)
+        Me.Panel2.Controls.Add(Me.lblClock)
+        Me.Panel2.Location = New System.Drawing.Point(134, 10)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(96, 47)
+        Me.Panel2.TabIndex = 3
+        Me.Panel2.Visible = False
+        '
+        'pic
+        '
+        Me.pic.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.timer
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.pic.Location = New System.Drawing.Point(4, 4)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(44, 39)
+        Me.pic.TabIndex = 5
+        Me.pic.TabStop = False
+        '
+        'lblClock
+        '
+        Me.lblClock.AutoSize = True
+        Me.lblClock.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblClock.Location = New System.Drawing.Point(45, 8)
+        Me.lblClock.Name = "lblClock"
+        Me.lblClock.Size = New System.Drawing.Size(46, 31)
+        Me.lblClock.TabIndex = 4
+        Me.lblClock.Text = "10"
+        '
+        'FlowLayoutPanel
+        '
+        Me.FlowLayoutPanel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.FlowLayoutPanel.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.FlowLayoutPanel.Controls.Add(Me.btn)
+        Me.FlowLayoutPanel.Controls.Add(Me.Button1)
+        Me.FlowLayoutPanel.Controls.Add(Me.Button2)
+        Me.FlowLayoutPanel.Controls.Add(Me.Button4)
+        Me.FlowLayoutPanel.Controls.Add(Me.Button5)
+        Me.FlowLayoutPanel.Controls.Add(Me.Button3)
+        Me.FlowLayoutPanel.Location = New System.Drawing.Point(884, 3)
+        Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
+        Me.FlowLayoutPanel.Size = New System.Drawing.Size(491, 75)
+        Me.FlowLayoutPanel.TabIndex = 2
+        '
+        'btn
+        '
+        Me.btn.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.lan_de
+        Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.ForeColor = System.Drawing.Color.AliceBlue
+        Me.btn.Location = New System.Drawing.Point(3, 3)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(75, 63)
+        Me.btn.TabIndex = 0
+        Me.btn.Tag = "DE"
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.lan_eng
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.AliceBlue
+        Me.Button1.Location = New System.Drawing.Point(84, 3)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 63)
+        Me.Button1.TabIndex = 1
+        Me.Button1.Tag = "EN"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.flag_srb2
+        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ForeColor = System.Drawing.Color.AliceBlue
+        Me.Button2.Location = New System.Drawing.Point(165, 3)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(75, 63)
+        Me.Button2.TabIndex = 2
+        Me.Button2.Tag = "SRB"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.AliceBlue
+        Me.Button4.Location = New System.Drawing.Point(246, 3)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(75, 63)
+        Me.Button4.TabIndex = 4
+        Me.Button4.Tag = "RUS"
+        Me.Button4.UseVisualStyleBackColor = True
+        Me.Button4.Visible = False
+        '
+        'Button5
+        '
+        Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.ForeColor = System.Drawing.Color.AliceBlue
+        Me.Button5.Location = New System.Drawing.Point(327, 3)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(75, 63)
+        Me.Button5.TabIndex = 5
+        Me.Button5.Tag = "BG"
+        Me.Button5.UseVisualStyleBackColor = True
+        Me.Button5.Visible = False
+        '
+        'Button3
+        '
+        Me.Button3.BackgroundImage = Global.AVISO_INFO.My.Resources.Resources.flag_tr
+        Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.ForeColor = System.Drawing.Color.AliceBlue
+        Me.Button3.Location = New System.Drawing.Point(408, 3)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(75, 63)
+        Me.Button3.TabIndex = 3
+        Me.Button3.Tag = "TR"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'MyTextBox1
+        '
+        Me.MyTextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MyTextBox1.Location = New System.Drawing.Point(134, 90)
+        Me.MyTextBox1.Name = "MyTextBox1"
+        Me.MyTextBox1.Size = New System.Drawing.Size(698, 20)
+        Me.MyTextBox1.TabIndex = 7
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.lbl.Location = New System.Drawing.Point(130, 61)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(240, 20)
+        Me.lbl.TabIndex = 0
+        Me.lbl.Text = "Bitte scannen Sie den QR-Code:"
+        '
+        'Panel
+        '
+        Me.Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel.Location = New System.Drawing.Point(0, 527)
+        Me.Panel.Name = "Panel"
+        Me.Panel.Size = New System.Drawing.Size(1386, 30)
+        Me.Panel.TabIndex = 0
+        Me.Panel.Visible = False
+        '
+        'Timer
+        '
+        Me.Timer.Interval = 1000
+        '
+        'Timer1
+        '
+        Me.Timer1.Enabled = True
+        '
+        'timerResetDefault
+        '
+        Me.timerResetDefault.Enabled = True
+        Me.timerResetDefault.Interval = 5000
+        '
+        'Panel3
+        '
+        Me.Panel3.Controls.Add(Me.WebView1)
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel3.Location = New System.Drawing.Point(0, 129)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(1386, 398)
+        Me.Panel3.TabIndex = 9
+        '
+        'frmInfo
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1388, 559)
+        Me.Controls.Add(Me.pnl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmInfo"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Info"
+        Me.TopMost = True
+        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
+        Me.pnl.ResumeLayout(False)
+        CType(Me.WebView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.FlowLayoutPanel.ResumeLayout(False)
+        Me.Panel3.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnl As Panel
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents lbl As Label
+    Friend WithEvents Panel As Panel
+    Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
+    Friend WithEvents btn As Button
+    Friend WithEvents MyTextBox1 As System.Windows.Forms.TextBox
+    Friend WithEvents Timer As Timer
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents pic As PictureBox
+    Friend WithEvents lblClock As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents btnResetSearch As Button
+    Friend WithEvents WebBrowser1 As WebBrowser
+    Friend WithEvents WebBrowser As WebBrowser
+    Friend WithEvents WebView1 As Microsoft.Toolkit.Forms.UI.Controls.WebView
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Public WithEvents timerResetDefault As Timer
+    Friend WithEvents Panel3 As Panel
+End Class

AVISO_INFO/frmInfo.vb

@@ -0,0 +1,117 @@
+Imports CefSharp.WinForms
+
+Public Class frmInfo
+
+
+    Dim Timer_Sek As Integer = 30
+    Dim Timer_cnt As Integer
+
+    Dim lastLink As String = ""
+
+
+    Dim tmstmp_Eingabe As Date
+
+    Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyTextBox1.KeyDown
+        Try
+
+            If e.KeyCode = Keys.Return Then
+                lastLink = MyTextBox1.Text
+                setLink(MyTextBox1.Text)
+            End If
+
+            ' Dim c As New ChromiumWebBrowser("as")
+
+            '  Me.WebBrowserEx1.ActivateBrowserOnCreation = False
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
+    Sub setLink(link)
+        If validlink(link) Then
+            WebView1.Navigate(link) ', Nothing, Nothing, "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0)")
+            '  WebBrowserEx1. = MyTextBox1.Text
+
+            MyTextBox1.Text = ""
+            Timer_cnt = Timer_Sek
+            lblClock.Text = Timer_cnt
+            Panel2.Visible = True
+            Timer.Enabled = True
+            btnResetSearch.Visible = True
+        Else
+            reset()
+        End If
+    End Sub
+    'Private Async Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
+    '    Dim functionString As String = String.Format("document.getElementById('nameDiv').innerText = 'Hello, {0}';", nameTextBox.Text)
+    '    Await WebView1.InvokeScriptAsync("eval", New String() {functionString})
+    'End Sub
+
+
+    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
+        Try
+            If Timer_cnt = 0 Then
+                reset()
+            End If
+
+            Timer_cnt -= 1
+            lblClock.Text = Timer_cnt
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Sub reset()
+        Timer.Enabled = False
+        Panel2.Visible = False
+        btnResetSearch.Visible = False
+        WebView1.Navigate("")
+        WebView1.Dispose()
+        WebView1 = Nothing
+        MyTextBox1.Text = ""
+        MyTextBox1.Focus()
+        lastLink = ""
+    End Sub
+
+    Private Sub btnResetSearch_Click(sender As Object, e As EventArgs) Handles btnResetSearch.Click
+        Try
+            reset()
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        MyTextBox1.Focus()
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As MouseEventArgs) Handles btn.MouseDown, Button1.MouseDown, Button2.MouseDown, Button3.MouseDown, Button4.MouseDown, Button5.MouseDown
+        If validlink(lastLink) Then
+            setLink(lastLink & "&lan=" & sender.tag)
+        End If
+
+    End Sub
+    Function validlink(link) As Boolean
+        If link = "" Then Return False
+        If Not link.contains("https://login.verag.ag/status.aspx?AvisoId=") And Not link.contains("https://status.app.verag.ag/aviso-status") Then Return False
+        Return True
+    End Function
+
+    Private Sub timerResetDefault_Tick(sender As Object, e As EventArgs) Handles timerResetDefault.Tick
+        If Timer_cnt > 0 Then Exit Sub ' Anzeige läuft...
+        Dim Result As TimeSpan = Now - tmstmp_Eingabe
+
+        If Result.Seconds > 4 Then
+            reset()
+        End If
+    End Sub
+
+    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
+        tmstmp_Eingabe = Now
+    End Sub
+
+
+    Private Sub btntm_Click(sender As Object, e As MouseEventArgs) Handles pic.MouseDown, lblClock.MouseDown, Panel2.MouseDown
+        Timer_cnt = Timer_Sek + 1 ' zurücksetzen
+    End Sub
+End Class

Aviso.sln

@@ -1,7 +1,7 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.28307.106
+# Visual Studio Version 17
+VisualStudioVersion = 17.0.31612.314
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Aviso", "Aviso\Aviso.vbproj", "{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}"
 EndProject
@@ -11,130 +11,266 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "Gemeinsames\
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISOUPDATER", "AVISOUPDATER\AVISOUPDATER.vbproj", "{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "..\..\SDL\SDL\SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
-EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "UID", "..\..\UID\UID\UID\UID.vbproj", "{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}"
-EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
-EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGAddIn", "..\..\OutlookAddIN\VERAGAddIn\VERAGAddIn\VERAGAddIn.vbproj", "{D579F7A6-7D29-4295-B382-DA5F7EFB4528}"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGAddIn", "..\..\VERAGAddIn\VERAGAddIn\VERAGAddIn.vbproj", "{D579F7A6-7D29-4295-B382-DA5F7EFB4528}"
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISO_INFO", "AVISO_INFO\AVISO_INFO.vbproj", "{A734141E-2C4E-4D70-81E8-A88184282AF5}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "..\..\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_TELEINFO", "VERAG_TELEINFO\VERAG_TELEINFO.vbproj", "{5193A729-058C-4C93-B7D3-0A228CA719CC}"
+EndProject
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "sipdotnet", "..\..\dll\Linphone\WRAPPER\sipdotnet-master\sipdotnet-master\sipdotnet.csproj", "{BCB250F8-F74C-4768-8833-0F13FC8659B8}"
+EndProject
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Bria_API_CSharp_SampleApp_3.0", "..\..\dll\BRIA\Bria_API_CSharp_SampleApp_3-main\Bria_API_CSharp_SampleApp_3-main\Bria_API_SampleApp_Phone\Bria_API_CSharp_SampleApp_3.0.csproj", "{1F68E194-88A8-47F2-B9F9-20E092EFA30A}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "..\..\SDL\SDL\SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
+EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "..\..\ADMIN\ADMIN\MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
 		Debug|Mixed Platforms = Debug|Mixed Platforms
+		Debug|x64 = Debug|x64
 		Debug|x86 = Debug|x86
 		Release|Any CPU = Release|Any CPU
 		Release|Mixed Platforms = Release|Mixed Platforms
+		Release|x64 = Release|x64
 		Release|x86 = Release|x86
 	EndGlobalSection
 	GlobalSection(ProjectConfigurationPlatforms) = postSolution
-		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.ActiveCfg = Debug|x86
-		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
-		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.Build.0 = Debug|x86
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.ActiveCfg = Debug|x64
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.Build.0 = Debug|x64
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.Build.0 = Debug|x64
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x64.ActiveCfg = Debug|x64
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x64.Build.0 = Debug|x64
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x86.ActiveCfg = Debug|x86
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x86.Build.0 = Debug|x86
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Any CPU.ActiveCfg = Release|x86
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Mixed Platforms.ActiveCfg = Release|x86
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Mixed Platforms.Build.0 = Release|x86
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x64.ActiveCfg = Release|x64
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x64.Build.0 = Release|x64
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x86.ActiveCfg = Release|x86
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x86.Build.0 = Release|x86
-		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Any CPU.ActiveCfg = Debug|x86
-		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
-		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.Build.0 = Debug|x86
+		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Any CPU.ActiveCfg = Debug|x64
+		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
+		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.Build.0 = Debug|x64
+		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x64.ActiveCfg = Debug|x64
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x86.ActiveCfg = Debug|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x86.Build.0 = Debug|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Any CPU.ActiveCfg = Release|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Mixed Platforms.ActiveCfg = Release|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Mixed Platforms.Build.0 = Release|x86
+		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x64.ActiveCfg = Release|x64
+		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x64.Build.0 = Release|x64
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x86.ActiveCfg = Release|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x86.Build.0 = Release|x86
-		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.ActiveCfg = Debug|x86
-		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
-		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.Build.0 = Debug|x86
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.ActiveCfg = Debug|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.Build.0 = Debug|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x64.ActiveCfg = Debug|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x64.Build.0 = Debug|x64
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x86.ActiveCfg = Debug|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x86.Build.0 = Debug|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Any CPU.ActiveCfg = Release|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.ActiveCfg = Release|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.Build.0 = Release|x86
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x64.ActiveCfg = Release|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x64.Build.0 = Release|x64
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.ActiveCfg = Release|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.Build.0 = Release|x86
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|x64.Build.0 = Debug|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Any CPU.Build.0 = Release|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x64.ActiveCfg = Release|Any CPU
+		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x64.Build.0 = Release|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x86.ActiveCfg = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.Build.0 = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.Build.0 = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x86.ActiveCfg = Release|Any CPU
-		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
-		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.Build.0 = Release|Any CPU
-		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
-		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Mixed Platforms.Build.0 = Release|Any CPU
-		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|x86.ActiveCfg = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.Build.0 = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.ActiveCfg = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x64.Build.0 = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Any CPU.Build.0 = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x64.ActiveCfg = Release|Any CPU
+		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x64.Build.0 = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x86.ActiveCfg = Release|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.Build.0 = Debug|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.Build.0 = Release|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.ActiveCfg = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.Build.0 = Release|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x86.ActiveCfg = Release|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|x86.Build.0 = Debug|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Any CPU.Build.0 = Release|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x64.ActiveCfg = Release|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x64.Build.0 = Release|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x86.ActiveCfg = Release|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x86.Build.0 = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x64.Build.0 = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x86.Build.0 = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.Build.0 = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x64.ActiveCfg = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x64.Build.0 = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x86.ActiveCfg = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x86.Build.0 = Release|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Debug|x86.Build.0 = Debug|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Any CPU.Build.0 = Release|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x64.ActiveCfg = Release|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x64.Build.0 = Release|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x86.ActiveCfg = Release|Any CPU
+		{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x86.Build.0 = Release|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|x64.Build.0 = Debug|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|x86.Build.0 = Debug|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|Any CPU.Build.0 = Release|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|x64.ActiveCfg = Release|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|x64.Build.0 = Release|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|x86.ActiveCfg = Release|Any CPU
+		{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|x86.Build.0 = Release|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|x64.Build.0 = Debug|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|x86.Build.0 = Debug|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|Any CPU.Build.0 = Release|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x64.ActiveCfg = Release|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x64.Build.0 = Release|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x86.ActiveCfg = Release|Any CPU
+		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x86.Build.0 = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x64.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.Build.0 = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x64.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x64.Build.0 = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x86.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x86.Build.0 = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.Build.0 = Debug|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.ActiveCfg = Debug|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.Build.0 = Debug|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x86.Build.0 = Debug|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.ActiveCfg = Release|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.Build.0 = Release|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.ActiveCfg = Release|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.Build.0 = Release|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.ActiveCfg = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.Build.0 = Release|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x64.Build.0 = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.Build.0 = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.Build.0 = Release|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x64.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x64.Build.0 = Release|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.ActiveCfg = Release|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x64.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x86.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x64.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x64.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

Aviso/ARConverterBackup/Auswertung/rptStat_VERIMEX_AbklTR.vb

@@ -0,0 +1,6 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptStat_VERIMEX_AbklTR
+
+End Class

Aviso/ARConverterBackup/AvisoReports/rptQRAviso.Designer.vb

@@ -0,0 +1,349 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptQRAviso
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptQRAviso))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.lblFirma_Details = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblFirma_Name = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.QR = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
+        Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.txtGrenze = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.picQRAviso = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblFirma_Details, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblFirma_Name, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.QR, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picQRAviso, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.Height = 0!
+        Me.Detail.Name = "Detail"
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Height = 0!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'picVERAG
+        '
+        Me.picVERAG.Height = 0.4897638!
+        Me.picVERAG.HyperLink = Nothing
+        Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
+        Me.picVERAG.Left = 0.2015748!
+        Me.picVERAG.Name = "picVERAG"
+        Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.picVERAG.Top = 0!
+        Me.picVERAG.Width = 2.448031!
+        '
+        'lblFirma_Details
+        '
+        Me.lblFirma_Details.Height = 0.4019686!
+        Me.lblFirma_Details.HyperLink = Nothing
+        Me.lblFirma_Details.Left = 0!
+        Me.lblFirma_Details.Name = "lblFirma_Details"
+        Me.lblFirma_Details.Style = "font-size: 8pt; text-align: center"
+        Me.lblFirma_Details.Text = "A 4975 Suben  |  Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU53187000"
+        Me.lblFirma_Details.Top = 0.6468505!
+        Me.lblFirma_Details.Width = 2.649606!
+        '
+        'Label2
+        '
+        Me.Label2.Height = 0.2417324!
+        Me.Label2.HyperLink = Nothing
+        Me.Label2.Left = 0!
+        Me.Label2.Name = "Label2"
+        Me.Label2.Style = "font-size: 14pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.Label2.Text = "Ticket Nr.:"
+        Me.Label2.Top = 0.9952757!
+        Me.Label2.Width = 1.191339!
+        '
+        'Label3
+        '
+        Me.Label3.Height = 0.1968501!
+        Me.Label3.HyperLink = Nothing
+        Me.Label3.Left = 0!
+        Me.Label3.Name = "Label3"
+        Me.Label3.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.Label3.Text = "Ankunft:"
+        Me.Label3.Top = 1.244882!
+        Me.Label3.Width = 1.191339!
+        '
+        'lblDatum
+        '
+        Me.lblDatum.Height = 0.1968501!
+        Me.lblDatum.HyperLink = Nothing
+        Me.lblDatum.Left = 1.191339!
+        Me.lblDatum.Name = "lblDatum"
+        Me.lblDatum.Style = "font-size: 10pt; font-weight: normal; text-align: right"
+        Me.lblDatum.Text = "01.01.2016"
+        Me.lblDatum.Top = 1.244883!
+        Me.lblDatum.Width = 1.468504!
+        '
+        'lblNr
+        '
+        Me.lblNr.Height = 0.2417324!
+        Me.lblNr.HyperLink = Nothing
+        Me.lblNr.Left = 1.191339!
+        Me.lblNr.Name = "lblNr"
+        Me.lblNr.Style = "font-size: 14pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.lblNr.Text = "585125"
+        Me.lblNr.Top = 0.9952757!
+        Me.lblNr.Width = 1.468504!
+        '
+        'lblFirma_Name
+        '
+        Me.lblFirma_Name.Height = 0.1374016!
+        Me.lblFirma_Name.HyperLink = Nothing
+        Me.lblFirma_Name.Left = 0!
+        Me.lblFirma_Name.Name = "lblFirma_Name"
+        Me.lblFirma_Name.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
+        Me.lblFirma_Name.Text = "VERAG Spediton AG"
+        Me.lblFirma_Name.Top = 0.4976378!
+        Me.lblFirma_Name.Width = 2.649606!
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.QR, Me.Shape, Me.picVERAG, Me.lblFirma_Details, Me.Label2, Me.Label3, Me.lblDatum, Me.lblNr, Me.lblFirma_Name, Me.txtLKW, Me.Label1, Me.txtFraechter, Me.Label4, Me.txtGrenze, Me.picQRAviso})
+        Me.ReportHeader1.Height = 5.32943!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'QR
+        '
+        Me.QR.Height = 2.032284!
+        Me.QR.HyperLink = Nothing
+        Me.QR.ImageData = Nothing
+        Me.QR.Left = 0.01338583!
+        Me.QR.Name = "QR"
+        Me.QR.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.QR.Top = 2.740158!
+        Me.QR.Width = 2.659843!
+        '
+        'Shape
+        '
+        Me.Shape.Height = 0.686614!
+        Me.Shape.Left = 0.01338583!
+        Me.Shape.Name = "Shape"
+        Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape.Top = 1.993307!
+        Me.Shape.Width = 2.646457!
+        '
+        'txtLKW
+        '
+        Me.txtLKW.CanGrow = False
+        Me.txtLKW.Height = 0.6240159!
+        Me.txtLKW.Left = 0.02677166!
+        Me.txtLKW.Name = "txtLKW"
+        Me.txtLKW.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
+    "cal-align: middle; ddo-char-set: 1"
+        Me.txtLKW.Text = "SD123ASD"
+        Me.txtLKW.Top = 2.02441!
+        Me.txtLKW.Width = 2.604725!
+        '
+        'Label1
+        '
+        Me.Label1.Height = 0.1968501!
+        Me.Label1.HyperLink = Nothing
+        Me.Label1.Left = 0!
+        Me.Label1.Name = "Label1"
+        Me.Label1.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.Label1.Text = "Fr<EFBFBD>chter:"
+        Me.Label1.Top = 1.737402!
+        Me.Label1.Width = 0.6811024!
+        '
+        'txtFraechter
+        '
+        Me.txtFraechter.Height = 0.1968504!
+        Me.txtFraechter.Left = 0.6811024!
+        Me.txtFraechter.Name = "txtFraechter"
+        Me.txtFraechter.Style = "font-size: 10pt; font-weight: normal; text-align: right; text-justify: auto; vert" &
+    "ical-align: top; ddo-char-set: 1"
+        Me.txtFraechter.Text = "SD123ASD"
+        Me.txtFraechter.Top = 1.737402!
+        Me.txtFraechter.Width = 1.97874!
+        '
+        'Label4
+        '
+        Me.Label4.Height = 0.1968501!
+        Me.Label4.HyperLink = Nothing
+        Me.Label4.Left = 0!
+        Me.Label4.Name = "Label4"
+        Me.Label4.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.Label4.Text = "Grenze:"
+        Me.Label4.Top = 1.441733!
+        Me.Label4.Width = 0.6811024!
+        '
+        'txtGrenze
+        '
+        Me.txtGrenze.Height = 0.1968504!
+        Me.txtGrenze.Left = 0.6877953!
+        Me.txtGrenze.Name = "txtGrenze"
+        Me.txtGrenze.Style = "font-size: 10pt; font-weight: normal; text-align: right; text-justify: auto; vert" &
+    "ical-align: top; ddo-char-set: 1"
+        Me.txtGrenze.Text = "SUB"
+        Me.txtGrenze.Top = 1.441733!
+        Me.txtGrenze.Width = 1.97874!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.CanShrink = True
+        Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label5, Me.lblSachbearbeiter})
+        Me.ReportFooter1.Height = 0.1775591!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'Line1
+        '
+        Me.Line1.Height = 0!
+        Me.Line1.Left = 0.007086615!
+        Me.Line1.LineWeight = 1.0!
+        Me.Line1.Name = "Line1"
+        Me.Line1.Top = 0!
+        Me.Line1.Width = 2.635417!
+        Me.Line1.X1 = 0.007086615!
+        Me.Line1.X2 = 2.642503!
+        Me.Line1.Y1 = 0!
+        Me.Line1.Y2 = 0!
+        '
+        'Label5
+        '
+        Me.Label5.Height = 0.146063!
+        Me.Label5.HyperLink = Nothing
+        Me.Label5.Left = 0.01338583!
+        Me.Label5.Name = "Label5"
+        Me.Label5.Style = "font-size: 7pt; font-weight: normal; text-align: left"
+        Me.Label5.Text = "Sachbearbeiter:"
+        Me.Label5.Top = 0.03149607!
+        Me.Label5.Width = 0.840945!
+        '
+        'lblSachbearbeiter
+        '
+        Me.lblSachbearbeiter.Height = 0.146063!
+        Me.lblSachbearbeiter.HyperLink = Nothing
+        Me.lblSachbearbeiter.Left = 0.8543308!
+        Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
+        Me.lblSachbearbeiter.Style = "font-size: 7pt; font-weight: normal; text-align: right"
+        Me.lblSachbearbeiter.Text = "-"
+        Me.lblSachbearbeiter.Top = 0.03149607!
+        Me.lblSachbearbeiter.Width = 1.788189!
+        '
+        'picQRAviso
+        '
+        Me.picQRAviso.Height = 0.355118!
+        Me.picQRAviso.HyperLink = Nothing
+        Me.picQRAviso.ImageData = Nothing
+        Me.picQRAviso.Left = 0!
+        Me.picQRAviso.Name = "picQRAviso"
+        Me.picQRAviso.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.picQRAviso.Top = 4.900001!
+        Me.picQRAviso.Width = 2.659843!
+        '
+        'rptQRAviso
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.1968504!
+        Me.PageSettings.Margins.Left = 0.07874016!
+        Me.PageSettings.Margins.Right = 0.07874016!
+        Me.PageSettings.Margins.Top = 0!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 2.673229!
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblFirma_Details, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblFirma_Name, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.QR, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picQRAviso, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Public WithEvents lblDatum As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents QR As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Public WithEvents lblFirma_Details As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblFirma_Name As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
+    Private WithEvents picQRAviso As GrapeCity.ActiveReports.SectionReportModel.Picture
+End Class

Aviso/ARConverterBackup/AvisoReports/rptQRAviso.vb

@@ -0,0 +1,105 @@
+Imports System.Web
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports ThoughtWorks.QRCode.Codec
+
+Public Class rptQRAviso
+    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
+
+    Sub New(AvisoId As Integer)
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+
+        AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)
+
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Sub New(Aviso As VERAG_PROG_ALLGEMEIN.cAviso)
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+
+        Me.AVISO = Aviso
+
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+
+    End Sub
+
+    Private Sub rptEABeleg_PrintProgress(sender As Object, e As EventArgs) Handles Me.PrintProgress
+        ' QR.Location = New PointF(QR.Location.X, 4.5) 'QR.Location.Y + lblStorno.Height)
+
+    End Sub
+
+    Private Sub rptEABeleg_PageStart(sender As Object, e As EventArgs) Handles ReportFooter1.BeforePrint
+        '   QR.Location = New PointF(QR.Location.X, 5.5) 'QR.Location.Y + lblStorno.Height)
+
+
+
+    End Sub
+
+    Private Sub rptQRAviso_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        If AVISO Is Nothing Then Exit Sub
+
+        lblSachbearbeiter.Text = AVISO.letzterMitarbeiter
+        txtLKW.Text = AVISO.LKW_Nr
+        lblDatum.Text = AVISO.Ankunft.ToShortDateString & " " & AVISO.Ankunft.ToShortTimeString
+        lblNr.Text = AVISO.AvisoID
+        txtGrenze.Text = AVISO.Grenzstelle
+        txtFraechter.Text = AVISO.Fr<EFBFBD>chter
+
+        QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://status.app.verag.ag/aviso-status/" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
+
+
+
+
+        picQRAviso.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getBARCODEAviso(AVISO.AvisoID)
+
+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "VERAG"
+                lblFirma_Name.Text = "VERAG Spedition AG"
+                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+                    Case "SBG"
+                        lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
+                        lblFirma_Details.Text &= "D 83435 Bad Reichenhall  |  Europaplatz 8"
+                    Case "WAI"
+                        lblFirma_Details.Text = "Niederlassung: Waidhaus"
+                        lblFirma_Details.Text &= "D 92726 Waidhaus  |  Am Autohof 3"
+                    Case "NKD"
+                        lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
+                        lblFirma_Details.Text &= "A 2425 Nickelsdorf  |  Neue Teilung 1"
+                    Case "NEU"
+                        lblFirma_Details.Text = "Niederlassung: Neuhaus"
+                        lblFirma_Details.Text &= "D 94152 Neuhaus am Inn  |  Hartham 6"
+                    Case Else
+                        lblFirma_Details.Text = "A 4975 Suben  |  Suben 14"
+                End Select
+            Case "IMEX"
+                picVERAG.Image = My.Resources.IMEX_LOGO_simple
+                lblFirma_Name.Text = "IMEX Customs Service GmbH"
+                lblFirma_Details.Text = "A 4975 Suben  |  Suben 15"
+            Case "UNISPED"
+                picVERAG.Image = My.Resources.Unisped_logo
+                lblFirma_Name.Text = "UNISPED Speditions GmbH"
+                lblFirma_Details.Text = "A 4975 Suben  |  Suben 15"
+
+            Case "FRONTOFFICE"
+                picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
+                lblFirma_Name.Text = "Front-Office Suben eG"
+                lblFirma_Details.Text = "A 4975 Suben  |  Suben 14"
+            Case "ATILLA"
+                picVERAG.Image = My.Resources.Atilla
+                lblFirma_Name.Text = "ATILLA Spedition GmbH"
+                lblFirma_Details.Text = "A 4975 Suben  |  Suben 15"
+            Case Else
+        End Select
+
+    End Sub
+
+
+End Class

Aviso/ARConverterBackup/AvisoReports/rptQRSendung_VerwahrungApp.Designer.vb

@@ -0,0 +1,378 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptQRSendung_VerwahrungApp
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptQRSendung_VerwahrungApp))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblFirma_Name = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.QR = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
+        Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.txtGrenze = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.picQRAviso = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblFirma_Name, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.QR, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picQRAviso, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.Height = 0!
+        Me.Detail.Name = "Detail"
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Height = 0!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'picVERAG
+        '
+        Me.picVERAG.Height = 0.4897638!
+        Me.picVERAG.HyperLink = Nothing
+        Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
+        Me.picVERAG.Left = 0.2015748!
+        Me.picVERAG.Name = "picVERAG"
+        Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.picVERAG.Top = 0!
+        Me.picVERAG.Width = 2.448031!
+        '
+        'Label2
+        '
+        Me.Label2.Height = 0.2417324!
+        Me.Label2.HyperLink = Nothing
+        Me.Label2.Left = 0!
+        Me.Label2.Name = "Label2"
+        Me.Label2.Style = "font-size: 14pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.Label2.Text = "LKW-Nr.:"
+        Me.Label2.Top = 0.635039!
+        Me.Label2.Width = 1.191339!
+        '
+        'Label3
+        '
+        Me.Label3.Height = 0.1968501!
+        Me.Label3.HyperLink = Nothing
+        Me.Label3.Left = 0!
+        Me.Label3.Name = "Label3"
+        Me.Label3.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.Label3.Text = "Ankunft:"
+        Me.Label3.Top = 0.8846453!
+        Me.Label3.Width = 1.191339!
+        '
+        'lblDatum
+        '
+        Me.lblDatum.Height = 0.1968501!
+        Me.lblDatum.HyperLink = Nothing
+        Me.lblDatum.Left = 1.191339!
+        Me.lblDatum.Name = "lblDatum"
+        Me.lblDatum.Style = "font-size: 10pt; font-weight: normal; text-align: right"
+        Me.lblDatum.Text = "01.01.2016"
+        Me.lblDatum.Top = 0.8846463!
+        Me.lblDatum.Width = 1.468504!
+        '
+        'lblNr
+        '
+        Me.lblNr.Height = 0.2417324!
+        Me.lblNr.HyperLink = Nothing
+        Me.lblNr.Left = 1.191339!
+        Me.lblNr.Name = "lblNr"
+        Me.lblNr.Style = "font-size: 14pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.lblNr.Text = "585125"
+        Me.lblNr.Top = 0.635039!
+        Me.lblNr.Width = 1.468504!
+        '
+        'lblFirma_Name
+        '
+        Me.lblFirma_Name.Height = 0.1374016!
+        Me.lblFirma_Name.HyperLink = Nothing
+        Me.lblFirma_Name.Left = 0.02362205!
+        Me.lblFirma_Name.Name = "lblFirma_Name"
+        Me.lblFirma_Name.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
+        Me.lblFirma_Name.Text = "VERAG Spediton AG"
+        Me.lblFirma_Name.Top = 7.5!
+        Me.lblFirma_Name.Width = 2.649606!
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.QR, Me.Shape, Me.picVERAG, Me.Label2, Me.Label3, Me.lblDatum, Me.lblNr, Me.lblFirma_Name, Me.txtLKW, Me.Label1, Me.txtFraechter, Me.Label4, Me.txtGrenze, Me.picQRAviso, Me.Picture1, Me.Label6, Me.Label7})
+        Me.ReportHeader1.Height = 7.692569!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'QR
+        '
+        Me.QR.Height = 2.032284!
+        Me.QR.HyperLink = Nothing
+        Me.QR.ImageBase64String = ""
+        Me.QR.Left = 0.01338583!
+        Me.QR.Name = "QR"
+        Me.QR.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.QR.Top = 2.700788!
+        Me.QR.Width = 2.659843!
+        '
+        'Shape
+        '
+        Me.Shape.Height = 0.686614!
+        Me.Shape.Left = 0.01338583!
+        Me.Shape.Name = "Shape"
+        Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape.Top = 1.63307!
+        Me.Shape.Width = 2.646457!
+        '
+        'txtLKW
+        '
+        Me.txtLKW.CanGrow = False
+        Me.txtLKW.Height = 0.6240159!
+        Me.txtLKW.Left = 0.02677166!
+        Me.txtLKW.Name = "txtLKW"
+        Me.txtLKW.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
+    "cal-align: middle; ddo-char-set: 1"
+        Me.txtLKW.Text = "SD123ASD"
+        Me.txtLKW.Top = 1.664173!
+        Me.txtLKW.Width = 2.604725!
+        '
+        'Label1
+        '
+        Me.Label1.Height = 0.1968501!
+        Me.Label1.HyperLink = Nothing
+        Me.Label1.Left = 0!
+        Me.Label1.Name = "Label1"
+        Me.Label1.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.Label1.Text = "Fr<EFBFBD>chter:"
+        Me.Label1.Top = 1.377165!
+        Me.Label1.Width = 0.6811024!
+        '
+        'txtFraechter
+        '
+        Me.txtFraechter.Height = 0.1968504!
+        Me.txtFraechter.Left = 0.5248032!
+        Me.txtFraechter.Name = "txtFraechter"
+        Me.txtFraechter.Style = "font-size: 10pt; font-weight: normal; text-align: right; text-justify: auto; vert" &
+    "ical-align: top; ddo-char-set: 1"
+        Me.txtFraechter.Text = "SD123ASD"
+        Me.txtFraechter.Top = 1.377165!
+        Me.txtFraechter.Width = 2.135039!
+        '
+        'Label4
+        '
+        Me.Label4.Height = 0.1968501!
+        Me.Label4.HyperLink = Nothing
+        Me.Label4.Left = 0!
+        Me.Label4.Name = "Label4"
+        Me.Label4.Style = "font-size: 10pt; font-weight: normal; text-align: left"
+        Me.Label4.Text = "Grenze:"
+        Me.Label4.Top = 1.081496!
+        Me.Label4.Width = 0.6811024!
+        '
+        'txtGrenze
+        '
+        Me.txtGrenze.Height = 0.1968504!
+        Me.txtGrenze.Left = 0.6877953!
+        Me.txtGrenze.Name = "txtGrenze"
+        Me.txtGrenze.Style = "font-size: 10pt; font-weight: normal; text-align: right; text-justify: auto; vert" &
+    "ical-align: top; ddo-char-set: 1"
+        Me.txtGrenze.Text = "SUB"
+        Me.txtGrenze.Top = 1.081496!
+        Me.txtGrenze.Width = 1.97874!
+        '
+        'picQRAviso
+        '
+        Me.picQRAviso.Height = 0.355118!
+        Me.picQRAviso.HyperLink = Nothing
+        Me.picQRAviso.ImageBase64String = ""
+        Me.picQRAviso.Left = 0!
+        Me.picQRAviso.Name = "picQRAviso"
+        Me.picQRAviso.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.picQRAviso.Top = 7.144883!
+        Me.picQRAviso.Width = 2.659843!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.CanShrink = True
+        Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label5, Me.lblSachbearbeiter})
+        Me.ReportFooter1.Height = 0.1775591!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'Line1
+        '
+        Me.Line1.Height = 0!
+        Me.Line1.Left = 0.007086615!
+        Me.Line1.LineWeight = 1.0!
+        Me.Line1.Name = "Line1"
+        Me.Line1.Top = 0!
+        Me.Line1.Width = 2.635417!
+        Me.Line1.X1 = 0.007086615!
+        Me.Line1.X2 = 2.642503!
+        Me.Line1.Y1 = 0!
+        Me.Line1.Y2 = 0!
+        '
+        'Label5
+        '
+        Me.Label5.Height = 0.146063!
+        Me.Label5.HyperLink = Nothing
+        Me.Label5.Left = 0.01338583!
+        Me.Label5.Name = "Label5"
+        Me.Label5.Style = "font-size: 7pt; font-weight: normal; text-align: left"
+        Me.Label5.Text = "Sachbearbeiter:"
+        Me.Label5.Top = 0.03149607!
+        Me.Label5.Width = 0.840945!
+        '
+        'lblSachbearbeiter
+        '
+        Me.lblSachbearbeiter.Height = 0.146063!
+        Me.lblSachbearbeiter.HyperLink = Nothing
+        Me.lblSachbearbeiter.Left = 0.8543308!
+        Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
+        Me.lblSachbearbeiter.Style = "font-size: 7pt; font-weight: normal; text-align: right"
+        Me.lblSachbearbeiter.Text = "-"
+        Me.lblSachbearbeiter.Top = 0.03149607!
+        Me.lblSachbearbeiter.Width = 1.788189!
+        '
+        'Picture1
+        '
+        Me.Picture1.Height = 2.032284!
+        Me.Picture1.HyperLink = Nothing
+        Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
+        Me.Picture1.Left = 0!
+        Me.Picture1.Name = "Picture1"
+        Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture1.Top = 5.081102!
+        Me.Picture1.Width = 2.659843!
+        '
+        'Label6
+        '
+        Me.Label6.Height = 0.1968501!
+        Me.Label6.HyperLink = Nothing
+        Me.Label6.Left = 0.02677166!
+        Me.Label6.Name = "Label6"
+        Me.Label6.Style = "font-size: 11pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.Label6.Text = "1. Please SCAN QR Code:"
+        Me.Label6.Top = 2.429921!
+        Me.Label6.Width = 2.649606!
+        '
+        'Label7
+        '
+        Me.Label7.Height = 0.1968501!
+        Me.Label7.HyperLink = Nothing
+        Me.Label7.Left = 0.02677166!
+        Me.Label7.Name = "Label7"
+        Me.Label7.Style = "font-size: 11pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.Label7.Text = "2. Upload Foto (PLATE + PLOMBE):"
+        Me.Label7.Top = 4.903937!
+        Me.Label7.Width = 2.649606!
+        '
+        'rptQRSendung_VerwahrungApp
+        '
+        Me.PageSettings.Margins.Bottom = 0.1968504!
+        Me.PageSettings.Margins.Left = 0.1968504!
+        Me.PageSettings.Margins.Right = 0.1968504!
+        Me.PageSettings.Margins.Top = 0.01968504!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 2.676378!
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblFirma_Name, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.QR, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picQRAviso, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Public WithEvents lblDatum As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents QR As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Public WithEvents lblFirma_Name As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
+    Private WithEvents picQRAviso As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
+End Class

Aviso/ARConverterBackup/AvisoReports/rptQRSendung_VerwahrungApp.vb

@@ -0,0 +1,111 @@
+Imports System.Web
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports ThoughtWorks.QRCode.Codec
+
+Public Class rptQRSendung_VerwahrungApp
+    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
+    Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+
+    'Sub New(AvisoId As Integer)
+
+    '    ' Dieser Aufruf ist f<>r den Designer erforderlich.
+    '    InitializeComponent()
+
+    '    AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)
+
+    '    ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    'End Sub
+
+
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen)
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+
+        Me.AVISO = AVISO
+        Me.SND = SND
+
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub rptEABeleg_PrintProgress(sender As Object, e As EventArgs) Handles Me.PrintProgress
+        ' QR.Location = New PointF(QR.Location.X, 4.5) 'QR.Location.Y + lblStorno.Height)
+
+    End Sub
+
+    Private Sub rptEABeleg_PageStart(sender As Object, e As EventArgs) Handles ReportFooter1.BeforePrint
+        '   QR.Location = New PointF(QR.Location.X, 5.5) 'QR.Location.Y + lblStorno.Height)
+
+
+
+    End Sub
+
+    Private Sub rptQRAviso_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        If AVISO Is Nothing Then Exit Sub
+
+        Dim tblSnd_SendungID = -1
+        If SND IsNot Nothing Then
+            tblSnd_SendungID = SND.tblSnd_SendungID
+        End If
+
+        lblSachbearbeiter.Text = AVISO.letzterMitarbeiter
+        txtLKW.Text = AVISO.LKW_Nr
+        lblDatum.Text = AVISO.Ankunft.ToShortDateString & " " & AVISO.Ankunft.ToShortTimeString
+        lblNr.Text = AVISO.AvisoID
+        txtGrenze.Text = AVISO.Grenzstelle
+        txtFraechter.Text = AVISO.Fr<EFBFBD>chter
+        'QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/lkw-driver?avisoid=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID) & "&sendungsid=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(SND.tblSnd_SendungID) & "&timestamp=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(Now.ToString("ddMMyyyy_HHmm")))
+
+        Dim token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("avisoid=" & (AVISO.AvisoID) & "&sendungsid=" & (tblSnd_SendungID) & "&timestamp=" & Now.ToString("ddMMyyyy_HHmm") & "&nation=" & If(AVISO.LKW_Nationalitaet, ""))
+        'MsgBox(token)
+        'MsgBox(VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(token))
+        QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/lkw-driver?token=" & token)
+        picQRAviso.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getBARCODEAviso(AVISO.AvisoID)
+
+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "VERAG"
+                lblFirma_Name.Text = "VERAG Spedition AG"
+                'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+                '    Case "SBG"
+                '        lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
+                '        lblFirma_Details.Text &= "D 83435 Bad Reichenhall  |  Europaplatz 8"
+                '    Case "WAI"
+                '        lblFirma_Details.Text = "Niederlassung: Waidhaus"
+                '        lblFirma_Details.Text &= "D 92726 Waidhaus  |  Am Autohof 3"
+                '    Case "NKD"
+                '        lblFirma_Details.Text = "Niederlassung: Nickelsdorf"
+                '        lblFirma_Details.Text &= "A 2425 Nickelsdorf  |  Neue Teilung 1"
+                '    Case "NEU"
+                '        lblFirma_Details.Text = "Niederlassung: Neuhaus"
+                '        lblFirma_Details.Text &= "D 94152 Neuhaus am Inn  |  Hartham 6"
+                '    Case Else
+                '        lblFirma_Details.Text = "A 4975 Suben  |  Suben 14"
+                'End Select
+            Case "IMEX"
+                picVERAG.Image = My.Resources.IMEX_LOGO_simple
+                lblFirma_Name.Text = "IMEX Customs Service GmbH"
+                'lblFirma_Details.Text = "A 4975 Suben  |  Suben 15"
+            Case "UNISPED"
+                picVERAG.Image = My.Resources.Unisped_logo
+                lblFirma_Name.Text = "UNISPED Speditions GmbH"
+                'lblFirma_Details.Text = "A 4975 Suben  |  Suben 15"
+
+            Case "FRONTOFFICE"
+                picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
+                lblFirma_Name.Text = "Front-Office Suben eG"
+                'lblFirma_Details.Text = "A 4975 Suben  |  Suben 14"
+            Case "ATILLA"
+                picVERAG.Image = My.Resources.Atilla
+                lblFirma_Name.Text = "ATILLA Spedition GmbH"
+                'lblFirma_Details.Text = "A 4975 Suben  |  Suben 15"
+            Case Else
+        End Select
+
+    End Sub
+
+
+End Class

Aviso/ARConverterBackup/AvisoReports/rptTEST.Designer.vb

@@ -0,0 +1,95 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptTEST
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.Height = 0!
+        Me.Detail.Name = "Detail"
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Height = 0!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLKW})
+        Me.ReportHeader1.Height = 0.9712601!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'txtLKW
+        '
+        Me.txtLKW.CanGrow = False
+        Me.txtLKW.Height = 0.6240159!
+        Me.txtLKW.Left = -3.72529E-9!
+        Me.txtLKW.Name = "txtLKW"
+        Me.txtLKW.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
+    "cal-align: middle; ddo-char-set: 1"
+        Me.txtLKW.Text = "TEST"
+        Me.txtLKW.Top = 0.3472441!
+        Me.txtLKW.Width = 2.604725!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.CanShrink = True
+        Me.ReportFooter1.Height = 0.1775591!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'rptTEST
+        '
+        Me.PageSettings.Margins.Bottom = 0.1968504!
+        Me.PageSettings.Margins.Left = 0.07874016!
+        Me.PageSettings.Margins.Right = 0.07874016!
+        Me.PageSettings.Margins.Top = 0!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 2.673229!
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Public WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class

Aviso/ARConverterBackup/AvisoReports/rptTEST.vb

@@ -0,0 +1,7 @@
+Imports System.Web
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports ThoughtWorks.QRCode.Codec
+
+Public Class rptTEST
+End Class

Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAkt.Designer.vb

@@ -0,0 +1,406 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class rptSUBWESTIIAkt 
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+    
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSUBWESTIIAkt))
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.BG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.txtBemerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbfahrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Empfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbfertigungsnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtWarenbezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.cbxKundenTarifnummerVorhanden = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
+        Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.cbxKdTarif_Empf = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
+        Me.cbxKdTarif_Abs = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
+        Me.cbxKdTarif_Auftr = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
+        Me.txtAufschub = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.BG, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.BG, Me.txtBemerkung, Me.txtDatum, Me.txtSachbearbeiter, Me.txtFraechter, Me.txtKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtAuftraggeber, Me.Empfaenger, Me.txtAbfertigungsnummer, Me.txtColli, Me.txtGewicht, Me.txtWarenbezeichnung, Me.cbxKundenTarifnummerVorhanden, Me.txtAbfertigungsart, Me.txtAvisierer, Me.txtAbsender, Me.cbxKdTarif_Empf, Me.cbxKdTarif_Abs, Me.cbxKdTarif_Auftr, Me.txtAufschub})
+        Me.Detail.Height = 12.00787!
+        Me.Detail.Name = "Detail"
+        '
+        'BG
+        '
+        Me.BG.DataField = ""
+        Me.BG.Height = 11.81102!
+        Me.BG.ImageData = CType(resources.GetObject("BG.ImageData"), System.IO.Stream)
+        Me.BG.Left = -0.1968504!
+        Me.BG.Name = "BG"
+        Me.BG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Stretch
+        Me.BG.Top = 0.0!
+        Me.BG.Width = 8.543307!
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.CanGrow = False
+        Me.txtBemerkung.Height = 1.969686!
+        Me.txtBemerkung.Left = 1.390158!
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Style = "font-size: 12.6pt"
+        Me.txtBemerkung.Text = Nothing
+        Me.txtBemerkung.Top = 2.466929!
+        Me.txtBemerkung.Width = 6.718897!
+        '
+        'txtDatum
+        '
+        Me.txtDatum.CanGrow = False
+        Me.txtDatum.Height = 0.3354332!
+        Me.txtDatum.Left = 5.575985!
+        Me.txtDatum.Name = "txtDatum"
+        Me.txtDatum.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtDatum.Text = Nothing
+        Me.txtDatum.Top = 6.163386!
+        Me.txtDatum.Width = 2.312992!
+        '
+        'txtSachbearbeiter
+        '
+        Me.txtSachbearbeiter.CanGrow = False
+        Me.txtSachbearbeiter.Height = 0.4303152!
+        Me.txtSachbearbeiter.Left = 5.575985!
+        Me.txtSachbearbeiter.Name = "txtSachbearbeiter"
+        Me.txtSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtSachbearbeiter.Text = Nothing
+        Me.txtSachbearbeiter.Top = 6.632677!
+        Me.txtSachbearbeiter.Width = 2.312992!
+        '
+        'txtFraechter
+        '
+        Me.txtFraechter.CanGrow = False
+        Me.txtFraechter.Height = 0.4720475!
+        Me.txtFraechter.Left = 5.582678!
+        Me.txtFraechter.Name = "txtFraechter"
+        Me.txtFraechter.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtFraechter.Text = "TRANSPORT TRANS DOO"
+        Me.txtFraechter.Top = 7.144882!
+        Me.txtFraechter.Width = 2.312992!
+        '
+        'txtKennzeichen
+        '
+        Me.txtKennzeichen.CanGrow = False
+        Me.txtKennzeichen.Height = 0.3885834!
+        Me.txtKennzeichen.Left = 5.575985!
+        Me.txtKennzeichen.Name = "txtKennzeichen"
+        Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtKennzeichen.Text = "SD 123 ABC"
+        Me.txtKennzeichen.Top = 7.729528!
+        Me.txtKennzeichen.Width = 2.312992!
+        '
+        'txtAnkunft
+        '
+        Me.txtAnkunft.CanGrow = False
+        Me.txtAnkunft.Height = 0.3885825!
+        Me.txtAnkunft.Left = 5.560237!
+        Me.txtAnkunft.Name = "txtAnkunft"
+        Me.txtAnkunft.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAnkunft.Text = "01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
+        Me.txtAnkunft.Top = 8.307481!
+        Me.txtAnkunft.Width = 1.114961!
+        '
+        'txtAbfahrt
+        '
+        Me.txtAbfahrt.CanGrow = False
+        Me.txtAbfahrt.Height = 0.3885825!
+        Me.txtAbfahrt.Left = 6.764962!
+        Me.txtAbfahrt.Name = "txtAbfahrt"
+        Me.txtAbfahrt.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAbfahrt.Text = "01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
+        Me.txtAbfahrt.Top = 8.307481!
+        Me.txtAbfahrt.Width = 1.114961!
+        '
+        'txtAuftraggeber
+        '
+        Me.txtAuftraggeber.CanGrow = False
+        Me.txtAuftraggeber.Height = 0.4775593!
+        Me.txtAuftraggeber.Left = 2.427953!
+        Me.txtAuftraggeber.LineSpacing = 6.0!
+        Me.txtAuftraggeber.Name = "txtAuftraggeber"
+        Me.txtAuftraggeber.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: top"
+        Me.txtAuftraggeber.Text = "TRANSPORT TRANS DOO" & Global.Microsoft.VisualBasic.ChrW(10) & "TRANSPORT TRANS DOO"
+        Me.txtAuftraggeber.Top = 5.356693!
+        Me.txtAuftraggeber.Width = 2.864961!
+        '
+        'Empfaenger
+        '
+        Me.Empfaenger.CanGrow = False
+        Me.Empfaenger.Height = 0.2531497!
+        Me.Empfaenger.Left = 2.427953!
+        Me.Empfaenger.MultiLine = False
+        Me.Empfaenger.Name = "Empfaenger"
+        Me.Empfaenger.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: middle"
+        Me.Empfaenger.Text = "TRANSPORT TRANS DOO"
+        Me.Empfaenger.Top = 5.889764!
+        Me.Empfaenger.Width = 2.864961!
+        '
+        'txtAbfertigungsnummer
+        '
+        Me.txtAbfertigungsnummer.CanGrow = False
+        Me.txtAbfertigungsnummer.Height = 0.3354332!
+        Me.txtAbfertigungsnummer.Left = 6.340945!
+        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Style = "font-size: 18pt; font-weight: bold; text-align: left; text-decoration: none; text" & _
+    "-justify: auto; vertical-align: middle"
+        Me.txtAbfertigungsnummer.Text = "160001"
+        Me.txtAbfertigungsnummer.Top = 5.52874!
+        Me.txtAbfertigungsnummer.Width = 1.489764!
+        '
+        'txtColli
+        '
+        Me.txtColli.CanGrow = False
+        Me.txtColli.Height = 0.3885825!
+        Me.txtColli.Left = 5.566931!
+        Me.txtColli.Name = "txtColli"
+        Me.txtColli.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtColli.Text = "250"
+        Me.txtColli.Top = 8.843307!
+        Me.txtColli.Width = 1.11496!
+        '
+        'txtGewicht
+        '
+        Me.txtGewicht.CanGrow = False
+        Me.txtGewicht.Height = 0.3885825!
+        Me.txtGewicht.Left = 6.771657!
+        Me.txtGewicht.Name = "txtGewicht"
+        Me.txtGewicht.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtGewicht.Text = "15.000 kg"
+        Me.txtGewicht.Top = 8.843307!
+        Me.txtGewicht.Width = 1.11496!
+        '
+        'txtWarenbezeichnung
+        '
+        Me.txtWarenbezeichnung.CanGrow = False
+        Me.txtWarenbezeichnung.Height = 0.4720475!
+        Me.txtWarenbezeichnung.Left = 5.582678!
+        Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
+        Me.txtWarenbezeichnung.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtWarenbezeichnung.Text = "TEXTILIEN AUS BAUMWOLLE"
+        Me.txtWarenbezeichnung.Top = 9.343307!
+        Me.txtWarenbezeichnung.Width = 2.312992!
+        '
+        'cbxKundenTarifnummerVorhanden
+        '
+        Me.cbxKundenTarifnummerVorhanden.Checked = True
+        Me.cbxKundenTarifnummerVorhanden.Height = 0.2!
+        Me.cbxKundenTarifnummerVorhanden.Left = 3.091339!
+        Me.cbxKundenTarifnummerVorhanden.Name = "cbxKundenTarifnummerVorhanden"
+        Me.cbxKundenTarifnummerVorhanden.Style = "font-weight: bold"
+        Me.cbxKundenTarifnummerVorhanden.Text = "  Kunden-Tarifnummer vorhanden!"
+        Me.cbxKundenTarifnummerVorhanden.Top = 7.144882!
+        Me.cbxKundenTarifnummerVorhanden.Visible = False
+        Me.cbxKundenTarifnummerVorhanden.Width = 2.864961!
+        '
+        'txtAbfertigungsart
+        '
+        Me.txtAbfertigungsart.CanGrow = False
+        Me.txtAbfertigungsart.Height = 0.2531497!
+        Me.txtAbfertigungsart.Left = 1.390158!
+        Me.txtAbfertigungsart.MultiLine = False
+        Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
+        Me.txtAbfertigungsart.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: middle"
+        Me.txtAbfertigungsart.Text = "ABFERTIGUNGSART: -"
+        Me.txtAbfertigungsart.Top = 1.96063!
+        Me.txtAbfertigungsart.Width = 6.489764!
+        '
+        'txtAvisierer
+        '
+        Me.txtAvisierer.CanGrow = False
+        Me.txtAvisierer.Height = 0.5062992!
+        Me.txtAvisierer.Left = 1.390158!
+        Me.txtAvisierer.Name = "txtAvisierer"
+        Me.txtAvisierer.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: top"
+        Me.txtAvisierer.Text = "(3)   AVISIERER:"
+        Me.txtAvisierer.Top = 4.183465!
+        Me.txtAvisierer.Width = 4.798032!
+        '
+        'txtAbsender
+        '
+        Me.txtAbsender.CanGrow = False
+        Me.txtAbsender.Height = 0.5346457!
+        Me.txtAbsender.Left = 1.390158!
+        Me.txtAbsender.Name = "txtAbsender"
+        Me.txtAbsender.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: top"
+        Me.txtAbsender.Text = "(4)   ABSENDER:"
+        Me.txtAbsender.Top = 4.689764!
+        Me.txtAbsender.Width = 4.016929!
+        '
+        'cbxKdTarif_Empf
+        '
+        Me.cbxKdTarif_Empf.Checked = True
+        Me.cbxKdTarif_Empf.Height = 0.2!
+        Me.cbxKdTarif_Empf.Left = 5.407087!
+        Me.cbxKdTarif_Empf.Name = "cbxKdTarif_Empf"
+        Me.cbxKdTarif_Empf.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
+        Me.cbxKdTarif_Empf.Text = "  Kunden-Tarifnummer vorhanden!"
+        Me.cbxKdTarif_Empf.Top = 5.889764!
+        Me.cbxKdTarif_Empf.Visible = False
+        Me.cbxKdTarif_Empf.Width = 2.044488!
+        '
+        'cbxKdTarif_Abs
+        '
+        Me.cbxKdTarif_Abs.Checked = True
+        Me.cbxKdTarif_Abs.Height = 0.2!
+        Me.cbxKdTarif_Abs.Left = 5.407087!
+        Me.cbxKdTarif_Abs.Name = "cbxKdTarif_Abs"
+        Me.cbxKdTarif_Abs.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
+        Me.cbxKdTarif_Abs.Text = "  Kunden-Tarifnummer vorhanden!"
+        Me.cbxKdTarif_Abs.Top = 4.742914!
+        Me.cbxKdTarif_Abs.Visible = False
+        Me.cbxKdTarif_Abs.Width = 2.044488!
+        '
+        'cbxKdTarif_Auftr
+        '
+        Me.cbxKdTarif_Auftr.Checked = True
+        Me.cbxKdTarif_Auftr.Height = 0.2!
+        Me.cbxKdTarif_Auftr.Left = 5.407087!
+        Me.cbxKdTarif_Auftr.Name = "cbxKdTarif_Auftr"
+        Me.cbxKdTarif_Auftr.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
+        Me.cbxKdTarif_Auftr.Text = "  Kunden-Tarifnummer vorhanden!"
+        Me.cbxKdTarif_Auftr.Top = 5.328741!
+        Me.cbxKdTarif_Auftr.Visible = False
+        Me.cbxKdTarif_Auftr.Width = 2.044488!
+        '
+        'txtAufschub
+        '
+        Me.txtAufschub.CanGrow = False
+        Me.txtAufschub.Height = 0.2531497!
+        Me.txtAufschub.Left = 1.390158!
+        Me.txtAufschub.MultiLine = False
+        Me.txtAufschub.Name = "txtAufschub"
+        Me.txtAufschub.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: middle"
+        Me.txtAufschub.Text = "AUFSCHUB: -"
+        Me.txtAufschub.Top = 2.21378!
+        Me.txtAufschub.Width = 6.489764!
+        '
+        'rptSUBWESTIIAkt
+        '
+        Me.MasterReport = False
+        Me.PageSettings.DefaultPaperSize = False
+        Me.PageSettings.Margins.Bottom = 0.0!
+        Me.PageSettings.Margins.Left = 0.0!
+        Me.PageSettings.Margins.Right = 0.0!
+        Me.PageSettings.Margins.Top = 0.0!
+        Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
+        Me.PageSettings.PaperHeight = 12.00606!
+        Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom
+        Me.PageSettings.PaperName = "Custom paper"
+        Me.PageSettings.PaperWidth = 8.426064!
+        Me.PrintWidth = 8.425198!
+        Me.Sections.Add(Me.Detail)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.BG, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Public WithEvents txtBemerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtKennzeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents BG As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Public WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbfahrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents Empfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbfertigungsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtWarenbezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents cbxKundenTarifnummerVorhanden As GrapeCity.ActiveReports.SectionReportModel.CheckBox
+    Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents cbxKdTarif_Empf As GrapeCity.ActiveReports.SectionReportModel.CheckBox
+    Public WithEvents cbxKdTarif_Abs As GrapeCity.ActiveReports.SectionReportModel.CheckBox
+    Public WithEvents cbxKdTarif_Auftr As GrapeCity.ActiveReports.SectionReportModel.CheckBox
+    Public WithEvents txtAufschub As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class

Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAkt.vb

@@ -0,0 +1,13 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document 
+
+Public Class rptSUBWESTIIAkt
+
+    Public Sub hideBG()
+        Me.BG.Visible = False
+    End Sub
+
+    Private Sub rptSUBWESTIIAkt_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+
+    End Sub
+End Class

Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.Designer.vb

@@ -0,0 +1,901 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class rptSUBWESTIIAktNEU
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSUBWESTIIAktNEU))
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.BG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.txtBemerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbfahrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Empfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbfertigungsnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtWarenbezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.cbxKundenTarifnummerVorhanden = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
+        Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFraechterKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAuftraggeberKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEmpfaengerKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAvisiererKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbsenderKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAvisoDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.cbxKdTarif_Empf = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
+        Me.cbxKdTarif_Abs = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
+        Me.cbxKdTarif_Auftr = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
+        Me.txtAufschub = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAvisiererZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAvisiererEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAvisiererAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAvisiererClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAuftrZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAuftrEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAuftrAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAuftrClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbsZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbsEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbsAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbsClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEmpfZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEmpfEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEmpfAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEmpfClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFrachtfZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFrachtfEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFrachtfAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFrachtfClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.BG, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFraechterKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAuftraggeberKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEmpfaengerKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAvisiererKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbsenderKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAvisoDatum, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAvisiererZoll, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAvisiererEust, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAvisiererAbf, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAvisiererClear, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAuftrZoll, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAuftrEust, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAuftrAbf, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAuftrClear, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbsZoll, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbsEust, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbsAbf, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbsClear, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEmpfZoll, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEmpfEust, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEmpfAbf, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEmpfClear, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFrachtfZoll, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFrachtfEust, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFrachtfAbf, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFrachtfClear, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.BG, Me.txtBemerkung, Me.txtDatum, Me.txtSachbearbeiter, Me.txtFraechter, Me.txtKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtAuftraggeber, Me.Empfaenger, Me.txtAbfertigungsnummer, Me.txtColli, Me.txtGewicht, Me.txtWarenbezeichnung, Me.cbxKundenTarifnummerVorhanden, Me.txtAbfertigungsart, Me.txtAvisierer, Me.txtAbsender, Me.txtFraechterKdNr, Me.txtAuftraggeberKdNr, Me.txtEmpfaengerKdNr, Me.txtAvisiererKdNr, Me.txtAbsenderKdNr, Me.txtAvisoDatum, Me.cbxKdTarif_Empf, Me.cbxKdTarif_Abs, Me.cbxKdTarif_Auftr, Me.txtAufschub, Me.txtAvisiererZoll, Me.txtAvisiererEust, Me.txtAvisiererAbf, Me.txtAvisiererClear, Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.txtAuftrZoll, Me.txtAuftrEust, Me.txtAuftrAbf, Me.txtAuftrClear, Me.txtAbsZoll, Me.txtAbsEust, Me.txtAbsAbf, Me.txtAbsClear, Me.txtEmpfZoll, Me.txtEmpfEust, Me.txtEmpfAbf, Me.txtEmpfClear, Me.txtFrachtfZoll, Me.txtFrachtfEust, Me.txtFrachtfAbf, Me.txtFrachtfClear})
+        Me.Detail.Height = 11.9685!
+        Me.Detail.Name = "Detail"
+        '
+        'BG
+        '
+        Me.BG.DataField = ""
+        Me.BG.Height = 11.9685!
+        Me.BG.ImageData = CType(resources.GetObject("BG.ImageData"), System.IO.Stream)
+        Me.BG.Left = -0.1771654!
+        Me.BG.Name = "BG"
+        Me.BG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Stretch
+        Me.BG.Top = -0.07874016!
+        Me.BG.Width = 8.425197!
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.CanGrow = False
+        Me.txtBemerkung.Height = 4.959844!
+        Me.txtBemerkung.Left = 0.7866144!
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Style = "font-size: 12.6pt"
+        Me.txtBemerkung.Text = Nothing
+        Me.txtBemerkung.Top = 6.020079!
+        Me.txtBemerkung.Width = 3.989372!
+        '
+        'txtDatum
+        '
+        Me.txtDatum.CanGrow = False
+        Me.txtDatum.Height = 0.3354332!
+        Me.txtDatum.Left = 4.951575!
+        Me.txtDatum.Name = "txtDatum"
+        Me.txtDatum.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtDatum.Text = Nothing
+        Me.txtDatum.Top = 10.64448!
+        Me.txtDatum.Width = 3.132284!
+        '
+        'txtSachbearbeiter
+        '
+        Me.txtSachbearbeiter.CanGrow = False
+        Me.txtSachbearbeiter.Height = 0.6283466!
+        Me.txtSachbearbeiter.Left = 4.951575!
+        Me.txtSachbearbeiter.Name = "txtSachbearbeiter"
+        Me.txtSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtSachbearbeiter.Text = Nothing
+        Me.txtSachbearbeiter.Top = 10.97992!
+        Me.txtSachbearbeiter.Width = 3.132284!
+        '
+        'txtFraechter
+        '
+        Me.txtFraechter.CanGrow = False
+        Me.txtFraechter.Height = 0.2066929!
+        Me.txtFraechter.Left = 0.852756!
+        Me.txtFraechter.MultiLine = False
+        Me.txtFraechter.Name = "txtFraechter"
+        Me.txtFraechter.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: middle"
+        Me.txtFraechter.Text = "TRANSPORT TRANS DOO"
+        Me.txtFraechter.Top = 4.77874!
+        Me.txtFraechter.Width = 3.92323!
+        '
+        'txtKennzeichen
+        '
+        Me.txtKennzeichen.CanGrow = False
+        Me.txtKennzeichen.Height = 0.4783471!
+        Me.txtKennzeichen.Left = 4.951575!
+        Me.txtKennzeichen.Name = "txtKennzeichen"
+        Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtKennzeichen.Text = "SD 123 ABC"
+        Me.txtKennzeichen.Top = 7.96063!
+        Me.txtKennzeichen.Width = 3.132284!
+        '
+        'txtAnkunft
+        '
+        Me.txtAnkunft.CanGrow = False
+        Me.txtAnkunft.Height = 0.4094498!
+        Me.txtAnkunft.Left = 4.951575!
+        Me.txtAnkunft.Name = "txtAnkunft"
+        Me.txtAnkunft.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAnkunft.Text = "MO, 01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
+        Me.txtAnkunft.Top = 9.622046!
+        Me.txtAnkunft.Width = 1.575985!
+        '
+        'txtAbfahrt
+        '
+        Me.txtAbfahrt.CanGrow = False
+        Me.txtAbfahrt.Height = 0.4094498!
+        Me.txtAbfahrt.Left = 6.53937!
+        Me.txtAbfahrt.Name = "txtAbfahrt"
+        Me.txtAbfahrt.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAbfahrt.Text = "DI, 01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
+        Me.txtAbfahrt.Top = 9.622046!
+        Me.txtAbfahrt.Width = 1.544489!
+        '
+        'txtAuftraggeber
+        '
+        Me.txtAuftraggeber.CanGrow = False
+        Me.txtAuftraggeber.Height = 0.2066929!
+        Me.txtAuftraggeber.Left = 0.8527563!
+        Me.txtAuftraggeber.LineSpacing = 6.0!
+        Me.txtAuftraggeber.MultiLine = False
+        Me.txtAuftraggeber.Name = "txtAuftraggeber"
+        Me.txtAuftraggeber.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: middle"
+        Me.txtAuftraggeber.Text = "TRANSPORT TRANS DOO"
+        Me.txtAuftraggeber.Top = 2.41063!
+        Me.txtAuftraggeber.Width = 3.92323!
+        '
+        'Empfaenger
+        '
+        Me.Empfaenger.CanGrow = False
+        Me.Empfaenger.Height = 0.2066929!
+        Me.Empfaenger.Left = 0.8527563!
+        Me.Empfaenger.MultiLine = False
+        Me.Empfaenger.Name = "Empfaenger"
+        Me.Empfaenger.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: middle"
+        Me.Empfaenger.Text = "TRANSPORT TRANS DOO"
+        Me.Empfaenger.Top = 4.007874!
+        Me.Empfaenger.Width = 3.92323!
+        '
+        'txtAbfertigungsnummer
+        '
+        Me.txtAbfertigungsnummer.CanGrow = False
+        Me.txtAbfertigungsnummer.Height = 0.3354332!
+        Me.txtAbfertigungsnummer.Left = 5.712599!
+        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Style = "font-size: 22pt; font-weight: bold; text-align: center; text-decoration: none; te" & _
+    "xt-justify: auto; vertical-align: middle"
+        Me.txtAbfertigungsnummer.Text = "160001"
+        Me.txtAbfertigungsnummer.Top = 0.2712598!
+        Me.txtAbfertigungsnummer.Width = 2.371261!
+        '
+        'txtColli
+        '
+        Me.txtColli.CanGrow = False
+        Me.txtColli.Height = 0.5551178!
+        Me.txtColli.Left = 4.951575!
+        Me.txtColli.Name = "txtColli"
+        Me.txtColli.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtColli.Text = "250"
+        Me.txtColli.Top = 8.983858!
+        Me.txtColli.Width = 1.575985!
+        '
+        'txtGewicht
+        '
+        Me.txtGewicht.CanGrow = False
+        Me.txtGewicht.Height = 0.5551178!
+        Me.txtGewicht.Left = 6.531496!
+        Me.txtGewicht.Name = "txtGewicht"
+        Me.txtGewicht.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtGewicht.Text = "15.000 kg"
+        Me.txtGewicht.Top = 8.983858!
+        Me.txtGewicht.Width = 1.552364!
+        '
+        'txtWarenbezeichnung
+        '
+        Me.txtWarenbezeichnung.CanGrow = False
+        Me.txtWarenbezeichnung.Height = 0.5448815!
+        Me.txtWarenbezeichnung.Left = 4.951575!
+        Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
+        Me.txtWarenbezeichnung.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtWarenbezeichnung.Text = "TEXTILIEN AUS BAUMWOLLE"
+        Me.txtWarenbezeichnung.Top = 8.438974!
+        Me.txtWarenbezeichnung.Width = 3.132284!
+        '
+        'cbxKundenTarifnummerVorhanden
+        '
+        Me.cbxKundenTarifnummerVorhanden.Checked = True
+        Me.cbxKundenTarifnummerVorhanden.Height = 0.2!
+        Me.cbxKundenTarifnummerVorhanden.Left = 0.9047245!
+        Me.cbxKundenTarifnummerVorhanden.Name = "cbxKundenTarifnummerVorhanden"
+        Me.cbxKundenTarifnummerVorhanden.Style = "font-weight: bold"
+        Me.cbxKundenTarifnummerVorhanden.Text = "  Kunden-Tarifnummer vorhanden!"
+        Me.cbxKundenTarifnummerVorhanden.Top = 5.602757!
+        Me.cbxKundenTarifnummerVorhanden.Visible = False
+        Me.cbxKundenTarifnummerVorhanden.Width = 2.861025!
+        '
+        'txtAbfertigungsart
+        '
+        Me.txtAbfertigungsart.CanGrow = False
+        Me.txtAbfertigungsart.Height = 0.2531497!
+        Me.txtAbfertigungsart.Left = 0.8527563!
+        Me.txtAbfertigungsart.MultiLine = False
+        Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
+        Me.txtAbfertigungsart.Style = "font-size: 18pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: middle"
+        Me.txtAbfertigungsart.Text = "T1"
+        Me.txtAbfertigungsart.Top = 0.3771653!
+        Me.txtAbfertigungsart.Width = 3.92323!
+        '
+        'txtAvisierer
+        '
+        Me.txtAvisierer.CanGrow = False
+        Me.txtAvisierer.Height = 0.2066929!
+        Me.txtAvisierer.Left = 0.8527563!
+        Me.txtAvisierer.MultiLine = False
+        Me.txtAvisierer.Name = "txtAvisierer"
+        Me.txtAvisierer.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: middle"
+        Me.txtAvisierer.Text = "TRANSPORT TRANS DOO"
+        Me.txtAvisierer.Top = 1.632284!
+        Me.txtAvisierer.Width = 3.92323!
+        '
+        'txtAbsender
+        '
+        Me.txtAbsender.CanGrow = False
+        Me.txtAbsender.Height = 0.2066929!
+        Me.txtAbsender.Left = 0.8527563!
+        Me.txtAbsender.MultiLine = False
+        Me.txtAbsender.Name = "txtAbsender"
+        Me.txtAbsender.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: middle"
+        Me.txtAbsender.Text = "TRANSPORT TRANS DOO"
+        Me.txtAbsender.Top = 3.200394!
+        Me.txtAbsender.Width = 3.92323!
+        '
+        'txtFraechterKdNr
+        '
+        Me.txtFraechterKdNr.CanGrow = False
+        Me.txtFraechterKdNr.Height = 0.2066929!
+        Me.txtFraechterKdNr.Left = 3.290158!
+        Me.txtFraechterKdNr.MultiLine = False
+        Me.txtFraechterKdNr.Name = "txtFraechterKdNr"
+        Me.txtFraechterKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtFraechterKdNr.Text = "999999"
+        Me.txtFraechterKdNr.Top = 4.334646!
+        Me.txtFraechterKdNr.Width = 1.474017!
+        '
+        'txtAuftraggeberKdNr
+        '
+        Me.txtAuftraggeberKdNr.CanGrow = False
+        Me.txtAuftraggeberKdNr.Height = 0.2066929!
+        Me.txtAuftraggeberKdNr.Left = 3.290158!
+        Me.txtAuftraggeberKdNr.LineSpacing = 6.0!
+        Me.txtAuftraggeberKdNr.MultiLine = False
+        Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr"
+        Me.txtAuftraggeberKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAuftraggeberKdNr.Text = "999999"
+        Me.txtAuftraggeberKdNr.Top = 1.982284!
+        Me.txtAuftraggeberKdNr.Width = 1.474018!
+        '
+        'txtEmpfaengerKdNr
+        '
+        Me.txtEmpfaengerKdNr.CanGrow = False
+        Me.txtEmpfaengerKdNr.Height = 0.2066929!
+        Me.txtEmpfaengerKdNr.Left = 3.290158!
+        Me.txtEmpfaengerKdNr.MultiLine = False
+        Me.txtEmpfaengerKdNr.Name = "txtEmpfaengerKdNr"
+        Me.txtEmpfaengerKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtEmpfaengerKdNr.Text = "999999"
+        Me.txtEmpfaengerKdNr.Top = 3.579528!
+        Me.txtEmpfaengerKdNr.Width = 1.474017!
+        '
+        'txtAvisiererKdNr
+        '
+        Me.txtAvisiererKdNr.CanGrow = False
+        Me.txtAvisiererKdNr.Height = 0.2066929!
+        Me.txtAvisiererKdNr.Left = 3.290158!
+        Me.txtAvisiererKdNr.MultiLine = False
+        Me.txtAvisiererKdNr.Name = "txtAvisiererKdNr"
+        Me.txtAvisiererKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAvisiererKdNr.Text = "999999"
+        Me.txtAvisiererKdNr.Top = 1.203937!
+        Me.txtAvisiererKdNr.Width = 1.474017!
+        '
+        'txtAbsenderKdNr
+        '
+        Me.txtAbsenderKdNr.CanGrow = False
+        Me.txtAbsenderKdNr.Height = 0.2066929!
+        Me.txtAbsenderKdNr.Left = 3.290158!
+        Me.txtAbsenderKdNr.MultiLine = False
+        Me.txtAbsenderKdNr.Name = "txtAbsenderKdNr"
+        Me.txtAbsenderKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAbsenderKdNr.Text = "999999"
+        Me.txtAbsenderKdNr.Top = 2.772047!
+        Me.txtAbsenderKdNr.Width = 1.474017!
+        '
+        'txtAvisoDatum
+        '
+        Me.txtAvisoDatum.CanGrow = False
+        Me.txtAvisoDatum.Height = 0.2066929!
+        Me.txtAvisoDatum.Left = 3.301969!
+        Me.txtAvisoDatum.MultiLine = False
+        Me.txtAvisoDatum.Name = "txtAvisoDatum"
+        Me.txtAvisoDatum.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAvisoDatum.Text = "MO, 12.03.  14:45"
+        Me.txtAvisoDatum.Top = 0.8913388!
+        Me.txtAvisoDatum.Width = 1.474017!
+        '
+        'cbxKdTarif_Empf
+        '
+        Me.cbxKdTarif_Empf.Checked = True
+        Me.cbxKdTarif_Empf.Height = 0.2!
+        Me.cbxKdTarif_Empf.Left = 2.731496!
+        Me.cbxKdTarif_Empf.Name = "cbxKdTarif_Empf"
+        Me.cbxKdTarif_Empf.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
+        Me.cbxKdTarif_Empf.Text = "  Kunden-Tarifnummer vorhanden!"
+        Me.cbxKdTarif_Empf.Top = 3.819685!
+        Me.cbxKdTarif_Empf.Visible = False
+        Me.cbxKdTarif_Empf.Width = 2.044488!
+        '
+        'cbxKdTarif_Abs
+        '
+        Me.cbxKdTarif_Abs.Checked = True
+        Me.cbxKdTarif_Abs.Height = 0.2!
+        Me.cbxKdTarif_Abs.Left = 2.719685!
+        Me.cbxKdTarif_Abs.Name = "cbxKdTarif_Abs"
+        Me.cbxKdTarif_Abs.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
+        Me.cbxKdTarif_Abs.Text = "  Kunden-Tarifnummer vorhanden!"
+        Me.cbxKdTarif_Abs.Top = 3.012205!
+        Me.cbxKdTarif_Abs.Visible = False
+        Me.cbxKdTarif_Abs.Width = 2.044488!
+        '
+        'cbxKdTarif_Auftr
+        '
+        Me.cbxKdTarif_Auftr.Checked = True
+        Me.cbxKdTarif_Auftr.Height = 0.2!
+        Me.cbxKdTarif_Auftr.Left = 2.731496!
+        Me.cbxKdTarif_Auftr.Name = "cbxKdTarif_Auftr"
+        Me.cbxKdTarif_Auftr.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
+        Me.cbxKdTarif_Auftr.Text = "  Kunden-Tarifnummer vorhanden!"
+        Me.cbxKdTarif_Auftr.Top = 2.222441!
+        Me.cbxKdTarif_Auftr.Visible = False
+        Me.cbxKdTarif_Auftr.Width = 2.044488!
+        '
+        'txtAufschub
+        '
+        Me.txtAufschub.CanGrow = False
+        Me.txtAufschub.Height = 0.2531497!
+        Me.txtAufschub.Left = 4.883465!
+        Me.txtAufschub.MultiLine = False
+        Me.txtAufschub.Name = "txtAufschub"
+        Me.txtAufschub.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
+    "l-align: middle"
+        Me.txtAufschub.Text = "AUFSCHUB: -"
+        Me.txtAufschub.Top = 7.537402!
+        Me.txtAufschub.Width = 3.291733!
+        '
+        'txtAvisiererZoll
+        '
+        Me.txtAvisiererZoll.CanGrow = False
+        Me.txtAvisiererZoll.Height = 0.3937008!
+        Me.txtAvisiererZoll.Left = 4.930708!
+        Me.txtAvisiererZoll.Name = "txtAvisiererZoll"
+        Me.txtAvisiererZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAvisiererZoll.Text = Nothing
+        Me.txtAvisiererZoll.Top = 1.402755!
+        Me.txtAvisiererZoll.Width = 0.3937008!
+        '
+        'txtAvisiererEust
+        '
+        Me.txtAvisiererEust.CanGrow = False
+        Me.txtAvisiererEust.Height = 0.3937008!
+        Me.txtAvisiererEust.Left = 5.342126!
+        Me.txtAvisiererEust.Name = "txtAvisiererEust"
+        Me.txtAvisiererEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAvisiererEust.Text = Nothing
+        Me.txtAvisiererEust.Top = 1.402755!
+        Me.txtAvisiererEust.Width = 0.3937008!
+        '
+        'txtAvisiererAbf
+        '
+        Me.txtAvisiererAbf.CanGrow = False
+        Me.txtAvisiererAbf.Height = 0.3937008!
+        Me.txtAvisiererAbf.Left = 5.712598!
+        Me.txtAvisiererAbf.Name = "txtAvisiererAbf"
+        Me.txtAvisiererAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAvisiererAbf.Text = Nothing
+        Me.txtAvisiererAbf.Top = 1.402755!
+        Me.txtAvisiererAbf.Width = 0.3937008!
+        '
+        'txtAvisiererClear
+        '
+        Me.txtAvisiererClear.CanGrow = False
+        Me.txtAvisiererClear.Height = 0.3937008!
+        Me.txtAvisiererClear.Left = 6.127952!
+        Me.txtAvisiererClear.Name = "txtAvisiererClear"
+        Me.txtAvisiererClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAvisiererClear.Text = Nothing
+        Me.txtAvisiererClear.Top = 1.402755!
+        Me.txtAvisiererClear.Width = 0.3937008!
+        '
+        'TextBox1
+        '
+        Me.TextBox1.CanGrow = False
+        Me.TextBox1.Height = 0.2066929!
+        Me.TextBox1.Left = 3.408269!
+        Me.TextBox1.MultiLine = False
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.TextBox1.Text = Nothing
+        Me.TextBox1.Top = 5.880904!
+        Me.TextBox1.Width = 0.411417!
+        '
+        'TextBox2
+        '
+        Me.TextBox2.CanGrow = False
+        Me.TextBox2.Height = 0.2066929!
+        Me.TextBox2.Left = 3.819687!
+        Me.TextBox2.MultiLine = False
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.TextBox2.Text = Nothing
+        Me.TextBox2.Top = 5.880904!
+        Me.TextBox2.Width = 0.411417!
+        '
+        'TextBox3
+        '
+        Me.TextBox3.CanGrow = False
+        Me.TextBox3.Height = 0.2066929!
+        Me.TextBox3.Left = 4.190158!
+        Me.TextBox3.MultiLine = False
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.TextBox3.Text = Nothing
+        Me.TextBox3.Top = 5.880904!
+        Me.TextBox3.Width = 0.411417!
+        '
+        'TextBox4
+        '
+        Me.TextBox4.CanGrow = False
+        Me.TextBox4.Height = 0.2066929!
+        Me.TextBox4.Left = 4.605512!
+        Me.TextBox4.MultiLine = False
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.TextBox4.Text = Nothing
+        Me.TextBox4.Top = 5.880904!
+        Me.TextBox4.Width = 0.411417!
+        '
+        'txtAuftrZoll
+        '
+        Me.txtAuftrZoll.CanGrow = False
+        Me.txtAuftrZoll.Height = 0.3937008!
+        Me.txtAuftrZoll.Left = 4.930708!
+        Me.txtAuftrZoll.Name = "txtAuftrZoll"
+        Me.txtAuftrZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAuftrZoll.Text = Nothing
+        Me.txtAuftrZoll.Top = 2.142519!
+        Me.txtAuftrZoll.Width = 0.3937008!
+        '
+        'txtAuftrEust
+        '
+        Me.txtAuftrEust.CanGrow = False
+        Me.txtAuftrEust.Height = 0.3937008!
+        Me.txtAuftrEust.Left = 5.342126!
+        Me.txtAuftrEust.Name = "txtAuftrEust"
+        Me.txtAuftrEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAuftrEust.Text = Nothing
+        Me.txtAuftrEust.Top = 2.149212!
+        Me.txtAuftrEust.Width = 0.3937008!
+        '
+        'txtAuftrAbf
+        '
+        Me.txtAuftrAbf.CanGrow = False
+        Me.txtAuftrAbf.Height = 0.3937008!
+        Me.txtAuftrAbf.Left = 5.716536!
+        Me.txtAuftrAbf.Name = "txtAuftrAbf"
+        Me.txtAuftrAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAuftrAbf.Text = Nothing
+        Me.txtAuftrAbf.Top = 2.149212!
+        Me.txtAuftrAbf.Width = 0.3937008!
+        '
+        'txtAuftrClear
+        '
+        Me.txtAuftrClear.CanGrow = False
+        Me.txtAuftrClear.Height = 0.3937008!
+        Me.txtAuftrClear.Left = 6.116142!
+        Me.txtAuftrClear.Name = "txtAuftrClear"
+        Me.txtAuftrClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAuftrClear.Text = Nothing
+        Me.txtAuftrClear.Top = 2.142519!
+        Me.txtAuftrClear.Width = 0.3937008!
+        '
+        'txtAbsZoll
+        '
+        Me.txtAbsZoll.CanGrow = False
+        Me.txtAbsZoll.Height = 0.3937008!
+        Me.txtAbsZoll.Left = 4.930708!
+        Me.txtAbsZoll.Name = "txtAbsZoll"
+        Me.txtAbsZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAbsZoll.Text = Nothing
+        Me.txtAbsZoll.Top = 2.938976!
+        Me.txtAbsZoll.Width = 0.3937008!
+        '
+        'txtAbsEust
+        '
+        Me.txtAbsEust.CanGrow = False
+        Me.txtAbsEust.Height = 0.3937008!
+        Me.txtAbsEust.Left = 5.342126!
+        Me.txtAbsEust.Name = "txtAbsEust"
+        Me.txtAbsEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAbsEust.Text = Nothing
+        Me.txtAbsEust.Top = 2.932283!
+        Me.txtAbsEust.Width = 0.3937008!
+        '
+        'txtAbsAbf
+        '
+        Me.txtAbsAbf.CanGrow = False
+        Me.txtAbsAbf.Height = 0.3937008!
+        Me.txtAbsAbf.Left = 5.716536!
+        Me.txtAbsAbf.Name = "txtAbsAbf"
+        Me.txtAbsAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAbsAbf.Text = Nothing
+        Me.txtAbsAbf.Top = 2.932283!
+        Me.txtAbsAbf.Width = 0.3937008!
+        '
+        'txtAbsClear
+        '
+        Me.txtAbsClear.CanGrow = False
+        Me.txtAbsClear.Height = 0.3937008!
+        Me.txtAbsClear.Left = 6.127952!
+        Me.txtAbsClear.Name = "txtAbsClear"
+        Me.txtAbsClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtAbsClear.Text = Nothing
+        Me.txtAbsClear.Top = 2.932283!
+        Me.txtAbsClear.Width = 0.3937008!
+        '
+        'txtEmpfZoll
+        '
+        Me.txtEmpfZoll.CanGrow = False
+        Me.txtEmpfZoll.Height = 0.3937008!
+        Me.txtEmpfZoll.Left = 4.930708!
+        Me.txtEmpfZoll.Name = "txtEmpfZoll"
+        Me.txtEmpfZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtEmpfZoll.Text = Nothing
+        Me.txtEmpfZoll.Top = 3.746456!
+        Me.txtEmpfZoll.Width = 0.3937008!
+        '
+        'txtEmpfEust
+        '
+        Me.txtEmpfEust.CanGrow = False
+        Me.txtEmpfEust.Height = 0.3937008!
+        Me.txtEmpfEust.Left = 5.342126!
+        Me.txtEmpfEust.Name = "txtEmpfEust"
+        Me.txtEmpfEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtEmpfEust.Text = Nothing
+        Me.txtEmpfEust.Top = 3.746456!
+        Me.txtEmpfEust.Width = 0.3937008!
+        '
+        'txtEmpfAbf
+        '
+        Me.txtEmpfAbf.CanGrow = False
+        Me.txtEmpfAbf.Height = 0.3937008!
+        Me.txtEmpfAbf.Left = 5.704724!
+        Me.txtEmpfAbf.Name = "txtEmpfAbf"
+        Me.txtEmpfAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtEmpfAbf.Text = Nothing
+        Me.txtEmpfAbf.Top = 3.746456!
+        Me.txtEmpfAbf.Width = 0.3937008!
+        '
+        'txtEmpfClear
+        '
+        Me.txtEmpfClear.CanGrow = False
+        Me.txtEmpfClear.Height = 0.3937008!
+        Me.txtEmpfClear.Left = 6.120078!
+        Me.txtEmpfClear.Name = "txtEmpfClear"
+        Me.txtEmpfClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtEmpfClear.Text = Nothing
+        Me.txtEmpfClear.Top = 3.746456!
+        Me.txtEmpfClear.Width = 0.3937008!
+        '
+        'txtFrachtfZoll
+        '
+        Me.txtFrachtfZoll.CanGrow = False
+        Me.txtFrachtfZoll.Height = 0.3937008!
+        Me.txtFrachtfZoll.Left = 4.951575!
+        Me.txtFrachtfZoll.Name = "txtFrachtfZoll"
+        Me.txtFrachtfZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtFrachtfZoll.Text = Nothing
+        Me.txtFrachtfZoll.Top = 4.530315!
+        Me.txtFrachtfZoll.Width = 0.3937008!
+        '
+        'txtFrachtfEust
+        '
+        Me.txtFrachtfEust.CanGrow = False
+        Me.txtFrachtfEust.Height = 0.3937008!
+        Me.txtFrachtfEust.Left = 5.342125!
+        Me.txtFrachtfEust.Name = "txtFrachtfEust"
+        Me.txtFrachtfEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtFrachtfEust.Text = Nothing
+        Me.txtFrachtfEust.Top = 4.530315!
+        Me.txtFrachtfEust.Width = 0.3937008!
+        '
+        'txtFrachtfAbf
+        '
+        Me.txtFrachtfAbf.CanGrow = False
+        Me.txtFrachtfAbf.Height = 0.3937008!
+        Me.txtFrachtfAbf.Left = 5.753543!
+        Me.txtFrachtfAbf.Name = "txtFrachtfAbf"
+        Me.txtFrachtfAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtFrachtfAbf.Text = Nothing
+        Me.txtFrachtfAbf.Top = 4.530315!
+        Me.txtFrachtfAbf.Width = 0.3937008!
+        '
+        'txtFrachtfClear
+        '
+        Me.txtFrachtfClear.CanGrow = False
+        Me.txtFrachtfClear.Height = 0.3937008!
+        Me.txtFrachtfClear.Left = 6.116142!
+        Me.txtFrachtfClear.Name = "txtFrachtfClear"
+        Me.txtFrachtfClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
+    "cal-align: middle"
+        Me.txtFrachtfClear.Text = Nothing
+        Me.txtFrachtfClear.Top = 4.530315!
+        Me.txtFrachtfClear.Width = 0.3937008!
+        '
+        'rptSUBWESTIIAktNEU
+        '
+        Me.MasterReport = False
+        Me.PageSettings.DefaultPaperSize = False
+        Me.PageSettings.Margins.Bottom = 0.0!
+        Me.PageSettings.Margins.Left = 0.0!
+        Me.PageSettings.Margins.Right = 0.0!
+        Me.PageSettings.Margins.Top = 0.0!
+        Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
+        Me.PageSettings.PaperHeight = 12.00606!
+        Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom
+        Me.PageSettings.PaperName = "Custom paper"
+        Me.PageSettings.PaperWidth = 8.426064!
+        Me.PrintWidth = 8.425198!
+        Me.Sections.Add(Me.Detail)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.BG, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFraechterKdNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAuftraggeberKdNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEmpfaengerKdNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAvisiererKdNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbsenderKdNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAvisoDatum, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAvisiererZoll, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAvisiererEust, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAvisiererAbf, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAvisiererClear, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAuftrZoll, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAuftrEust, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAuftrAbf, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAuftrClear, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbsZoll, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbsEust, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbsAbf, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbsClear, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEmpfZoll, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEmpfEust, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEmpfAbf, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEmpfClear, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFrachtfZoll, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFrachtfEust, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFrachtfAbf, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFrachtfClear, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Public WithEvents txtBemerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtKennzeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbfahrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents Empfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbfertigungsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtWarenbezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents cbxKundenTarifnummerVorhanden As GrapeCity.ActiveReports.SectionReportModel.CheckBox
+    Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents BG As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Public WithEvents txtFraechterKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAuftraggeberKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtEmpfaengerKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAvisiererKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbsenderKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAvisoDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents cbxKdTarif_Empf As GrapeCity.ActiveReports.SectionReportModel.CheckBox
+    Public WithEvents cbxKdTarif_Abs As GrapeCity.ActiveReports.SectionReportModel.CheckBox
+    Public WithEvents cbxKdTarif_Auftr As GrapeCity.ActiveReports.SectionReportModel.CheckBox
+    Public WithEvents txtAufschub As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAvisiererZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAvisiererEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAvisiererAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAvisiererClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAuftrZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAuftrEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAuftrAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAuftrClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbsZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbsEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbsAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtAbsClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtEmpfZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtEmpfEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtEmpfAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtEmpfClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtFrachtfZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtFrachtfEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtFrachtfAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtFrachtfClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class

Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.vb

@@ -0,0 +1,13 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document 
+
+Public Class rptSUBWESTIIAktNEU
+
+    Public Sub hideBG()
+        Me.BG.Visible = False
+    End Sub
+
+    Private Sub rptSUBWESTIIAkt_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+
+    End Sub
+End Class

Aviso/ARConverterBackup/WLAN/rptWLANTicket.Designer.vb

@@ -0,0 +1,343 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptWLANTicket
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptWLANTicket))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox15 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Picture1
+        '
+        Me.Picture1.DataField = ""
+        Me.Picture1.Height = 0.6043308!
+        Me.Picture1.HyperLink = Nothing
+        Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
+        Me.Picture1.Left = 0.02165365!
+        Me.Picture1.Name = "Picture1"
+        Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture1.Top = 0!
+        Me.Picture1.Width = 2.638189!
+        '
+        'Detail
+        '
+        Me.Detail.Height = 0!
+        Me.Detail.Name = "Detail"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Height = 0.17!
+        Me.TextBox3.Left = 0!
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.OutputFormat = resources.GetString("TextBox3.OutputFormat")
+        Me.TextBox3.Style = "font-size: 9pt; font-weight: normal; text-justify: distribute; ddo-char-set: 0"
+        Me.TextBox3.Text = "Username:"
+        Me.TextBox3.Top = 1.890945!
+        Me.TextBox3.Width = 1.13189!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Height = 0!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.TextBox3, Me.TextBox2, Me.TextBox6, Me.TextBox1, Me.TextBox4, Me.TextBox5, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox13, Me.TextBox14, Me.TextBox15, Me.TextBox16})
+        Me.ReportHeader1.Height = 4.02126!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Height = 0.17!
+        Me.TextBox2.Left = 0!
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.OutputFormat = resources.GetString("TextBox2.OutputFormat")
+        Me.TextBox2.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox2.Text = "Start Date:"
+        Me.TextBox2.Top = 1.12126!
+        Me.TextBox2.Width = 1.13189!
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Height = 0.17!
+        Me.TextBox6.Left = 0!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.OutputFormat = resources.GetString("TextBox6.OutputFormat")
+        Me.TextBox6.Style = "font-size: 9pt; font-weight: normal; text-justify: distribute; ddo-char-set: 0"
+        Me.TextBox6.Text = "Password:"
+        Me.TextBox6.Top = 2.175591!
+        Me.TextBox6.Width = 1.13189!
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Height = 0.2845668!
+        Me.TextBox1.Left = 0.8716536!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.OutputFormat = resources.GetString("TextBox1.OutputFormat")
+        Me.TextBox1.Style = "font-size: 16pt; font-weight: bold; text-align: left; text-justify: distribute; d" &
+    "do-char-set: 0"
+        Me.TextBox1.Text = "USER"
+        Me.TextBox1.Top = 1.823622!
+        Me.TextBox1.Width = 1.714961!
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Height = 0.17!
+        Me.TextBox4.Left = 0.8716536!
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.OutputFormat = resources.GetString("TextBox4.OutputFormat")
+        Me.TextBox4.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
+        Me.TextBox4.Text = "Date:"
+        Me.TextBox4.Top = 1.12126!
+        Me.TextBox4.Width = 1.714961!
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.2845668!
+        Me.TextBox5.Left = 0.8716536!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.OutputFormat = resources.GetString("TextBox5.OutputFormat")
+        Me.TextBox5.Style = "font-size: 16pt; font-weight: bold; text-align: left; text-justify: distribute; d" &
+    "do-char-set: 0"
+        Me.TextBox5.Text = "Password:"
+        Me.TextBox5.Top = 2.108268!
+        Me.TextBox5.Width = 1.714961!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.2845668!
+        Me.TextBox7.Left = 0!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.OutputFormat = resources.GetString("TextBox7.OutputFormat")
+        Me.TextBox7.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-decoration: underlin" &
+    "e; text-justify: distribute; ddo-char-set: 0"
+        Me.TextBox7.Text = "WLAN-Ticket"
+        Me.TextBox7.Top = 0.6940945!
+        Me.TextBox7.Width = 2.586614!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.Height = 0!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Height = 0.17!
+        Me.TextBox8.Left = 0.0000003688037!
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.OutputFormat = resources.GetString("TextBox8.OutputFormat")
+        Me.TextBox8.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox8.Text = "End Date:"
+        Me.TextBox8.Top = 1.293701!
+        Me.TextBox8.Width = 1.13189!
+        '
+        'TextBox9
+        '
+        Me.TextBox9.Height = 0.17!
+        Me.TextBox9.Left = 0.8716537!
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.OutputFormat = resources.GetString("TextBox9.OutputFormat")
+        Me.TextBox9.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
+        Me.TextBox9.Text = "Date:"
+        Me.TextBox9.Top = 1.293701!
+        Me.TextBox9.Width = 1.71496!
+        '
+        'TextBox10
+        '
+        Me.TextBox10.Height = 0.17!
+        Me.TextBox10.Left = 0!
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.OutputFormat = resources.GetString("TextBox10.OutputFormat")
+        Me.TextBox10.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox10.Text = "WLAN Name:"
+        Me.TextBox10.Top = 1.499213!
+        Me.TextBox10.Width = 1.13189!
+        '
+        'TextBox11
+        '
+        Me.TextBox11.Height = 0.17!
+        Me.TextBox11.Left = 0.871653!
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.OutputFormat = resources.GetString("TextBox11.OutputFormat")
+        Me.TextBox11.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
+        Me.TextBox11.Text = "Date:"
+        Me.TextBox11.Top = 1.499213!
+        Me.TextBox11.Width = 1.71496!
+        '
+        'TextBox12
+        '
+        Me.TextBox12.Height = 0.17!
+        Me.TextBox12.Left = 0!
+        Me.TextBox12.Name = "TextBox12"
+        Me.TextBox12.OutputFormat = resources.GetString("TextBox12.OutputFormat")
+        Me.TextBox12.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox12.Text = "Truck-Nr:"
+        Me.TextBox12.Top = 2.511024!
+        Me.TextBox12.Width = 1.13189!
+        '
+        'TextBox13
+        '
+        Me.TextBox13.Height = 0.17!
+        Me.TextBox13.Left = 0.8716528!
+        Me.TextBox13.Name = "TextBox13"
+        Me.TextBox13.OutputFormat = resources.GetString("TextBox13.OutputFormat")
+        Me.TextBox13.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
+        Me.TextBox13.Text = "Date:"
+        Me.TextBox13.Top = 2.511024!
+        Me.TextBox13.Width = 1.71496!
+        '
+        'TextBox14
+        '
+        Me.TextBox14.Height = 0.17!
+        Me.TextBox14.Left = 0!
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.OutputFormat = resources.GetString("TextBox14.OutputFormat")
+        Me.TextBox14.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox14.Text = "Company:"
+        Me.TextBox14.Top = 2.681103!
+        Me.TextBox14.Width = 1.13189!
+        '
+        'TextBox15
+        '
+        Me.TextBox15.Height = 0.17!
+        Me.TextBox15.Left = 0.8716528!
+        Me.TextBox15.Name = "TextBox15"
+        Me.TextBox15.OutputFormat = resources.GetString("TextBox15.OutputFormat")
+        Me.TextBox15.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 0"
+        Me.TextBox15.Text = "Date:"
+        Me.TextBox15.Top = 2.681103!
+        Me.TextBox15.Width = 1.71496!
+        '
+        'TextBox16
+        '
+        Me.TextBox16.Height = 1.170079!
+        Me.TextBox16.Left = 0!
+        Me.TextBox16.Name = "TextBox16"
+        Me.TextBox16.OutputFormat = resources.GetString("TextBox16.OutputFormat")
+        Me.TextBox16.Style = "font-size: 7pt; font-weight: normal; text-align: justify; text-justify: auto; ver" &
+    "tical-align: middle; ddo-char-set: 0"
+        Me.TextBox16.Text = resources.GetString("TextBox16.Text")
+        Me.TextBox16.Top = 2.851181!
+        Me.TextBox16.Width = 2.659843!
+        '
+        'rptWLANTicket
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.1968504!
+        Me.PageSettings.Margins.Left = 0.1968504!
+        Me.PageSettings.Margins.Right = 0.1968504!
+        Me.PageSettings.Margins.Top = 0.1968504!
+        Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 2.659842!
+        Me.ScriptLanguage = "VB.NET"
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
+    Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox16 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox15 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class

Aviso/ARConverterBackup/WLAN/rptWLANTicket.vb

@@ -0,0 +1,8 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports VERAG_PROG_ALLGEMEIN
+
+
+Public Class rptWLANTicket
+
+End Class

Aviso/ARConverterBackup/rptAuswertung.designer.vb

@@ -0,0 +1,475 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class rptAuswertung
+  Inherits GrapeCity.ActiveReports.SectionReport
+
+  'Form overrides dispose to clean up the component list.
+  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+    If disposing Then
+    End If
+    MyBase.Dispose(disposing)
+  End Sub
+
+  'NOTE: The following procedure is required by the ActiveReports Designer
+  'It can be modified using the ActiveReports Designer.
+  'Do not modify it using the code editor.
+  Private WithEvents PageHeader1 As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+  Private WithEvents Detail1 As GrapeCity.ActiveReports.SectionReportModel.Detail
+  Private WithEvents PageFooter1 As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+  <System.Diagnostics.DebuggerStepThrough()> _
+  Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAuswertung))
+        Me.PageHeader1 = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Datum = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.Detail1 = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAngelegt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEingelangt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtDauer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter1 = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblErstellt = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.lblAuswahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblHeader = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.lblFraechter = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
+        Me.lblStandort = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Datum, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAngelegt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEingelangt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtDauer, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblErstellt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblAuswahl, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblStandort, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader1
+        '
+        Me.PageHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.Label4, Me.Label10, Me.Label2, Me.Label3, Me.Datum, Me.Label6, Me.Line1})
+        Me.PageHeader1.Height = 0.3679167!
+        Me.PageHeader1.Name = "PageHeader1"
+        '
+        'Label5
+        '
+        Me.Label5.Height = 0.202!
+        Me.Label5.HyperLink = Nothing
+        Me.Label5.Left = 5.222!
+        Me.Label5.Name = "Label5"
+        Me.Label5.Style = "font-size: 9pt; font-style: italic; text-align: left"
+        Me.Label5.Text = "Dauer"
+        Me.Label5.Top = 0.0!
+        Me.Label5.Width = 0.4970002!
+        '
+        'Label4
+        '
+        Me.Label4.DataField = "Abwesenheit"
+        Me.Label4.Height = 0.357!
+        Me.Label4.HyperLink = Nothing
+        Me.Label4.Left = 4.389!
+        Me.Label4.Name = "Label4"
+        Me.Label4.Style = "font-size: 9pt; font-style: italic"
+        Me.Label4.Text = "Ankunft   Freigabe"
+        Me.Label4.Top = 0.0!
+        Me.Label4.Width = 0.8329999!
+        '
+        'Label10
+        '
+        Me.Label10.Height = 0.357!
+        Me.Label10.HyperLink = Nothing
+        Me.Label10.Left = 2.321!
+        Me.Label10.Name = "Label10"
+        Me.Label10.Style = "font-size: 9pt; font-style: italic; text-align: left"
+        Me.Label10.Text = "Fr<EFBFBD>chter" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Avisierer"
+        Me.Label10.Top = 0.0!
+        Me.Label10.Width = 1.093!
+        '
+        'Label2
+        '
+        Me.Label2.Height = 0.348!
+        Me.Label2.HyperLink = Nothing
+        Me.Label2.Left = 1.667!
+        Me.Label2.Name = "Label2"
+        Me.Label2.Style = "font-size: 9pt; font-style: italic"
+        Me.Label2.Text = "Aviso eingelangt"
+        Me.Label2.Top = 0.0!
+        Me.Label2.Width = 0.6540001!
+        '
+        'Label3
+        '
+        Me.Label3.Height = 0.202!
+        Me.Label3.HyperLink = Nothing
+        Me.Label3.Left = 0.969!
+        Me.Label3.Name = "Label3"
+        Me.Label3.Style = "font-size: 9pt; font-style: italic; text-align: left"
+        Me.Label3.Text = "Angelegt"
+        Me.Label3.Top = 0.0!
+        Me.Label3.Width = 0.698!
+        '
+        'Datum
+        '
+        Me.Datum.Height = 0.15!
+        Me.Datum.HyperLink = Nothing
+        Me.Datum.Left = 0.0000004768372!
+        Me.Datum.Name = "Datum"
+        Me.Datum.Style = "font-size: 9pt; font-style: italic"
+        Me.Datum.Text = "LKW-Nr"
+        Me.Datum.Top = 0.0!
+        Me.Datum.Width = 0.8850001!
+        '
+        'Label6
+        '
+        Me.Label6.Height = 0.202!
+        Me.Label6.HyperLink = Nothing
+        Me.Label6.Left = 5.719!
+        Me.Label6.Name = "Label6"
+        Me.Label6.Style = "font-size: 9pt; font-style: italic; text-align: left"
+        Me.Label6.Text = "Ereignisse / Gr<47>nde f<>r Verz<72>gerungen"
+        Me.Label6.Top = 0.0!
+        Me.Label6.Width = 2.724!
+        '
+        'Line1
+        '
+        Me.Line1.Height = 0.0!
+        Me.Line1.Left = 0.0!
+        Me.Line1.LineWeight = 0.5!
+        Me.Line1.Name = "Line1"
+        Me.Line1.Top = 0.305!
+        Me.Line1.Width = 10.86!
+        Me.Line1.X1 = 0.0!
+        Me.Line1.X2 = 10.86!
+        Me.Line1.Y1 = 0.305!
+        Me.Line1.Y2 = 0.305!
+        '
+        'Detail1
+        '
+        Me.Detail1.CanShrink = True
+        Me.Detail1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLKW, Me.txtAngelegt, Me.txtEingelangt, Me.txtInfo, Me.txtFraechter, Me.txtAnkunft, Me.txtDauer, Me.txtAuftraggeber})
+        Me.Detail1.Height = 0.3562501!
+        Me.Detail1.KeepTogether = True
+        Me.Detail1.Name = "Detail1"
+        '
+        'txtLKW
+        '
+        Me.txtLKW.DataField = "Datum"
+        Me.txtLKW.Height = 0.17!
+        Me.txtLKW.Left = 0.0!
+        Me.txtLKW.Name = "txtLKW"
+        Me.txtLKW.OutputFormat = resources.GetString("txtLKW.OutputFormat")
+        Me.txtLKW.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.txtLKW.Text = "txtLKW"
+        Me.txtLKW.Top = 0.0!
+        Me.txtLKW.Width = 0.969!
+        '
+        'txtAngelegt
+        '
+        Me.txtAngelegt.Height = 0.17!
+        Me.txtAngelegt.Left = 0.969!
+        Me.txtAngelegt.Name = "txtAngelegt"
+        Me.txtAngelegt.Style = "font-size: 9pt; ddo-char-set: 0"
+        Me.txtAngelegt.Text = "txtAngelegt"
+        Me.txtAngelegt.Top = 0.0!
+        Me.txtAngelegt.Width = 0.698!
+        '
+        'txtEingelangt
+        '
+        Me.txtEingelangt.Height = 0.17!
+        Me.txtEingelangt.Left = 1.667!
+        Me.txtEingelangt.Name = "txtEingelangt"
+        Me.txtEingelangt.Style = "font-size: 9pt; text-align: left; ddo-char-set: 0"
+        Me.txtEingelangt.Text = "txtEingelangt"
+        Me.txtEingelangt.Top = 0.0!
+        Me.txtEingelangt.Width = 0.6540001!
+        '
+        'txtInfo
+        '
+        Me.txtInfo.DataField = "Info"
+        Me.txtInfo.Height = 0.347!
+        Me.txtInfo.Left = 5.719!
+        Me.txtInfo.Name = "txtInfo"
+        Me.txtInfo.Style = "font-family: Arial; font-size: 8pt; text-align: left; ddo-char-set: 0"
+        Me.txtInfo.Text = "txtInfo"
+        Me.txtInfo.Top = 0.0!
+        Me.txtInfo.Width = 5.072!
+        '
+        'txtFraechter
+        '
+        Me.txtFraechter.CanGrow = False
+        Me.txtFraechter.Height = 0.17!
+        Me.txtFraechter.Left = 2.321!
+        Me.txtFraechter.Name = "txtFraechter"
+        Me.txtFraechter.Style = "font-size: 9pt; text-align: left; ddo-char-set: 0"
+        Me.txtFraechter.Text = "txtFr<EFBFBD>chter"
+        Me.txtFraechter.Top = 0.0!
+        Me.txtFraechter.Width = 2.068!
+        '
+        'txtAnkunft
+        '
+        Me.txtAnkunft.CanGrow = False
+        Me.txtAnkunft.DataField = "Abwesenheit"
+        Me.txtAnkunft.Height = 0.347!
+        Me.txtAnkunft.Left = 4.389!
+        Me.txtAnkunft.Name = "txtAnkunft"
+        Me.txtAnkunft.Style = "font-size: 9pt; text-align: left; ddo-char-set: 0"
+        Me.txtAnkunft.Text = "txtAnkunft"
+        Me.txtAnkunft.Top = 0.0!
+        Me.txtAnkunft.Width = 0.8330002!
+        '
+        'txtDauer
+        '
+        Me.txtDauer.Height = 0.17!
+        Me.txtDauer.Left = 5.222!
+        Me.txtDauer.Name = "txtDauer"
+        Me.txtDauer.Style = "font-size: 9pt; text-align: left; ddo-char-set: 0"
+        Me.txtDauer.Text = "txtDauer"
+        Me.txtDauer.Top = 0.0!
+        Me.txtDauer.Width = 0.4970002!
+        '
+        'txtAuftraggeber
+        '
+        Me.txtAuftraggeber.CanGrow = False
+        Me.txtAuftraggeber.Height = 0.17!
+        Me.txtAuftraggeber.Left = 2.321!
+        Me.txtAuftraggeber.Name = "txtAuftraggeber"
+        Me.txtAuftraggeber.Style = "font-size: 9pt; text-align: left; ddo-char-set: 0"
+        Me.txtAuftraggeber.Text = "txtAuftraggeber"
+        Me.txtAuftraggeber.Top = 0.17!
+        Me.txtAuftraggeber.Width = 2.068!
+        '
+        'PageFooter1
+        '
+        Me.PageFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblFirma, Me.lblErstellt, Me.Line3})
+        Me.PageFooter1.Height = 0.2088333!
+        Me.PageFooter1.Name = "PageFooter1"
+        '
+        'ReportInfo1
+        '
+        Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
+        Me.ReportInfo1.Height = 0.2!
+        Me.ReportInfo1.Left = 7.313!
+        Me.ReportInfo1.Name = "ReportInfo1"
+        Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
+        Me.ReportInfo1.Top = 0.0!
+        Me.ReportInfo1.Width = 3.478!
+        '
+        'lblFirma
+        '
+        Me.lblFirma.Height = 0.2!
+        Me.lblFirma.HyperLink = Nothing
+        Me.lblFirma.Left = 3.061!
+        Me.lblFirma.Name = "lblFirma"
+        Me.lblFirma.Style = "font-size: 8pt; text-align: center"
+        Me.lblFirma.Text = "Label6"
+        Me.lblFirma.Top = 0.0!
+        Me.lblFirma.Width = 4.252!
+        '
+        'lblErstellt
+        '
+        Me.lblErstellt.Height = 0.2!
+        Me.lblErstellt.HyperLink = Nothing
+        Me.lblErstellt.Left = 0.0!
+        Me.lblErstellt.Name = "lblErstellt"
+        Me.lblErstellt.Style = "font-size: 8pt"
+        Me.lblErstellt.Text = "Label6"
+        Me.lblErstellt.Top = 0.0!
+        Me.lblErstellt.Width = 3.0!
+        '
+        'Line3
+        '
+        Me.Line3.Height = 0.0!
+        Me.Line3.Left = 0.0!
+        Me.Line3.LineWeight = 1.0!
+        Me.Line3.Name = "Line3"
+        Me.Line3.Top = 0.0!
+        Me.Line3.Width = 10.86!
+        Me.Line3.X1 = 0.0!
+        Me.Line3.X2 = 10.86!
+        Me.Line3.Y1 = 0.0!
+        Me.Line3.Y2 = 0.0!
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAuswahl, Me.lblHeader, Me.Picture1, Me.lblFraechter, Me.Shape1, Me.lblStandort})
+        Me.ReportHeader1.Height = 0.9687503!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'lblAuswahl
+        '
+        Me.lblAuswahl.Height = 0.5100001!
+        Me.lblAuswahl.HyperLink = Nothing
+        Me.lblAuswahl.Left = 3.23!
+        Me.lblAuswahl.Name = "lblAuswahl"
+        Me.lblAuswahl.Style = "font-size: 9pt; font-style: italic"
+        Me.lblAuswahl.Text = "Auswahl"
+        Me.lblAuswahl.Top = 0.0!
+        Me.lblAuswahl.Width = 4.718!
+        '
+        'lblHeader
+        '
+        Me.lblHeader.Height = 0.281!
+        Me.lblHeader.HyperLink = Nothing
+        Me.lblHeader.Left = 0.0!
+        Me.lblHeader.Name = "lblHeader"
+        Me.lblHeader.Style = "font-size: 14pt; font-weight: bold"
+        Me.lblHeader.Text = "lblHeader"
+        Me.lblHeader.Top = 0.0!
+        Me.lblHeader.Width = 3.0!
+        '
+        'Picture1
+        '
+        Me.Picture1.Height = 0.5840001!
+        Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
+        Me.Picture1.Left = 8.059!
+        Me.Picture1.Name = "Picture1"
+        Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture1.Top = 0.0!
+        Me.Picture1.Width = 2.801917!
+        '
+        'lblFraechter
+        '
+        Me.lblFraechter.Height = 0.273!
+        Me.lblFraechter.HyperLink = Nothing
+        Me.lblFraechter.Left = 0.145!
+        Me.lblFraechter.Name = "lblFraechter"
+        Me.lblFraechter.Style = "font-size: 12pt; font-weight: bold; vertical-align: middle; white-space: nowrap; " & _
+    "ddo-wrap-mode: nowrap"
+        Me.lblFraechter.Text = "Fr<EFBFBD>chter"
+        Me.lblFraechter.Top = 0.636!
+        Me.lblFraechter.Visible = False
+        Me.lblFraechter.Width = 3.831!
+        '
+        'Shape1
+        '
+        Me.Shape1.Height = 0.325!
+        Me.Shape1.Left = 0.08400001!
+        Me.Shape1.LineWeight = 2.0!
+        Me.Shape1.Name = "Shape1"
+        Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(30.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape1.Style = GrapeCity.ActiveReports.SectionReportModel.ShapeType.RoundRect
+        Me.Shape1.Top = 0.5840001!
+        Me.Shape1.Visible = False
+        Me.Shape1.Width = 3.99!
+        '
+        'lblStandort
+        '
+        Me.lblStandort.Height = 0.21!
+        Me.lblStandort.HyperLink = Nothing
+        Me.lblStandort.Left = 0.0!
+        Me.lblStandort.Name = "lblStandort"
+        Me.lblStandort.Style = "font-size: 12pt; font-weight: bold"
+        Me.lblStandort.Text = "Grenzstelle"
+        Me.lblStandort.Top = 0.3!
+        Me.lblStandort.Visible = False
+        Me.lblStandort.Width = 3.0!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.Height = 0.0!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'rptAuswertung
+        '
+        Me.MasterReport = False
+        Me.PageSettings.DefaultPaperSize = False
+        Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
+        Me.PageSettings.PaperHeight = 11.69291!
+        Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4
+        Me.PageSettings.PaperWidth = 8.267716!
+        Me.PrintWidth = 10.86092!
+        Me.ScriptLanguage = "VB.NET"
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader1)
+        Me.Sections.Add(Me.Detail1)
+        Me.Sections.Add(Me.PageFooter1)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Datum, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAngelegt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEingelangt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtDauer, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblErstellt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblAuswahl, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblFraechter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblStandort, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+  Private WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
+  Private WithEvents Datum As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents txtAngelegt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+  Private WithEvents txtEingelangt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+  Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
+  Private WithEvents lblErstellt As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
+  Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
+  Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
+  Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+  Private WithEvents lblAuswahl As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents lblHeader As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+  Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+  Private WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
+  Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
+  Private WithEvents lblFraechter As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
+  Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
+  Private WithEvents txtDauer As GrapeCity.ActiveReports.SectionReportModel.TextBox
+  Private WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
+  Private WithEvents lblStandort As GrapeCity.ActiveReports.SectionReportModel.Label
+End Class

Aviso/ARConverterBackup/rptAuswertung.vb

@@ -0,0 +1,125 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports System.Windows.Forms
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
+
+Public Class rptAuswertung
+  Public Auswahl As String
+  Public SQL As String
+  Public Intern As Boolean
+  Public Fr<EFBFBD>chter As String
+  Public Standort As String
+
+  Dim AvisoDAL As New cAvisoDAL
+  Dim VermerkeDAL As New cVermerkeDAL
+
+  Dim dummycount As Long
+
+  Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter1.Format
+    lblErstellt.Text = String.Format("erstellt am {0} um {1} von {2}",
+                                     DateTime.Now.ToShortDateString(),
+                                     DateTime.Now.ToShortTimeString(),
+                                     SystemInformation.UserName.ToString)
+        lblFirma.Text = "VERAG Spedition AG"
+  End Sub
+
+  Private Sub rptAuswertung_NoData(sender As Object, e As System.EventArgs) Handles Me.NoData
+    MsgBox("Es wurden keine Daten zum Drucken gefunden.", vbInformation, "Druck Aviso-Auswertung")
+    Me.Cancel()  'ev. abbrechen, falls noch aufgebaut wird
+  End Sub
+
+  Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+
+    'Drucktitel zuweisen
+    Me.Name = "Logbuch Aviso"
+    If Intern Then Me.Name += " - INTERNE Liste"
+
+    lblHeader.Text = Me.Name
+
+    'Format + R<>nder setzen
+    Me.PageSettings.Orientation = Section.PageOrientation.Landscape
+    Me.PageSettings.Margins.Left = 0.3
+    Me.PageSettings.Margins.Right = 0.1
+    Me.PageSettings.Margins.Top = 0.5
+    Me.PageSettings.Margins.Bottom = 0.4
+
+    Dim X As String = ""
+
+    'falls Fr<46>chter speziell ausgew<65>hlt, dann diesen hervorheben
+    If Fr<EFBFBD>chter <> "" Then
+      lblFraechter.Visible = True
+      Shape1.Visible = True
+      lblFraechter.Text = Fr<EFBFBD>chter
+    End If
+
+    'falls Standort ausgew<65>hlt, dann diesen in <20>berschrift anzeigen
+    If Standort <> "" Then
+      lblStandort.Visible = True
+      lblStandort.Text = "Grenzstelle: " & Standort
+    End If
+
+    lblAuswahl.Text = Auswahl
+
+        Me.DataSource = AvisoDAL.loadDataTableBySQL(SQL)
+
+  End Sub
+
+
+  Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
+    dummycount = dummycount + 1
+
+    Dim hStatus As Integer = VarToInt(Fields.Item("Status").Value)
+
+    txtLKW.Text = VarToStr(Fields.Item("LKW_Nr").Value)
+    txtAngelegt.Text = Format(CDate(Fields.Item("Datum").Value), "dd.MM.yy HH:mm")
+    Dim hDatum As Date = CDate(Fields.Item("AvisoEingang").Value)
+    If hDatum <> LeerDatum Then
+      txtEingelangt.Text = Format(CDate(Fields.Item("AvisoEingang").Value), "dd.MM.yy HH:mm")
+    Else
+      txtEingelangt.Text = ""
+    End If
+    txtFraechter.Text = "F:" & VarToStr(Fields.Item("Fr<EFBFBD>chter").Value)
+    txtAuftraggeber.Text = "A:" & VarToStr(Fields.Item("Auftraggeber").Value)
+
+        txtAnkunft.Text = ""
+        If IsDate(Fields.Item("Ankunft")) Then
+            hDatum = CDate(Fields.Item("Ankunft").Value)
+            If hDatum <> LeerDatum Then
+                txtAnkunft.Text = Format(hDatum, "dd.MM. HH:mm")
+            End If
+        End If
+
+        If hStatus = cGlobal.Status_Freigegeben Then
+            hDatum = CDate(Fields.Item("Freigabe").Value)
+            If hDatum <> LeerDatum Then
+                txtAnkunft.Text += vbCrLf & Format(hDatum, "dd.MM. HH:mm")
+                txtDauer.Text = Minuten_auf_Text(VarToInt(Fields.Item("Dauer").Value))
+            Else
+                txtDauer.Text = ""
+            End If
+        Else
+            txtDauer.Text = ""
+        End If
+
+        'jetzt alle dazupassenden Vermerke auslesen
+        txtInfo.Text = ""
+        Dim hSQL As String = "SELECT * FROM Vermerke WHERE AvisoID = " & VarToLng(Fields.Item("AvisoID").Value).ToString & _
+                " ORDER BY Datum "
+        txtInfo.Text = VermerkeDAL.Druckinfo(hSQL)
+
+        If Intern Then
+            If VarToStr(Fields.Item("Info").Value).Trim <> "" Then
+                txtInfo.Text = VarToStr(Fields.Item("Info").Value).Trim & vbCrLf & txtInfo.Text
+            End If
+            txtInfo.Text += vbCrLf & VarToStr(Fields.Item("<EFBFBD>nderungen").Value)
+        End If
+
+        'Abwechselnd grauen und wei<65>en Hintergrund
+        If (dummycount Mod 2) = 0 Then
+            Detail1.BackColor = Color.White
+        Else
+            Detail1.BackColor = Color.WhiteSmoke
+        End If
+    End Sub
+End Class

Aviso/ARConverterBackup/rptLKWBericht.Designer.vb

@@ -0,0 +1,503 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class rptLKWBericht 
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+    
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptLKWBericht))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblHeader = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.lblLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblSB = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGrenzstelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFreigabe = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtDauer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.lblEreignis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSB, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGrenzstelle, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFreigabe, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtDauer, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblEreignis, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBezugsnummer, Me.lblBezugsnrValue, Me.Label2})
+        Me.PageHeader.Height = 0.1999016!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'lblBezugsnummer
+        '
+        Me.lblBezugsnummer.Height = 0.1374016!
+        Me.lblBezugsnummer.HyperLink = Nothing
+        Me.lblBezugsnummer.Left = 0.07283465!
+        Me.lblBezugsnummer.Name = "lblBezugsnummer"
+        Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
+        Me.lblBezugsnummer.Text = "Datum/Uhrzeit"
+        Me.lblBezugsnummer.Top = 0.06259843!
+        Me.lblBezugsnummer.Width = 0.8492125!
+        '
+        'lblBezugsnrValue
+        '
+        Me.lblBezugsnrValue.Height = 0.1374016!
+        Me.lblBezugsnrValue.HyperLink = Nothing
+        Me.lblBezugsnrValue.Left = 1.55!
+        Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
+        Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: bold"
+        Me.lblBezugsnrValue.Text = "Sachbearbeiter"
+        Me.lblBezugsnrValue.Top = 0.06259843!
+        Me.lblBezugsnrValue.Width = 1.45!
+        '
+        'Label2
+        '
+        Me.Label2.Height = 0.1374016!
+        Me.Label2.HyperLink = Nothing
+        Me.Label2.Left = 3.0!
+        Me.Label2.Name = "Label2"
+        Me.Label2.Style = "font-size: 8pt; font-weight: bold"
+        Me.Label2.Text = "Ereignis"
+        Me.Label2.Top = 0.06259843!
+        Me.Label2.Width = 4.677166!
+        '
+        'lblHeader
+        '
+        Me.lblHeader.Height = 0.2393701!
+        Me.lblHeader.HyperLink = Nothing
+        Me.lblHeader.Left = 0.06771654!
+        Me.lblHeader.Name = "lblHeader"
+        Me.lblHeader.Style = "font-size: 14pt; font-weight: bold"
+        Me.lblHeader.Text = "LKW Bericht"
+        Me.lblHeader.Top = 0.0!
+        Me.lblHeader.Width = 3.0!
+        '
+        'Picture1
+        '
+        Me.Picture1.DataField = ""
+        Me.Picture1.Height = 0.5840001!
+        Me.Picture1.HyperLink = Nothing
+        Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
+        Me.Picture1.Left = 4.875197!
+        Me.Picture1.Name = "Picture1"
+        Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture1.Top = 0.0!
+        Me.Picture1.Width = 2.801917!
+        '
+        'lblLKW
+        '
+        Me.lblLKW.Height = 0.3444882!
+        Me.lblLKW.HyperLink = Nothing
+        Me.lblLKW.Left = 3.844882!
+        Me.lblLKW.Name = "lblLKW"
+        Me.lblLKW.Style = "font-size: 20pt; font-weight: bold; text-align: right; text-decoration: underline" & _
+    ""
+        Me.lblLKW.Text = "SD 123 AB"
+        Me.lblLKW.Top = 1.100788!
+        Me.lblLKW.Width = 3.551969!
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblDat, Me.lblSB, Me.lblEreignis})
+        Me.Detail.Height = 0.1374016!
+        Me.Detail.Name = "Detail"
+        '
+        'lblDat
+        '
+        Me.lblDat.Height = 0.1374016!
+        Me.lblDat.HyperLink = Nothing
+        Me.lblDat.Left = 0.07283465!
+        Me.lblDat.Name = "lblDat"
+        Me.lblDat.Style = "font-size: 8pt; font-weight: normal"
+        Me.lblDat.Text = "Datum/Uhrzeit"
+        Me.lblDat.Top = 0.0!
+        Me.lblDat.Width = 1.477165!
+        '
+        'lblSB
+        '
+        Me.lblSB.Height = 0.1374016!
+        Me.lblSB.HyperLink = Nothing
+        Me.lblSB.Left = 1.55!
+        Me.lblSB.Name = "lblSB"
+        Me.lblSB.Style = "font-size: 8pt; font-weight: normal"
+        Me.lblSB.Text = "Sachbearbeiter"
+        Me.lblSB.Top = 0.0!
+        Me.lblSB.Width = 1.45!
+        '
+        'Label
+        '
+        Me.Label.Height = 0.17!
+        Me.Label.Left = 0.07283417!
+        Me.Label.Name = "Label"
+        Me.Label.OutputFormat = resources.GetString("Label.OutputFormat")
+        Me.Label.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.Label.Text = "Fr<EFBFBD>chter:"
+        Me.Label.Top = 0.6519685!
+        Me.Label.Width = 0.8716534!
+        '
+        'txtFraechter
+        '
+        Me.txtFraechter.Height = 0.17!
+        Me.txtFraechter.Left = 1.204725!
+        Me.txtFraechter.Name = "txtFraechter"
+        Me.txtFraechter.OutputFormat = resources.GetString("txtFraechter.OutputFormat")
+        Me.txtFraechter.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.txtFraechter.Text = Nothing
+        Me.txtFraechter.Top = 0.6519685!
+        Me.txtFraechter.Width = 6.302362!
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Height = 0.17!
+        Me.TextBox2.Left = 0.07283417!
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.OutputFormat = resources.GetString("TextBox2.OutputFormat")
+        Me.TextBox2.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox2.Text = "Avisierer:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.TextBox2.Top = 0.8220466!
+        Me.TextBox2.Width = 0.8716535!
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Height = 0.17!
+        Me.TextBox3.Left = 0.07283417!
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.OutputFormat = resources.GetString("TextBox3.OutputFormat")
+        Me.TextBox3.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox3.Text = "LKW-Kennzeichen:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.TextBox3.Top = 0.4141726!
+        Me.TextBox3.Width = 1.13189!
+        '
+        'txtLKWKz
+        '
+        Me.txtLKWKz.Height = 0.17!
+        Me.txtLKWKz.Left = 1.204725!
+        Me.txtLKWKz.Name = "txtLKWKz"
+        Me.txtLKWKz.OutputFormat = resources.GetString("txtLKWKz.OutputFormat")
+        Me.txtLKWKz.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.txtLKWKz.Text = Nothing
+        Me.txtLKWKz.Top = 0.4141729!
+        Me.txtLKWKz.Width = 6.302362!
+        '
+        'txtAvisierer
+        '
+        Me.txtAvisierer.Height = 0.17!
+        Me.txtAvisierer.Left = 1.204723!
+        Me.txtAvisierer.Name = "txtAvisierer"
+        Me.txtAvisierer.OutputFormat = resources.GetString("txtAvisierer.OutputFormat")
+        Me.txtAvisierer.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.txtAvisierer.Text = Nothing
+        Me.txtAvisierer.Top = 0.8220466!
+        Me.txtAvisierer.Width = 6.302362!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportInfo1
+        '
+        Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
+        Me.ReportInfo1.Height = 0.2!
+        Me.ReportInfo1.Left = 4.131473!
+        Me.ReportInfo1.Name = "ReportInfo1"
+        Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
+        Me.ReportInfo1.Top = 0.02490158!
+        Me.ReportInfo1.Width = 3.478!
+        '
+        'lblDetails
+        '
+        Me.lblDetails.Height = 0.2!
+        Me.lblDetails.HyperLink = Nothing
+        Me.lblDetails.Left = 0.07283465!
+        Me.lblDetails.Name = "lblDetails"
+        Me.lblDetails.Style = "font-size: 8pt"
+        Me.lblDetails.Text = ""
+        Me.lblDetails.Top = 0.02480315!
+        Me.lblDetails.Width = 3.187031!
+        '
+        'Label8
+        '
+        Me.Label8.Height = 0.2!
+        Me.Label8.HyperLink = Nothing
+        Me.Label8.Left = 3.744488!
+        Me.Label8.Name = "Label8"
+        Me.Label8.Style = "font-size: 8pt"
+        Me.Label8.Text = "VERAG Spedition AG"
+        Me.Label8.Top = 0.02519685!
+        Me.Label8.Width = 1.130708!
+        '
+        'Line2
+        '
+        Me.Line2.Height = 0.00008201972!
+        Me.Line2.Left = 0.0!
+        Me.Line2.LineWeight = 1.0!
+        Me.Line2.Name = "Line2"
+        Me.Line2.Top = 0.02519685!
+        Me.Line2.Width = 7.677084!
+        Me.Line2.X1 = 0.0!
+        Me.Line2.X2 = 7.677084!
+        Me.Line2.Y1 = 0.02519685!
+        Me.Line2.Y2 = 0.02527887!
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFraechter, Me.txtLKWKz, Me.lblHeader, Me.Picture1, Me.lblLKW, Me.TextBox11, Me.Label, Me.TextBox2, Me.TextBox3, Me.TextBox1, Me.TextBox5, Me.TextBox7, Me.TextBox9, Me.txtAvisierer, Me.txtGrenzstelle, Me.txtAnkunft, Me.txtFreigabe, Me.txtDauer})
+        Me.ReportHeader1.Height = 2.265309!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'TextBox11
+        '
+        Me.TextBox11.Height = 0.17!
+        Me.TextBox11.Left = 0.06771654!
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.OutputFormat = resources.GetString("TextBox11.OutputFormat")
+        Me.TextBox11.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 0"
+        Me.TextBox11.Text = "Ereignisse / Gr<47>nde f<>r Verz<72>gerungen:"
+        Me.TextBox11.Top = 2.095276!
+        Me.TextBox11.Width = 3.340551!
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Height = 0.17!
+        Me.TextBox1.Left = 0.07283417!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.OutputFormat = resources.GetString("TextBox1.OutputFormat")
+        Me.TextBox1.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox1.Text = "Grenzstelle:"
+        Me.TextBox1.Top = 1.100788!
+        Me.TextBox1.Width = 0.8716535!
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.17!
+        Me.TextBox5.Left = 0.07283417!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.OutputFormat = resources.GetString("TextBox5.OutputFormat")
+        Me.TextBox5.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox5.Text = "Ankunft:"
+        Me.TextBox5.Top = 1.270865!
+        Me.TextBox5.Width = 0.8716535!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.17!
+        Me.TextBox7.Left = 0.07283417!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.OutputFormat = resources.GetString("TextBox7.OutputFormat")
+        Me.TextBox7.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox7.Text = "Freigabe:"
+        Me.TextBox7.Top = 1.440944!
+        Me.TextBox7.Width = 0.8716535!
+        '
+        'TextBox9
+        '
+        Me.TextBox9.Height = 0.17!
+        Me.TextBox9.Left = 0.07283417!
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.OutputFormat = resources.GetString("TextBox9.OutputFormat")
+        Me.TextBox9.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.TextBox9.Text = "Dauer:"
+        Me.TextBox9.Top = 1.611023!
+        Me.TextBox9.Width = 0.8716535!
+        '
+        'txtGrenzstelle
+        '
+        Me.txtGrenzstelle.Height = 0.1700788!
+        Me.txtGrenzstelle.Left = 1.204725!
+        Me.txtGrenzstelle.Name = "txtGrenzstelle"
+        Me.txtGrenzstelle.OutputFormat = resources.GetString("txtGrenzstelle.OutputFormat")
+        Me.txtGrenzstelle.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.txtGrenzstelle.Text = Nothing
+        Me.txtGrenzstelle.Top = 1.100788!
+        Me.txtGrenzstelle.Width = 6.302362!
+        '
+        'txtAnkunft
+        '
+        Me.txtAnkunft.Height = 0.17!
+        Me.txtAnkunft.Left = 1.204723!
+        Me.txtAnkunft.Name = "txtAnkunft"
+        Me.txtAnkunft.OutputFormat = resources.GetString("txtAnkunft.OutputFormat")
+        Me.txtAnkunft.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.txtAnkunft.Text = Nothing
+        Me.txtAnkunft.Top = 1.270865!
+        Me.txtAnkunft.Width = 4.57323!
+        '
+        'txtFreigabe
+        '
+        Me.txtFreigabe.Height = 0.17!
+        Me.txtFreigabe.Left = 1.204723!
+        Me.txtFreigabe.Name = "txtFreigabe"
+        Me.txtFreigabe.OutputFormat = resources.GetString("txtFreigabe.OutputFormat")
+        Me.txtFreigabe.Style = "font-size: 9pt; font-weight: normal; text-align: left; ddo-char-set: 0"
+        Me.txtFreigabe.Text = Nothing
+        Me.txtFreigabe.Top = 1.440944!
+        Me.txtFreigabe.Width = 4.57323!
+        '
+        'txtDauer
+        '
+        Me.txtDauer.Height = 0.17!
+        Me.txtDauer.Left = 1.204723!
+        Me.txtDauer.Name = "txtDauer"
+        Me.txtDauer.OutputFormat = resources.GetString("txtDauer.OutputFormat")
+        Me.txtDauer.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 0"
+        Me.txtDauer.Text = Nothing
+        Me.txtDauer.Top = 1.611023!
+        Me.txtDauer.Width = 4.57323!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.Height = 0.0!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'lblEreignis
+        '
+        Me.lblEreignis.Height = 0.1374016!
+        Me.lblEreignis.Left = 3.0!
+        Me.lblEreignis.Name = "lblEreignis"
+        Me.lblEreignis.Style = "font-size: 8pt; ddo-char-set: 1"
+        Me.lblEreignis.Text = "Ergebnis"
+        Me.lblEreignis.Top = 0.0!
+        Me.lblEreignis.Width = 4.677166!
+        '
+        'rptLKWBericht
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.1968504!
+        Me.PageSettings.Margins.Left = 0.1968504!
+        Me.PageSettings.Margins.Right = 0.1968504!
+        Me.PageSettings.Margins.Top = 0.5905512!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 7.677166!
+        Me.ScriptLanguage = "VB.NET"
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSB, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGrenzstelle, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFreigabe, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtDauer, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblEreignis, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents lblHeader As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Private WithEvents lblLKW As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtGrenzstelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtFreigabe As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtDauer As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents lblSB As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
+    Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents lblEreignis As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class

Aviso/ARConverterBackup/rptLKWBericht.vb

@@ -0,0 +1,91 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports VERAG_PROG_ALLGEMEIN
+
+
+Public Class rptLKWBericht
+    Dim cProgramFunctions As New cProgramFunctions
+    Public AvisoID As Integer = -1
+    Dim dummycount As Integer = 0
+    Public erstelltVon As String = ""
+
+    Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
+        lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
+
+    End Sub
+
+
+    Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
+
+        dummycount = dummycount + 1
+
+        lblSB.Text = Fields.Item("Mitarbeiter").Value
+        lblDat.Text = Fields.Item("Datum").Value
+        lblEreignis.Text = Fields.Item("Ereignis").Value
+        ' MsgBox(Fields.Item("Ereignis").Value)
+        'Abwechselnd grauen und wei<65>en Hintergrund
+        If (dummycount Mod 2) = 0 Then
+            Detail.BackColor = Color.White
+        Else
+            Detail.BackColor = Color.WhiteSmoke
+        End If
+
+    End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+
+        Dim AVISO As cAviso = (New cAvisoDAL).LesenAviso(AvisoID, "")
+        ' MsgBox(AvisoID)
+        Me.Name = "LKW Bericht"
+        Me.lblLKW.Text = AVISO.LKW_Nr
+        Me.txtLKWKz.Text = AVISO.LKW_Nr
+        Me.txtFraechter.Text = AVISO.Fr<EFBFBD>chter
+        Me.txtAvisierer.Text = AVISO.Auftraggeber
+        If AVISO.Dauer = 0 Then
+            Me.txtDauer.Text = "-"
+        Else
+            Me.txtDauer.Text = cProgramFunctions.MinToTime(AVISO.Dauer) 'toFormat(AVISO.Dauer * 60 / 86400, "HH Std. mm min") & " (" & AVISO.Dauer & " min)"
+        End If
+       
+
+        Me.txtAnkunft.Text = AVISO.Ankunft
+        If AVISO.Freigabe = cMeineFunktionenAVISO.LeerDatum Then
+            Me.txtFreigabe.Text = "-"
+        Else
+            Me.txtFreigabe.Text = AVISO.Freigabe 'toFormat(AVISO.Dauer * 60 / 86400, "HH Std. mm min") & " (" & AVISO.Dauer & " min)"
+        End If
+        Me.txtGrenzstelle.Text = AVISO.Grenzstelle
+        Dim sqlStr As String = " SELECT " &
+                                    " 'A' as Art, " &
+                                    " [Datum] " &
+                                    " ,[Mitarbeiter] " &
+                                    " ,[MitarbeiterId] " &
+                                    " ,[Aenderung_Text] as Ereignis " &
+                                " FROM [Aenderungen] " &
+                                        " WHERE AvisoID = '" & AvisoID & "' " &
+                                " union " &
+                                " SELECT " &
+                                    " 'V' as Art,  " &
+                                    " [Datum] " &
+                                    " ,[Mitarbeiter] " &
+                                    " ,[MitarbeiterId] " &
+                                    "   ,[Hinweis_Vermerk] as Ereignis " &
+                                " FROM [Vermerke] " &
+                                        " WHERE AvisoID='" & AvisoID & "' " &
+                                " ORDER By Datum "
+
+        Dim cAvisoDAL As New cAvisoDAL
+        Me.DataSource = cAvisoDAL.loadDataTableBySQL(sqlStr)
+
+
+        'Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
+        ' Label7.Text = "" '"B<>rgschaft: " & brg
+
+
+
+
+    End Sub
+
+   
+
+End Class