FIBU, cFakt, etc.

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

AVISOUPDATER/AVISOUPDATER.vbproj

@@ -11,7 +11,7 @@
     <AssemblyName>AVISOUPDATER</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <TargetFrameworkProfile>
     </TargetFrameworkProfile>
   </PropertyGroup>
@@ -81,6 +81,7 @@
     <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_Version.txt

@@ -1 +1 @@
-7.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.7"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
 </configuration>

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", "15.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,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.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

AVISOUPDATER/UPDATERfrm.vb

@@ -13,6 +13,9 @@ 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
 
 
@@ -35,6 +38,12 @@ Public Class UPDATERfrm
             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"
@@ -107,7 +116,7 @@ Public Class UPDATERfrm
 
 
                     If CopyIncremental Then
-                        cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_"})
+                        cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_", "Standort.txt"})
                     Else
                         delFiles()
                         FileCopier()
@@ -256,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
@@ -279,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
@@ -312,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

@@ -100,10 +100,19 @@ Public Class cProgrammeUpdate
             '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("\\", "\")
-                    IO.File.Copy(s_path, d_path)
+                        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

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/App.config

@@ -7,7 +7,7 @@
     <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
       <dependentAssembly>
         <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
+        <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" />
@@ -15,7 +15,7 @@
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="Spire.License" publicKeyToken="b1144360237c8b3f" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-1.3.15.46" newVersion="1.3.15.46" />
+        <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" />
@@ -29,6 +29,10 @@
         <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_INFO/AVISO_INFO.vbproj

@@ -11,7 +11,7 @@
     <AssemblyName>AVISO_INFO</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <Deterministic>true</Deterministic>
     <TargetFrameworkProfile />
     <NuGetPackageImportStamp>
@@ -126,6 +126,7 @@
     <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>

AVISO_INFO/App.config

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

AVISO_INFO/My Project/Application.Designer.vb

@@ -34,5 +34,11 @@ Namespace My
         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/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", "15.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()>  _

AVISO_INFO/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"),  _
+     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

AVISO_INFO/frmInfo.vb

@@ -93,7 +93,7 @@ Public Class frmInfo
     End Sub
     Function validlink(link) As Boolean
         If link = "" Then Return False
-        If Not link.contains("https://login.verag.ag/status.aspx?AvisoId=") 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
 

Aviso.sln

@@ -11,7 +11,7 @@ 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}") = "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
@@ -19,12 +19,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISO_INFO", "AVISO_INFO\AV
 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}") = "AVISO_CHECKIN", "AVISO_CHECKIN\AVISO_CHECKIN.vbproj", "{CB95CC0E-D73A-4D11-9FF8-197A392D831F}"
-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}") = "PlathosysApiWrapper", "..\..\..\SCHNITTSTELLEN\PLATHOSYS\WRAPPER\PlathosysApiWrapper-master\PlathosysApiWrapper-master\PlathosysApiWrapper\PlathosysApiWrapper.csproj", "{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}"
-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}"
@@ -35,6 +31,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\
 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
@@ -63,8 +61,8 @@ Global
 		{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|x64
-		{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|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
@@ -76,8 +74,8 @@ Global
 		{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|x64
-		{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|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
@@ -136,7 +134,6 @@ Global
 		{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|x64.Build.0 = 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
@@ -163,28 +160,11 @@ Global
 		{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
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|x64.ActiveCfg = Debug|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|x64.Build.0 = Debug|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|x86.Build.0 = Debug|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Any CPU.Build.0 = Release|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x64.ActiveCfg = Release|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x64.Build.0 = Release|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x86.ActiveCfg = Release|Any CPU
-		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.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|x64.Build.0 = 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
@@ -195,22 +175,6 @@ Global
 		{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
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|x64.ActiveCfg = Debug|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|x64.Build.0 = Debug|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Debug|x86.Build.0 = Debug|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|Any CPU.Build.0 = Release|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|x64.ActiveCfg = Release|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|x64.Build.0 = Release|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.Release|x86.ActiveCfg = Release|Any CPU
-		{A4A15E4A-9D83-4FD5-807B-63FC87CA4F0F}.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
@@ -291,6 +255,22 @@ Global
 		{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

Aviso/ARConverterBackup/rptTicketLKW.vb

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

Aviso/ARConverterBackup/rptTicketLKWInfo.Designer.vb

@@ -0,0 +1,249 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptTicketLKWInfo
+    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(rptTicketLKWInfo))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.lblHeader = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        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.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblInfo = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Picture2 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Picture3 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Picture1, 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.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblInfo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Picture2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Picture3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'lblHeader
+        '
+        Me.lblHeader.Height = 0.9059056!
+        Me.lblHeader.HyperLink = Nothing
+        Me.lblHeader.Left = 0.07283465!
+        Me.lblHeader.Name = "lblHeader"
+        Me.lblHeader.Style = "font-size: 30pt; font-weight: bold; text-align: center; ddo-char-set: 1"
+        Me.lblHeader.Text = "ZOLLABFERTIGUNG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "GÜMRÜK / DOUANE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.lblHeader.Top = 2.137795!
+        Me.lblHeader.Width = 7.061811!
+        '
+        'Picture1
+        '
+        Me.Picture1.DataField = ""
+        Me.Picture1.Height = 0.7295276!
+        Me.Picture1.HyperLink = Nothing
+        Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
+        Me.Picture1.Left = 3.482677!
+        Me.Picture1.Name = "Picture1"
+        Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture1.Top = 0.153937!
+        Me.Picture1.Width = 3.603885!
+        '
+        'Detail
+        '
+        Me.Detail.Height = 0!
+        Me.Detail.Name = "Detail"
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2, Me.lblSachbearbeiter})
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportInfo1
+        '
+        Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
+        Me.ReportInfo1.Height = 0.2!
+        Me.ReportInfo1.Left = 3.608662!
+        Me.ReportInfo1.Name = "ReportInfo1"
+        Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
+        Me.ReportInfo1.Top = 0.02480315!
+        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.181103!
+        Me.Label8.Name = "Label8"
+        Me.Label8.Style = "font-size: 8pt"
+        Me.Label8.Text = "VERAG Spedition "
+        Me.Label8.Top = 0.02519685!
+        Me.Label8.Width = 1.130708!
+        '
+        'Line2
+        '
+        Me.Line2.Height = 0.00008201972!
+        Me.Line2.Left = 0!
+        Me.Line2.LineWeight = 1.0!
+        Me.Line2.Name = "Line2"
+        Me.Line2.Top = 0.02519685!
+        Me.Line2.Width = 7.086614!
+        Me.Line2.X1 = 0!
+        Me.Line2.X2 = 7.086614!
+        Me.Line2.Y1 = 0.02519685!
+        Me.Line2.Y2 = 0.02527887!
+        '
+        'lblSachbearbeiter
+        '
+        Me.lblSachbearbeiter.Height = 0.2!
+        Me.lblSachbearbeiter.HyperLink = Nothing
+        Me.lblSachbearbeiter.Left = 0!
+        Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
+        Me.lblSachbearbeiter.Style = "font-size: 8pt"
+        Me.lblSachbearbeiter.Text = "-"
+        Me.lblSachbearbeiter.Top = 0.05!
+        Me.lblSachbearbeiter.Width = 1.130708!
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblHeader, Me.Picture1, Me.Label2, Me.lblInfo, Me.Picture2, Me.Picture3})
+        Me.ReportHeader1.Height = 6.945276!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'Label2
+        '
+        Me.Label2.Height = 0.4374017!
+        Me.Label2.HyperLink = Nothing
+        Me.Label2.Left = 0.06259844!
+        Me.Label2.Name = "Label2"
+        Me.Label2.Style = "font-size: 30pt; font-weight: bold; text-align: center; text-decoration: underlin" &
+    "e; ddo-char-set: 1"
+        Me.Label2.Text = "PARKING INFO"
+        Me.Label2.Top = 1.56811!
+        Me.Label2.Width = 7.072042!
+        '
+        'lblInfo
+        '
+        Me.lblInfo.Height = 2.838977!
+        Me.lblInfo.HyperLink = Nothing
+        Me.lblInfo.Left = 0.2393701!
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Style = "font-size: 15pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.lblInfo.Text = "INFO"
+        Me.lblInfo.Top = 4.106299!
+        Me.lblInfo.Width = 6.692914!
+        '
+        'Picture2
+        '
+        Me.Picture2.Height = 0.8543308!
+        Me.Picture2.HyperLink = Nothing
+        Me.Picture2.ImageData = CType(resources.GetObject("Picture2.ImageData"), System.IO.Stream)
+        Me.Picture2.Left = 5.951576!
+        Me.Picture2.Name = "Picture2"
+        Me.Picture2.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture2.Top = 2.137795!
+        Me.Picture2.Width = 1.183068!
+        '
+        'Picture3
+        '
+        Me.Picture3.Height = 0.8543305!
+        Me.Picture3.HyperLink = Nothing
+        Me.Picture3.ImageData = CType(resources.GetObject("Picture3.ImageData"), System.IO.Stream)
+        Me.Picture3.Left = 0.07283465!
+        Me.Picture3.Name = "Picture3"
+        Me.Picture3.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture3.Top = 2.169685!
+        Me.Picture3.Width = 1.047635!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.Height = 0!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'rptTicketLKWInfo
+        '
+        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 = 7.144882!
+        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.lblHeader, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Picture1, 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.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblInfo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Picture2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Picture3, 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 ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    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 Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Picture2 As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Private WithEvents Picture3 As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
+    Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblInfo As GrapeCity.ActiveReports.SectionReportModel.Label
+End Class

Aviso/ARConverterBackup/rptTicketLKWInfo.vb

@@ -0,0 +1,10 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports VERAG_PROG_ALLGEMEIN
+
+
+Public Class rptTicketLKWInfo
+    Private Sub rptTicketLKWInfo_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+
+    End Sub
+End Class

Aviso/ARConverterBackup1/Auswertung/rptStat_VERIMEX_AbklTR.vb

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

Aviso/ARConverterBackup1/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.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!
+        '
+        '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/ARConverterBackup1/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/ARConverterBackup1/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/ARConverterBackup1/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/ARConverterBackup1/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/ARConverterBackup1/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/ARConverterBackup1/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.ImageBase64String = resources.GetString("BG.ImageBase64String")
+        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 = GrapeCity.ActiveReports.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/ARConverterBackup1/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/ARConverterBackup1/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.ImageBase64String = resources.GetString("BG.ImageBase64String")
+        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 = GrapeCity.ActiveReports.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/ARConverterBackup1/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/ARConverterBackup1/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.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
+        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/ARConverterBackup1/WLAN/rptWLANTicket.vb

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

Aviso/ARConverterBackup1/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.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
+        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 = GrapeCity.ActiveReports.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/ARConverterBackup1/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/ARConverterBackup1/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.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
+        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/ARConverterBackup1/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

Aviso/ARConverterBackup1/rptTicketLKW.vb

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

Aviso/ARConverterBackup1/rptTicketLKWInfo.Designer.vb

@@ -0,0 +1,249 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptTicketLKWInfo
+    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(rptTicketLKWInfo))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.lblHeader = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        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.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblInfo = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Picture2 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Picture3 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        CType(Me.lblHeader, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Picture1, 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.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblInfo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Picture2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Picture3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'lblHeader
+        '
+        Me.lblHeader.Height = 0.9059056!
+        Me.lblHeader.HyperLink = Nothing
+        Me.lblHeader.Left = 0.07283465!
+        Me.lblHeader.Name = "lblHeader"
+        Me.lblHeader.Style = "font-size: 30pt; font-weight: bold; text-align: center; ddo-char-set: 1"
+        Me.lblHeader.Text = "ZOLLABFERTIGUNG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "GÜMRÜK / DOUANE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.lblHeader.Top = 2.137795!
+        Me.lblHeader.Width = 7.061811!
+        '
+        'Picture1
+        '
+        Me.Picture1.DataField = ""
+        Me.Picture1.Height = 0.7295276!
+        Me.Picture1.HyperLink = Nothing
+        Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
+        Me.Picture1.Left = 3.482677!
+        Me.Picture1.Name = "Picture1"
+        Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture1.Top = 0.153937!
+        Me.Picture1.Width = 3.603885!
+        '
+        'Detail
+        '
+        Me.Detail.Height = 0!
+        Me.Detail.Name = "Detail"
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2, Me.lblSachbearbeiter})
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportInfo1
+        '
+        Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
+        Me.ReportInfo1.Height = 0.2!
+        Me.ReportInfo1.Left = 3.608662!
+        Me.ReportInfo1.Name = "ReportInfo1"
+        Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
+        Me.ReportInfo1.Top = 0.02480315!
+        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.181103!
+        Me.Label8.Name = "Label8"
+        Me.Label8.Style = "font-size: 8pt"
+        Me.Label8.Text = "VERAG Spedition "
+        Me.Label8.Top = 0.02519685!
+        Me.Label8.Width = 1.130708!
+        '
+        'Line2
+        '
+        Me.Line2.Height = 0.00008201972!
+        Me.Line2.Left = 0!
+        Me.Line2.LineWeight = 1.0!
+        Me.Line2.Name = "Line2"
+        Me.Line2.Top = 0.02519685!
+        Me.Line2.Width = 7.086614!
+        Me.Line2.X1 = 0!
+        Me.Line2.X2 = 7.086614!
+        Me.Line2.Y1 = 0.02519685!
+        Me.Line2.Y2 = 0.02527887!
+        '
+        'lblSachbearbeiter
+        '
+        Me.lblSachbearbeiter.Height = 0.2!
+        Me.lblSachbearbeiter.HyperLink = Nothing
+        Me.lblSachbearbeiter.Left = 0!
+        Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
+        Me.lblSachbearbeiter.Style = "font-size: 8pt"
+        Me.lblSachbearbeiter.Text = "-"
+        Me.lblSachbearbeiter.Top = 0.05!
+        Me.lblSachbearbeiter.Width = 1.130708!
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblHeader, Me.Picture1, Me.Label2, Me.lblInfo, Me.Picture2, Me.Picture3})
+        Me.ReportHeader1.Height = 6.945276!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'Label2
+        '
+        Me.Label2.Height = 0.4374017!
+        Me.Label2.HyperLink = Nothing
+        Me.Label2.Left = 0.06259844!
+        Me.Label2.Name = "Label2"
+        Me.Label2.Style = "font-size: 30pt; font-weight: bold; text-align: center; text-decoration: underlin" &
+    "e; ddo-char-set: 1"
+        Me.Label2.Text = "PARKING INFO"
+        Me.Label2.Top = 1.56811!
+        Me.Label2.Width = 7.072042!
+        '
+        'lblInfo
+        '
+        Me.lblInfo.Height = 2.838977!
+        Me.lblInfo.HyperLink = Nothing
+        Me.lblInfo.Left = 0.2393701!
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Style = "font-size: 15pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.lblInfo.Text = "INFO"
+        Me.lblInfo.Top = 4.106299!
+        Me.lblInfo.Width = 6.692914!
+        '
+        'Picture2
+        '
+        Me.Picture2.Height = 0.8543308!
+        Me.Picture2.HyperLink = Nothing
+        Me.Picture2.ImageBase64String = resources.GetString("Picture2.ImageBase64String")
+        Me.Picture2.Left = 5.951576!
+        Me.Picture2.Name = "Picture2"
+        Me.Picture2.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture2.Top = 2.137795!
+        Me.Picture2.Width = 1.183068!
+        '
+        'Picture3
+        '
+        Me.Picture3.Height = 0.8543305!
+        Me.Picture3.HyperLink = Nothing
+        Me.Picture3.ImageBase64String = resources.GetString("Picture3.ImageBase64String")
+        Me.Picture3.Left = 0.07283465!
+        Me.Picture3.Name = "Picture3"
+        Me.Picture3.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture3.Top = 2.169685!
+        Me.Picture3.Width = 1.047635!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.Height = 0!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'rptTicketLKWInfo
+        '
+        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 = 7.144882!
+        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.lblHeader, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Picture1, 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.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblInfo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Picture2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Picture3, 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 ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    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 Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Picture2 As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Private WithEvents Picture3 As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
+    Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblInfo As GrapeCity.ActiveReports.SectionReportModel.Label
+End Class

Aviso/ARConverterBackup1/rptTicketLKWInfo.vb

@@ -0,0 +1,10 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports VERAG_PROG_ALLGEMEIN
+
+
+Public Class rptTicketLKWInfo
+    Private Sub rptTicketLKWInfo_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+
+    End Sub
+End Class

Aviso/ATEZ/frmATEZ_EZA.Designer.vb

@@ -0,0 +1,321 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmATEZ_EZA
+    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(frmATEZ_EZA))
+        Me.btnSend = New System.Windows.Forms.Button()
+        Me.pnlHead = New System.Windows.Forms.Panel()
+        Me.lblInfo = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.txtDyMandant = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtDyNiederlassung = New System.Windows.Forms.Label()
+        Me.lblBezugsnummer = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.lblAnh = New System.Windows.Forms.Label()
+        Me.pnlHead.SuspendLayout()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btnSend
+        '
+        Me.btnSend.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSend.BackColor = System.Drawing.Color.White
+        Me.btnSend.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnSend.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSend.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnSend.Image = Global.AVISO.My.Resources.Resources.Declarant
+        Me.btnSend.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnSend.Location = New System.Drawing.Point(395, 348)
+        Me.btnSend.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnSend.Name = "btnSend"
+        Me.btnSend.Size = New System.Drawing.Size(192, 58)
+        Me.btnSend.TabIndex = 26
+        Me.btnSend.Text = "An ATEZ senden >>"
+        Me.btnSend.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnSend.UseVisualStyleBackColor = False
+        '
+        'pnlHead
+        '
+        Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnlHead.BackColor = System.Drawing.Color.White
+        Me.pnlHead.Controls.Add(Me.lblInfo)
+        Me.pnlHead.Controls.Add(Me.Label8)
+        Me.pnlHead.Controls.Add(Me.cboStammreferenz)
+        Me.pnlHead.Controls.Add(Me.txtLKWId)
+        Me.pnlHead.Controls.Add(Me.Label3)
+        Me.pnlHead.Controls.Add(Me.Label9)
+        Me.pnlHead.Controls.Add(Me.sbAdressierteZollstelle)
+        Me.pnlHead.Controls.Add(Me.txtDyMandant)
+        Me.pnlHead.Controls.Add(Me.Label1)
+        Me.pnlHead.Controls.Add(Me.txtDyNiederlassung)
+        Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
+        Me.pnlHead.Location = New System.Drawing.Point(3, 2)
+        Me.pnlHead.Name = "pnlHead"
+        Me.pnlHead.Size = New System.Drawing.Size(584, 151)
+        Me.pnlHead.TabIndex = 112
+        '
+        'lblInfo
+        '
+        Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblInfo.ForeColor = System.Drawing.Color.Red
+        Me.lblInfo.Location = New System.Drawing.Point(3, 32)
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Size = New System.Drawing.Size(460, 21)
+        Me.lblInfo.TabIndex = 148
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(9, 61)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(80, 13)
+        Me.Label8.TabIndex = 146
+        Me.Label8.Text = "Stammreferenz:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboStammreferenz
+        '
+        Me.cboStammreferenz._allowedValuesFreiText = Nothing
+        Me.cboStammreferenz._allowFreiText = False
+        Me.cboStammreferenz._value = ""
+        Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboStammreferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.cboStammreferenz.FormattingEnabled = True
+        Me.cboStammreferenz.Location = New System.Drawing.Point(151, 56)
+        Me.cboStammreferenz.Name = "cboStammreferenz"
+        Me.cboStammreferenz.Size = New System.Drawing.Size(255, 24)
+        Me.cboStammreferenz.TabIndex = 145
+        '
+        'txtLKWId
+        '
+        Me.txtLKWId._DateTimeOnly = False
+        Me.txtLKWId._numbersOnly = False
+        Me.txtLKWId._numbersOnlyKommastellen = ""
+        Me.txtLKWId._numbersOnlyTrennzeichen = True
+        Me.txtLKWId._Prozent = False
+        Me.txtLKWId._ShortDateNew = False
+        Me.txtLKWId._ShortDateOnly = False
+        Me.txtLKWId._TimeOnly = False
+        Me.txtLKWId._TimeOnly_Seconds = False
+        Me.txtLKWId._value = ""
+        Me.txtLKWId._Waehrung = False
+        Me.txtLKWId._WaehrungZeichen = True
+        Me.txtLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtLKWId.ForeColor = System.Drawing.Color.Black
+        Me.txtLKWId.Location = New System.Drawing.Point(151, 86)
+        Me.txtLKWId.MaxLineLength = -1
+        Me.txtLKWId.MaxLines_Warning = ""
+        Me.txtLKWId.MaxLines_Warning_Label = Nothing
+        Me.txtLKWId.Name = "txtLKWId"
+        Me.txtLKWId.Size = New System.Drawing.Size(255, 23)
+        Me.txtLKWId.TabIndex = 144
+        '
+        'Label3
+        '
+        Me.Label3.Location = New System.Drawing.Point(10, 91)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(103, 17)
+        Me.Label3.TabIndex = 113
+        Me.Label3.Text = "LKW-KZ:"
+        '
+        'Label9
+        '
+        Me.Label9.Location = New System.Drawing.Point(10, 117)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(103, 17)
+        Me.Label9.TabIndex = 110
+        Me.Label9.Text = "Adressierte-Zollstelle:"
+        '
+        'sbAdressierteZollstelle
+        '
+        Me.sbAdressierteZollstelle._allowFreitext = False
+        Me.sbAdressierteZollstelle._AllowSetValue = False
+        Me.sbAdressierteZollstelle._allowSpaceAsSplitter = False
+        Me.sbAdressierteZollstelle._autoSizeGross = False
+        Me.sbAdressierteZollstelle._hideIfListEmpty = True
+        Me.sbAdressierteZollstelle._value = ""
+        Me.sbAdressierteZollstelle.conn_art = "FMZOLL"
+        Me.sbAdressierteZollstelle.dgvpos = "LEFT"
+        Me.sbAdressierteZollstelle.DISPLAY_PARAM = Nothing
+        Me.sbAdressierteZollstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.sbAdressierteZollstelle.INVISIBLE_COLUMNS = Nothing
+        Me.sbAdressierteZollstelle.key_visible = False
+        Me.sbAdressierteZollstelle.KEYPARAM = Nothing
+        Me.sbAdressierteZollstelle.Location = New System.Drawing.Point(151, 112)
+        Me.sbAdressierteZollstelle.Name = "sbAdressierteZollstelle"
+        Me.sbAdressierteZollstelle.searchActive = True
+        Me.sbAdressierteZollstelle.Size = New System.Drawing.Size(255, 23)
+        Me.sbAdressierteZollstelle.SQL_ORDER_BY = Nothing
+        Me.sbAdressierteZollstelle.SQL_SELECT = Nothing
+        Me.sbAdressierteZollstelle.SQL_WHERE = Nothing
+        Me.sbAdressierteZollstelle.SQL_WhereParamList = Nothing
+        Me.sbAdressierteZollstelle.TabIndex = 111
+        Me.sbAdressierteZollstelle.usrcntl = Nothing
+        '
+        'txtDyMandant
+        '
+        Me.txtDyMandant.BackColor = System.Drawing.Color.White
+        Me.txtDyMandant.Location = New System.Drawing.Point(2, 7)
+        Me.txtDyMandant.Name = "txtDyMandant"
+        Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
+        Me.txtDyMandant.TabIndex = 109
+        Me.txtDyMandant.Text = "VERG"
+        Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(296, 20)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.TabIndex = 106
+        Me.Label1.Text = "Bezugsnummer:"
+        '
+        'txtDyNiederlassung
+        '
+        Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
+        Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 7)
+        Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
+        Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
+        Me.txtDyNiederlassung.TabIndex = 108
+        Me.txtDyNiederlassung.Text = "SUB"
+        '
+        'lblBezugsnummer
+        '
+        Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
+        Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBezugsnummer.Location = New System.Drawing.Point(384, 14)
+        Me.lblBezugsnummer.Name = "lblBezugsnummer"
+        Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
+        Me.lblBezugsnummer.TabIndex = 107
+        Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
+        Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Location = New System.Drawing.Point(409, 159)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(178, 23)
+        Me.Button3.TabIndex = 152
+        Me.Button3.Text = "alle Anhänge auswählen"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.Location = New System.Drawing.Point(9, 168)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(135, 13)
+        Me.Label6.TabIndex = 147
+        Me.Label6.Text = "Dokumente:"
+        '
+        'dgvAnhaenge
+        '
+        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhaenge.AllowUserToAddRows = False
+        Me.dgvAnhaenge.AllowUserToDeleteRows = False
+        Me.dgvAnhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnhaenge.AllowUserToResizeRows = False
+        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(3, 184)
+        Me.dgvAnhaenge.Name = "dgvAnhaenge"
+        Me.dgvAnhaenge.ReadOnly = True
+        Me.dgvAnhaenge.RowHeadersVisible = False
+        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(584, 158)
+        Me.dgvAnhaenge.TabIndex = 112
+        '
+        'columnName
+        '
+        Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.columnName.HeaderText = "Name"
+        Me.columnName.Name = "columnName"
+        Me.columnName.ReadOnly = True
+        '
+        'lblAnh
+        '
+        Me.lblAnh.Location = New System.Drawing.Point(0, 345)
+        Me.lblAnh.Name = "lblAnh"
+        Me.lblAnh.Size = New System.Drawing.Size(135, 13)
+        Me.lblAnh.TabIndex = 151
+        Me.lblAnh.Visible = False
+        '
+        'frmATEZ_EZA
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.ClientSize = New System.Drawing.Size(589, 409)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.lblAnh)
+        Me.Controls.Add(Me.pnlHead)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.btnSend)
+        Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmATEZ_EZA"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "ATEZ EZA"
+        Me.pnlHead.ResumeLayout(False)
+        Me.pnlHead.PerformLayout()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents btnSend As Button
+    Friend WithEvents pnlHead As Panel
+    Friend WithEvents lblInfo As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents columnName As DataGridViewTextBoxColumn
+    Friend WithEvents Label9 As Label
+    Friend WithEvents sbAdressierteZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents txtDyMandant As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents txtDyNiederlassung As Label
+    Friend WithEvents lblBezugsnummer As Label
+    Friend WithEvents lblAnh As Label
+    Friend WithEvents Button3 As Button
+End Class

Aviso/ATEZ/frmATEZ_EZA.vb

@@ -0,0 +1,778 @@
+
+Imports com.esendex.sdk.optouts.models
+Imports DAKOSY_Worker.eZollTypes
+Imports SDL
+Imports VERAG_PROG_ALLGEMEIN
+
+
+Public Class frmATEZ_EZA
+
+    Dim ART As String = ""
+    Dim FilialenNr As Integer
+    Dim AbfertigungsNr As Integer
+    Dim JAHR As Integer = Now.ToString("yy")
+    Public isSTAMMREF As Boolean = False
+    Public STAMMREF As String = ""
+    Public CopyFromZA_Id As Integer = -1
+    Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+    Dim ZOLL_SYSTEM = "DAKOSY"
+    Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
+    Public ATT As List(Of String)
+    Dim AVISO As New cAviso
+    Dim zusatz As String
+    Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
+    Dim VermerkeDAL As New cVermerkeDAL
+    Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
+    Dim openExisting As Boolean = False
+    Dim id As Integer = -1
+    Dim dgv As DataGridView = Nothing
+    Dim atez_data As cATEZ_NCTS_DATA
+    Dim atez = New cATEZ_NCTS_IN("atez_ncts")
+    Dim allSelected As Boolean = False
+
+    Property BezugsNr As String = ""
+    Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
+
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional _dgv As DataGridView = Nothing)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        If _dgv IsNot Nothing Then Me.dgv = _dgv
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Sub New(_id As Integer, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        openExisting = True
+        id = _id
+
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSend.Click
+        Try
+
+
+            'If Button1.Text = "JSON" Then
+            '    If Not atez.setJson(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
+            '    atez.setJsonPDF(atez_data, dgvAnhaenge)
+
+            '    Dim data As New DataObject()
+            '    data.SetData(DataFormats.Text, atez_data.json)
+            '    Clipboard.SetDataObject(data)
+            '    Me.Cursor = Cursors.Default
+            '    MsgBox("JSON-Daten in Zwischenablage gespeichert")
+            '    Exit Sub
+            'End If
+
+            'If atez_data.status = "Sent" Then
+            '    Exit Sub
+            'End If
+
+            ''auskommentiert, weil Sendungen ohne ANhang auch geschickt werden sollen: M.Akceylan
+            ''If Not checkAttachment() Then
+            ''    Exit Sub
+            ''End If
+
+
+            If Not checkMandatoryField() Then
+                Exit Sub
+            End If
+
+
+            Me.Cursor = Cursors.WaitCursor
+
+            lblInfo.Text = ""
+
+
+            'txtDyMandant.Text = "VERA" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+            txtDyMandant.Text = "VERG"
+
+            '    atez.setJsonPDF(atez_data, dgvAnhaenge)
+
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            '----ATEZ EZA------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            Dim procedureCodeRequested As Integer
+            Select Case SENDUNG.tblSnd_Abfertigungsart_ID
+                Case 26, 27
+                    procedureCodeRequested = 42
+                Case Else
+                    procedureCodeRequested = 40
+            End Select
+
+            Dim ioReference = lblBezugsnummer.Text & Now.ToString("ddMMyyyy_HHmmss")
+            '
+            '.DAKOSY_TemplateCode = cboStammreferenz._value
+            'If .DAKOSY_TemplateCode = "" Then .DAKOSY_TemplateCode = "*OWN"
+
+            '.documents = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument) From {
+            '    New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test.txt", .fileType = "invoice"},
+            '    New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test2.txt", .fileType = "atr"},
+            '    New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test3.txt", .fileType = "cmr"}
+            '},
+
+            Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With {
+                .referenceNo = ioReference,
+                .outputApplication = "dakosy/sftp/verg",'.outputApplication = "dakosy/sftp/vera",
+                .regimeType = "IMPORT",'                .customer = "AVISO",
+               .dispatchCountry = "DE",
+               .destinationCountry = "TR", 'Default, wird später überschrieben!! (Pflichtfeld)
+               .additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With {
+                    .transaction = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubTransaction With {
+                        .ioPartner = txtDyMandant.Text,
+                        .ioDivision3 = txtDyNiederlassung.Text,
+                        .ioReference = ioReference
+                    },
+                    .declaration = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration) From {
+                        New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With {
+                            .objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
+                                .objectName = lblBezugsnummer.Text & "_TEST",
+                                    .objectAlias = ioReference,
+                                    .declarationType = "EZA-D"
+                                },
+                                .headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
+                                    .agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
+                                        .contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
+                                        .contactPersonPhoneNumber = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr, "+43 7711/2777 0"),
+                                        .contactPersonPosition = "Zolldeklarant/in"
+                                    },
+                                    .declarantIsConsignee = True,
+                                    .representationRelationshipCode = -1, '??????????????????????????????????????????????????????????????
+                                    .inputTaxDeduction = True,'"",'"true",
+                                    .procedureCodeRequested = procedureCodeRequested.ToString,'                                    .goodsStatus = "",'"EU",
+                                     .transportMeansArrivalIdentity = txtLKWId.Text,
+                                    .transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
+                                   }
+                                }
+                            }
+                    }
+                }
+            If If(AVISO.Zollstelle, "").length >= 4 Then
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice = AVISO.Zollstelle.ToString.Substring(AVISO.Zollstelle.ToString.Length - 4)
+                'MsgBox(ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice)
+            End If
+
+            ATEZ_RH_EZA.additionalData.declaration(0).objectIdentification.username = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "ANDREAS")
+            ATEZ_RH_EZA.additionalData.declaration(0).objectIdentification.referenceNumberOverlay = If(cboStammreferenz._value <> "", cboStammreferenz._value, "*OWN")
+
+
+
+            If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.previousAdministrativeReferenceType = "T1"
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.previousAdministrativeReferenceNumber = SENDUNG.tblSnd_Vorpapier
+            End If
+
+
+
+
+            '    .destinationCountry = "DE",
+
+            '    .dispatchCountry = "DE",
+
+            ', .destinationFederalState = "07"
+            '                        .destinationCountry = "DE",
+            '                        .departureCountry = "TR"
+            '  .previousAdministrativeReferenceType = "T1",'  SENDUNG.tblSnd_Vorpapier
+            '.previousAdministrativeReferenceNumber = "25TR160100001472M0",
+
+            ',
+            '.addresses = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress) From {
+            '    New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress With {.addressType = "CZ", .participantEORI = "EORI12345", .participantSubsidiaryNumber = "001", .companyName = "SISECAM DIS TIC.A.S.", .streetAndNumber = "D-100 KARAYOLU CD.YAYLA MH.NO.70/C", .countryCode = "TR", .postalCode = "34949", .city = "TUZLA ISTANBUL"},
+            '    New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress With {.addressType = "CN", .participantEORI = "EORI67890", .participantSubsidiaryNumber = "002", .companyName = "POLYNT COMPOSITES GERMANY GMBH", .streetAndNumber = "KIESELSTRASSE 2", .countryCode = "DE", .postalCode = "56357", .city = "MIEHLEN"}
+
+            ATEZ_RH_EZA.documents = New List(Of cRelayHub.cRelayHubDocument)
+            For Each r As DataGridViewRow In dgvAnhaenge.Rows
+                Dim isSelected As Boolean = If(DBNull.Value Is r.Cells("anh_selekt").Value, False, r.Cells("anh_selekt").Value)
+
+                If isSelected Then
+
+                    Dim bd As New Chilkat.BinData
+                    Dim DOC As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument
+                    If r.Cells("anh_Art").Value IsNot DBNull.Value Then
+                        Select Case r.Cells("anh_Art").Value
+                            Case "Rechnung", "Konsi-Rechnung", "eFatura", "INVOICE" : DOC.fileType = "invoice"
+                            Case "CMR" : DOC.fileType = "cmr"
+                            Case "Ausfuhr", "EXPORT" : DOC.fileType = "tr_export_declaration"
+                            Case "ATR" : DOC.fileType = "atr"
+                            Case "Vorpapier", "T1" : DOC.fileType = "transit_declaration"
+                            Case Else : DOC.fileType = "invoice"
+                                '  Case Else : DOC.fileType = "additional_data" --> DARF NCIHT  -_> additional_data ist das verwednete Datenformat
+                        End Select
+                    End If
+                    'invoice' | 'atr' | 'cmr' | 'transit_declaration' | 'tr_export_declaration' | 'additional_data', received 'PDF'
+
+                    DOC.type = "base64"
+                    DOC.filename = r.Cells("anh_Name").Value
+
+                    Try
+                        Dim dateiBytes As Byte() = IO.File.ReadAllBytes((VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)))
+
+                        Dim base64String As String = Convert.ToBase64String(dateiBytes)
+
+                        DOC.base64String = base64String
+
+                    Catch ex As Exception
+
+                        ' Fehlerbehandlung, z. B. Datei nicht gefunden oder keine Zugriffsrechte
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    End Try
+
+
+
+                    ATEZ_RH_EZA.documents.Add(DOC)
+                End If
+            Next
+
+            ATEZ_RH_EZA.additionalData.declaration(0).addresses = New List(Of cRelayHub.cRelayHubAddress)
+
+            If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
+                Dim AD As New cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
+                Dim KD As New cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
+                Dim CN As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
+                CN.addressType = "CN"
+                CN.participantEORI = If(KD.EORITIN, "")
+                CN.participantSubsidiaryNumber = If(KD.EORITIN_NL, "0")
+                CN.companyName = AD.Name_1
+                CN.streetAndNumber = AD.Straße
+                CN.postalCode = AD.PLZ
+                CN.city = AD.Ort
+                CN.countryCode = SDL.cProgramFunctions.getISO2Land(AD.LandKz)
+
+                ATEZ_RH_EZA.additionalData.declaration(0).addresses.Add(CN)
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.destinationCountry = CN.countryCode
+                ATEZ_RH_EZA.destinationCountry = CN.countryCode
+
+                If If(CN.countryCode, "") = "DE" AndAlso CN.postalCode IsNot Nothing AndAlso CN.postalCode <> "" Then
+                    ATEZ_RH_EZA.additionalData.declaration(0).headerData.destinationFederalState = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(CN.postalCode)
+                ElseIf If(CN.countryCode, "") <> "" Then
+                    ATEZ_RH_EZA.additionalData.declaration(0).headerData.destinationFederalState = "25"
+                End If
+
+            End If
+
+            If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
+                Dim AD As New cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
+                Dim KD As New cKunde(SENDUNG.tblSnd_AbsenderKdNr)
+                Dim CZ As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
+                CZ.addressType = "CZ"
+                CZ.participantEORI = If(KD.EORITIN, "")
+                CZ.participantSubsidiaryNumber = If(KD.EORITIN_NL, "0")
+                CZ.companyName = AD.Name_1
+                CZ.streetAndNumber = AD.Straße
+                CZ.postalCode = AD.PLZ
+                CZ.city = AD.Ort
+                CZ.countryCode = SDL.cProgramFunctions.getISO2Land(AD.LandKz)
+                ATEZ_RH_EZA.additionalData.declaration(0).addresses.Add(CZ)
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.departureCountry = CZ.countryCode
+                ATEZ_RH_EZA.dispatchCountry = CZ.countryCode
+            End If
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            ATEZ_RH_EZA.dispatchCountry = If(ATEZ_RH_EZA.dispatchCountry, "") ' not null
+            ATEZ_RH_EZA.destinationCountry = If(ATEZ_RH_EZA.destinationCountry, "") ' not null
+
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            '-------------------SENDEN-----------------------------------------------------------------------------------------------------------------------------------------------------------------
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            Dim RESP = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.query_declarations(ATEZ_RH_EZA)
+            If RESP.Success Then
+                MsgBox("Erfolgreich gesendet!")
+                '-> ATEZ ID Speichern
+                Me.Close()
+            Else
+                MsgBox("ERROR" & vbNewLine & RESP.Details, MsgBoxStyle.OkOnly, RESP.Message)
+
+            End If
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+
+            Me.Cursor = Cursors.Default
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Me.Cursor = Cursors.Default
+        End Try
+
+    End Sub
+
+    'Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
+
+    '    Dim failreDesc As String
+
+    '    Dim authResp = atez.authenticate("NCTS")
+    '    If authResp <> "200" Then
+
+    '        failreDesc = "Authentifizierung fehlgeschlagen"
+    '        lblInfo.Text = failreDesc & " - " & authResp & vbNewLine & "Vorgang abgebrochen" & vbNewLine & " Bitte wiederholen!"
+    '        Dim resultAuthentifizierung As MsgBoxResult = MsgBox("Fehler beim Authentifizieren" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+
+    '        If resultAuthentifizierung = vbYes Then
+    '            atezData.status = "Draft"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        Else
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        End If
+
+    '        Return False
+    '    End If
+
+    '    atezData.sessionId = atez.sessionID
+
+
+    '    If Not atez.setJsonNCTS(atezData) Then
+    '        MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
+    '        atezData.status = "Failure"
+    '        atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten"
+    '        Return atezData.SAVE
+    '    End If
+
+    '    If checkAttachment() Then
+    '        If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
+    '            MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
+    '            Return atezData.SAVE
+    '        End If
+    '    End If
+
+
+    '    Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc, "/api/integrations/verag", "POST")
+
+    '    If failreDesc <> "" Then
+    '        If atezData.status = "Draft" Then
+    '            MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+
+    '        End If
+    '        Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+    '        If result = vbYes Then
+    '            atezData.status = "Draft"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        Else
+    '            atezData.status = "Failure"
+    '            atezData.fehlerbeschreibung = failreDesc
+    '            Return atezData.SAVE()
+    '        End If
+
+    '        lblInfo.Text = "Fehler in der API "
+
+    '    Else
+
+    '        If azetId = "-1" Then
+    '            atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
+    '        Else
+    '            atezData.fehlerbeschreibung = ""
+    '        End If
+    '        atezData.status = "Sent"
+    '        atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
+    '        Return atezData.SAVE()
+
+    '    End If
+
+    'End Function
+
+    Function getBezugsnr(ByRef BezugsNr)
+        Dim BezugsNrTmp = ""
+        BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
+        BezugsNr = BezugsNrTmp
+        zusatz = "A"
+
+        If dgv IsNot Nothing AndAlso dgv.Rows.Count > 0 Then
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+            For Each r As DataGridViewRow In dgv.Rows
+                If r.Cells("BezugsNr").Value = BezugsNr Then
+
+                    If zusatz.Length = 1 Then
+                        zusatz = Chr(Asc(zusatz.ToString) + 1)
+                    Else
+                        zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+                    End If
+
+                    If zusatz = "Z" Then zusatz = "AA"
+                End If
+                BezugsNr = BezugsNrTmp & "/" & zusatz
+            Next
+
+        End If
+
+        While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+
+            If zusatz.Length = 1 Then
+                zusatz = Chr(Asc(zusatz.ToString) + 1)
+            Else
+                zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+            End If
+
+            If zusatz = "Z" Then zusatz = "AA"
+        End While
+
+        lblBezugsnummer.Text = BezugsNr
+        Return BezugsNr
+    End Function
+
+
+    Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        Select Case FIRMA_DY
+            Case "VERAG" : txtDyMandant.Text = "VERG"
+                txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+
+                Select Case FilialenNr
+                    Case "5103" : txtDyNiederlassung.Text = "WAI"
+
+                End Select
+
+
+            Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+            Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+            Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+            Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+        End Select
+
+        initSeachboxes()
+        lblAnh.Visible = True
+
+
+        If openExisting Then
+
+            If id > 0 Then
+                '  atez_data = New cATEZ_NCTS_DATA(id)
+                initAttachment()
+                If atez_data.atezId <> "" Then
+                    lblInfo.Text = "Atez-ID " & atez_data.atezId
+                Else
+                    lblInfo.Text = "Status: " & IIf(atez_data.fehlerbeschreibung <> "", atez_data.status & "- " & atez_data.fehlerbeschreibung, atez_data.status)
+                End If
+
+
+                lblBezugsnummer.Text = atez_data.VERAG_LRN
+
+                cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "')  and dySr_visible=1", False, "FMZOLL", True)
+                cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
+                'cboProzedur.changeItem(atez_data.DAKOSY_Procedure)
+
+                txtLKWId.Text = atez_data.LicensePlateContainerNo
+
+                'sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice)
+                sbAdressierteZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice)
+
+
+
+
+                If atez_data.status = "Draft" Then
+                    btnSend.Text = "An ATEZ senden -->"
+                    pnlHead.Enabled = True
+                    btnSend.Enabled = True
+                    'initAttachment()
+
+                Else
+                    btnSend.Text = "JSON"
+                    pnlHead.Enabled = False
+                    dgvAnhaenge.ReadOnly = True
+                    btnSend.Enabled = True
+
+
+                End If
+
+
+            Else
+                btnSend.Enabled = False
+            End If
+
+        Else
+            ' atez_data = New cATEZ_NCTS_DATA()
+            initAttachment()
+            'Button1.Text = "An ATEZ senden -->"
+            pnlHead.Enabled = True
+
+            cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "')  and dySr_visible=1", False, "FMZOLL", True)
+            cboStammreferenz.changeItem("")
+
+            getBezugsnr(BezugsNr)
+            txtLKWId.Text = AVISO.LKW_Nr
+
+            '       sbBestimmungsZollstelle.SET_VALUE(SENDUNG.NCTS_Bestimmungszollstelle)
+
+            If AVISO.Grenzstelle.Replace("???", "") = "" Then
+                sbAdressierteZollstelle.SET_VALUE(AVISO.Zollstelle)
+            Else
+
+                Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
+                If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
+                    If GRZ.grz_ZollamtDST IsNot Nothing Then
+                        sbAdressierteZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
+                    End If
+                End If
+            End If
+
+
+        End If
+        'initAttachment()
+    End Sub
+
+    Sub initAttachment()
+        Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
+
+                                                case WHEN [anh_size] > 0 Then ROUND([anh_size] / 1000000,2) End as anh_size,
+
+                                                CASE WHEN  [anh_Art] = 'ATR-EUR1' then 'EUR'
+                                                when [anh_Art] = 'Rechnung' then 'INVOICE'
+                                                when [anh_Art] = 'eFatura' then 'INVOICE'
+                                                when [anh_Art] = 'CMR' then 'CMR'
+                                                when [anh_Art] = 'Ausfuhr' then 'OTHER'
+                                                when [anh_Art] = 'Vorpapier' then 'OTHER'
+                                                when [anh_Art] = 'Packliste' then 'PACK'
+                                                when [anh_Art] = 'Auftrag' then 'OTHER'
+                                                when [anh_Art] = 'Auftrag' then 'OTHER'
+                                                when [anh_Art] = 'Dispoliste' then 'OTHER'
+                                                when [anh_Art] = 'Vorkasse' then 'OTHER'
+                                                when [anh_Art] = 'Überweisungsbeleg' then 'OTHER'
+                                                when [anh_Art] = 'Vollmacht' then 'OTHER'
+                                                when [anh_Art] = 'ATB' then 'OTHER'
+                                                when [anh_Art] = 'ATA' then 'CarnetATA'
+                                                when [anh_Art] = 'Sonstiges' then 'OTHER'
+                                                when [anh_Art] ='' then 'OTHER' End
+                                                [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
+                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ = 'PDF'
+                                           ORDER BY  anh_SendungsId desc,
+										  case	  
+                                                when [anh_Art] = 'ATR-EUR1' then 0
+                                                when [anh_Art] = 'Rechnung' then 1
+                                                when [anh_Art] = 'eFatura' then 1.1
+                                                when [anh_Art] = 'CMR' then 2
+                                                when [anh_Art] = 'Ausfuhr' then 3
+                                                when [anh_Art] = 'Vorpapier' then 4
+                                                when [anh_Art] = 'Packliste' then 5
+                                                when [anh_Art] = 'Auftrag' then 6
+                                                when [anh_Art] = 'Auftrag' then 7
+                                                when [anh_Art] = 'Dispoliste' then 8
+                                                when [anh_Art] = 'Vorkasse' then 9
+                                                when [anh_Art] = 'Überweisungsbeleg' then 10
+                                                when [anh_Art] = 'Vollmacht' then 11
+                                                when [anh_Art] = 'ATB' then 12
+                                                when [anh_Art] = 'ATA' then 13
+                                                when [anh_Art] = 'Sonstiges' then 99
+                                                when [anh_Art] ='' then 15
+
+										END, [anh_Reihenfolge],[anh_id]"
+
+        Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
+
+        Dim col As DataColumn
+        col = dt.Columns.Add("anh_selekt", GetType(Boolean))
+        col.SetOrdinal(0)
+        dgvAnhaenge.Columns.Clear()
+        dgvAnhaenge.DataSource = dt
+        If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
+
+        With dgvAnhaenge
+
+            .Enabled = True
+            .ReadOnly = False
+
+            .RowTemplate.MinimumHeight = 30
+            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
+            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigenconMenuVermerke
+            .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
+
+            .Columns("anh_selekt").Width = 25
+            .Columns("anh_selekt").HeaderText = ""
+            .Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("anh_Datum").MinimumWidth = 50
+            .Columns("anh_Datum").HeaderText = "Datum"
+            .Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Datum").ReadOnly = True
+
+
+            .Columns("anh_Name").MinimumWidth = 150
+            .Columns("anh_Name").HeaderText = "Name"
+            .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("anh_Name").ReadOnly = True
+
+            .Columns("anh_Art").MinimumWidth = 50
+            .Columns("anh_Art").HeaderText = "Art"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Art").ReadOnly = True
+
+            .Columns("anh_Typ").Width = 50
+            .Columns("anh_Typ").HeaderText = "Typ"
+            .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Typ").ReadOnly = True
+
+            .Columns("anh_size").Width = 50
+            .Columns("anh_size").HeaderText = "Größe in MB"
+            .Columns("anh_size").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_size").ReadOnly = True
+
+        End With
+
+        For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+
+            If Not IsDBNull(doc.Cells("anh_size").Value) AndAlso doc.Cells("anh_size").Value > 0 Then
+                Dim size = (doc.Cells("anh_size").Value)
+                If size < 1 Then
+                    doc.DefaultCellStyle.BackColor = Color.LightGreen
+                ElseIf size > 1 AndAlso size < 5 Then
+                    doc.DefaultCellStyle.BackColor = Color.LightYellow
+                Else
+                    doc.DefaultCellStyle.BackColor = Color.IndianRed
+                End If
+            End If
+
+        Next
+
+        If atez_data IsNot Nothing AndAlso atez_data.selectedDocuments <> "" Then
+
+            For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+                If atez_data.selectedDocuments.Contains(doc.Cells("anh_docId").Value) Then doc.Cells("anh_selekt").Value = True
+
+            Next
+        End If
+
+
+    End Sub
+
+
+    Sub initSeachboxes()
+
+        sbAdressierteZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        'sbBestimmungsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+
+    End Sub
+
+
+
+    Public Function checkAttachment() As Boolean
+
+        Dim selectedDocuments As Boolean = False
+
+        For Each Row In dgvAnhaenge.Rows
+
+            selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value)
+            If selectedDocuments Then Exit For
+        Next
+
+
+        'If Not selectedDocuments Then
+        '    lblInfo.Text = "kein Anhang selektiert"
+        '    Cursor = Cursors.Default
+        '    Return selectedDocuments
+        'End If
+
+        Return selectedDocuments
+
+    End Function
+
+    Public Function checkMandatoryField() As Boolean
+
+
+        'TODO
+        Return True
+
+
+    End Function
+
+
+
+    Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick
+        Try
+
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhaenge.SelectedRows(0).Cells("anh_docId").Value)
+                If Not IO.File.Exists(docPath) Then
+                    MsgBox("Die Datei existiert nicht!")
+                Else
+                    If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler  (bereits von Benutzer soUndSo geöffnet)
+                        Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
+                        System.IO.File.Copy(docPath, docPathTMP)
+                        Process.Start(docPathTMP)
+                    Else
+                        Process.Start(docPath)
+                    End If
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+    Private Sub dgvAnhaenge_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick
+
+        Dim countAnh As Double = 0
+        If dgvAnhaenge.RowCount > 0 Then
+
+            If dgvAnhaenge.Columns(e.ColumnIndex).Name = "anh_selekt" Then
+
+                If Not IsDBNull(dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value) AndAlso dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value = True Then
+                    countAnh += IIf(dgvAnhaenge.CurrentRow.Cells("anh_size").Value IsNot DBNull.Value, dgvAnhaenge.CurrentRow.Cells("anh_size").Value, 0)
+                End If
+
+                For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                    If Row.Cells("anh_selekt").Value IsNot DBNull.Value AndAlso Row.Cells("anh_selekt").Value = True AndAlso Row.Cells("anh_size").Value IsNot DBNull.Value Then
+                        countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                    End If
+                Next
+
+                lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+
+            End If
+
+        End If
+
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If dgvAnhaenge.RowCount > 0 Then
+            Dim countAnh As Double = 0
+            For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                If allSelected Then
+                    Row.Cells("anh_selekt").Value = True
+                    countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                Else
+                    Row.Cells("anh_selekt").Value = False
+                    countAnh = 0
+                End If
+            Next
+            allSelected = Not allSelected
+            lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+        End If
+    End Sub
+End Class

Aviso/ATEZ/frmATEZ_NCTS.vb

@@ -0,0 +1,784 @@
+
+Imports SDL
+Imports VERAG_PROG_ALLGEMEIN
+
+
+Public Class frmATEZ_NCTS
+
+    Dim ART As String = ""
+    Dim FilialenNr As Integer
+    Dim AbfertigungsNr As Integer
+    Dim JAHR As Integer = Now.ToString("yy")
+    Public isSTAMMREF As Boolean = False
+    Public STAMMREF As String = ""
+    Public CopyFromZA_Id As Integer = -1
+    Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+    Dim ZOLL_SYSTEM = "DAKOSY"
+    Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
+    Public ATT As List(Of String)
+    Dim AVISO As New cAviso
+    Dim zusatz As String
+    Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
+    Dim VermerkeDAL As New cVermerkeDAL
+    Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
+    Dim openExisting As Boolean = False
+    Dim id As Integer = -1
+    Dim dgv As DataGridView = Nothing
+    Dim atez_data As cATEZ_NCTS_DATA
+    Dim atez = New cATEZ_NCTS_IN("atez_ncts")
+    Dim allSelected As Boolean = False
+
+    Property BezugsNr As String = ""
+    Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
+
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional _dgv As DataGridView = Nothing)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        If _dgv IsNot Nothing Then Me.dgv = _dgv
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Sub New(_id As Integer, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        openExisting = True
+        id = _id
+
+        Me.AVISO = AVISO
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Try
+
+
+            If Button1.Text = "JSON" Then
+                If Not atez.setJson(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
+                atez.setJsonPDF(atez_data, dgvAnhaenge)
+
+                Dim data As New DataObject()
+                data.SetData(DataFormats.Text, atez_data.json)
+                Clipboard.SetDataObject(data)
+                Me.Cursor = Cursors.Default
+                MsgBox("JSON-Daten in Zwischenablage gespeichert")
+                Exit Sub
+            End If
+
+            If atez_data.status = "Sent" Then
+                Exit Sub
+            End If
+
+            'auskommentiert, weil Sendungen ohne ANhang auch geschickt werden sollen: M.Akceylan
+            'If Not checkAttachment() Then
+            '    Exit Sub
+            'End If
+
+
+            If Not checkMandatoryField() Then
+                Exit Sub
+            End If
+
+
+            Me.Cursor = Cursors.WaitCursor
+
+            lblInfo.Text = ""
+
+            With atez_data
+
+                .AvisoId = AVISO.AvisoID
+                .SendungsId = SENDUNG.tblSnd_SendungID
+                .VERAG_LRN = lblBezugsnummer.Text
+                .LicensePlateContainerNo = txtLKWId.Text
+                .DAKOSY_TemplateCode = cboStammreferenz._value
+                If .DAKOSY_TemplateCode = "" Then .DAKOSY_TemplateCode = "*OWN"
+                .DAKOSY_Procedure = cboProzedur._value
+                .DAKOSY_IOPartner = txtDyMandant.Text
+                .DAKOSY_Division3 = txtDyNiederlassung.Text
+                .DepartureCustomsOffice = sbAbgangZollstelle._value
+                .DestinationCustomsOffice = sbBestimmungsZollstelle._value
+                .DatDeterminationLimit = txtDat.Text
+                .CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "")
+                .Carrier_Name = usrCntl_Carrier.kdFirma.Text
+                .Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text
+                .Carrier_Adress_Country = usrCntl_Carrier.sbLand._value
+                .Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text
+                .Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text
+                .Carrier_EORI = usrCntl_Carrier.txtEORI.Text
+                .Guarantee_GRN = "" 'leer 
+                .erstellerId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+
+                If .selectedDocuments <> "" Then .selectedDocuments = ""
+
+                For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+                    Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
+                    If isSelected Then
+                        .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
+                    End If
+                Next
+
+                .SAVE()
+
+            End With
+
+            saveDurchgangszollstelle(atez_data)
+            saveRoute(atez_data)
+            setDurchgangszolstellen()
+            setRoute()
+            If sendAtezData(atez_data, atez) Then
+                AvisoStatusFunctions.insertSendungsVermerk(SENDUNG.tblSnd_SendungID, SENDUNG.tblSnd_AvisoID, "An ATEZ gesendet", 109)
+                Me.Close()
+            Else
+                Me.Close()
+            End If
+
+
+            Me.Cursor = Cursors.Default
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Me.Cursor = Cursors.Default
+        End Try
+
+    End Sub
+
+    Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
+
+        Dim failreDesc As String
+
+        Dim authResp = atez.authenticate("NCTS")
+        If authResp <> "200" Then
+
+            failreDesc = "Authentifizierung fehlgeschlagen"
+            lblInfo.Text = failreDesc & " - " & authResp & vbNewLine & "Vorgang abgebrochen" & vbNewLine & " Bitte wiederholen!"
+            Dim resultAuthentifizierung As MsgBoxResult = MsgBox("Fehler beim Authentifizieren" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+
+            If resultAuthentifizierung = vbYes Then
+                atezData.status = "Draft"
+                atezData.fehlerbeschreibung = failreDesc
+                Return atezData.SAVE()
+            Else
+                atezData.status = "Failure"
+                atezData.fehlerbeschreibung = failreDesc
+                Return atezData.SAVE()
+            End If
+
+            Return False
+        End If
+
+        atezData.sessionId = atez.sessionID
+
+
+        If Not atez.setJsonNCTS(atezData) Then
+            MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
+            atezData.status = "Failure"
+            atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten"
+            Return atezData.SAVE
+        End If
+
+        If checkAttachment() Then
+            If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
+                MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
+                atezData.status = "Failure"
+                atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
+                Return atezData.SAVE
+            End If
+        End If
+
+
+        Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc, "/api/integrations/verag", "POST")
+
+        If failreDesc <> "" Then
+            If atezData.status = "Draft" Then
+                MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
+                atezData.fehlerbeschreibung = failreDesc
+                Return atezData.SAVE()
+
+            End If
+            Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+            If result = vbYes Then
+                atezData.status = "Draft"
+                atezData.fehlerbeschreibung = failreDesc
+                Return atezData.SAVE()
+            Else
+                atezData.status = "Failure"
+                atezData.fehlerbeschreibung = failreDesc
+                Return atezData.SAVE()
+            End If
+
+            lblInfo.Text = "Fehler in der API "
+
+        Else
+
+            If azetId = "-1" Then
+                atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
+            Else
+                atezData.fehlerbeschreibung = ""
+            End If
+            atezData.status = "Sent"
+            atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
+            Return atezData.SAVE()
+
+        End If
+
+    End Function
+
+    Function getBezugsnr(ByRef BezugsNr)
+        Dim BezugsNrTmp = ""
+        BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
+        BezugsNr = BezugsNrTmp
+        zusatz = "A"
+
+        If dgv IsNot Nothing AndAlso dgv.Rows.Count > 0 Then
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+            For Each r As DataGridViewRow In dgv.Rows
+                If r.Cells("BezugsNr").Value = BezugsNr Then
+
+                    If zusatz.Length = 1 Then
+                        zusatz = Chr(Asc(zusatz.ToString) + 1)
+                    Else
+                        zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+                    End If
+
+                    If zusatz = "Z" Then zusatz = "AA"
+                End If
+                BezugsNr = BezugsNrTmp & "/" & zusatz
+            Next
+
+        End If
+
+        While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+
+            If zusatz.Length = 1 Then
+                zusatz = Chr(Asc(zusatz.ToString) + 1)
+            Else
+                zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
+            End If
+
+            If zusatz = "Z" Then zusatz = "AA"
+        End While
+
+        lblBezugsnummer.Text = BezugsNr
+        Return BezugsNr
+    End Function
+
+
+    Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        Select Case FIRMA_DY
+            Case "VERAG" : txtDyMandant.Text = "VERG"
+                txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+
+                Select Case FilialenNr
+                    Case "5103" : txtDyNiederlassung.Text = "WAI"
+
+                End Select
+
+
+            Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
+            Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
+            Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
+            Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
+        End Select
+
+        initSeachboxes()
+        lblAnh.Visible = True
+
+
+
+        cboProzedur.Items.Clear()
+        cboProzedur.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "T1"))
+        cboProzedur.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2", "T2"))
+        cboProzedur.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TIR", "TIR"))
+
+        Select Case FIRMA_DY
+            Case "ATILLA" : cboProzedur.changeItem("T2")
+            Case Else : cboProzedur.changeItem("T1")
+        End Select
+
+        If openExisting Then
+
+            If id > 0 Then
+                atez_data = New cATEZ_NCTS_DATA(id)
+                initAttachment()
+                If atez_data.atezId <> "" Then
+                    lblInfo.Text = "Atez-ID " & atez_data.atezId
+                Else
+                    lblInfo.Text = "Status: " & IIf(atez_data.fehlerbeschreibung <> "", atez_data.status & "- " & atez_data.fehlerbeschreibung, atez_data.status)
+                End If
+
+
+                lblBezugsnummer.Text = atez_data.VERAG_LRN
+
+                cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "')  and dySr_visible=1", False, "FMZOLL", True)
+                cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
+                cboProzedur.changeItem(atez_data.DAKOSY_Procedure)
+
+                txtLKWId.Text = atez_data.LicensePlateContainerNo
+
+                sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice)
+                sbAbgangZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice)
+
+                cbxTemperatur.Checked = IIf(atez_data.CoolingTemperature <> "", True, False)
+                txtTransporttemp.Text = atez_data.CoolingTemperature
+
+                txtDat.Text = IIf(atez_data.DatDeterminationLimit IsNot DBNull.Value, atez_data.DatDeterminationLimit, "")
+
+                usrCntl_Carrier.kdFirma.Text = atez_data.Carrier_Name
+                usrCntl_Carrier.txtStrasse.Text = atez_data.Carrier_Adress_Street
+                usrCntl_Carrier.txtPlz.Text = atez_data.Carrier_Adress_Postcode
+                usrCntl_Carrier.txtOrt.Text = atez_data.Carrier_Adress_City
+                usrCntl_Carrier.sbLand._value = atez_data.Carrier_Adress_Country
+                usrCntl_Carrier.txtEORI.Text = atez_data.Carrier_EORI
+
+
+                setDurchgangszolstellen()
+                setRoute()
+
+                If atez_data.status = "Draft" Then
+                    Button1.Text = "An ATEZ senden -->"
+                    pnlHead.Enabled = True
+                    Button1.Enabled = True
+                    'initAttachment()
+
+                Else
+                    Button1.Text = "JSON"
+                    pnlHead.Enabled = False
+                    dgvAnhaenge.ReadOnly = True
+                    Button1.Enabled = True
+
+
+                End If
+
+
+            Else
+                Button1.Enabled = False
+            End If
+
+        Else
+            atez_data = New cATEZ_NCTS_DATA()
+            initAttachment()
+            Button1.Text = "An ATEZ senden -->"
+            pnlHead.Enabled = True
+
+            cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "')  and dySr_visible=1", False, "FMZOLL", True)
+            cboStammreferenz.changeItem("")
+
+            getBezugsnr(BezugsNr)
+            txtLKWId.Text = AVISO.LKW_Nr
+
+            sbBestimmungsZollstelle.SET_VALUE(SENDUNG.NCTS_Bestimmungszollstelle)
+            cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False)
+            txtTransporttemp.Text = AVISO.TransportTemperatur
+
+            If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
+                usrCntl_Carrier.kdFirma.initKdBox(Me)
+                usrCntl_Carrier.kdFirma.KdNr = AVISO.Frächter_KdNr
+            End If
+
+            If AVISO.Grenzstelle.Replace("???", "") = "" Then
+                sbAbgangZollstelle.SET_VALUE(AVISO.Zollstelle)
+            Else
+
+                Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
+                If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
+                    If GRZ.grz_ZollamtDST IsNot Nothing Then
+                        sbAbgangZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
+                    End If
+                End If
+            End If
+
+            sbDurchgangszollstelle1.SET_VALUE(If(AVISO.Durchgangszollstelle1, ""))
+            sbDurchgangszollstelle2.SET_VALUE(If(AVISO.Durchgangszollstelle2, ""))
+            sbDurchgangszollstelle3.SET_VALUE(If(AVISO.Durchgangszollstelle3, ""))
+            sbDurchgangszollstelle4.SET_VALUE(If(AVISO.Durchgangszollstelle4, ""))
+            sbDurchgangszollstelle5.SET_VALUE(If(AVISO.Durchgangszollstelle5, ""))
+            sbDurchgangszollstelle6.SET_VALUE(If(AVISO.Durchgangszollstelle6, ""))
+
+        End If
+        'initAttachment()
+    End Sub
+
+    Sub initAttachment()
+        Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
+
+                                                case WHEN [anh_size] > 0 Then ROUND([anh_size] / 1000000,2) End as anh_size,
+
+                                                CASE WHEN  [anh_Art] = 'ATR-EUR1' then 'EUR'
+                                                when [anh_Art] = 'Rechnung' then 'INVOICE'
+                                                when [anh_Art] = 'eFatura' then 'INVOICE'
+                                                when [anh_Art] = 'CMR' then 'CMR'
+                                                when [anh_Art] = 'Ausfuhr' then 'OTHER'
+                                                when [anh_Art] = 'Vorpapier' then 'OTHER'
+                                                when [anh_Art] = 'Packliste' then 'PACK'
+                                                when [anh_Art] = 'Auftrag' then 'OTHER'
+                                                when [anh_Art] = 'Auftrag' then 'OTHER'
+                                                when [anh_Art] = 'Dispoliste' then 'OTHER'
+                                                when [anh_Art] = 'Vorkasse' then 'OTHER'
+                                                when [anh_Art] = 'Überweisungsbeleg' then 'OTHER'
+                                                when [anh_Art] = 'Vollmacht' then 'OTHER'
+                                                when [anh_Art] = 'ATB' then 'OTHER'
+                                                when [anh_Art] = 'ATA' then 'CarnetATA'
+                                                when [anh_Art] = 'Sonstiges' then 'OTHER'
+                                                when [anh_Art] ='' then 'OTHER' End
+                                                [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
+                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ = 'PDF'
+                                           ORDER BY  anh_SendungsId desc,
+										  case	  
+                                                when [anh_Art] = 'ATR-EUR1' then 0
+                                                when [anh_Art] = 'Rechnung' then 1
+                                                when [anh_Art] = 'eFatura' then 1.1
+                                                when [anh_Art] = 'CMR' then 2
+                                                when [anh_Art] = 'Ausfuhr' then 3
+                                                when [anh_Art] = 'Vorpapier' then 4
+                                                when [anh_Art] = 'Packliste' then 5
+                                                when [anh_Art] = 'Auftrag' then 6
+                                                when [anh_Art] = 'Auftrag' then 7
+                                                when [anh_Art] = 'Dispoliste' then 8
+                                                when [anh_Art] = 'Vorkasse' then 9
+                                                when [anh_Art] = 'Überweisungsbeleg' then 10
+                                                when [anh_Art] = 'Vollmacht' then 11
+                                                when [anh_Art] = 'ATB' then 12
+                                                when [anh_Art] = 'ATA' then 13
+                                                when [anh_Art] = 'Sonstiges' then 99
+                                                when [anh_Art] ='' then 15
+
+										END, [anh_Reihenfolge],[anh_id]"
+
+        Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
+
+        Dim col As DataColumn
+        col = dt.Columns.Add("anh_selekt", GetType(Boolean))
+        col.SetOrdinal(0)
+        dgvAnhaenge.Columns.Clear()
+        dgvAnhaenge.DataSource = dt
+        If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
+
+        With dgvAnhaenge
+
+            .Enabled = True
+            .ReadOnly = False
+
+            .RowTemplate.MinimumHeight = 30
+            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
+            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigenconMenuVermerke
+            .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
+
+            .Columns("anh_selekt").Width = 25
+            .Columns("anh_selekt").HeaderText = ""
+            .Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("anh_Datum").MinimumWidth = 50
+            .Columns("anh_Datum").HeaderText = "Datum"
+            .Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Datum").ReadOnly = True
+
+
+            .Columns("anh_Name").MinimumWidth = 150
+            .Columns("anh_Name").HeaderText = "Name"
+            .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("anh_Name").ReadOnly = True
+
+            .Columns("anh_Art").MinimumWidth = 50
+            .Columns("anh_Art").HeaderText = "Art"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Art").ReadOnly = True
+
+            .Columns("anh_Typ").Width = 50
+            .Columns("anh_Typ").HeaderText = "Typ"
+            .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_Typ").ReadOnly = True
+
+            .Columns("anh_size").Width = 50
+            .Columns("anh_size").HeaderText = "Größe in MB"
+            .Columns("anh_size").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("anh_size").ReadOnly = True
+
+        End With
+
+        For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+
+            If Not IsDBNull(doc.Cells("anh_size").Value) AndAlso doc.Cells("anh_size").Value > 0 Then
+                Dim size = (doc.Cells("anh_size").Value)
+                If size < 1 Then
+                    doc.DefaultCellStyle.BackColor = Color.LightGreen
+                ElseIf size > 1 AndAlso size < 5 Then
+                    doc.DefaultCellStyle.BackColor = Color.LightYellow
+                Else
+                    doc.DefaultCellStyle.BackColor = Color.IndianRed
+                End If
+            End If
+
+        Next
+
+        If atez_data IsNot Nothing AndAlso atez_data.selectedDocuments <> "" Then
+
+            For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+                If atez_data.selectedDocuments.Contains(doc.Cells("anh_docId").Value) Then doc.Cells("anh_selekt").Value = True
+
+            Next
+        End If
+
+
+    End Sub
+
+
+    Sub initSeachboxes()
+
+        sbAbgangZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbBestimmungsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+
+        sbDurchgangszollstelle1.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle2.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle3.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle4.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle5.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle6.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle7.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle8.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+        sbDurchgangszollstelle9.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
+
+
+        sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute2.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute3.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute4.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute5.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute6.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute7.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+        sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
+    End Sub
+
+    Private Sub lklRoutenauswahl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklRoutenauswahl.LinkClicked
+        Dim frmRoutenauswahl As New frmRoutenauswahl
+        If frmRoutenauswahl.ShowDialog(Me) = DialogResult.OK Then
+            If frmRoutenauswahl.ROUTE.Count > 0 Then sbRoute1.SET_VALUE(frmRoutenauswahl.ROUTE(0)) Else sbRoute1.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 1 Then sbRoute2.SET_VALUE(frmRoutenauswahl.ROUTE(1)) Else sbRoute2.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 2 Then sbRoute3.SET_VALUE(frmRoutenauswahl.ROUTE(2)) Else sbRoute3.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 3 Then sbRoute4.SET_VALUE(frmRoutenauswahl.ROUTE(3)) Else sbRoute4.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 4 Then sbRoute5.SET_VALUE(frmRoutenauswahl.ROUTE(4)) Else sbRoute5.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 5 Then sbRoute6.SET_VALUE(frmRoutenauswahl.ROUTE(5)) Else sbRoute6.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 6 Then sbRoute7.SET_VALUE(frmRoutenauswahl.ROUTE(6)) Else sbRoute7.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 7 Then sbRoute8.SET_VALUE(frmRoutenauswahl.ROUTE(7)) Else sbRoute8.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 8 Then sbRoute9.SET_VALUE(frmRoutenauswahl.ROUTE(8)) Else sbRoute9.SET_VALUE("")
+
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 0 Then sbDurchgangszollstelle1.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(0)) Else sbDurchgangszollstelle1.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 1 Then sbDurchgangszollstelle2.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(1)) Else sbDurchgangszollstelle2.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 2 Then sbDurchgangszollstelle3.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(2)) Else sbDurchgangszollstelle3.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 3 Then sbDurchgangszollstelle4.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(3)) Else sbDurchgangszollstelle4.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 4 Then sbDurchgangszollstelle5.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(4)) Else sbDurchgangszollstelle5.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 5 Then sbDurchgangszollstelle6.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(5)) Else sbDurchgangszollstelle6.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 6 Then sbDurchgangszollstelle7.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(6)) Else sbDurchgangszollstelle7.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 7 Then sbDurchgangszollstelle8.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(7)) Else sbDurchgangszollstelle8.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 8 Then sbDurchgangszollstelle9.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(8)) Else sbDurchgangszollstelle9.SET_VALUE("")
+
+
+        End If
+    End Sub
+
+    Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpDat.ValueChanged
+        txtDat._value = CDate(sender.value).ToShortDateString
+    End Sub
+
+
+    Public Function checkAttachment() As Boolean
+
+        Dim selectedDocuments As Boolean = False
+
+        For Each Row In dgvAnhaenge.Rows
+
+            selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value)
+            If selectedDocuments Then Exit For
+        Next
+
+
+        'If Not selectedDocuments Then
+        '    lblInfo.Text = "kein Anhang selektiert"
+        '    Cursor = Cursors.Default
+        '    Return selectedDocuments
+        'End If
+
+        Return selectedDocuments
+
+    End Function
+
+    Public Function checkMandatoryField() As Boolean
+
+
+        'TODO
+        Return True
+
+
+    End Function
+
+    Public Sub setDurchgangszolstellen()
+
+        Dim TCO_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_TransitCustomsOffice)
+        VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_TransitCustomsOffice.LOAD_LIST_ByNCTS(TCO_LIST, id)
+
+        Dim i As Integer = 0
+        For Each tco In TCO_LIST
+            If i = 0 Then sbDurchgangszollstelle1.SET_VALUE(If(tco.TransitCustomsOffice, ""))
+            If i = 1 Then sbDurchgangszollstelle2.SET_VALUE(If(tco.TransitCustomsOffice, ""))
+            If i = 2 Then sbDurchgangszollstelle3.SET_VALUE(If(tco.TransitCustomsOffice, ""))
+            If i = 3 Then sbDurchgangszollstelle4.SET_VALUE(If(tco.TransitCustomsOffice, ""))
+            If i = 4 Then sbDurchgangszollstelle5.SET_VALUE(If(tco.TransitCustomsOffice, ""))
+            If i = 5 Then sbDurchgangszollstelle6.SET_VALUE(If(tco.TransitCustomsOffice, ""))
+            If i = 6 Then sbDurchgangszollstelle7.SET_VALUE(If(tco.TransitCustomsOffice, ""))
+            If i = 7 Then sbDurchgangszollstelle8.SET_VALUE(If(tco.TransitCustomsOffice, ""))
+            If i = 8 Then sbDurchgangszollstelle9.SET_VALUE(If(tco.TransitCustomsOffice, ""))
+            i = i + 1
+        Next
+
+    End Sub
+
+    Public Sub setRoute()
+
+        Dim Route_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen)
+        VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen.LOAD_LIST_ByNCTS(Route_LIST, id)
+
+        Dim i = 0
+        For Each route In Route_LIST
+            If i = 0 Then sbRoute1.SET_VALUE(route.Route_Country)
+            If i = 1 Then sbRoute2.SET_VALUE(route.Route_Country)
+            If i = 2 Then sbRoute3.SET_VALUE(route.Route_Country)
+            If i = 3 Then sbRoute4.SET_VALUE(route.Route_Country)
+            If i = 4 Then sbRoute5.SET_VALUE(route.Route_Country)
+            If i = 5 Then sbRoute6.SET_VALUE(route.Route_Country)
+            If i = 6 Then sbRoute7.SET_VALUE(route.Route_Country)
+            If i = 7 Then sbRoute8.SET_VALUE(route.Route_Country)
+            If i = 8 Then sbRoute9.SET_VALUE(route.Route_Country)
+            i = i + 1
+        Next
+
+
+    End Sub
+
+    Public Sub saveDurchgangszollstelle(atezData As cATEZ_NCTS_DATA)
+
+        Dim atezTransitOffice As New cATEZ_NCTS_TransitCustomsOffice()
+        atezTransitOffice.delete(atezData.Id)
+
+        If sbDurchgangszollstelle1._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle1._value)
+        If sbDurchgangszollstelle2._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle2._value)
+        If sbDurchgangszollstelle3._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle3._value)
+        If sbDurchgangszollstelle4._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle4._value)
+        If sbDurchgangszollstelle5._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle5._value)
+        If sbDurchgangszollstelle6._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle6._value)
+        If sbDurchgangszollstelle7._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle7._value)
+        If sbDurchgangszollstelle8._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle8._value)
+        If sbDurchgangszollstelle9._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle9._value)
+
+    End Sub
+
+    Public Sub saveRoute(atezData As cATEZ_NCTS_DATA)
+
+        Dim atezRouten As New cATEZ_NCTS_Routen()
+        atezRouten.delete(atezData.Id)
+
+
+        If sbRoute1._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute1._value)
+        If sbRoute2._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute2._value)
+        If sbRoute3._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute3._value)
+        If sbRoute4._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute4._value)
+        If sbRoute5._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute5._value)
+        If sbRoute6._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute6._value)
+        If sbRoute7._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute7._value)
+        If sbRoute8._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute8._value)
+        If sbRoute9._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute9._value)
+    End Sub
+
+    Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick
+        Try
+
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhaenge.SelectedRows(0).Cells("anh_docId").Value)
+                If Not IO.File.Exists(docPath) Then
+                    MsgBox("Die Datei existiert nicht!")
+                Else
+                    If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler  (bereits von Benutzer soUndSo geöffnet)
+                        Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
+                        System.IO.File.Copy(docPath, docPathTMP)
+                        Process.Start(docPathTMP)
+                    Else
+                        Process.Start(docPath)
+                    End If
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+    Private Sub dgvAnhaenge_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick
+
+        Dim countAnh As Double = 0
+        If dgvAnhaenge.RowCount > 0 Then
+
+            If dgvAnhaenge.Columns(e.ColumnIndex).Name = "anh_selekt" Then
+
+                If Not IsDBNull(dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value) AndAlso dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value = True Then
+                    countAnh += IIf(dgvAnhaenge.CurrentRow.Cells("anh_size").Value IsNot DBNull.Value, dgvAnhaenge.CurrentRow.Cells("anh_size").Value, 0)
+                End If
+
+                For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                    If Row.Cells("anh_selekt").Value IsNot DBNull.Value AndAlso Row.Cells("anh_selekt").Value = True AndAlso Row.Cells("anh_size").Value IsNot DBNull.Value Then
+                        countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                    End If
+                Next
+
+                lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+
+            End If
+
+        End If
+
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If dgvAnhaenge.RowCount > 0 Then
+            Dim countAnh As Double = 0
+            For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                If allSelected Then
+                    Row.Cells("anh_selekt").Value = True
+                    countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                Else
+                    Row.Cells("anh_selekt").Value = False
+                    countAnh = 0
+                End If
+            Next
+            allSelected = Not allSelected
+            lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+        End If
+    End Sub
+End Class

Aviso/Anhänge/frmAddSendnung.Designer.vb

@@ -47,6 +47,8 @@ Partial Class frmAddSendnung
         Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.lblWW = New System.Windows.Forms.Label()
         Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -59,9 +61,9 @@ Partial Class frmAddSendnung
         Me.cboAbfertigungsart.BackColor = System.Drawing.Color.White
         Me.cboAbfertigungsart.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cboAbfertigungsart.FormattingEnabled = True
-        Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
+        Me.cboAbfertigungsart.Location = New System.Drawing.Point(102, 29)
         Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
-        Me.cboAbfertigungsart.Size = New System.Drawing.Size(425, 24)
+        Me.cboAbfertigungsart.Size = New System.Drawing.Size(335, 24)
         Me.cboAbfertigungsart.TabIndex = 1
         '
         'Label1
@@ -69,7 +71,7 @@ Partial Class frmAddSendnung
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label1.ForeColor = System.Drawing.Color.Black
-        Me.Label1.Location = New System.Drawing.Point(10, 9)
+        Me.Label1.Location = New System.Drawing.Point(99, 9)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(109, 17)
         Me.Label1.TabIndex = 0
@@ -86,6 +88,7 @@ Partial Class frmAddSendnung
         Me.txtEmpfaenger._displayWoelflKd = False
         Me.txtEmpfaenger._hideIfListEmpty = True
         Me.txtEmpfaenger._loadKdData = True
+        Me.txtEmpfaenger._searchName1 = True
         Me.txtEmpfaenger._UseFIRMA = ""
         Me.txtEmpfaenger._ValueKdAndName = True
         Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -109,6 +112,7 @@ Partial Class frmAddSendnung
         Me.txtGewicht._DateTimeOnly = False
         Me.txtGewicht._numbersOnly = True
         Me.txtGewicht._numbersOnlyKommastellen = ""
+        Me.txtGewicht._numbersOnlyTrennzeichen = True
         Me.txtGewicht._Prozent = False
         Me.txtGewicht._ShortDateNew = False
         Me.txtGewicht._ShortDateOnly = False
@@ -150,6 +154,7 @@ Partial Class frmAddSendnung
         Me.txtColli._DateTimeOnly = False
         Me.txtColli._numbersOnly = True
         Me.txtColli._numbersOnlyKommastellen = ""
+        Me.txtColli._numbersOnlyTrennzeichen = True
         Me.txtColli._Prozent = False
         Me.txtColli._ShortDateNew = False
         Me.txtColli._ShortDateOnly = False
@@ -230,6 +235,7 @@ Partial Class frmAddSendnung
         Me.txtAbsender._displayWoelflKd = False
         Me.txtAbsender._hideIfListEmpty = True
         Me.txtAbsender._loadKdData = True
+        Me.txtAbsender._searchName1 = True
         Me.txtAbsender._UseFIRMA = ""
         Me.txtAbsender._ValueKdAndName = True
         Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
@@ -360,6 +366,7 @@ Partial Class frmAddSendnung
         Me.txtWarenwert._DateTimeOnly = False
         Me.txtWarenwert._numbersOnly = True
         Me.txtWarenwert._numbersOnlyKommastellen = ""
+        Me.txtWarenwert._numbersOnlyTrennzeichen = True
         Me.txtWarenwert._Prozent = False
         Me.txtWarenwert._ShortDateNew = False
         Me.txtWarenwert._ShortDateOnly = False
@@ -378,12 +385,38 @@ Partial Class frmAddSendnung
         Me.txtWarenwert.TabIndex = 15
         Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.ForeColor = System.Drawing.Color.Black
+        Me.Label5.Location = New System.Drawing.Point(9, 9)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(74, 17)
+        Me.Label5.TabIndex = 88
+        Me.Label5.Text = "Abf.-Land:"
+        '
+        'cboAbfertigungsLand
+        '
+        Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing
+        Me.cboAbfertigungsLand._allowFreiText = False
+        Me.cboAbfertigungsLand._value = ""
+        Me.cboAbfertigungsLand.BackColor = System.Drawing.Color.White
+        Me.cboAbfertigungsLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboAbfertigungsLand.FormattingEnabled = True
+        Me.cboAbfertigungsLand.Location = New System.Drawing.Point(15, 29)
+        Me.cboAbfertigungsLand.Name = "cboAbfertigungsLand"
+        Me.cboAbfertigungsLand.Size = New System.Drawing.Size(68, 24)
+        Me.cboAbfertigungsLand.TabIndex = 89
+        '
         'frmAddSendnung
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(449, 441)
+        Me.Controls.Add(Me.cboAbfertigungsLand)
+        Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.txtWarenwertWaehrung)
         Me.Controls.Add(Me.lblWW)
         Me.Controls.Add(Me.txtWarenwert)
@@ -440,4 +473,6 @@ Partial Class frmAddSendnung
     Friend WithEvents txtWarenwertWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
     Friend WithEvents lblWW As Label
     Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents cboAbfertigungsLand As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class

Aviso/Anhänge/frmAddSendnung.vb

@@ -3,9 +3,12 @@
     Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim AvisoId As Integer
+    Dim filialNr As Integer = -1
     Dim AVISOFUNC As New AvisoStatusFunctions
     Public SendungsId As Integer = -1
-    Sub New(AvisoId)
+    Public frmName As String = "Sendung hinzufügen"
+
+    Sub New(AvisoId As Integer)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -14,7 +17,7 @@
 
     End Sub
 
-    Sub New(AvisoId, SENDUNG)
+    Sub New(AvisoId As Integer, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -23,7 +26,36 @@
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
     End Sub
+
+
+
+    Sub New(AvisoId As Integer, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, frmName As String)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AvisoId = AvisoId
+        Me.Sendung = SENDUNG
+        Me.frmName = frmName
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(AvisoId As Integer, FilialNr As Integer)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.AvisoId = AvisoId
+        Me.filialNr = FilialNr
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
     Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+
+        'Me.Text = frmName
+
+        cboAbfertigungsLand.fillWithSQL("SELECT [AbfertigungsLand],AbfertigungsLand FROM [AbfertigungsLaender] WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR (Firma is null and cluster is null)", False, "FMZOLL", True)
+
         cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
         txtEmpfaenger.initKdBox(Me)
         txtEmpfaenger.usrcntlWIDTH = 360
@@ -80,7 +112,7 @@
             If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("Gewicht: Falsches Format") : Exit Sub
 
             If Sendung Is Nothing Then
-                Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
+                Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"), filialNr,,, 0)
             End If
 
             Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
@@ -195,4 +227,34 @@
     Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.Leave, txtColli.Leave
         sender.Text = sender.Text.Replace(" ", "")
     End Sub
+
+    Private Sub cboAbfertigungsLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsLand.SelectedIndexChanged
+
+        initAbfertigungsart()
+
+    End Sub
+
+    Sub initAbfertigungsart(Optional fillwithAbfNr As Boolean = False, Optional AbfNr As Object = Nothing)
+        Dim abfTmp As String = cboAbfertigungsart._value
+
+        Dim filialNrwhere = filialNr
+        If Sendung Is Nothing AndAlso AvisoId > 0 AndAlso filialNr < 1 Then
+            Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
+            filialNrwhere = IIf(filialNr > 0, filialNr, Sendung.FilialenNr)
+        End If
+
+
+
+        cboAbfertigungsart.fillWithSQL("
+            SELECT AA.Abfertigungsart,AA.[Abfertigungsbezeichnung] FROM [Abfertigungsarten]as  AA 
+            INNER JOIN AbfertigungsLaenderAbfertigungsarten as ALA ON AA.Abfertigungsart=ALA.Abfertigungsart 
+            INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=AA.Abfertigungsart    
+            WHERE ALA.[AbfertigungsLand]='" & cboAbfertigungsLand._value & "' 
+            AND  Filialennr='" & filialNrwhere & "'
+            GROUP BY AA.Abfertigungsart,AA.[Abfertigungsbezeichnung]", True, "FMZOLL", True)
+        If abfTmp <> "" Then
+            cboAbfertigungsart.changeItem(abfTmp)
+        End If
+    End Sub
+
 End Class

Aviso/Anhänge/frmSendungAnhangImport.Designer.vb

@@ -26,26 +26,19 @@ Partial Class frmSendungAnhangImport
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport))
         Me.lbl = New System.Windows.Forms.Label()
         Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel()
-        Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
-        Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
         Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
         Me.lblSendungen = New System.Windows.Forms.Label()
         Me.lblImport = New System.Windows.Forms.Label()
         Me.pnlAnfuegen = New System.Windows.Forms.Panel()
         Me.cbxAlternativePDFAnsicht = New System.Windows.Forms.CheckBox()
         Me.Button1 = New System.Windows.Forms.Button()
-        Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblBezeichnung = New System.Windows.Forms.Label()
         Me.btnSeitenLoeschen = New System.Windows.Forms.Button()
         Me.btnAnfuegenAll = New System.Windows.Forms.Button()
-        Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblDatei = New System.Windows.Forms.Label()
-        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblSendung = New System.Windows.Forms.Label()
         Me.lblArt = New System.Windows.Forms.Label()
-        Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.btnAnfuegen = New System.Windows.Forms.Button()
-        Me.txtSeiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblSeiten = New System.Windows.Forms.Label()
         Me.cbxDelPDF = New System.Windows.Forms.CheckBox()
         Me.btnAdd = New System.Windows.Forms.Button()
@@ -62,7 +55,6 @@ Partial Class frmSendungAnhangImport
         Me.btnSndDel = New System.Windows.Forms.Button()
         Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
         Me.btnAddSnd = New System.Windows.Forms.Button()
-        Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblSendungsdetails = New System.Windows.Forms.Label()
         Me.lblWarenbeichnung = New System.Windows.Forms.Label()
         Me.btnSndEdit = New System.Windows.Forms.Button()
@@ -71,10 +63,21 @@ Partial Class frmSendungAnhangImport
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Button17 = New System.Windows.Forms.Button()
         Me.lblRgPreis = New System.Windows.Forms.Label()
+        Me.pnlSendung = New System.Windows.Forms.Panel()
+        Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtSeiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
+        Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
+        Me.Button2 = New System.Windows.Forms.Button()
         Me.flpnlAviso.SuspendLayout()
         Me.pnlAnfuegen.SuspendLayout()
         Me.cntxt.SuspendLayout()
         Me.pnl.SuspendLayout()
+        Me.pnlSendung.SuspendLayout()
         Me.SuspendLayout()
         '
         'lbl
@@ -96,41 +99,11 @@ Partial Class frmSendungAnhangImport
         Me.flpnlAviso.Controls.Add(Me.UsrCntlSendungAnhangElement1)
         Me.flpnlAviso.Controls.Add(Me.UsrCntlSendungAnhangElement2)
         Me.flpnlAviso.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
-        Me.flpnlAviso.Location = New System.Drawing.Point(15, 30)
+        Me.flpnlAviso.Location = New System.Drawing.Point(3, 30)
         Me.flpnlAviso.Name = "flpnlAviso"
-        Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
+        Me.flpnlAviso.Size = New System.Drawing.Size(253, 825)
         Me.flpnlAviso.TabIndex = 7
         '
-        'UsrCntlSendungAnhangElement1
-        '
-        Me.UsrCntlSendungAnhangElement1.ACTIVE = False
-        Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
-        Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
-        Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
-        Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
-        Me.UsrCntlSendungAnhangElement1.TabIndex = 0
-        '
-        'UsrCntlSendungAnhangElement2
-        '
-        Me.UsrCntlSendungAnhangElement2.ACTIVE = False
-        Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
-        Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
-        Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
-        Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
-        Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
-        Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
-        Me.UsrCntlSendungAnhangElement2.TabIndex = 1
-        '
         'flpnlSendungen
         '
         Me.flpnlSendungen.AllowDrop = True
@@ -139,16 +112,16 @@ Partial Class frmSendungAnhangImport
         Me.flpnlSendungen.AutoScroll = True
         Me.flpnlSendungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.flpnlSendungen.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
-        Me.flpnlSendungen.Location = New System.Drawing.Point(1073, 150)
+        Me.flpnlSendungen.Location = New System.Drawing.Point(8, 149)
         Me.flpnlSendungen.Name = "flpnlSendungen"
-        Me.flpnlSendungen.Size = New System.Drawing.Size(230, 643)
+        Me.flpnlSendungen.Size = New System.Drawing.Size(306, 643)
         Me.flpnlSendungen.TabIndex = 10
         '
         'lblSendungen
         '
         Me.lblSendungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblSendungen.AutoSize = True
-        Me.lblSendungen.Location = New System.Drawing.Point(1070, 14)
+        Me.lblSendungen.Location = New System.Drawing.Point(5, 12)
         Me.lblSendungen.Name = "lblSendungen"
         Me.lblSendungen.Size = New System.Drawing.Size(65, 13)
         Me.lblSendungen.TabIndex = 6
@@ -185,9 +158,9 @@ Partial Class frmSendungAnhangImport
         Me.pnlAnfuegen.Controls.Add(Me.txtSeiten)
         Me.pnlAnfuegen.Controls.Add(Me.lblSeiten)
         Me.pnlAnfuegen.Controls.Add(Me.cbxDelPDF)
-        Me.pnlAnfuegen.Location = New System.Drawing.Point(221, 30)
+        Me.pnlAnfuegen.Location = New System.Drawing.Point(262, 30)
         Me.pnlAnfuegen.Name = "pnlAnfuegen"
-        Me.pnlAnfuegen.Size = New System.Drawing.Size(846, 162)
+        Me.pnlAnfuegen.Size = New System.Drawing.Size(852, 162)
         Me.pnlAnfuegen.TabIndex = 8
         '
         'cbxAlternativePDFAnsicht
@@ -212,31 +185,6 @@ Partial Class frmSendungAnhangImport
         Me.Button1.UseVisualStyleBackColor = False
         Me.Button1.Visible = False
         '
-        'txtBezeichnung
-        '
-        Me.txtBezeichnung._DateTimeOnly = False
-        Me.txtBezeichnung._numbersOnly = False
-        Me.txtBezeichnung._numbersOnlyKommastellen = ""
-        Me.txtBezeichnung._numbersOnlyTrennzeichen = True
-        Me.txtBezeichnung._Prozent = False
-        Me.txtBezeichnung._ShortDateNew = False
-        Me.txtBezeichnung._ShortDateOnly = False
-        Me.txtBezeichnung._TimeOnly = False
-        Me.txtBezeichnung._TimeOnly_Seconds = False
-        Me.txtBezeichnung._value = ""
-        Me.txtBezeichnung._Waehrung = False
-        Me.txtBezeichnung._WaehrungZeichen = True
-        Me.txtBezeichnung.BackColor = System.Drawing.Color.White
-        Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black
-        Me.txtBezeichnung.Location = New System.Drawing.Point(68, 105)
-        Me.txtBezeichnung.MaxLineLength = -1
-        Me.txtBezeichnung.MaxLines_Warning = ""
-        Me.txtBezeichnung.MaxLines_Warning_Label = Nothing
-        Me.txtBezeichnung.Name = "txtBezeichnung"
-        Me.txtBezeichnung.Size = New System.Drawing.Size(453, 26)
-        Me.txtBezeichnung.TabIndex = 7
-        '
         'lblBezeichnung
         '
         Me.lblBezeichnung.AutoSize = True
@@ -268,30 +216,6 @@ Partial Class frmSendungAnhangImport
         Me.btnAnfuegenAll.Text = ">>   Ganzes Dokument anfügen   >>"
         Me.btnAnfuegenAll.UseVisualStyleBackColor = False
         '
-        'txtDateiname
-        '
-        Me.txtDateiname._DateTimeOnly = False
-        Me.txtDateiname._numbersOnly = False
-        Me.txtDateiname._numbersOnlyKommastellen = ""
-        Me.txtDateiname._numbersOnlyTrennzeichen = True
-        Me.txtDateiname._Prozent = False
-        Me.txtDateiname._ShortDateNew = False
-        Me.txtDateiname._ShortDateOnly = False
-        Me.txtDateiname._TimeOnly = False
-        Me.txtDateiname._TimeOnly_Seconds = False
-        Me.txtDateiname._value = ""
-        Me.txtDateiname._Waehrung = False
-        Me.txtDateiname._WaehrungZeichen = True
-        Me.txtDateiname.ForeColor = System.Drawing.Color.Black
-        Me.txtDateiname.Location = New System.Drawing.Point(68, 11)
-        Me.txtDateiname.MaxLineLength = -1
-        Me.txtDateiname.MaxLines_Warning = ""
-        Me.txtDateiname.MaxLines_Warning_Label = Nothing
-        Me.txtDateiname.Name = "txtDateiname"
-        Me.txtDateiname.ReadOnly = True
-        Me.txtDateiname.Size = New System.Drawing.Size(732, 20)
-        Me.txtDateiname.TabIndex = 1
-        '
         'lblDatei
         '
         Me.lblDatei.AutoSize = True
@@ -301,30 +225,6 @@ Partial Class frmSendungAnhangImport
         Me.lblDatei.TabIndex = 0
         Me.lblDatei.Text = "Datei:"
         '
-        'MyTextBox2
-        '
-        Me.MyTextBox2._DateTimeOnly = False
-        Me.MyTextBox2._numbersOnly = False
-        Me.MyTextBox2._numbersOnlyKommastellen = ""
-        Me.MyTextBox2._numbersOnlyTrennzeichen = True
-        Me.MyTextBox2._Prozent = False
-        Me.MyTextBox2._ShortDateNew = False
-        Me.MyTextBox2._ShortDateOnly = False
-        Me.MyTextBox2._TimeOnly = False
-        Me.MyTextBox2._TimeOnly_Seconds = False
-        Me.MyTextBox2._value = ""
-        Me.MyTextBox2._Waehrung = False
-        Me.MyTextBox2._WaehrungZeichen = True
-        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox2.Location = New System.Drawing.Point(68, 137)
-        Me.MyTextBox2.MaxLineLength = -1
-        Me.MyTextBox2.MaxLines_Warning = ""
-        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox2.Name = "MyTextBox2"
-        Me.MyTextBox2.ReadOnly = True
-        Me.MyTextBox2.Size = New System.Drawing.Size(453, 20)
-        Me.MyTextBox2.TabIndex = 13
-        '
         'lblSendung
         '
         Me.lblSendung.AutoSize = True
@@ -343,20 +243,6 @@ Partial Class frmSendungAnhangImport
         Me.lblArt.TabIndex = 5
         Me.lblArt.Text = "Art:"
         '
-        'cboArt
-        '
-        Me.cboArt._allowedValuesFreiText = Nothing
-        Me.cboArt._allowFreiText = False
-        Me.cboArt._value = ""
-        Me.cboArt.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboArt.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboArt.FormattingEnabled = True
-        Me.cboArt.Location = New System.Drawing.Point(68, 75)
-        Me.cboArt.Name = "cboArt"
-        Me.cboArt.Size = New System.Drawing.Size(242, 28)
-        Me.cboArt.TabIndex = 6
-        '
         'btnAnfuegen
         '
         Me.btnAnfuegen.BackColor = System.Drawing.Color.Wheat
@@ -368,31 +254,6 @@ Partial Class frmSendungAnhangImport
         Me.btnAnfuegen.Text = ">>   Anfügen   >>"
         Me.btnAnfuegen.UseVisualStyleBackColor = False
         '
-        'txtSeiten
-        '
-        Me.txtSeiten._DateTimeOnly = False
-        Me.txtSeiten._numbersOnly = False
-        Me.txtSeiten._numbersOnlyKommastellen = ""
-        Me.txtSeiten._numbersOnlyTrennzeichen = True
-        Me.txtSeiten._Prozent = False
-        Me.txtSeiten._ShortDateNew = False
-        Me.txtSeiten._ShortDateOnly = False
-        Me.txtSeiten._TimeOnly = False
-        Me.txtSeiten._TimeOnly_Seconds = False
-        Me.txtSeiten._value = ""
-        Me.txtSeiten._Waehrung = False
-        Me.txtSeiten._WaehrungZeichen = True
-        Me.txtSeiten.BackColor = System.Drawing.Color.White
-        Me.txtSeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSeiten.ForeColor = System.Drawing.Color.Black
-        Me.txtSeiten.Location = New System.Drawing.Point(68, 47)
-        Me.txtSeiten.MaxLineLength = -1
-        Me.txtSeiten.MaxLines_Warning = ""
-        Me.txtSeiten.MaxLines_Warning_Label = Nothing
-        Me.txtSeiten.Name = "txtSeiten"
-        Me.txtSeiten.Size = New System.Drawing.Size(242, 26)
-        Me.txtSeiten.TabIndex = 4
-        '
         'lblSeiten
         '
         Me.lblSeiten.AutoSize = True
@@ -468,19 +329,20 @@ Partial Class frmSendungAnhangImport
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.Button2)
         Me.pnl.Controls.Add(Me.Button5)
         Me.pnl.Controls.Add(Me.PdfViewer)
         Me.pnl.Controls.Add(Me.WebBrowser)
-        Me.pnl.Location = New System.Drawing.Point(221, 198)
+        Me.pnl.Location = New System.Drawing.Point(262, 198)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(846, 657)
+        Me.pnl.Size = New System.Drawing.Size(852, 657)
         Me.pnl.TabIndex = 11
         '
         'Button5
         '
         Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button5.Image = Global.AVISO.My.Resources.Resources.refresh
-        Me.Button5.Location = New System.Drawing.Point(793, 1)
+        Me.Button5.Location = New System.Drawing.Point(799, 1)
         Me.Button5.Name = "Button5"
         Me.Button5.Size = New System.Drawing.Size(48, 34)
         Me.Button5.TabIndex = 2
@@ -492,12 +354,13 @@ Partial Class frmSendungAnhangImport
         Me.PdfViewer.FindTextHighLightColor = System.Drawing.Color.FromArgb(CType(CType(200, Byte), Integer), CType(CType(153, Byte), Integer), CType(CType(193, Byte), Integer), CType(CType(218, Byte), Integer))
         Me.PdfViewer.FormFillEnabled = False
         Me.PdfViewer.IgnoreCase = False
+        Me.PdfViewer.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.PdfViewer.IsToolBarVisible = True
         Me.PdfViewer.Location = New System.Drawing.Point(0, 0)
         Me.PdfViewer.MultiPagesThreshold = 60
         Me.PdfViewer.Name = "PdfViewer"
         Me.PdfViewer.OnRenderPageExceptionEvent = Nothing
-        Me.PdfViewer.Size = New System.Drawing.Size(844, 655)
+        Me.PdfViewer.Size = New System.Drawing.Size(850, 655)
         Me.PdfViewer.TabIndex = 0
         Me.PdfViewer.Threshold = 60
         Me.PdfViewer.ViewerBackgroundColor = System.Drawing.Color.FromArgb(CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer))
@@ -508,7 +371,7 @@ Partial Class frmSendungAnhangImport
         Me.WebBrowser.Location = New System.Drawing.Point(0, 0)
         Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
         Me.WebBrowser.Name = "WebBrowser"
-        Me.WebBrowser.Size = New System.Drawing.Size(844, 655)
+        Me.WebBrowser.Size = New System.Drawing.Size(850, 655)
         Me.WebBrowser.TabIndex = 1
         '
         'Button3
@@ -516,9 +379,9 @@ Partial Class frmSendungAnhangImport
         Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button3.BackColor = System.Drawing.Color.Wheat
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Location = New System.Drawing.Point(1073, 799)
+        Me.Button3.Location = New System.Drawing.Point(8, 798)
         Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(230, 56)
+        Me.Button3.Size = New System.Drawing.Size(306, 56)
         Me.Button3.TabIndex = 12
         Me.Button3.Text = "<<   zurück   <<"
         Me.Button3.UseVisualStyleBackColor = False
@@ -528,7 +391,7 @@ Partial Class frmSendungAnhangImport
         Me.btnSndDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnSndDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnSndDel.Image = Global.AVISO.My.Resources.Resources.del1
-        Me.btnSndDel.Location = New System.Drawing.Point(1271, 2)
+        Me.btnSndDel.Location = New System.Drawing.Point(282, 0)
         Me.btnSndDel.Name = "btnSndDel"
         Me.btnSndDel.Size = New System.Drawing.Size(32, 25)
         Me.btnSndDel.TabIndex = 2
@@ -539,43 +402,29 @@ Partial Class frmSendungAnhangImport
         Me.btnAddSnd.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnAddSnd.ContextMenuStrip = Me.cntxt
         Me.btnAddSnd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAddSnd.Location = New System.Drawing.Point(1141, 2)
+        Me.btnAddSnd.Location = New System.Drawing.Point(152, 0)
         Me.btnAddSnd.Name = "btnAddSnd"
         Me.btnAddSnd.Size = New System.Drawing.Size(58, 25)
         Me.btnAddSnd.TabIndex = 1
         Me.btnAddSnd.Text = "+ NEU"
         Me.btnAddSnd.UseVisualStyleBackColor = True
         '
-        'cboSendungen
-        '
-        Me.cboSendungen._allowedValuesFreiText = Nothing
-        Me.cboSendungen._allowFreiText = False
-        Me.cboSendungen._value = ""
-        Me.cboSendungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cboSendungen.DropDownWidth = 450
-        Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboSendungen.FormattingEnabled = True
-        Me.cboSendungen.Location = New System.Drawing.Point(1073, 30)
-        Me.cboSendungen.Name = "cboSendungen"
-        Me.cboSendungen.Size = New System.Drawing.Size(230, 28)
-        Me.cboSendungen.TabIndex = 9
-        '
         'lblSendungsdetails
         '
         Me.lblSendungsdetails.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblSendungsdetails.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSendungsdetails.Location = New System.Drawing.Point(1077, 98)
+        Me.lblSendungsdetails.Location = New System.Drawing.Point(12, 96)
         Me.lblSendungsdetails.Name = "lblSendungsdetails"
-        Me.lblSendungsdetails.Size = New System.Drawing.Size(157, 21)
+        Me.lblSendungsdetails.Size = New System.Drawing.Size(233, 21)
         Me.lblSendungsdetails.TabIndex = 13
         Me.lblSendungsdetails.Text = "-"
         '
         'lblWarenbeichnung
         '
         Me.lblWarenbeichnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblWarenbeichnung.Location = New System.Drawing.Point(1077, 116)
+        Me.lblWarenbeichnung.Location = New System.Drawing.Point(12, 114)
         Me.lblWarenbeichnung.Name = "lblWarenbeichnung"
-        Me.lblWarenbeichnung.Size = New System.Drawing.Size(223, 31)
+        Me.lblWarenbeichnung.Size = New System.Drawing.Size(299, 31)
         Me.lblWarenbeichnung.TabIndex = 14
         Me.lblWarenbeichnung.Text = "-"
         '
@@ -585,7 +434,7 @@ Partial Class frmSendungAnhangImport
         Me.btnSndEdit.ContextMenuStrip = Me.cntxt
         Me.btnSndEdit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnSndEdit.Image = Global.AVISO.My.Resources.Resources.stift1
-        Me.btnSndEdit.Location = New System.Drawing.Point(1205, 3)
+        Me.btnSndEdit.Location = New System.Drawing.Point(216, 1)
         Me.btnSndEdit.Name = "btnSndEdit"
         Me.btnSndEdit.Size = New System.Drawing.Size(29, 25)
         Me.btnSndEdit.TabIndex = 15
@@ -595,9 +444,9 @@ Partial Class frmSendungAnhangImport
         '
         Me.lblAbsender.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblAbsender.Location = New System.Drawing.Point(1077, 67)
+        Me.lblAbsender.Location = New System.Drawing.Point(12, 65)
         Me.lblAbsender.Name = "lblAbsender"
-        Me.lblAbsender.Size = New System.Drawing.Size(223, 15)
+        Me.lblAbsender.Size = New System.Drawing.Size(299, 15)
         Me.lblAbsender.TabIndex = 16
         Me.lblAbsender.Text = "-"
         '
@@ -605,9 +454,9 @@ Partial Class frmSendungAnhangImport
         '
         Me.lblEmpfaenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblEmpfaenger.Location = New System.Drawing.Point(1077, 82)
+        Me.lblEmpfaenger.Location = New System.Drawing.Point(12, 80)
         Me.lblEmpfaenger.Name = "lblEmpfaenger"
-        Me.lblEmpfaenger.Size = New System.Drawing.Size(223, 17)
+        Me.lblEmpfaenger.Size = New System.Drawing.Size(299, 17)
         Me.lblEmpfaenger.TabIndex = 17
         Me.lblEmpfaenger.Text = "-"
         '
@@ -615,9 +464,9 @@ Partial Class frmSendungAnhangImport
         '
         Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel1.Location = New System.Drawing.Point(1073, 98)
+        Me.Panel1.Location = New System.Drawing.Point(16, 96)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(230, 1)
+        Me.Panel1.Size = New System.Drawing.Size(294, 1)
         Me.Panel1.TabIndex = 18
         '
         'Button17
@@ -628,7 +477,7 @@ Partial Class frmSendungAnhangImport
         Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button17.Location = New System.Drawing.Point(1240, 2)
+        Me.Button17.Location = New System.Drawing.Point(251, 0)
         Me.Button17.Name = "Button17"
         Me.Button17.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
         Me.Button17.Size = New System.Drawing.Size(25, 26)
@@ -640,41 +489,218 @@ Partial Class frmSendungAnhangImport
         '
         Me.lblRgPreis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblRgPreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblRgPreis.Location = New System.Drawing.Point(1196, 98)
+        Me.lblRgPreis.Location = New System.Drawing.Point(207, 96)
         Me.lblRgPreis.Name = "lblRgPreis"
         Me.lblRgPreis.Size = New System.Drawing.Size(107, 21)
         Me.lblRgPreis.TabIndex = 19
         Me.lblRgPreis.Text = "-"
         Me.lblRgPreis.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
+        'pnlSendung
+        '
+        Me.pnlSendung.Controls.Add(Me.flpnlSendungen)
+        Me.pnlSendung.Controls.Add(Me.lblSendungen)
+        Me.pnlSendung.Controls.Add(Me.Button3)
+        Me.pnlSendung.Controls.Add(Me.Button17)
+        Me.pnlSendung.Controls.Add(Me.lblRgPreis)
+        Me.pnlSendung.Controls.Add(Me.Panel1)
+        Me.pnlSendung.Controls.Add(Me.lblEmpfaenger)
+        Me.pnlSendung.Controls.Add(Me.lblAbsender)
+        Me.pnlSendung.Controls.Add(Me.cboSendungen)
+        Me.pnlSendung.Controls.Add(Me.btnSndEdit)
+        Me.pnlSendung.Controls.Add(Me.btnSndDel)
+        Me.pnlSendung.Controls.Add(Me.lblWarenbeichnung)
+        Me.pnlSendung.Controls.Add(Me.btnAddSnd)
+        Me.pnlSendung.Controls.Add(Me.lblSendungsdetails)
+        Me.pnlSendung.Dock = System.Windows.Forms.DockStyle.Right
+        Me.pnlSendung.Location = New System.Drawing.Point(1112, 0)
+        Me.pnlSendung.Name = "pnlSendung"
+        Me.pnlSendung.Size = New System.Drawing.Size(321, 860)
+        Me.pnlSendung.TabIndex = 0
+        '
+        'txtBezeichnung
+        '
+        Me.txtBezeichnung._DateTimeOnly = False
+        Me.txtBezeichnung._numbersOnly = False
+        Me.txtBezeichnung._numbersOnlyKommastellen = ""
+        Me.txtBezeichnung._numbersOnlyTrennzeichen = True
+        Me.txtBezeichnung._Prozent = False
+        Me.txtBezeichnung._ShortDateNew = False
+        Me.txtBezeichnung._ShortDateOnly = False
+        Me.txtBezeichnung._TimeOnly = False
+        Me.txtBezeichnung._TimeOnly_Seconds = False
+        Me.txtBezeichnung._value = ""
+        Me.txtBezeichnung._Waehrung = False
+        Me.txtBezeichnung._WaehrungZeichen = True
+        Me.txtBezeichnung.BackColor = System.Drawing.Color.White
+        Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black
+        Me.txtBezeichnung.Location = New System.Drawing.Point(68, 105)
+        Me.txtBezeichnung.MaxLineLength = -1
+        Me.txtBezeichnung.MaxLines_Warning = ""
+        Me.txtBezeichnung.MaxLines_Warning_Label = Nothing
+        Me.txtBezeichnung.Name = "txtBezeichnung"
+        Me.txtBezeichnung.Size = New System.Drawing.Size(453, 26)
+        Me.txtBezeichnung.TabIndex = 7
+        '
+        'txtDateiname
+        '
+        Me.txtDateiname._DateTimeOnly = False
+        Me.txtDateiname._numbersOnly = False
+        Me.txtDateiname._numbersOnlyKommastellen = ""
+        Me.txtDateiname._numbersOnlyTrennzeichen = True
+        Me.txtDateiname._Prozent = False
+        Me.txtDateiname._ShortDateNew = False
+        Me.txtDateiname._ShortDateOnly = False
+        Me.txtDateiname._TimeOnly = False
+        Me.txtDateiname._TimeOnly_Seconds = False
+        Me.txtDateiname._value = ""
+        Me.txtDateiname._Waehrung = False
+        Me.txtDateiname._WaehrungZeichen = True
+        Me.txtDateiname.ForeColor = System.Drawing.Color.Black
+        Me.txtDateiname.Location = New System.Drawing.Point(68, 11)
+        Me.txtDateiname.MaxLineLength = -1
+        Me.txtDateiname.MaxLines_Warning = ""
+        Me.txtDateiname.MaxLines_Warning_Label = Nothing
+        Me.txtDateiname.Name = "txtDateiname"
+        Me.txtDateiname.ReadOnly = True
+        Me.txtDateiname.Size = New System.Drawing.Size(732, 20)
+        Me.txtDateiname.TabIndex = 1
+        '
+        'MyTextBox2
+        '
+        Me.MyTextBox2._DateTimeOnly = False
+        Me.MyTextBox2._numbersOnly = False
+        Me.MyTextBox2._numbersOnlyKommastellen = ""
+        Me.MyTextBox2._numbersOnlyTrennzeichen = True
+        Me.MyTextBox2._Prozent = False
+        Me.MyTextBox2._ShortDateNew = False
+        Me.MyTextBox2._ShortDateOnly = False
+        Me.MyTextBox2._TimeOnly = False
+        Me.MyTextBox2._TimeOnly_Seconds = False
+        Me.MyTextBox2._value = ""
+        Me.MyTextBox2._Waehrung = False
+        Me.MyTextBox2._WaehrungZeichen = True
+        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox2.Location = New System.Drawing.Point(68, 137)
+        Me.MyTextBox2.MaxLineLength = -1
+        Me.MyTextBox2.MaxLines_Warning = ""
+        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox2.Name = "MyTextBox2"
+        Me.MyTextBox2.ReadOnly = True
+        Me.MyTextBox2.Size = New System.Drawing.Size(453, 20)
+        Me.MyTextBox2.TabIndex = 13
+        '
+        'cboArt
+        '
+        Me.cboArt._allowedValuesFreiText = Nothing
+        Me.cboArt._allowFreiText = False
+        Me.cboArt._value = ""
+        Me.cboArt.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboArt.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboArt.FormattingEnabled = True
+        Me.cboArt.Location = New System.Drawing.Point(68, 75)
+        Me.cboArt.Name = "cboArt"
+        Me.cboArt.Size = New System.Drawing.Size(242, 28)
+        Me.cboArt.TabIndex = 6
+        '
+        'txtSeiten
+        '
+        Me.txtSeiten._DateTimeOnly = False
+        Me.txtSeiten._numbersOnly = False
+        Me.txtSeiten._numbersOnlyKommastellen = ""
+        Me.txtSeiten._numbersOnlyTrennzeichen = True
+        Me.txtSeiten._Prozent = False
+        Me.txtSeiten._ShortDateNew = False
+        Me.txtSeiten._ShortDateOnly = False
+        Me.txtSeiten._TimeOnly = False
+        Me.txtSeiten._TimeOnly_Seconds = False
+        Me.txtSeiten._value = ""
+        Me.txtSeiten._Waehrung = False
+        Me.txtSeiten._WaehrungZeichen = True
+        Me.txtSeiten.BackColor = System.Drawing.Color.White
+        Me.txtSeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSeiten.ForeColor = System.Drawing.Color.Black
+        Me.txtSeiten.Location = New System.Drawing.Point(68, 47)
+        Me.txtSeiten.MaxLineLength = -1
+        Me.txtSeiten.MaxLines_Warning = ""
+        Me.txtSeiten.MaxLines_Warning_Label = Nothing
+        Me.txtSeiten.Name = "txtSeiten"
+        Me.txtSeiten.Size = New System.Drawing.Size(242, 26)
+        Me.txtSeiten.TabIndex = 4
+        '
+        'cboSendungen
+        '
+        Me.cboSendungen._allowedValuesFreiText = Nothing
+        Me.cboSendungen._allowFreiText = False
+        Me.cboSendungen._value = ""
+        Me.cboSendungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cboSendungen.DropDownWidth = 450
+        Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboSendungen.FormattingEnabled = True
+        Me.cboSendungen.Location = New System.Drawing.Point(8, 28)
+        Me.cboSendungen.Name = "cboSendungen"
+        Me.cboSendungen.Size = New System.Drawing.Size(306, 28)
+        Me.cboSendungen.TabIndex = 9
+        '
+        'UsrCntlSendungAnhangElement1
+        '
+        Me.UsrCntlSendungAnhangElement1.ACTIVE = False
+        Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
+        Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_SIZE = "False"
+        Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
+        Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
+        Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
+        Me.UsrCntlSendungAnhangElement1.TabIndex = 0
+        '
+        'UsrCntlSendungAnhangElement2
+        '
+        Me.UsrCntlSendungAnhangElement2.ACTIVE = False
+        Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
+        Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
+        Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_SIZE = "False"
+        Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
+        Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
+        Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
+        Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
+        Me.UsrCntlSendungAnhangElement2.TabIndex = 1
+        '
+        'Button2
+        '
+        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button2.Location = New System.Drawing.Point(696, 1)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(100, 34)
+        Me.Button2.TabIndex = 3
+        Me.Button2.Text = "Zu ""Seiten"" hinzu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Strg + Leertaste)"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
         'frmSendungAnhangImport
         '
         Me.AllowDrop = True
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1309, 860)
-        Me.Controls.Add(Me.Button17)
-        Me.Controls.Add(Me.flpnlSendungen)
-        Me.Controls.Add(Me.Panel1)
-        Me.Controls.Add(Me.lblAbsender)
-        Me.Controls.Add(Me.btnSndEdit)
-        Me.Controls.Add(Me.lblWarenbeichnung)
-        Me.Controls.Add(Me.lblSendungsdetails)
-        Me.Controls.Add(Me.btnAddSnd)
-        Me.Controls.Add(Me.btnSndDel)
-        Me.Controls.Add(Me.Button3)
-        Me.Controls.Add(Me.cboSendungen)
+        Me.ClientSize = New System.Drawing.Size(1433, 860)
         Me.Controls.Add(Me.btnDel)
         Me.Controls.Add(Me.btnAdd)
         Me.Controls.Add(Me.pnlAnfuegen)
         Me.Controls.Add(Me.lblImport)
-        Me.Controls.Add(Me.lblSendungen)
         Me.Controls.Add(Me.flpnlAviso)
         Me.Controls.Add(Me.lbl)
         Me.Controls.Add(Me.pnl)
-        Me.Controls.Add(Me.lblEmpfaenger)
-        Me.Controls.Add(Me.lblRgPreis)
+        Me.Controls.Add(Me.pnlSendung)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.KeyPreview = True
         Me.Name = "frmSendungAnhangImport"
@@ -685,6 +711,8 @@ Partial Class frmSendungAnhangImport
         Me.pnlAnfuegen.PerformLayout()
         Me.cntxt.ResumeLayout(False)
         Me.pnl.ResumeLayout(False)
+        Me.pnlSendung.ResumeLayout(False)
+        Me.pnlSendung.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -737,4 +765,6 @@ Partial Class frmSendungAnhangImport
     Friend WithEvents Button17 As Button
     Friend WithEvents cbxAlternativePDFAnsicht As CheckBox
     Friend WithEvents lblRgPreis As Label
+    Friend WithEvents pnlSendung As Panel
+    Friend WithEvents Button2 As Button
 End Class

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -1,18 +1,16 @@
 
-'Imports iTextSharp.text.pdf
-'Imports iTextSharp.text
+Imports itextsharp.text
 Imports System.IO
 Imports Spire.Pdf
-'Imports GrapeCity.Documents.Pdf
-
-'Imports Spire.Pdf
-
-
+Imports Spire.Pdf.Conversion.Compression
+Imports Spire.Pdf.Exporting
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmSendungAnhangImport
 
     Public AvisoId As Integer
     Public SendungsId As Integer
+    Public LKWOnly As Boolean = False
     Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
     Dim CURRENT_INDEX As Integer
 
@@ -29,12 +27,13 @@ Public Class frmSendungAnhangImport
 
         'Dim f As New GroupDocs.Viewer
     End Sub
-    Sub New(AvisoId, SendungsId)
+    Sub New(AvisoId, SendungsId, Optional LKWOnly = False)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
         Me.AvisoId = AvisoId
         Me.SendungsId = SendungsId
+        Me.LKWOnly = LKWOnly
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
         'Dim f As New GroupDocs.Viewer
@@ -70,11 +69,75 @@ Public Class frmSendungAnhangImport
     End Function
 
     Sub initElement(USRCNTL As usrCntlSendungAnhangElement)
-        AddHandler USRCNTL.ME_CLICK, Sub(STRG_PRESSED)
+        AddHandler USRCNTL.ME_CLICK, Sub(STRG_PRESSED, SHIFT_PRESSED)
                                          '  If BrowserLoaded Then
-                                 
 
-                                         If Not STRG_PRESSED Then
+
+                                         If SHIFT_PRESSED Then
+                                             'prüfen, ob genau 1 Elemnt markeirt ist, dann kein neues Laden nötig
+                                             If USRCNTL.ACTIVE Then
+                                                 If checkIf1isSelected() Then Exit Sub 'Bereits aktiv, aber nur wenn 1 markiert
+                                             End If
+                                             ' Hier Fehlt Code, der Shift abfängt
+                                             ' --- SHIFT-Bereichsauswahl (nur im gleichen Panel) ---
+                                             ' Anker = das (genau) eine bereits markierte Element suchen
+                                             Dim anchor As usrCntlSendungAnhangElement = Nothing
+
+                                             For Each c As Control In flpnlAviso.Controls
+                                                 Dim u = TryCast(c, usrCntlSendungAnhangElement)
+                                                 If u IsNot Nothing AndAlso u.ACTIVE Then
+                                                     anchor = u
+                                                     Exit For
+                                                 End If
+                                             Next
+                                             If anchor Is Nothing Then
+                                                 For Each c As Control In flpnlSendungen.Controls
+                                                     Dim u = TryCast(c, usrCntlSendungAnhangElement)
+                                                     If u IsNot Nothing AndAlso u.ACTIVE Then
+                                                         anchor = u
+                                                         Exit For
+                                                     End If
+                                                 Next
+                                             End If
+
+                                             If anchor IsNot Nothing Then
+                                                 Dim pAnchor = TryCast(anchor.Parent, FlowLayoutPanel)
+                                                 Dim pClick = TryCast(USRCNTL.Parent, FlowLayoutPanel)
+
+                                                 ' Nur wenn beide im selben FlowLayoutPanel liegen:
+                                                 If pAnchor IsNot Nothing AndAlso pAnchor Is pClick Then
+                                                     Dim i1 As Integer = pAnchor.Controls.IndexOf(anchor)
+                                                     Dim i2 As Integer = pAnchor.Controls.IndexOf(USRCNTL)
+                                                     Dim fromIdx As Integer = Math.Min(i1, i2)
+                                                     Dim toIdx As Integer = Math.Max(i1, i2)
+
+                                                     ' Vorher alles deselektieren (beide Panels)
+                                                     For Each c As Control In flpnlAviso.Controls
+                                                         Dim u = TryCast(c, usrCntlSendungAnhangElement)
+                                                         If u IsNot Nothing Then u.ACTIVE = False
+                                                     Next
+                                                     For Each c As Control In flpnlSendungen.Controls
+                                                         Dim u = TryCast(c, usrCntlSendungAnhangElement)
+                                                         If u IsNot Nothing Then u.ACTIVE = False
+                                                     Next
+
+                                                     ' Bereich [fromIdx..toIdx] markieren (inklusive)
+                                                     For i As Integer = fromIdx To toIdx
+                                                         Dim u = TryCast(pAnchor.Controls(i), usrCntlSendungAnhangElement)
+                                                         If u IsNot Nothing Then u.ACTIVE = True
+                                                     Next
+
+                                                     ' Nichts weiter tun (kein neues Laden/Navigieren)
+                                                     Exit Sub
+                                                 End If
+                                             End If
+                                             ' --- Ende SHIFT-Bereichsauswahl ---
+
+                                         ElseIf STRG_PRESSED Then
+                                             If checkIfSamePanel(USRCNTL) Then
+                                                 USRCNTL.ACTIVE = Not USRCNTL.ACTIVE
+                                             End If
+                                         Else
 
                                              'prüfen, ob genau 1 Elemnt markeirt ist, dann kein neues Laden nötig
                                              If USRCNTL.ACTIVE Then
@@ -100,10 +163,6 @@ Public Class frmSendungAnhangImport
 
                                              txtDateiname.Text = USRCNTL.FILE_NAME
                                              txtSeiten.Focus()
-                                         Else
-                                             If checkIfSamePanel(USRCNTL) Then
-                                                 USRCNTL.ACTIVE = Not USRCNTL.ACTIVE
-                                             End If
                                          End If
                                      End Sub
 
@@ -112,6 +171,11 @@ Public Class frmSendungAnhangImport
                                           initFlpANH_LIST()
                                       End Sub
 
+        AddHandler USRCNTL.ME_COMPRESS, Sub(docId, anhId)
+                                            compressElement(docId, anhId)
+                                            initFlpANH_LIST()
+                                        End Sub
+
         AddHandler USRCNTL.KeyDown, Sub(ob As Object, ev As KeyEventArgs)
                                         If ev.KeyCode = Keys.Delete Then
                                             deleteActiveElement(getAcitvePnl())
@@ -123,7 +187,6 @@ Public Class frmSendungAnhangImport
 
         Try
 
-
             'If PdfViewer IsNot Nothing AndAlso PdfViewer.IsDocumentLoaded Then
             '    PdfViewer.CloseDocument()
             'End If
@@ -137,14 +200,30 @@ Public Class frmSendungAnhangImport
                     WebBrowser.Visible = (loc <> "")
                     WebBrowser.Navigate(loc)
                 Else
+
                     WebBrowser.Visible = False
                     PdfViewer.Visible = (loc <> "")
-                    PdfViewer.LoadFromFile(loc)
+                    If loc <> "" Then
+                        Dim data = File.ReadAllBytes(loc)
+                        Dim pdfStream = New MemoryStream(data)
+                        PdfViewer.LoadFromStream(pdfStream)
+                        pdfStream.Close()
+                    End If
+
+
+                    'NOT WORKING
+                    'PdfViewer.LoadFromFile(loc) NOT WORKING
                 End If
-            ElseIf typ = "BILD" Then
+            ElseIf typ = "BILD" Or typ = ".jpg" Then
                 PdfViewer.Visible = False
                 WebBrowser.Visible = (loc <> "")
-                WebBrowser.Navigate(loc)
+                '  WebBrowser.Navigate(loc)
+                If loc <> "" Then
+                    DisplayImageInWebBrowser(loc, WebBrowser)
+                Else
+                    WebBrowser.Navigate("")
+                End If
+
             End If
             Button5.Visible = PdfViewer.Visible
 
@@ -153,6 +232,42 @@ Public Class frmSendungAnhangImport
         End Try
     End Sub
 
+    ' Funktion zur Anzeige eines Bildes im WebBrowser
+    Private Sub DisplayImageInWebBrowser(imagePath As String, browser As WebBrowser)
+        ' Dynamisches HTML erstellen
+        Dim html As String = $"
+            <!DOCTYPE html>
+            <html lang='en'>
+            <head>
+                <meta charset='UTF-8'>
+                <meta name='viewport' content='width=device-width, initial-scale=1.0'>
+                <title>Bild Vorschau</title>
+                <style>
+                    body {{
+                        margin: 0;
+                        display: flex;
+                        justify-content: center;
+                        align-items: center;
+                        height: 100vh;
+                        background-color: #f0f0f0;
+                    }}
+                    img {{
+                        max-width: 100%;
+                        max-height: 100%;
+                        object-fit: contain;
+                    }}
+                </style>
+            </head>
+            <body>
+                <img src='file:///{imagePath.Replace("\", "/")}' alt='Bild'>
+            </body>
+            </html>
+        "
+
+        ' HTML im WebBrowser laden
+        browser.DocumentText = html
+    End Sub
+
     Function getAcitvePnl() As FlowLayoutPanel
         For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
             If u.ACTIVE Then Return flpnlAviso
@@ -206,7 +321,7 @@ Public Class frmSendungAnhangImport
                 '------------- 
                 '------------- PDFs extrahieren und auf den Datenserver laden + Eintrag in tblAvisoAnhaenger
                 '------------- 
-                Dim SendngsId As Integer = cboSendungen._value
+                Dim SendngsId As Integer = If(LKWOnly, -1, cboSendungen._value)
                 Dim TMP_Path_Old = u.FILE_PATH
                 Dim TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(u.FILE_NAME, fi.Extension,, True, "SendungsAnhaenge")
                 'If Not extractPagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText()) Then Exit Sub
@@ -247,7 +362,12 @@ Public Class frmSendungAnhangImport
         Next
         '   initSendungen()
 
-        initFlpANH_LIST(flpnlSendungen, False)
+        If LKWOnly Then
+            initFlpANH_LIST()
+        Else
+            initFlpANH_LIST(flpnlSendungen, False)
+        End If
+
 
         If flpnlAviso.Controls.Count > 0 Then
             If Not setAvtiveById(flpnlAviso, CurrentPageNumber, pages, cntlID) Then
@@ -315,7 +435,7 @@ Public Class frmSendungAnhangImport
                 '------------- PDFs extrahieren und auf den Datenserver laden + Eintrag in tblAvisoAnhaenger
                 '------------- 
                 Dim TMP_Path_New = u.FILE_PATH
-                Dim SendngsId As Integer = cboSendungen._value
+                Dim SendngsId As Integer = If(LKWOnly, -1, cboSendungen._value)
                 'Hochladen in den Datenserver und anfügen in die Tbl Anhänge mit der SendungsId
                 ' saveToDS(u.FILE_NAME, TMP_Path_New, cboArt._value, u.FILE_TYPE,,, SendngsId)
 
@@ -478,7 +598,7 @@ Public Class frmSendungAnhangImport
         Try
             PagesLeft = 0
 
-            Dim pdf As New PdfDocument()
+            Dim pdf As New Spire.Pdf.PdfDocument()
             pdf.LoadFromFile(sourceFile)
             '   Dim r As PdfReader = New PdfReader(sourceFile)
             Dim pagesToKeep As New List(Of Integer)
@@ -495,7 +615,7 @@ Public Class frmSendungAnhangImport
             Next
 
 
-            Dim pdf1 As New PdfDocument()
+            Dim pdf1 As New Spire.Pdf.PdfDocument()
             Dim page As PdfPageBase
 
             For Each p In pagesToKeep
@@ -564,10 +684,10 @@ Public Class frmSendungAnhangImport
 
 
 
-            Dim pdf As New PdfDocument()
+            Dim pdf As New Spire.Pdf.PdfDocument()
             pdf.LoadFromFile(sourceFile)
 
-            Dim pdf1 As New PdfDocument()
+            Dim pdf1 As New Spire.Pdf.PdfDocument()
             Dim page As PdfPageBase
 
             For Each p In pagesToExtract
@@ -637,11 +757,12 @@ Public Class frmSendungAnhangImport
 
     Public Function ExtractPdfPages_NEW(ByVal SourceFile As String, ByVal TargetFile As String, pagesToExtract As List(Of Integer)) As Boolean 'ITEXTSHARP
         Try
-            Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
+            Dim impPage As itextsharp.text.pdf.PdfImportedPage = Nothing
+            If SourceFile.Contains(" ") Then SourceFile = SourceFile
             Dim Reader As New iTextSharp.text.pdf.PdfReader(SourceFile)
             If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf"
             Dim srcDoc As New iTextSharp.text.Document() 'Reader.GetPageSizeWithRotation(0))
-            Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
+            Dim PdfCopyProvider As New itextsharp.text.pdf.PdfCopy(srcDoc, New FileStream(TargetFile, System.IO.FileMode.Create))
             PdfCopyProvider.SetFullCompression()
             srcDoc.Open()
             For Each p In pagesToExtract
@@ -1038,12 +1159,106 @@ Public Class frmSendungAnhangImport
         Return False
     End Function
 
+    Shared Function compressElement(FILE_DOCID, FILE_ANHID, Optional showMessage = True) As Boolean
+
+        If Not showMessage OrElse vbYes = MsgBox("Möchten Sie das Element komprimieren? Durch Minderung der Datenqualität gehen Informationen eventuell verloren.", vbYesNoCancel) Then
+            Try
+
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(FILE_DOCID)
+
+                'Load a PDF document while initializing the PdfCompressor object 
+                Dim compressor As Spire.Pdf.Conversion.Compression.PdfCompressor = New Spire.Pdf.Conversion.Compression.PdfCompressor(DS.GET_TOP1_PATH)
+                'Get text compression options 
+                Dim textCompression As TextCompressionOptions = compressor.Options.TextCompressionOptions
+                'Compress fonts 
+                textCompression.CompressFonts = True
+                'Unembed fonts 
+                textCompression.UnembedFonts = True
+                'Get image compression options 
+                Dim imageCompression As ImageCompressionOptions = compressor.Options.ImageCompressionOptions
+                'Set the compressed image quality 
+                imageCompression.ImageQuality = ImageQuality.High
+
+                'Resize images 
+                imageCompression.ResizeImages = True
+                'Compress images 
+                imageCompression.CompressImage = True
+                'Save the compressed document to file 
+                compressor.CompressToFile(DS.GET_TOP1_PATH)
+
+                'Load the pdf document
+                Dim doc As New Spire.Pdf.PdfDocument()
+
+                doc.LoadFromFile(DS.GET_TOP1_PATH)
+                'Compress the content in document
+                CompressContent(doc)
+
+                'Compress the images in document
+                CompressImage(doc)
+
+                'Save the document
+                doc.SaveToFile(DS.GET_TOP1_PATH)
+
+                'View the pdf document
+                PDFDocumentViewer(DS.GET_TOP1_PATH)
+
+                'Dim Convert = New PdfGrayConverter("C:\Users\DEVELOPER1\Desktop\CompressDocument_result2.pdf")
+                'Convert.ToGrayPdf("C:\Users\DEVELOPER1\Desktop\CompressDocument_result3.pdf")
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
+            End Try
+        End If
+        Return False
+    End Function
+    Private Shared Sub CompressContent(ByVal doc As Spire.Pdf.PdfDocument)
+        'Disable the incremental update
+        doc.FileInfo.IncrementalUpdate = False
+
+        'Set the compression level to best
+        doc.CompressionLevel = PdfCompressionLevel.Best
+    End Sub
+
+    Private Shared Sub CompressImage(ByVal doc As Spire.Pdf.PdfDocument)
+        Try
+            'Disable the incremental update
+            doc.FileInfo.IncrementalUpdate = False
+
+            'Traverse all pages
+            For Each page As PdfPageBase In doc.Pages
+                If page IsNot Nothing Then
+
+
+
+
+
+                    If page.ImagesInfo IsNot Nothing Then
+                        For Each info As PdfImageInfo In page.ImagesInfo
+                            page.TryCompressImage(info.Index)
+                        Next info
+                    End If
+                End If
+            Next page
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
+        End Try
+    End Sub
+    Private Shared Sub PDFDocumentViewer(ByVal fileName As String)
+        Try
+            Process.Start(fileName)
+        Catch
+        End Try
+    End Sub
+
+
+
     Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         Me.Height = Screen.PrimaryScreen.WorkingArea.Height
         Me.Top = 0
 
-        VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
+        'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
 
         Try
             DirectCast(PdfViewer.Controls(0).Controls(0).Controls(0), ToolStrip).Items(0).Visible = False
@@ -1060,43 +1275,60 @@ Public Class frmSendungAnhangImport
         flpnlAviso.Controls.Clear()
         flpnlSendungen.Controls.Clear()
 
+
         cboArt.Items.Clear()
+        Dim list As New cAvisoAnhangsarten_LIST(True, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE)
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ursprungszeugnis", "CoO"))
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then
-            cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - C88", "C88"))
-            cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - E2", "E2"))
-            cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - Atanak Rechnung", "Atanak_RG"))
+        For Each r In list.LIST
+            cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(r.aa_name, r.aa_bezeichnung))
+        Next
+
+        'cboArt.Items.Clear()
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR", "ATR-EUR1"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUR1", "EUR1"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("eFatura", "eFatura"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))++++++
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", "EORI_ANTRAG"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ursprungszeugnis", "CoO"))
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then
+        '    cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - C88", "C88"))
+        '    cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - E2", "E2"))
+        '    cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - Atanak Rechnung", "Atanak_RG"))
+        'End If
+
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GGED-D", "GGED_D"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GGED-PP", "GGED_PP"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GGED-P", "GGED_P"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GGED-A", "GED_A"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Phytosanitary Certificate", "PHYTO"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Konformitätserklärung", "CONFORM"))
+
+
+
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+        '    cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT_DOCS", "EXPORT_DOCS"))
+        'End If
+
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
+
+        If LKWOnly Then
+            pnlSendung.Enabled = False
         End If
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
-            cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT_DOCS", "EXPORT_DOCS"))
-        End If
-
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
-
-
-
-
-
-
         cboArt._TRANSLATE()
 
         initSendungen()
@@ -1114,6 +1346,7 @@ Public Class frmSendungAnhangImport
         If e.KeyCode = Keys.Return Then
             btnAnfuegen.PerformClick()
         End If
+
     End Sub
     Sub initSendungen()
         cboSendungen.Items.Clear()
@@ -1201,6 +1434,7 @@ Public Class frmSendungAnhangImport
         If pnl Is Nothing OrElse pnl Is flpnlSendungen Then flpnlSendungen.Controls.AddRange(ListToAdd_flpnlSendungen.ToArray)
         If pnl Is Nothing OrElse pnl Is flpnlAviso Then flpnlAviso.Controls.AddRange(ListToAdd_flpnlAviso.ToArray)
 
+
         'If act  Is Nothing Then initLocationViewer("", "PDF")
     End Sub
 
@@ -1214,6 +1448,7 @@ Public Class frmSendungAnhangImport
 
         USRCNTL.FILE_NAME = a.anh_Name
         USRCNTL.FILE_TYPE = a.anh_Typ
+        USRCNTL.FILE_SIZE = a.anh_size.ToString("N0") & " KB"
 
         USRCNTL.FILE_ANHID = a.anh_id
         USRCNTL.FILE_DOCID = a.anh_docId
@@ -1223,11 +1458,15 @@ Public Class frmSendungAnhangImport
                 USRCNTL.ACTIVE = True
             End If
         End If
+        USRCNTL.Width = pnl.Width - 10
+
         initElement(USRCNTL)
         If Not returnElement Then
             pnl.Controls.Add(USRCNTL)
         End If
 
+
+
         Return USRCNTL
     End Function
 
@@ -1301,7 +1540,7 @@ Public Class frmSendungAnhangImport
         End Try
     End Sub
 
-    Sub addUsrcnlToPnl(TMP_Path, dicId, anhId, Optional filename = "", Optional Typ = "")
+    Sub addUsrcnlToPnl(TMP_Path, dicId, anhId, Optional filename = "", Optional Typ = "", Optional Size = "")
         Dim USRCNTL As New usrCntlSendungAnhangElement
 
         Dim fi As New FileInfo(TMP_Path)
@@ -1314,6 +1553,7 @@ Public Class frmSendungAnhangImport
         USRCNTL.FILE_ANHID = anhId
 
         USRCNTL.FILE_TYPE = Typ
+        USRCNTL.FILE_SIZE = Size
 
         initElement(USRCNTL)
         flpnlAviso.Controls.Add(USRCNTL)
@@ -1423,23 +1663,24 @@ Public Class frmSendungAnhangImport
         Return True
     End Function
 
-    Public Shared Function saveToDS(AvisoId, ByRef fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean
+    Public Shared Function saveToDS(AvisoId, ByRef fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing, Optional crmId = Nothing) As Boolean
         Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", fileName, -1, False)
         If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
         If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
         da_id = DS.da_id
         destPath = DS.GET_TOP1_PATH
         fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
-        Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId)
+        Dim fi As New FileInfo(sourcePath)
+        Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId,, fi.Length, crmId)
         If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
         anhId = ANH.anh_id
         Return True
     End Function
 
-    Public Shared Function quickScan(AvisoId, Optional SendungsId = Nothing) As Boolean
+    Private Shared Function scantoAvisoDS(AvisoId, SendungsId, Art) As Boolean
         Try
             'If KdNr < 0 Then Exit Sub
-            Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("QuickScan")
+            Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan(Art)
             frmScan.DefaultFileName = "Scan" ' Me._TEXT_PDF
 
             If frmScan.ShowDialog() = DialogResult.OK Then
@@ -1464,12 +1705,29 @@ Public Class frmSendungAnhangImport
         Return False
     End Function
 
+    Public Shared Function quickScanWithMenue(AvisoId, Optional SendungsId = Nothing) As Boolean
+        Return scantoAvisoDS(AvisoId, SendungsId, "")
+    End Function
+
+    Public Shared Function quickScan(AvisoId, Optional SendungsId = Nothing) As Boolean
+        Return scantoAvisoDS(AvisoId, SendungsId, "QuickScan")
+    End Function
+
     Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
         BrowserLoaded = True
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnAddSnd.Click
-        Dim f As New frmAddSendnung(AvisoId)
+
+        If cboSendungen.SelectedItem.value Is Nothing Then Exit Sub
+
+        Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen.SelectedItem.value)
+
+        If SND.FilialenNr < 1 Then MsgBox("In bestehender Sendung wurde keine Filiale ausgewählt!") : Exit Sub
+
+        Dim f = New frmAddSendnung(AvisoId, SND.FilialenNr)
+
+
         If f.ShowDialog(Me) = DialogResult.OK Then
             initSendungen()
             cboSendungen.changeItem(f.SendungsId)
@@ -1485,7 +1743,7 @@ Public Class frmSendungAnhangImport
                 ' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
                 ' File.Copy(s, newFile)
                 '  MsgBox(s)
-                If IO.File.Exists(s) Then
+                If System.IO.File.Exists(s) Then
 
                     Dim fi As New FileInfo(s)
                     Dim filename = fi.Name
@@ -1545,6 +1803,12 @@ Public Class frmSendungAnhangImport
                     btnSndEdit.PerformClick()
                     e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
                 End If
+                ' Prüfen, ob STRG + " " gedrückt wurde
+                If e.Control AndAlso (e.KeyCode = Keys.Space) Then
+                    AddCurrentPage()
+                    e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht " " im Feld
+                End If
+
             ElseIf e.Modifiers = Keys.Shift Then ' PDFs durchlaufen
                 If e.KeyCode = Keys.PageDown Then
                     nextART()
@@ -1687,7 +1951,7 @@ Public Class frmSendungAnhangImport
                 If u.FILE_TYPE <> "PDF" Then Exit Sub
                 '  Dim fi As New FileInfo(u.FILE_PATH)
 
-                Dim pdf As New PdfDocument()
+                Dim pdf As New Spire.Pdf.PdfDocument()
                 pdf.LoadFromFile(u.FILE_PATH)
                 For Each p In pdf.Pages
                     txtSeiten.Text = "1"
@@ -1849,6 +2113,8 @@ Public Class frmSendungAnhangImport
             If FilePath <> "" Then
                 addData_SendungAnhang(FilePath)
             End If
+            ' ElseIf e.Data.GetDataPresent(DataFormats.drag) Then
+
         End If
 
 
@@ -1921,7 +2187,7 @@ Public Class frmSendungAnhangImport
         Try
 
             ' We have a embedded file. First lets try to get the file name out of memory
-            Dim theStream As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
+            Dim theStream As System.IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), System.IO.Stream)
             Dim fileGroupDescriptor(512) As Byte
             theStream.Read(fileGroupDescriptor, 0, 512)
             Dim fileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
@@ -1934,7 +2200,8 @@ Public Class frmSendungAnhangImport
 
             theStream.Close()
             ' We should have the file name or if its an email, the subject line. Create our temp file based on the temp path and this info
-            Dim myTempFile As String = IO.Path.GetTempPath & fileName.ToString
+            Dim myTempFile As String = System.IO.Path.GetTempPath & VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName.ToString)
+
             ' Look to see if this is a email message. If so save that temporarily and get the temp file.
             If InStr(myTempFile, ".msg") > 0 Then
                 Dim objOL As New Microsoft.Office.Interop.Outlook.Application
@@ -1950,19 +2217,19 @@ Public Class frmSendungAnhangImport
                 objMI = Nothing
             Else
                 ' If its a attachment we need to pull the file itself out of memory
-                Dim ms As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream)
+                Dim ms As System.IO.MemoryStream = CType(e.Data.GetData("FileContents", True), System.IO.MemoryStream)
                 Dim FileBytes(CInt(ms.Length)) As Byte
                 ' read the raw data into our variable
                 ms.Position = 0
                 ms.Read(FileBytes, 0, CInt(ms.Length))
                 ms.Close()
                 ' save the raw data into our temp file
-                Dim fs As IO.FileStream = New IO.FileStream(myTempFile, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
+                Dim fs As System.IO.FileStream = New System.IO.FileStream(myTempFile, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
                 fs.Write(FileBytes, 0, FileBytes.Length)
                 fs.Close()
             End If
             ' Make sure we have a actual file and also if we do make sure we erase it when done
-            If IO.File.Exists(myTempFile) Then
+            If System.IO.File.Exists(myTempFile) Then
                 ' Assign the file name to the add dialog
                 EmAilAttach = myTempFile
             Else
@@ -1982,6 +2249,26 @@ Public Class frmSendungAnhangImport
     Private Sub flpnlSnd_DragEnter(sender As Object, e As DragEventArgs) Handles flpnlSendungen.DragEnter
         e.Effect = DragDropEffects.All
     End Sub
+
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
+        AddCurrentPage()
+    End Sub
+
+    Sub AddCurrentPage()
+        Dim CurrentPageNumber = PdfViewer.CurrentPageNumber
+        If CurrentPageNumber > 0 Then
+            If txtSeiten.Text = "" Then
+                txtSeiten.Text = CurrentPageNumber.ToString.Trim
+            Else
+                txtSeiten.Text &= "," & CurrentPageNumber.ToString.Trim
+            End If
+            txtSeiten.Focus()
+            txtSeiten.SelectionStart = txtSeiten.TextLength
+        End If
+    End Sub
+
+
+
     'Private Sub flpnlSendungen_Paint(sender As Object, e As PaintEventArgs) Handles flpnlSendungen.Paint
     '    Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
     '    For Each path In files

Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.vb

@@ -1,4 +1,6 @@
-Public Class frmSendungAnhangUmbenennenUmkateg
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmSendungAnhangUmbenennenUmkateg
     Dim nameOLD = ""
     Dim artOLD = ""
     Sub New(nameOLD As String, artOLD As String)
@@ -13,33 +15,51 @@
     Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         cboArt.Items.Clear()
+        Dim list As New cAvisoAnhangsarten_LIST(True, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE)
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then
-            cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - C88", "C88"))
-            cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - E2", "E2"))
-            cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - Atanak Rechnung", "Atanak_RG"))
-        End If
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
-            cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT_DOCS", "EXPORT_DOCS"))
-        End If
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
+        For Each r In list.LIST
+            cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(r.aa_name, r.aa_bezeichnung))
+        Next
+
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR", "ATR-EUR1"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUR1", "EUR1"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("eFatura", "eFatura"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", "EORI_ANTRAG"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then
+        '    cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - C88", "C88"))
+        '    cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - E2", "E2"))
+        '    cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - Atanak Rechnung", "Atanak_RG"))
+        'End If
+
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GGED-D", "GGED_D"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GGED-PP", "GGED_PP"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GGED-P", "GGED_P"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GGED-A", "GED_A"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Phytosanitary Certificate", "PHYTO"))
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Konformitätserklärung", "CONFORM"))
+
+
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+        '    cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT_DOCS", "EXPORT_DOCS"))
+        'End If
+        'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
         txtBezeichnung.Text = nameOLD
         cboArt.changeItem(artOLD)
     End Sub

Aviso/Anhänge/usrCntlSendungAnhangElement.Designer.vb

@@ -27,17 +27,17 @@ Partial Class usrCntlSendungAnhangElement
         Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.lbl = New System.Windows.Forms.Label()
         Me.AnhängeVerschiebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PDFsZusammenführenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.KomprimierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.lblSize = New System.Windows.Forms.Label()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.cntxt.SuspendLayout()
         Me.SuspendLayout()
         '
         'pic
         '
-        Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.docAllgemein
         Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.pic.ContextMenuStrip = Me.cntxt
@@ -49,39 +49,27 @@ Partial Class usrCntlSendungAnhangElement
         '
         'cntxt
         '
-        Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnhängeVerschiebenToolStripMenuItem, Me.PDFsZusammenführenToolStripMenuItem})
+        Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnhängeVerschiebenToolStripMenuItem, Me.PDFsZusammenführenToolStripMenuItem, Me.KomprimierenToolStripMenuItem})
         Me.cntxt.Name = "cntxt"
         Me.cntxt.Size = New System.Drawing.Size(206, 114)
         '
         'UmbenennenToolStripMenuItem
         '
         Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem"
-        Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
         Me.UmbenennenToolStripMenuItem.Text = "Umbenennen"
         '
         'LöschenToolStripMenuItem
         '
         Me.LöschenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.del
         Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
-        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
         Me.LöschenToolStripMenuItem.Text = "Löschen"
         '
-        'lbl
-        '
-        Me.lbl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lbl.ContextMenuStrip = Me.cntxt
-        Me.lbl.Location = New System.Drawing.Point(36, 0)
-        Me.lbl.Name = "lbl"
-        Me.lbl.Size = New System.Drawing.Size(140, 27)
-        Me.lbl.TabIndex = 1
-        Me.lbl.Text = "NAME"
-        Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
         'AnhängeVerschiebenToolStripMenuItem
         '
         Me.AnhängeVerschiebenToolStripMenuItem.Name = "AnhängeVerschiebenToolStripMenuItem"
-        Me.AnhängeVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
+        Me.AnhängeVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
         Me.AnhängeVerschiebenToolStripMenuItem.Text = "Anhänge verschieben..."
         '
         'PDFsZusammenführenToolStripMenuItem
@@ -91,12 +79,44 @@ Partial Class usrCntlSendungAnhangElement
         Me.PDFsZusammenführenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
         Me.PDFsZusammenführenToolStripMenuItem.Text = "PDFs zusammenführen..."
         '
+        'KomprimierenToolStripMenuItem
+        '
+        Me.KomprimierenToolStripMenuItem.Name = "KomprimierenToolStripMenuItem"
+        Me.KomprimierenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
+        Me.KomprimierenToolStripMenuItem.Text = "Komprimieren"
+        '
+        'lbl
+        '
+        Me.lbl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lbl.ContextMenuStrip = Me.cntxt
+        Me.lbl.Location = New System.Drawing.Point(36, 0)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(140, 25)
+        Me.lbl.TabIndex = 1
+        Me.lbl.Text = "NAME asd asdasd" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "asdasdasd"
+        Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'lblSize
+        '
+        Me.lblSize.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblSize.ContextMenuStrip = Me.cntxt
+        Me.lblSize.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.5!)
+        Me.lblSize.Location = New System.Drawing.Point(136, 18)
+        Me.lblSize.Name = "lblSize"
+        Me.lblSize.Size = New System.Drawing.Size(44, 10)
+        Me.lblSize.TabIndex = 2
+        Me.lblSize.Text = "1.500 KB"
+        Me.lblSize.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
         'usrCntlSendungAnhangElement
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ContextMenuStrip = Me.cntxt
+        Me.Controls.Add(Me.lblSize)
         Me.Controls.Add(Me.lbl)
         Me.Controls.Add(Me.pic)
         Me.Name = "usrCntlSendungAnhangElement"
@@ -114,4 +134,6 @@ Partial Class usrCntlSendungAnhangElement
     Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents AnhängeVerschiebenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents PDFsZusammenführenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents KomprimierenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblSize As Label
 End Class

Aviso/Anhänge/usrCntlSendungAnhangElement.vb

@@ -14,8 +14,9 @@ Public Class usrCntlSendungAnhangElement
     Property FILE_ANHID
 
 
-    Public Event ME_CLICK(STRG_PRESSED)
+    Public Event ME_CLICK(STRG_PRESSED, SHIFT_PRESSED)
     Public Event ME_DELETE(FILE_DOCID, FILE_ANHID)
+    Public Event ME_COMPRESS(FILE_DOCID, FILE_ANHID)
 
 
     'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
@@ -24,6 +25,7 @@ Public Class usrCntlSendungAnhangElement
     '    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
     'End Sub
 
+
     Private ACTIVE_Value As Boolean = False
     Public Property ACTIVE As Boolean
         Get
@@ -87,19 +89,36 @@ Public Class usrCntlSendungAnhangElement
         End Set
 
     End Property
+
+
+    Private FILE_SIZE_Value As String = False
+    Public Property FILE_SIZE As String
+        Get
+            Return Me.FILE_SIZE_Value
+        End Get
+
+        Set(ByVal value As String)
+            If Not (value = FILE_SIZE) Then
+                Me.FILE_SIZE_Value = value
+                Me.lblSize.Text = value
+                ' NotifyPropertyChanged("FILE_NAME")
+            End If
+        End Set
+    End Property
+
     'Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click
     '    RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown)
     'End Sub
-    Private Sub pic_Click(sender As Object, e As MouseEventArgs) Handles pic.MouseClick, lbl.MouseClick, Me.MouseClick
+    Private Sub pic_Click(sender As Object, e As MouseEventArgs) Handles pic.MouseClick, lbl.MouseClick, Me.MouseClick, lblSize.MouseClick
         If e.Button = MouseButtons.Left Then
-            RaiseEvent ME_CLICK((My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
+            RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown, My.Computer.Keyboard.ShiftKeyDown)
         End If
     End Sub
     Public Sub CLICK_Me()
-        RaiseEvent ME_CLICK(False) 'My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
+        RaiseEvent ME_CLICK(False, False) 'My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
     End Sub
 
-    Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick
+    Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick, lblSize.DoubleClick
         If IO.File.Exists(Me.FILE_PATH) Then
             Process.Start(Me.FILE_PATH) 'damit Orginial bearbeitet werden kann
         End If
@@ -128,8 +147,14 @@ Public Class usrCntlSendungAnhangElement
             Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID)
             Dim f As New frmSendungAnhangUmbenennenUmkateg(FILE_NAME, ANH.anh_Art)
             If f.ShowDialog = DialogResult.OK Then
+                Dim ext As String = IO.Path.GetExtension(originalName)
 
-                ANH.anh_Name = f.txtBezeichnung.Text
+                Dim name As String = f.txtBezeichnung.Text
+                If String.IsNullOrWhiteSpace(IO.Path.GetExtension(name)) AndAlso ext <> "" Then ' prüfen ob Benutzer schon eine Endung eingegeben hat
+                    name &= ext
+                End If
+
+                ANH.anh_Name = name
                 ANH.anh_Art = f.cboArt._value
                 ANH.SAVE()
                 FILE_NAME = f.txtBezeichnung.Text
@@ -165,4 +190,16 @@ Public Class usrCntlSendungAnhangElement
             MsgBox(ex.Message & ex.StackTrace)
         End Try
     End Sub
+
+    Private Sub usrCntlSendungAnhangElement_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
+            KomprimierenToolStripMenuItem.Visible = True
+        End If
+    End Sub
+
+    Private Sub KomprimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KomprimierenToolStripMenuItem.Click
+        RaiseEvent ME_COMPRESS(FILE_DOCID, FILE_ANHID)
+    End Sub
+
+
 End Class

Aviso/App.config

@@ -9,7 +9,7 @@
         <add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient" />
     </connectionStrings>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
     </startup>
      
     <userSettings>
@@ -47,7 +47,7 @@
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
+        <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral" />
@@ -67,6 +67,30 @@
         <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
         <bindingRedirect oldVersion="0.0.0.0-2.7.2.0" newVersion="2.7.2.0" />
       </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-6.0.3.0" newVersion="6.0.3.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.5.0" newVersion="4.0.5.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.1.6.0" newVersion="4.1.6.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.5.0" newVersion="4.0.5.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.0.0" newVersion="4.2.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-10.7.21.0" newVersion="10.7.21.0" />
+      </dependentAssembly>
     </assemblyBinding>
   </runtime>
 </configuration>

Aviso/Auswertung/usrctlStatVERIMEX.Designer.vb

@@ -345,6 +345,7 @@ Partial Class usrctlStatVERIMEX
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoScroll = True
         Me.BackColor = System.Drawing.Color.White
         Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.Panel3)

Aviso/Auswertung/usrctlStatVERIMEX.vb

@@ -38,22 +38,22 @@ Public Class usrctlStatVERIMEX
         Select Case cboAbfFirma._value
             Case ""
             Case 0 : whereFiliale = " and tblSendungen.FilialenNr <=0 "
-            Case "ATILLA" : whereFiliale = " and tblSendungen.FilialenNr='4801' "
+            Case "ATILLA" : whereFiliale = " and tblSendungen.FilialenNr IN ('4801','4802') "
 
             Case Else
-                whereFiliale = " and tblSendungen.FilialenNr<>'4801' and Filialen.Firma='" & cboAbfFirma._value & "' "
+                whereFiliale = " and tblSendungen.FilialenNr NOT IN ('4801','4802') and Filialen.Firma='" & cboAbfFirma._value & "' "
                 innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr"
         End Select
 
         With dgvAbfertigungTR
-            Dim sqlstr = "SELECT  mit_vname + ' ' + mit_nname as Mitarbeiter ,sum(tblSnd_anzahlHandling) as Versandscheine ,sum(tblSnd_anzahlHandlingPos) as Positionen ,count(distinct(avisoid)) as LKW
+            Dim sqlstr = "SELECT  mit_vname + ' ' + mit_nname as Mitarbeiter ,sum(tblSnd_AbfertigungTRAnzahl) as Versandscheine ,sum(tblSnd_AbfertigungTRAnzahlPos) as Positionen ,count(distinct(avisoid)) as LKW
                   FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA
                   " & innerJoinFiliale & "
                   where cast(tblSnd_AbfertigungTR as date) BETWEEN '" & datAbfStatVon.Value & "' and '" & datAbfStatBis.Value & "'  and tblSnd_AbfertigungTR_MA is not null 
                   " & whereFiliale & "
                   group by mit_vname,mit_nname"
             'früher: Datum statt tblSnd_AbfertigungTR
-
+            '           MsgBox(sqlstr)
             dgvAbfertigungTR.DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
 
         End With
@@ -76,11 +76,11 @@ Public Class usrctlStatVERIMEX
 
 
         Dim print As New frmPrintLayout
-            print.Text = "Speditionsbericht"
+        print.Text = "Speditionsbericht"
 
-            Dim rpt As New rptStat_VERIMEX_AbklTR
+        Dim rpt As New rptStat_VERIMEX_AbklTR
 
-            rpt.DataSource = dgvAbklaerungTR.DataSource
+        rpt.DataSource = dgvAbklaerungTR.DataSource
 
 
 
@@ -92,39 +92,39 @@ Public Class usrctlStatVERIMEX
         End If
 
         Dim sum = 0
-            rpt.lblUeberschrift.Text = "Sendungserfassung TR  " & datStatVon.Text & " bis " & datStatBis.Text
-            rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
-            'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung
+        rpt.lblUeberschrift.Text = "Sendungserfassung TR  " & datStatVon.Text & " bis " & datStatBis.Text
+        rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung
 
-            'Dim cnt As Integer = 0
-            rpt.lblDat.Text = Now.ToLongDateString
-            Dim sumSnd As Integer = 0
-            Dim sumLKW As Integer = 0
+        'Dim cnt As Integer = 0
+        rpt.lblDat.Text = Now.ToLongDateString
+        Dim sumSnd As Integer = 0
+        Dim sumLKW As Integer = 0
 
 
-            AddHandler rpt.Detail.Format, Sub()
-                                              'rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
-                                              'rpt.lblBis.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
-                                              rpt.lblAnzSnd.Text = rpt.Fields.Item("Sendungen").Value
-                                              rpt.lblAnzLKW.Text = rpt.Fields.Item("LKW").Value
+        AddHandler rpt.Detail.Format, Sub()
+                                          'rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
+                                          'rpt.lblBis.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
+                                          rpt.lblAnzSnd.Text = rpt.Fields.Item("Sendungen").Value
+                                          rpt.lblAnzLKW.Text = rpt.Fields.Item("LKW").Value
 
-                                              rpt.lblMitarbeiter.Text = rpt.Fields.Item("Mitarbeiter").Value
+                                          rpt.lblMitarbeiter.Text = rpt.Fields.Item("Mitarbeiter").Value
 
-                                              sumSnd += CInt(rpt.Fields.Item("Sendungen").Value)
-                                              sumLKW += CInt(rpt.Fields.Item("LKW").Value)
-                                          End Sub
-            AddHandler rpt.GroupHeader1.Format, Sub()
-                                                    '  If CheckBox1.Checked Then rpt.lblFiliale.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")
-                                                    sumSnd = 0
-                                                    sumLKW = 0
-                                                End Sub
-            AddHandler rpt.GroupFooter1.Format, Sub()
-                                                    rpt.lblAnzSndSum.Text = sumSnd
-                                                    rpt.lblAnzLKWSum.Text = sumLKW
-                                                End Sub
+                                          sumSnd += CInt(rpt.Fields.Item("Sendungen").Value)
+                                          sumLKW += CInt(rpt.Fields.Item("LKW").Value)
+                                      End Sub
+        AddHandler rpt.GroupHeader1.Format, Sub()
+                                                '  If CheckBox1.Checked Then rpt.lblFiliale.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")
+                                                sumSnd = 0
+                                                sumLKW = 0
+                                            End Sub
+        AddHandler rpt.GroupFooter1.Format, Sub()
+                                                rpt.lblAnzSndSum.Text = sumSnd
+                                                rpt.lblAnzLKWSum.Text = sumLKW
+                                            End Sub
 
-            print.Viewer.LoadDocument(rpt)
-            print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+        print.Viewer.LoadDocument(rpt)
+        print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
         print.Show()
     End Sub
 
@@ -173,16 +173,16 @@ Public Class usrctlStatVERIMEX
 
             Dim whereFiliale = ""
             Dim innerJoinFiliale = ""
-        Select Case cboFirma._value
-            Case ""
-            Case 0 : whereFiliale = " and tblSendungen.FilialenNr <=0 "
-            Case Else
-                whereFiliale = " and Filialen.Firma='" & cboFirma._value & "' "
-                innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr"
-        End Select
+            Select Case cboFirma._value
+                Case ""
+                Case 0 : whereFiliale = " and tblSendungen.FilialenNr <=0 "
+                Case Else
+                    whereFiliale = " and Filialen.Firma='" & cboFirma._value & "' "
+                    innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr"
+            End Select
 
 
-        Dim sqlstr = "SELECT   (Select isnull(Filialen.firma,'') FROM [FMZOLL\SQLFMZOLL].VERAG.dbo.Filialen WHERE [tblSendungen].FilialenNr=Filialen.FilialenNr) Firma,
+            Dim sqlstr = "SELECT   (Select isnull(Filialen.firma,'') FROM [FMZOLL\SQLFMZOLL].VERAG.dbo.Filialen WHERE [tblSendungen].FilialenNr=Filialen.FilialenNr) Firma,
                         mit_vname + ' ' + mit_nname as Mitarbeiter, aviso.LKW_Nr [LKW Kennzeichen],tblSnd_AvisoID [LKW-ID], Auftraggeber as Avisierer, Frächter, tblSnd_Empfaenger as Empfänger, tblSnd_Colli Colli, tblSnd_Gewicht Gewicht, tblSnd_Abfertigungsart_ID Abfertigungsart, tblSendungen.FilialenNr , tblSendungen.AbfertigungsNr, replace(Ankunft,'1899-12-30 00:00:00','') Ankunft, replace(Freigabe,'1899-12-30 00:00:00','') Freigabe
                         FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbklaerungTR_MA
                         " & innerJoinFiliale & "
@@ -203,28 +203,28 @@ Public Class usrctlStatVERIMEX
 
         Try
 
-
             Dim whereFiliale = ""
             Dim innerJoinFiliale = ""
-            Select Case cboFirma._value
+            Select Case cboAbfFirma._value
                 Case ""
                 Case 0 : whereFiliale = " and tblSendungen.FilialenNr <=0 "
+                Case "ATILLA" : whereFiliale = " and tblSendungen.FilialenNr IN ('4801','4802') "
+
                 Case Else
-                    whereFiliale = " and Filialen.Firma='" & cboFirma._value & "' "
+                    whereFiliale = " and tblSendungen.FilialenNr NOT IN ('4801','4802') and Filialen.Firma='" & cboAbfFirma._value & "' "
                     innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr"
             End Select
 
-
-            Dim sqlstr = "SELECT   (Select isnull(Filialen.firma,'') FROM [FMZOLL\SQLFMZOLL].VERAG.dbo.Filialen WHERE [tblSendungen].FilialenNr=Filialen.FilialenNr) Firma,
-                        mit_vname + ' ' + mit_nname as Mitarbeiter, aviso.LKW_Nr [LKW Kennzeichen],tblSnd_AvisoID [LKW-ID], Auftraggeber as Avisierer, Frächter, tblSnd_Empfaenger as Empfänger, tblSnd_Colli Colli, tblSnd_Gewicht Gewicht, tblSnd_Abfertigungsart_ID Abfertigungsart, tblSendungen.FilialenNr , tblSendungen.AbfertigungsNr, replace(Ankunft,'1899-12-30 00:00:00','') Ankunft, replace(Freigabe,'1899-12-30 00:00:00','') Freigabe
-                        FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA
-                        " & innerJoinFiliale & "
-                        where cast(tblSnd_AbfertigungTR as date) BETWEEN  '" & datStatVon.Value & "' and '" & datStatBis.Value & "' and tblSnd_AbfertigungTR_MA is not null 
-                        " & whereFiliale & "
-                        ORDER BY Firma, Mitarbeiter,Auftraggeber,LKW_Nr,tblSnd_PosUnterNr"
+            Dim sqlstr = "SELECT  mit_vname + ' ' + mit_nname as Mitarbeiter ,tblSnd_AbfertigungTRAnzahl as AnzahlVersandscheine ,tblSnd_AbfertigungTRAnzahlPos as AnzahlPositionen, aviso.LKW_Nr [LKW Kennzeichen],tblSnd_AvisoID [LKW-ID], Auftraggeber as Avisierer, Frächter, tblSendungen.FilialenNr , tblSendungen.AbfertigungsNr, replace(Ankunft,'1899-12-30 00:00:00','') Ankunft, replace(Freigabe,'1899-12-30 00:00:00','') Freigabe
+                  FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA
+                  " & innerJoinFiliale & "
+                  where cast(tblSnd_AbfertigungTR as date) BETWEEN '" & datAbfStatVon.Value & "' and '" & datAbfStatBis.Value & "'  and tblSnd_AbfertigungTR_MA is not null 
+                  " & whereFiliale & " ORDER BY  mit_nname, tblSnd_AbfertigungTR"
 
             SDL.cProgramFunctions.genExcelFromDT_NEW(SQL.loadDgvBySql(sqlstr, "AVISO"))
 
+
+
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
         End Try

Aviso/Aviso.vbproj

@@ -1,5 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="..\packages\librdkafka.redist.2.11.1\build\librdkafka.redist.props" Condition="Exists('..\packages\librdkafka.redist.2.11.1\build\librdkafka.redist.props')" />
   <Import Project="..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.props" Condition="Exists('..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.props')" />
   <Import Project="..\packages\CefSharp.Common.75.1.143\build\CefSharp.Common.props" Condition="Exists('..\packages\CefSharp.Common.75.1.143\build\CefSharp.Common.props')" />
   <Import Project="..\packages\cef.redist.x86.75.1.14\build\cef.redist.x86.props" Condition="Exists('..\packages\cef.redist.x86.75.1.14\build\cef.redist.x86.props')" />
@@ -17,7 +18,7 @@
     <AssemblyName>AVISO</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <TargetFrameworkProfile>
     </TargetFrameworkProfile>
     <IsWebBootstrapper>false</IsWebBootstrapper>
@@ -40,14 +41,15 @@
     <BootstrapperEnabled>true</BootstrapperEnabled>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
-    <PlatformTarget>x64</PlatformTarget>
+    <PlatformTarget>x86</PlatformTarget>
     <DebugSymbols>true</DebugSymbols>
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
     <DefineTrace>true</DefineTrace>
     <OutputPath>bin\Debug\</OutputPath>
     <DocumentationFile>AVISO.xml</DocumentationFile>
-    <NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
+    <NoWarn>
+    </NoWarn>
     <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
@@ -58,11 +60,12 @@
     <Optimize>true</Optimize>
     <OutputPath>bin\Release\</OutputPath>
     <DocumentationFile>AVISO.xml</DocumentationFile>
-    <NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
+    <NoWarn>
+    </NoWarn>
     <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup>
-    <OptionExplicit>On</OptionExplicit>
+    <OptionExplicit>Off</OptionExplicit>
   </PropertyGroup>
   <PropertyGroup>
     <OptionCompare>Binary</OptionCompare>
@@ -76,14 +79,13 @@
   <PropertyGroup>
     <ApplicationIcon>aviso.ico</ApplicationIcon>
   </PropertyGroup>
+  <PropertyGroup />
   <PropertyGroup>
-    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
+    <ManifestCertificateThumbprint>34D75D5089806BE69485715D014CE0611D10E677</ManifestCertificateThumbprint>
   </PropertyGroup>
   <PropertyGroup>
-    <ManifestCertificateThumbprint>5A6BD29D23A7643243CD6EFA1FEF21BAF955E653</ManifestCertificateThumbprint>
-  </PropertyGroup>
-  <PropertyGroup>
-    <ManifestKeyFile>AL20210908.pfx</ManifestKeyFile>
+    <ManifestKeyFile>
+    </ManifestKeyFile>
   </PropertyGroup>
   <PropertyGroup>
     <GenerateManifests>true</GenerateManifests>
@@ -92,7 +94,7 @@
     <TargetZone>LocalIntranet</TargetZone>
   </PropertyGroup>
   <PropertyGroup>
-    <SignManifests>true</SignManifests>
+    <SignManifests>false</SignManifests>
   </PropertyGroup>
   <PropertyGroup>
     <SignAssembly>false</SignAssembly>
@@ -103,23 +105,63 @@
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
     <PlatformTarget>x64</PlatformTarget>
     <OutputPath>bin\Debug\</OutputPath>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
     <PlatformTarget>x64</PlatformTarget>
+    <Prefer32Bit>false</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <AssemblyOriginatorKeyFile>PrivateCodeSignaturDaniel20240131.pfx</AssemblyOriginatorKeyFile>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
+    <OutputPath>bin\Release\</OutputPath>
+    <PlatformTarget>x64</PlatformTarget>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
+    <OutputPath>bin\Release\</OutputPath>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>app.manifest</ApplicationManifest>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />
+    <Reference Include="ActiveReports.Designer.resources">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\ActiveReports.Designer.resources.dll</HintPath>
+    </Reference>
+    <Reference Include="ActiveReports.Imports.resources">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\ActiveReports.Imports.resources.dll</HintPath>
+    </Reference>
+    <Reference Include="ActiveReports.Imports.Win.resources">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\ActiveReports.Imports.Win.resources.dll</HintPath>
+    </Reference>
+    <Reference Include="ActiveReports.ThemeEditor.resources">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\ActiveReports.ThemeEditor.resources.dll</HintPath>
+    </Reference>
+    <Reference Include="ActiveReports.Viewer.resources">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\ActiveReports.Viewer.resources.dll</HintPath>
+    </Reference>
+    <Reference Include="ActiveReports.WpfViewer.resources">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\ActiveReports.WpfViewer.resources.dll</HintPath>
+    </Reference>
     <Reference Include="BouncyCastle.Crypto, Version=1.8.4.0, Culture=neutral, PublicKeyToken=0e99375e54769942">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath>
     </Reference>
-    <Reference Include="ChilkatDotNet47, Version=9.5.0.84, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=x86">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\ChillKat64\ChilkatDotNet47.dll</HintPath>
+    <Reference Include="BouncyCastle.Cryptography">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\BouncyCastle.Cryptography.dll</HintPath>
     </Reference>
-    <Reference Include="ClosedXML, Version=0.95.4.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="ChilkatDotNet47, Version=9.5.0.88, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=AMD64">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\packages\ClosedXML.0.95.4\lib\net46\ClosedXML.dll</HintPath>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ChillKat64\neu 2023\chilkatdotnet47-9.5.0-x64\ChilkatDotNet47.dll</HintPath>
+    </Reference>
+    <Reference Include="ClosedXML, Version=0.68.0.0, Culture=neutral, PublicKeyToken=fd1eb21b62ae805b, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\closedxml\95\ClosedXML.dll</HintPath>
+    </Reference>
+    <Reference Include="cNCTSPartnerWorker, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\ADMIN\ADMIN\cNCTSPartnerWorker\bin\Debug\cNCTSPartnerWorker.dll</HintPath>
     </Reference>
     <Reference Include="com.esendex.sdk, Version=3.8.0.0, Culture=neutral, PublicKeyToken=9dceac28a20578e2, processorArchitecture=MSIL">
       <HintPath>..\packages\esendex-dotnet-sdk.3.8.0\lib\net35\com.esendex.sdk.dll</HintPath>
@@ -130,42 +172,31 @@
     <Reference Include="Common.Logging.Core, Version=3.4.1.0, Culture=neutral, PublicKeyToken=af08829b84f0328e, processorArchitecture=MSIL">
       <HintPath>..\packages\Common.Logging.Core.3.4.1\lib\net40\Common.Logging.Core.dll</HintPath>
     </Reference>
-    <Reference Include="DAKOSY_Worker, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\ADMIN\ADMIN\DAKOSY_Worker\bin\Debug\DAKOSY_Worker.dll</HintPath>
+    <Reference Include="Confluent.Kafka, Version=2.11.1.0, Culture=neutral, PublicKeyToken=12c514ca49093d1e, processorArchitecture=MSIL">
+      <HintPath>..\packages\Confluent.Kafka.2.11.1\lib\net462\Confluent.Kafka.dll</HintPath>
     </Reference>
     <Reference Include="DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
       <HintPath>..\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
     </Reference>
-    <Reference Include="GrapeCity.ActiveReports">
-      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.dll</HintPath>
+    <Reference Include="DS.Documents.DX.Windows">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.DX.Windows.dll</HintPath>
     </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Chart">
-      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Chart.dll</HintPath>
+    <Reference Include="DS.Documents.Imaging, Version=7.0.0.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.Imaging.dll</HintPath>
     </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Core.Document">
-      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Core.Document.dll</HintPath>
+    <Reference Include="DS.Documents.Imaging.Windows">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.Imaging.Windows.dll</HintPath>
     </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Design.Win">
-      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Design.Win.dll</HintPath>
+    <Reference Include="DS.Documents.Pdf, Version=7.0.0.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.Pdf.dll</HintPath>
     </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Document">
-      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Document.dll</HintPath>
+    <Reference Include="EAGetMail, Version=5.3.5.0, Culture=neutral, PublicKeyToken=e10a0812eb29cf94, processorArchitecture=MSIL">
+      <HintPath>..\packages\EAGetMail.5.3.5\lib\net461\EAGetMail.dll</HintPath>
     </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Export.Excel">
-      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Export.Excel.dll</HintPath>
-    </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Export.Pdf">
-      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Export.Pdf.dll</HintPath>
-    </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Export.Word">
-      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Export.Word.dll</HintPath>
-    </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Viewer.Common">
-      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Viewer.Common.dll</HintPath>
-    </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Viewer.Win">
-      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Viewer.Win.dll</HintPath>
+    <Reference Include="Gemeinsames">
+      <HintPath>..\Gemeinsames\bin\Debug\Gemeinsames.dll</HintPath>
     </Reference>
     <Reference Include="itext.barcodes, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
       <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.barcodes.dll</HintPath>
@@ -202,6 +233,149 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\dll\itextsharp.pdfa.dll</HintPath>
     </Reference>
+    <Reference Include="MESCIUS.ActiveReports, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Chart, Version=18.0.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Chart.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Chart.Win">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Chart.Win.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.DataProviders, Version=3.0.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.DataProviders.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.DataProviders.Excel, Version=1.0.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.DataProviders.Excel.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Document, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Document.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gc, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gdi, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Document.Drawing.Gdi.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gc, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Drawing.Gc.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gdi, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Drawing.Gdi.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Export.Excel.Page, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Excel.Page.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Export.Html.Page">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Html.Page.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Export.Image.Page">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Image.Page.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Page">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Pdf.Page.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Section, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Pdf.Section.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Export.Svg.Page">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Svg.Page.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Export.Text.Page">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Text.Page.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Export.Tiff.Section">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Tiff.Section.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Export.Word.Page">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Word.Page.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Rdl, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Rdl.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Rendering, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Rendering.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Core.Scripting, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Scripting.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Design.Win, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Design.Win.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Export.Excel, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Excel.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Export.Html">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Html.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Export.Image">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Image.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Export.Image.Win">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Image.Win.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Export.Pdf, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Pdf.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Export.Pdf.Win">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Pdf.Win.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Export.Word, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Word.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Export.Xml">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Xml.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.QueryDesigner">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.QueryDesigner.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Serializer">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Serializer.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.SpreadBuilder">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.SpreadBuilder.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Viewer.Common, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Viewer.Common.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Viewer.Win, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Viewer.Win.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.ActiveReports.Win, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Win.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.Data.DataEngine, Version=4.0.0.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.Data.DataEngine.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.Data.ExpressionInfo, Version=4.0.0.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.Data.ExpressionInfo.dll</HintPath>
+    </Reference>
+    <Reference Include="MESCIUS.Data.VBFunctionLib">
+      <HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.Data.VBFunctionLib.dll</HintPath>
+    </Reference>
     <Reference Include="Microsoft.AspNetCore.Authentication">
       <HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Authentication.dll</HintPath>
     </Reference>
@@ -220,6 +394,9 @@
     <Reference Include="Microsoft.AspNetCore.Http.Abstractions">
       <HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Http.Abstractions.dll</HintPath>
     </Reference>
+    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=1.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.1.0.0\lib\net461\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
+    </Reference>
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="Microsoft.Extensions.Configuration">
       <HintPath>..\..\..\dll\ASP.NET\Microsoft.Extensions.Configuration.dll</HintPath>
@@ -254,28 +431,23 @@
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\dll\Microsoft.ReportViewer.WinForms.dll</HintPath>
     </Reference>
-    <Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
-      <HintPath>..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
+    <Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
     </Reference>
     <Reference Include="NumericBox">
       <HintPath>..\..\..\dll\NumericBox.dll</HintPath>
     </Reference>
-    <Reference Include="Spire.License, Version=1.3.15.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\Spire.PDF\2022\Spire.License.dll</HintPath>
+    <Reference Include="Spire.Pdf, Version=10.7.21.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
+      <HintPath>F:\PROGRAMMIERUNG\dll\Spire.PDF\Spire.Pdf.dll</HintPath>
     </Reference>
-    <Reference Include="Spire.Pdf, Version=7.6.0.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\Spire.PDF\2022\Spire.Pdf.dll</HintPath>
-    </Reference>
-    <Reference Include="Spire.PdfViewer.Forms, Version=6.6.0.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\Spire.PDF\2022\Spire.PdfViewer.Forms.dll</HintPath>
+    <Reference Include="Spire.PdfViewer.Forms, Version=7.12.23.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
+      <HintPath>F:\PROGRAMMIERUNG\dll\Spire.PDF\Spire.PdfViewer.Forms.dll</HintPath>
     </Reference>
     <Reference Include="System" />
-    <Reference Include="System.Buffers, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Buffers.4.4.0\lib\netstandard2.0\System.Buffers.dll</HintPath>
+    <Reference Include="System.Buffers, Version=4.0.5.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Buffers.4.6.1\lib\net462\System.Buffers.dll</HintPath>
     </Reference>
+    <Reference Include="System.ComponentModel.Composition" />
     <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />
@@ -283,6 +455,11 @@
     <Reference Include="System.DirectoryServices" />
     <Reference Include="System.Drawing" />
     <Reference Include="System.Drawing.Design" />
+    <Reference Include="System.IO, Version=4.1.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.IO.4.3.0\lib\net462\System.IO.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
+    </Reference>
     <Reference Include="System.IO.FileSystem.Primitives, Version=4.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
       <HintPath>..\packages\System.IO.FileSystem.Primitives.4.0.1\lib\net46\System.IO.FileSystem.Primitives.dll</HintPath>
       <Private>True</Private>
@@ -292,18 +469,57 @@
       <HintPath>..\packages\System.IO.Packaging.4.0.0\lib\net46\System.IO.Packaging.dll</HintPath>
     </Reference>
     <Reference Include="System.Management" />
-    <Reference Include="System.Memory, Version=4.0.1.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Memory.4.5.0\lib\netstandard2.0\System.Memory.dll</HintPath>
+    <Reference Include="System.Memory, Version=4.0.5.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Memory.4.6.3\lib\net462\System.Memory.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Net.Http, Version=4.1.1.3, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Net.Http.4.3.4\lib\net46\System.Net.Http.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
     </Reference>
     <Reference Include="System.Numerics" />
-    <Reference Include="System.Numerics.Vectors, Version=4.1.3.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Numerics.Vectors.4.4.0\lib\net46\System.Numerics.Vectors.dll</HintPath>
+    <Reference Include="System.Numerics.Vectors, Version=4.1.6.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Numerics.Vectors.4.6.1\lib\net462\System.Numerics.Vectors.dll</HintPath>
     </Reference>
-    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=4.0.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.4.5.0\lib\netstandard2.0\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
+    <Reference Include="System.Runtime, Version=4.1.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.4.3.0\lib\net462\System.Runtime.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.3.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.1.2\lib\net462\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
     </Reference>
     <Reference Include="System.Runtime.Serialization.Formatters.Soap" />
     <Reference Include="System.Security" />
+    <Reference Include="System.Security.Cryptography.Algorithms, Version=4.2.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Cryptography.Algorithms.4.3.0\lib\net463\System.Security.Cryptography.Algorithms.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Security.Cryptography.Encoding, Version=4.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Cryptography.Encoding.4.3.0\lib\net46\System.Security.Cryptography.Encoding.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Security.Cryptography.Pkcs, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Cryptography.Pkcs.8.0.0\lib\net462\System.Security.Cryptography.Pkcs.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Security.Cryptography.Primitives, Version=4.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Cryptography.Primitives.4.3.0\lib\net46\System.Security.Cryptography.Primitives.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Security.Cryptography.X509Certificates, Version=4.1.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Cryptography.X509Certificates.4.3.0\lib\net461\System.Security.Cryptography.X509Certificates.dll</HintPath>
+      <Private>True</Private>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System.Text.Encoding.CodePages, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Text.Encoding.CodePages.8.0.0\lib\net462\System.Text.Encoding.CodePages.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.2\lib\netstandard2.0\System.Threading.Tasks.Extensions.dll</HintPath>
+    </Reference>
     <Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
       <HintPath>..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll</HintPath>
     </Reference>
@@ -321,10 +537,6 @@
     <Reference Include="ThoughtWorks.QRCode">
       <HintPath>..\..\..\dll\ThoughtWorks.QRCode.dll</HintPath>
     </Reference>
-    <Reference Include="VERAG_PROG_ALLGEMEIN, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
-    </Reference>
     <Reference Include="WindowsBase" />
   </ItemGroup>
   <ItemGroup>
@@ -378,6 +590,18 @@
       <SubType>UserControl</SubType>
     </Compile>
     <Compile Include="ApplicationEvents.vb" />
+    <Compile Include="ATEZ\frmATEZ_EZA.Designer.vb">
+      <DependentUpon>frmATEZ_EZA.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ATEZ\frmATEZ_EZA.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="ATEZ\frmATEZ_NCTS.Designer.vb">
+      <DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ATEZ\frmATEZ_NCTS.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Auswertung\cStatFunctions.vb" />
     <Compile Include="Auswertung\frmStatFrima.Designer.vb">
       <DependentUpon>frmStatFrima.vb</DependentUpon>
@@ -415,6 +639,12 @@
     <Compile Include="Auswertung\usrctlAuswertung.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="AvisoReports\rptQRSendung_VerwahrungApp.Designer.vb">
+      <DependentUpon>rptQRSendung_VerwahrungApp.vb</DependentUpon>
+    </Compile>
+    <Compile Include="AvisoReports\rptQRSendung_VerwahrungApp.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="AvisoReports\rptTEST.Designer.vb">
       <DependentUpon>rptTEST.vb</DependentUpon>
     </Compile>
@@ -427,6 +657,7 @@
     <Compile Include="AvisoReports\rptQRAviso.vb">
       <SubType>Component</SubType>
     </Compile>
+    <Compile Include="AvisoStatusFunctions.vb" />
     <Compile Include="Barcode.vb" />
     <Compile Include="Barcode\Code128Content.vb" />
     <Compile Include="Barcode\Code128Rendering.vb" />
@@ -466,7 +697,6 @@
     </Compile>
     <Compile Include="cBinding.vb" />
     <Compile Include="cEasyBinding.vb" />
-    <Compile Include="CHMRC.vb" />
     <Compile Include="Classes\cSendungsoptions.vb" />
     <Compile Include="cProgramFunctions.vb" />
     <Compile Include="cServerClient.vb" />
@@ -537,10 +767,40 @@
     <Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmEssensbestellungen.Designer.vb">
-      <DependentUpon>frmEssensbestellungen.vb</DependentUpon>
+    <Compile Include="frmATZollEingereichtSetzenEV.Designer.vb">
+      <DependentUpon>frmATZollEingereichtSetzenEV.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmEssensbestellungen.vb">
+    <Compile Include="frmATZollEingereichtSetzenEV.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmAvisoAnhangsarten.Designer.vb">
+      <DependentUpon>frmAvisoAnhangsarten.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmAvisoAnhangsarten.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmAvisoBirthday.Designer.vb">
+      <DependentUpon>frmAvisoBirthday.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmAvisoBirthday.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmDigicust.Designer.vb">
+      <DependentUpon>frmDigicust.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmDigicust.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmATZollEingereichtSetzen.Designer.vb">
+      <DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmATZollEingereichtSetzen.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="frmEintragTvNew.Designer.vb">
+      <DependentUpon>frmEintragTvNew.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmEintragTvNew.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="frmFrachtkostenBerechnen.Designer.vb">
@@ -567,12 +827,24 @@
     <Compile Include="frmGesamtsicherheitenNEU.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmHauptfensterNew.Designer.vb">
+      <DependentUpon>frmHauptfensterNew.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmHauptfensterNew.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmNCTSRouten.Designer.vb">
       <DependentUpon>frmNCTSRouten.vb</DependentUpon>
     </Compile>
     <Compile Include="frmNCTSRouten.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmNorsware.Designer.vb">
+      <DependentUpon>frmNorsware.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmNorsware.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmRoutendauerBerechnen.Designer.vb">
       <DependentUpon>frmRoutendauerBerechnen.vb</DependentUpon>
     </Compile>
@@ -837,6 +1109,12 @@
     <Compile Include="frmTv.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmTvSettings.Designer.vb">
+      <DependentUpon>frmTvSettings.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmTvSettings.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmWarenbezeichnungBegriffe.Designer.vb">
       <DependentUpon>frmWarenbezeichnungBegriffe.vb</DependentUpon>
     </Compile>
@@ -849,6 +1127,12 @@
     <Compile Include="frmWarenbezeichnungBegriffeEdit.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmWarenorte.Designer.vb">
+      <DependentUpon>frmWarenorte.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmWarenorte.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmWechselStandarddrucker.Designer.vb">
       <DependentUpon>frmWechselStandarddrucker.vb</DependentUpon>
     </Compile>
@@ -895,6 +1179,12 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="rCntrlVermerke.Designer.vb">
+      <DependentUpon>rCntrlVermerke.vb</DependentUpon>
+    </Compile>
+    <Compile Include="rCntrlVermerke.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="rptAuswertung.designer.vb">
       <DependentUpon>rptAuswertung.vb</DependentUpon>
     </Compile>
@@ -962,6 +1252,12 @@
     <Compile Include="usrCntlEintragAvisoAtilla.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="usrcntlFrachtkostenberechnung.Designer.vb">
+      <DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="usrcntlFrachtkostenberechnung.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="usrcntlSendungDetailsAbrechnung.Designer.vb">
       <DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
     </Compile>
@@ -1031,6 +1327,12 @@
     <EmbeddedResource Include="Anhänge\usrCntlSendungAnhangElement.resx">
       <DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="ATEZ\frmATEZ_EZA.resx">
+      <DependentUpon>frmATEZ_EZA.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ATEZ\frmATEZ_NCTS.resx">
+      <DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Auswertung\frmStatFrima.resx">
       <DependentUpon>frmStatFrima.vb</DependentUpon>
     </EmbeddedResource>
@@ -1049,6 +1351,9 @@
     <EmbeddedResource Include="Auswertung\usrctlAuswertung.resx">
       <DependentUpon>usrctlAuswertung.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="AvisoReports\rptQRSendung_VerwahrungApp.resx">
+      <DependentUpon>rptQRSendung_VerwahrungApp.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="AvisoReports\rptTEST.resx">
       <DependentUpon>rptTEST.vb</DependentUpon>
     </EmbeddedResource>
@@ -1095,8 +1400,23 @@
     <EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
       <DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmEssensbestellungen.resx">
-      <DependentUpon>frmEssensbestellungen.vb</DependentUpon>
+    <EmbeddedResource Include="frmATZollEingereichtSetzenEV.resx">
+      <DependentUpon>frmATZollEingereichtSetzenEV.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmAvisoAnhangsarten.resx">
+      <DependentUpon>frmAvisoAnhangsarten.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmAvisoBirthday.resx">
+      <DependentUpon>frmAvisoBirthday.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmDigicust.resx">
+      <DependentUpon>frmDigicust.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
+      <DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="frmEintragTvNew.resx">
+      <DependentUpon>frmEintragTvNew.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmFrachtkostenBerechnen.resx">
       <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
@@ -1110,9 +1430,15 @@
     <EmbeddedResource Include="frmGesamtsicherheitenNEU.resx">
       <DependentUpon>frmGesamtsicherheitenNEU.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmHauptfensterNew.resx">
+      <DependentUpon>frmHauptfensterNew.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmNCTSRouten.resx">
       <DependentUpon>frmNCTSRouten.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmNorsware.resx">
+      <DependentUpon>frmNorsware.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmRoutendauerBerechnen.resx">
       <DependentUpon>frmRoutendauerBerechnen.vb</DependentUpon>
     </EmbeddedResource>
@@ -1173,9 +1499,11 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmAuswahl_Aviso.resx">
       <DependentUpon>frmAuswahl_Aviso.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="Auswertung\frmAuswertung.resx">
       <DependentUpon>frmAuswertung.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="frmBarcodeGenerator.resx">
       <DependentUpon>frmBarcodeGenerator.vb</DependentUpon>
@@ -1247,12 +1575,18 @@
     <EmbeddedResource Include="frmTv.resx">
       <DependentUpon>frmTv.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmTvSettings.resx">
+      <DependentUpon>frmTvSettings.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmWarenbezeichnungBegriffe.resx">
       <DependentUpon>frmWarenbezeichnungBegriffe.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmWarenbezeichnungBegriffeEdit.resx">
       <DependentUpon>frmWarenbezeichnungBegriffeEdit.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmWarenorte.resx">
+      <DependentUpon>frmWarenorte.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmWechselStandarddrucker.resx">
       <DependentUpon>frmWechselStandarddrucker.vb</DependentUpon>
     </EmbeddedResource>
@@ -1270,11 +1604,14 @@
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
-      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <Generator>PublicVbMyResourcesResXFileCodeGenerator</Generator>
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
       <SubType>Designer</SubType>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>
     </EmbeddedResource>
+    <EmbeddedResource Include="rCntrlVermerke.resx">
+      <DependentUpon>rCntrlVermerke.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="rptAuswertung.resx">
       <DependentUpon>rptAuswertung.vb</DependentUpon>
     </EmbeddedResource>
@@ -1308,6 +1645,9 @@
     <EmbeddedResource Include="usrCntlEintragAvisoAtilla.resx">
       <DependentUpon>usrCntlEintragAvisoAtilla.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="usrcntlFrachtkostenberechnung.resx">
+      <DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="usrcntlSendungDetailsAbrechnung.resx">
       <DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
     </EmbeddedResource>
@@ -1335,15 +1675,15 @@
   </ItemGroup>
   <ItemGroup>
     <None Include="AL20210908.pfx" />
+    <None Include="AL20231110.pfx" />
     <None Include="App.config" />
-    <None Include="Aviso_TemporaryKey.pfx" />
+    <None Include="app.manifest" />
     <None Include="Dokumentenbeschriftung\PageReport1.rdlx">
       <SubType>Component</SubType>
     </None>
     <None Include="GenerelleGestellungenVorlagen\GenerelleGestellung_DE.pdf">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
-    <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>
@@ -1354,19 +1694,21 @@
       <CustomToolNamespace>My</CustomToolNamespace>
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
-    <None Include="Resources\old_ATANAK_Instructions_Export.xlsx">
+    <None Include="PrivateCodeSignaturDaniel20240131.pfx" />
+    <None Include="Resources\Flender_Bocholt.xlsx" />
+    <None Include="Resources\ATANAK_Instructions_Export.xlsx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
     <None Include="Resources\DGS_Instructions_Export.xlsx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
-    <None Include="Resources\old_ATANAK_Instructions_Export_T1.xlsx">
+    <None Include="Resources\ATANAK_Instructions_Export_T1.xlsx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
     <None Include="Resources\DGS_Instructions_Export_T1.xlsx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
-    <None Include="Resources\old_ATANAK_Instructions_Import.xlsx">
+    <None Include="Resources\ATANAK_Instructions_Import.xlsx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
     <None Include="Resources\DGS_Instructions_Import.xlsx">
@@ -1393,9 +1735,9 @@
     <None Include="Resources\Versionsinfo.txt" />
   </ItemGroup>
   <ItemGroup>
-    <ProjectReference Include="..\..\..\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj">
-      <Project>{2bbd7643-82a1-481f-a014-eb7fcdeed3b5}</Project>
-      <Name>NCTSPartnerWorker</Name>
+    <ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
+      <Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
+      <Name>DAKOSY_Worker_lib</Name>
     </ProjectReference>
     <ProjectReference Include="..\..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj">
       <Project>{5b947a66-009a-4bb6-b925-f84a01045095}</Project>
@@ -1405,9 +1747,9 @@
       <Project>{289bcd77-bc00-4ba1-95ed-a79176d99525}</Project>
       <Name>SDL</Name>
     </ProjectReference>
-    <ProjectReference Include="..\Gemeinsames\Gemeinsames.vbproj">
-      <Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
-      <Name>Gemeinsames</Name>
+    <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
+      <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
+      <Name>VERAG_PROG_ALLGEMEIN</Name>
     </ProjectReference>
   </ItemGroup>
   <ItemGroup>
@@ -1466,7 +1808,8 @@
     <None Include="Resources\avisoNewMsg.ico" />
     <None Include="Resources\Telefonliste.png" />
     <None Include="Resources\Telefonliste1.png" />
-    <EmbeddedResource Include="My Project\license.elic.xml" />
+    <Content Include="My Project\licensePDFPro.elic.xml" />
+    <Content Include="My Project\licensePDFViewer.elic.xml" />
     <Content Include="My Project\Telefonliste_small.png" />
     <None Include="Resources\Telefonliste_small.png" />
     <None Include="Resources\Logo_blue_globe_Horizontal.jpg">
@@ -1486,9 +1829,35 @@
     <None Include="Resources\AMB.png" />
     <None Include="Resources\sprinter.png" />
     <None Include="Resources\sprinter_white.png" />
+    <None Include="Resources\FO.bmp" />
+    <None Include="Resources\atr.png" />
+    <None Include="Resources\atr_s.png" />
+    <None Include="Resources\birthday_4.jpg" />
+    <None Include="Resources\ambar_boarder.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+    <None Include="Resources\Declarant.png" />
     <Content Include="Resources\FO.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
+    <None Include="Resources\meris.png" />
+    <None Include="Resources\VK1.jpg" />
+    <None Include="Resources\istLog.png" />
+    <None Include="Resources\ge_transport.png" />
+    <None Include="Resources\vorauszahlung11.png" />
+    <None Include="Resources\vorauszahlung_bg.jpg" />
+    <None Include="Resources\handy2.png" />
+    <None Include="Resources\wiki.png" />
+    <None Include="Resources\memories0.png" />
+    <None Include="Resources\memories1.png" />
+    <None Include="Resources\memories2.png" />
+    <None Include="Resources\memories3.png" />
+    <None Include="Resources\memories4.png" />
+    <None Include="Resources\memories5.png" />
+    <None Include="Resources\reminder.png" />
+    <None Include="Resources\qr.png" />
+    <None Include="Resources\qr_s.png" />
+    <None Include="Resources\Transcode.png" />
     <Content Include="Resources\WLAN\RunNHide.exe">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
@@ -1500,9 +1869,10 @@
     <None Include="Resources\pdfprint1.png" />
     <None Include="Resources\pdfprint.png" />
     <None Include="Resources\Unisped_logo.jpg" />
-    <None Include="Resources\ambar_simple.png" />
+    <None Include="Resources\ambar_simple.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="Resources\docAllgemein.png" />
-    <None Include="Resources\license.elic.xml" />
     <None Include="Resources\scanner.png" />
     <None Include="Resources\parkplatz.jpg" />
     <None Include="Resources\igl.png" />
@@ -1675,14 +2045,16 @@
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </COMReference>
   </ItemGroup>
-  <ItemGroup />
+  <ItemGroup>
+    <Folder Include="bin\Debug\Resources\" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PreBuildEvent>
     </PreBuildEvent>
   </PropertyGroup>
   <PropertyGroup>
-    <PostBuildEvent>D:\Andreas\Programmierung\VB\Zertifikate\signtool.exe sign /f D:\Andreas\Programmierung\VB\Zertifikate\AL20210908.pfx /p verag2001 "Aviso.exe"</PostBuildEvent>
+    <PostBuildEvent>\\192.168.0.90\f\Zertifikate\signtool.exe sign /f \\192.168.0.90\f\Zertifikate\AL20231110.pfx /p zYGNNJRG+tzlw90Rz6NqOXnoeBycFCy07YcUsY5iD0M= "AVISO.exe"</PostBuildEvent>
   </PropertyGroup>
   <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
     <PropertyGroup>
@@ -1694,6 +2066,7 @@
     <Error Condition="!Exists('..\packages\CefSharp.Common.75.1.143\build\CefSharp.Common.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\CefSharp.Common.75.1.143\build\CefSharp.Common.targets'))" />
     <Error Condition="!Exists('..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.props'))" />
     <Error Condition="!Exists('..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.targets'))" />
+    <Error Condition="!Exists('..\packages\librdkafka.redist.2.11.1\build\librdkafka.redist.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\librdkafka.redist.2.11.1\build\librdkafka.redist.props'))" />
   </Target>
   <Import Project="..\packages\CefSharp.Common.75.1.143\build\CefSharp.Common.targets" Condition="Exists('..\packages\CefSharp.Common.75.1.143\build\CefSharp.Common.targets')" />
   <Import Project="..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.targets" Condition="Exists('..\packages\CefSharp.WinForms.75.1.143\build\CefSharp.WinForms.targets')" />

Aviso/AvisoReports/rptQRAviso.Designer.vb

@@ -78,7 +78,7 @@ Partial Public Class rptQRAviso
         '
         Me.picVERAG.Height = 0.4897638!
         Me.picVERAG.HyperLink = Nothing
-        Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
+        Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
         Me.picVERAG.Left = 0.2015748!
         Me.picVERAG.Name = "picVERAG"
         Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

Aviso/AvisoReports/rptQRAviso.vb

@@ -51,10 +51,13 @@ Public Class rptQRAviso
         lblNr.Text = AVISO.AvisoID
         txtGrenze.Text = AVISO.Grenzstelle
         txtFraechter.Text = AVISO.Fr<EFBFBD>chter
-        ' QR.Image = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(AVISO.AvisoID))
-        QR.Image = getQRCode("https://login.verag.ag/status.aspx?AvisoId=" & VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO.AvisoID))
 
-        picQRAviso.Image = getBARCODEAviso(AVISO.AvisoID)
+        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
@@ -98,41 +101,5 @@ Public Class rptQRAviso
 
     End Sub
 
-    Function getQRCode(QRtext As String, Optional QZSize As Integer = 4, Optional QRVersion As Integer = 7, Optional CorrectionLevel As QRCodeEncoder.ERROR_CORRECTION = QRCodeEncoder.ERROR_CORRECTION.M, Optional encoding As QRCodeEncoder.ENCODE_MODE = QRCodeEncoder.ENCODE_MODE.BYTE) As Image
-        Dim qrCodeEncoder As QRCodeEncoder = New QRCodeEncoder()
-
-        qrCodeEncoder.QRCodeEncodeMode = encoding
-
-        Try
-            Dim scale As Integer = Convert.ToInt16(QZSize)
-            qrCodeEncoder.QRCodeScale = scale
-        Catch ex As Exception
-            MessageBox.Show("Invalid size!")
-            Return Nothing
-        End Try
-
-        Try
-            Dim version As Integer = Convert.ToInt16(QRVersion)
-            qrCodeEncoder.QRCodeVersion = version
-        Catch ex As Exception
-            MessageBox.Show("Invalid version !")
-        End Try
-
-        Dim errorCorrect As String = CorrectionLevel
-
-        qrCodeEncoder.QRCodeErrorCorrect = CorrectionLevel
-
-        Dim image As Image
-        Dim data As String = QRtext
-        image = qrCodeEncoder.Encode(data)
-        Return image
-    End Function
-
-    Function getBARCODEAviso(AvisoID As String) As Image
-        Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & AvisoID & "/", 1, True, 25)
-        '  barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
-
-        Return barcode
-    End Function
 
 End Class

Aviso/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/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/Benachrichtigung/frmAvisoWeiterleiten.Designer.vb

@@ -74,6 +74,7 @@ Partial Class frmAvisoWeiterleiten
         Me.btnVERIMEX = New System.Windows.Forms.Button()
         Me.btnAMBAR = New System.Windows.Forms.Button()
         Me.btnATILLA = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
         Me.Panel5 = New System.Windows.Forms.Panel()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.dgvAnmhaenge = New System.Windows.Forms.DataGridView()
@@ -111,7 +112,7 @@ Partial Class frmAvisoWeiterleiten
         Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(979, 37)
+        Me.pnl.Size = New System.Drawing.Size(1112, 37)
         Me.pnl.TabIndex = 0
         '
         'Label3
@@ -119,7 +120,7 @@ Partial Class frmAvisoWeiterleiten
         Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
-        Me.Label3.Location = New System.Drawing.Point(823, 7)
+        Me.Label3.Location = New System.Drawing.Point(956, 7)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(109, 24)
         Me.Label3.TabIndex = 8
@@ -129,7 +130,7 @@ Partial Class frmAvisoWeiterleiten
         '
         Me.pic.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pic.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
-        Me.pic.Location = New System.Drawing.Point(935, 3)
+        Me.pic.Location = New System.Drawing.Point(1068, 3)
         Me.pic.Name = "pic"
         Me.pic.Size = New System.Drawing.Size(44, 32)
         Me.pic.TabIndex = 7
@@ -166,7 +167,7 @@ Partial Class frmAvisoWeiterleiten
         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
         Me.Panel2.Location = New System.Drawing.Point(0, 37)
         Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(320, 702)
+        Me.Panel2.Size = New System.Drawing.Size(320, 815)
         Me.Panel2.TabIndex = 17
         '
         'btnTeam
@@ -176,7 +177,7 @@ Partial Class frmAvisoWeiterleiten
         Me.btnTeam.FlatStyle = System.Windows.Forms.FlatStyle.Popup
         Me.btnTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
         Me.btnTeam.ForeColor = System.Drawing.Color.White
-        Me.btnTeam.Location = New System.Drawing.Point(161, 643)
+        Me.btnTeam.Location = New System.Drawing.Point(161, 756)
         Me.btnTeam.Name = "btnTeam"
         Me.btnTeam.Size = New System.Drawing.Size(140, 42)
         Me.btnTeam.TabIndex = 14
@@ -190,7 +191,7 @@ Partial Class frmAvisoWeiterleiten
         Me.btnBenutzer.FlatStyle = System.Windows.Forms.FlatStyle.Popup
         Me.btnBenutzer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
         Me.btnBenutzer.ForeColor = System.Drawing.Color.White
-        Me.btnBenutzer.Location = New System.Drawing.Point(15, 643)
+        Me.btnBenutzer.Location = New System.Drawing.Point(15, 756)
         Me.btnBenutzer.Name = "btnBenutzer"
         Me.btnBenutzer.Size = New System.Drawing.Size(140, 42)
         Me.btnBenutzer.TabIndex = 13
@@ -221,7 +222,7 @@ Partial Class frmAvisoWeiterleiten
         Me.dgvMitarbeiter.Name = "dgvMitarbeiter"
         Me.dgvMitarbeiter.RowHeadersVisible = False
         Me.dgvMitarbeiter.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvMitarbeiter.Size = New System.Drawing.Size(286, 589)
+        Me.dgvMitarbeiter.Size = New System.Drawing.Size(286, 702)
         Me.dgvMitarbeiter.TabIndex = 10
         '
         'MyTextBox1
@@ -229,10 +230,12 @@ Partial Class frmAvisoWeiterleiten
         Me.MyTextBox1._DateTimeOnly = False
         Me.MyTextBox1._numbersOnly = False
         Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._numbersOnlyTrennzeichen = True
         Me.MyTextBox1._Prozent = False
         Me.MyTextBox1._ShortDateNew = False
         Me.MyTextBox1._ShortDateOnly = False
         Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._TimeOnly_Seconds = False
         Me.MyTextBox1._value = ""
         Me.MyTextBox1._Waehrung = False
         Me.MyTextBox1._WaehrungZeichen = True
@@ -255,7 +258,7 @@ Partial Class frmAvisoWeiterleiten
         Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel4.Location = New System.Drawing.Point(320, 37)
         Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(659, 702)
+        Me.Panel4.Size = New System.Drawing.Size(792, 815)
         Me.Panel4.TabIndex = 20
         '
         'Panel1
@@ -267,7 +270,7 @@ Partial Class frmAvisoWeiterleiten
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
         Me.Panel1.Location = New System.Drawing.Point(200, 57)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(449, 468)
+        Me.Panel1.Size = New System.Drawing.Size(577, 581)
         Me.Panel1.TabIndex = 20
         '
         'flpFirma
@@ -275,7 +278,7 @@ Partial Class frmAvisoWeiterleiten
         Me.flpFirma.Dock = System.Windows.Forms.DockStyle.Fill
         Me.flpFirma.Location = New System.Drawing.Point(0, 28)
         Me.flpFirma.Name = "flpFirma"
-        Me.flpFirma.Size = New System.Drawing.Size(447, 438)
+        Me.flpFirma.Size = New System.Drawing.Size(575, 551)
         Me.flpFirma.TabIndex = 1
         '
         'Panel3
@@ -286,7 +289,7 @@ Partial Class frmAvisoWeiterleiten
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel3.Location = New System.Drawing.Point(0, 0)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(447, 28)
+        Me.Panel3.Size = New System.Drawing.Size(575, 28)
         Me.Panel3.TabIndex = 2
         '
         'Label1
@@ -427,7 +430,7 @@ Partial Class frmAvisoWeiterleiten
         Me.Panel7.Dock = System.Windows.Forms.DockStyle.Left
         Me.Panel7.Location = New System.Drawing.Point(0, 57)
         Me.Panel7.Name = "Panel7"
-        Me.Panel7.Size = New System.Drawing.Size(200, 468)
+        Me.Panel7.Size = New System.Drawing.Size(200, 581)
         Me.Panel7.TabIndex = 19
         '
         'flpTeams
@@ -435,7 +438,7 @@ Partial Class frmAvisoWeiterleiten
         Me.flpTeams.Dock = System.Windows.Forms.DockStyle.Fill
         Me.flpTeams.Location = New System.Drawing.Point(0, 28)
         Me.flpTeams.Name = "flpTeams"
-        Me.flpTeams.Size = New System.Drawing.Size(198, 438)
+        Me.flpTeams.Size = New System.Drawing.Size(198, 551)
         Me.flpTeams.TabIndex = 1
         '
         'Panel8
@@ -588,10 +591,11 @@ Partial Class frmAvisoWeiterleiten
         Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVERIMEX)
         Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAMBAR)
         Me.MyFlowLayoutPanel1.Controls.Add(Me.btnATILLA)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.Button2)
         Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
         Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
         Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
-        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(657, 57)
+        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(790, 57)
         Me.MyFlowLayoutPanel1.TabIndex = 21
         '
         'btnVERAG
@@ -664,13 +668,24 @@ Partial Class frmAvisoWeiterleiten
         '
         Me.btnATILLA.FlatStyle = System.Windows.Forms.FlatStyle.Popup
         Me.btnATILLA.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.btnATILLA.Location = New System.Drawing.Point(3, 52)
+        Me.btnATILLA.Location = New System.Drawing.Point(657, 3)
         Me.btnATILLA.Name = "btnATILLA"
         Me.btnATILLA.Size = New System.Drawing.Size(120, 43)
         Me.btnATILLA.TabIndex = 11
         Me.btnATILLA.Text = "ATILLA"
         Me.btnATILLA.UseVisualStyleBackColor = True
         '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button2.Location = New System.Drawing.Point(3, 52)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(120, 43)
+        Me.Button2.TabIndex = 12
+        Me.Button2.Text = "WARENORT"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
         'Panel5
         '
         Me.Panel5.BackColor = System.Drawing.Color.SeaShell
@@ -680,9 +695,9 @@ Partial Class frmAvisoWeiterleiten
         Me.Panel5.Controls.Add(Me.Label5)
         Me.Panel5.Controls.Add(Me.rtbVermerk)
         Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel5.Location = New System.Drawing.Point(0, 525)
+        Me.Panel5.Location = New System.Drawing.Point(0, 638)
         Me.Panel5.Name = "Panel5"
-        Me.Panel5.Size = New System.Drawing.Size(657, 175)
+        Me.Panel5.Size = New System.Drawing.Size(790, 175)
         Me.Panel5.TabIndex = 22
         '
         'Label6
@@ -763,7 +778,7 @@ Partial Class frmAvisoWeiterleiten
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(979, 739)
+        Me.ClientSize = New System.Drawing.Size(1112, 852)
         Me.Controls.Add(Me.Panel4)
         Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.pnl)
@@ -854,4 +869,5 @@ Partial Class frmAvisoWeiterleiten
     Friend WithEvents btnVERIMEX As Button
     Friend WithEvents btnAMBAR As Button
     Friend WithEvents btnATILLA As Button
+    Friend WithEvents Button2 As Button
 End Class

Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb

@@ -101,7 +101,7 @@ Public Class frmAvisoWeiterleiten
     End Sub
 
 
-    Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String, Optional bezeichnungFirma As String = "")
+    Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String, Optional bezeichnungFirma As String = "", Optional WL_Text As String = "")
         Dim text = ""
         Dim WeiterleitungTextTV = ""
         Dim code = 3
@@ -121,8 +121,14 @@ Public Class frmAvisoWeiterleiten
             Case "B"
                 text = "An '" & bezeichnung & "' gegeben."
                 WeiterleitungTextTV = bezeichnung
+            Case "W"
+                text = "An '" & bezeichnung & "' gegeben."
+                WeiterleitungTextTV = bezeichnung
         End Select
 
+
+
+
         'Anhänge:
         Dim collAnhIds = ""
         Try
@@ -151,9 +157,44 @@ Public Class frmAvisoWeiterleiten
         Else
             ASF.insertVermerkAllg(AvisoId, text, 46)
             If rtbVermerk.Text.Trim <> "" Then ASF.insertVermerkAllg(AvisoId, "WL: " & rtbVermerk.Text.Trim, 46)
-            ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV)
+            If WL_Text <> "" Then
+                ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV, WL_Text)
+            Else
+                ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV)
+            End If
+
         End If
 
+
+
+
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And WLart = "A" And bezeichnung = "VERIMEX" Then
+        '    If vbYes = MsgBox("Akt auf Status 'VERIMEX' setzten?", vbYesNoCancel) Then
+        '        Dim FUNC As New AvisoStatusFunctions
+        '        FUNC.setVorbereitet(AvisoId)
+        '    End If
+        'End If
+
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
+                If WLart = "T" And bezeichnungFirma = "VERIMEX" Or WLart = "F" And bezeichnung = "VERIMEX" Then
+                    If vbYes = MsgBox("Akt auf Status 'AN VERIMEX' setzten?", vbYesNoCancel) Then
+                        Dim FUNC As New AvisoStatusFunctions
+                        FUNC.setAnVERIMEX(AvisoId)
+                    End If
+                End If
+                If WLart = "T" And bezeichnung = "INDONESIEN" Then
+                    If vbYes = MsgBox("Akt auf Status 'AN INDONESIEN' setzten?", vbYesNoCancel) Then
+                        Dim FUNC As New AvisoStatusFunctions
+                        FUNC.setAnINDONESIEN(AvisoId)
+                    End If
+                End If
+            End If
+        End If
+
+
+
         ' Me.Close()
         '  End If
 
@@ -174,14 +215,20 @@ Public Class frmAvisoWeiterleiten
     Sub addBtn(flpFirma As FlowLayoutPanel, WLart As String, id As String, bezeichnung As String, Optional enabled As Boolean = True, Optional bezeichnungFirma As String = "")
         Dim btn As New Button
         btn.FlatStyle = FlatStyle.Flat
-        btn.Size = New Size(180, 40)
+        btn.Size = New Size(180, 45)
         btn.Font = New Font(Me.Font.FontFamily, 10, FontStyle.Regular)
         btn.Text = bezeichnung
         btn.Tag = id
         btn.Enabled = enabled
 
         AddHandler btn.Click, Sub()
-                                  btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma)
+
+                                  btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma, "WL: " & If(bezeichnungFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "[" & bezeichnungFirma & "] ", "") & bezeichnung)
+                                  'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                                  '    Case "ATILLA" : btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma, "WL: " & If(bezeichnungFirma <> "ATILLA", "[" & bezeichnungFirma & "] ", "") & bezeichnung)
+                                  '    Case Else : btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma)
+                                  'End Select
+
                                   initButtons(flpFirma, btn)
                               End Sub
 
@@ -210,7 +257,7 @@ Public Class frmAvisoWeiterleiten
     '    initButtons(sender)
     'End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnVERAG.Click, btnIMEX.Click, btnUNIPED.Click, btnFrontoffice.Click, btnVERIMEX.Click, btnAMBAR.Click, btnATILLA.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnVERAG.Click, btnIMEX.Click, btnUNIPED.Click, btnFrontoffice.Click, btnVERIMEX.Click, btnAMBAR.Click, btnATILLA.Click, Button2.Click
         'flpAbteilung.Controls.Clear()
         flpTeams.Controls.Clear()
         '  flpNiederlassung.Controls.Clear()
@@ -224,8 +271,11 @@ Public Class frmAvisoWeiterleiten
             addBtn(flpFirma, "N", "NKD", "VERAG Nickelsdorf")
             addBtn(flpFirma, "N", "NEU", "VERAG Neuhaus")
             addBtn(flpFirma, "N", "DTB", "VERAG Dettelbach")
+            addBtn(flpFirma, "N", "NKN", "VERAG Neunkirchen (Saar)")
 
-            addBtn(flpFirma, "A", "FISK", "VERAG Fiskal")
+            addBtn(flpFirma, "T", "13", "VERAG Fiskal (>Team Neukunden)")
+            'addBtn(flpFirma, "A", "FISK", "VERAG Fiskal")
+            addBtn(flpFirma, "A", "VRR", "VERRECHNUNG")
 
             Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='VERAG' order by team_id", "ADMIN")
             If dt IsNot Nothing Then
@@ -255,6 +305,12 @@ Public Class frmAvisoWeiterleiten
             addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)
         ElseIf sender Is btnATILLA Then
             addBtn(flpFirma, "F", "ATILLA", "ATILLA", True)
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='ATILLA' order by team_id", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "ATILLA")
+                Next
+            End If
         ElseIf sender Is btnVERIMEX Then
             'addBtn(flpFirma, "F", "VERIMEX", "VERIMEX", True)
             Dim whereTeams = ""
@@ -267,6 +323,14 @@ Public Class frmAvisoWeiterleiten
             End If
         ElseIf sender Is btnAMBAR Then
             addBtn(flpFirma, "F", "AMBAR", "AMBAR", True)
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='AMBAR' order by team_id", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "AMBAR")
+                Next
+            End If
+        ElseIf sender Is Button2 Then
+            addBtn(flpFirma, "W", "FO_WIHD", "KÖRFEZ 61", True, "VERAG")
 
         End If
 
@@ -375,4 +439,5 @@ Public Class frmAvisoWeiterleiten
         dgvAnmhaenge.ClearSelection()
     End Sub
 
+
 End Class

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb

@@ -28,13 +28,16 @@ Partial Class usrCntlBenachrichtigungen
         Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.cbxTaskForce = New System.Windows.Forms.CheckBox()
+        Me.cbxVerwarung = New System.Windows.Forms.CheckBox()
+        Me.txtVermerk = New System.Windows.Forms.TextBox()
+        Me.cbxNeukunden = New System.Windows.Forms.CheckBox()
         Me.Button10 = New System.Windows.Forms.Button()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.cbxCluster = New System.Windows.Forms.CheckBox()
         Me.cbxTeams = New System.Windows.Forms.CheckBox()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.Label25 = New System.Windows.Forms.Label()
-        Me.cbxNeukunden = New System.Windows.Forms.CheckBox()
         Me.Panel2.SuspendLayout()
         CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel4.SuspendLayout()
@@ -92,14 +95,63 @@ Partial Class usrCntlBenachrichtigungen
         'Panel4
         '
         Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel4.Controls.Add(Me.cbxTaskForce)
+        Me.Panel4.Controls.Add(Me.cbxVerwarung)
         Me.Panel4.Controls.Add(Me.cbxNeukunden)
         Me.Panel4.Controls.Add(Me.Button10)
+        Me.Panel4.Controls.Add(Me.txtVermerk)
         Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.Panel4.Location = New System.Drawing.Point(0, 165)
         Me.Panel4.Name = "Panel4"
         Me.Panel4.Size = New System.Drawing.Size(284, 38)
         Me.Panel4.TabIndex = 5
         '
+        'cbxTaskForce
+        '
+        Me.cbxTaskForce.AutoSize = True
+        Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
+        Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19)
+        Me.cbxTaskForce.Name = "cbxTaskForce"
+        Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
+        Me.cbxTaskForce.TabIndex = 33
+        Me.cbxTaskForce.Text = "TaskForce"
+        Me.cbxTaskForce.UseVisualStyleBackColor = True
+        Me.cbxTaskForce.Visible = False
+        '
+        'cbxVerwarung
+        '
+        Me.cbxVerwarung.AutoSize = True
+        Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black
+        Me.cbxVerwarung.Location = New System.Drawing.Point(85, 19)
+        Me.cbxVerwarung.Name = "cbxVerwarung"
+        Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17)
+        Me.cbxVerwarung.TabIndex = 32
+        Me.cbxVerwarung.Text = "Verwahrung"
+        Me.cbxVerwarung.UseVisualStyleBackColor = True
+        Me.cbxVerwarung.Visible = False
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtVermerk.Location = New System.Drawing.Point(7, -1)
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.ReadOnly = True
+        Me.txtVermerk.Size = New System.Drawing.Size(146, 20)
+        Me.txtVermerk.TabIndex = 31
+        '
+        'cbxNeukunden
+        '
+        Me.cbxNeukunden.AutoSize = True
+        Me.cbxNeukunden.ForeColor = System.Drawing.Color.Black
+        Me.cbxNeukunden.Location = New System.Drawing.Point(7, 19)
+        Me.cbxNeukunden.Name = "cbxNeukunden"
+        Me.cbxNeukunden.Size = New System.Drawing.Size(82, 17)
+        Me.cbxNeukunden.TabIndex = 30
+        Me.cbxNeukunden.Text = "Neukunden"
+        Me.cbxNeukunden.UseVisualStyleBackColor = True
+        Me.cbxNeukunden.Visible = False
+        '
         'Button10
         '
         Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -175,18 +227,6 @@ Partial Class usrCntlBenachrichtigungen
         Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen"
         Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
-        'cbxNeukunden
-        '
-        Me.cbxNeukunden.AutoSize = True
-        Me.cbxNeukunden.ForeColor = System.Drawing.Color.Black
-        Me.cbxNeukunden.Location = New System.Drawing.Point(7, 3)
-        Me.cbxNeukunden.Name = "cbxNeukunden"
-        Me.cbxNeukunden.Size = New System.Drawing.Size(82, 17)
-        Me.cbxNeukunden.TabIndex = 30
-        Me.cbxNeukunden.Text = "Neukunden"
-        Me.cbxNeukunden.UseVisualStyleBackColor = True
-        Me.cbxNeukunden.Visible = False
-        '
         'usrCntlBenachrichtigungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -215,4 +255,7 @@ Partial Class usrCntlBenachrichtigungen
     Friend WithEvents cbxTeams As CheckBox
     Friend WithEvents cbxCluster As CheckBox
     Friend WithEvents cbxNeukunden As CheckBox
+    Friend WithEvents txtVermerk As TextBox
+    Friend WithEvents cbxVerwarung As CheckBox
+    Friend WithEvents cbxTaskForce As CheckBox
 End Class

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -1,4 +1,7 @@
-Public Class usrCntlBenachrichtigungen
+Imports DAKOSY_Worker.SumAErledigungsinformationVorpapier
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrCntlBenachrichtigungen
     Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim ASF As New AvisoStatusFunctions
 
@@ -31,12 +34,18 @@
 
                 Dim whereMA = " AND  ( 1<>1 "
 
+                'WARENORT
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
+                    whereMA &= " OR (ab_TO_Art='W' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "') "
 
-                If cbxNeukunden.Checked Then
+                    'NEUKUNDEN
+                ElseIf cbxNeukunden.Checked Then
                     Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                         Case "VERAG"
                             whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='13') " 'TEAM_NEUKUNDEN --> VERAG
                     End Select
+
+                    'SONST
                 Else
 
                     If cbxCluster.Checked Then
@@ -48,6 +57,19 @@
                         whereMA &= " OR (ab_TO_Art='F' AND ab_TO_Code='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "') "
                     End If
 
+                    If cbxVerwarung.Checked Then
+                        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                            Case "VERAG"
+                                whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='26') " 'TEAM_VERWARUNG --> VERAG
+                        End Select
+                    End If
+
+                    If cbxTaskForce.Checked Then
+                        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                            Case "VERAG"
+                                whereMA &= " OR (ab_TO_Art='T' AND ab_TO_Code='7') " 'TEAM_TASKFORCE --> VERAG
+                        End Select
+                    End If
 
                     If cbxTeams.Checked Then
                         whereMA &= " Or (ab_TO_Art='T' AND ab_TO_Code IN (SELECT [team_id] FROM ADMIN.dbo.[tblTeams] WHERE team_firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) "
@@ -57,12 +79,13 @@
                         End If
                     End If
 
+
+
                 End If
 
                 whereMA &= " ) "
 
-                Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & "  ORDER BY CASE WHEN ANKUNFT <'01.01.2001' THEN '01.01.2999' ELSE ANKUNFT end ASC,ab_Datum ASC"
-
+                Dim sqlStr As String = "SELECT tblAvisoBenachrichtigungen.*, LKW_Nr, Status  FROM [tblAvisoBenachrichtigungen] INNER JOIN AVISO on AvisoId=ab_AvisoID WHERE ab_status=0 " & whereMA & "  ORDER BY CASE WHEN ANKUNFT <'01.01.2001' THEN '01.01.2999' ELSE ANKUNFT end ASC,ab_Datum ASC"
 
                 Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
                 ' List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
@@ -88,6 +111,7 @@
                 .Columns("ab_Vermerk").Visible = False
                 .Columns("ab_collAnhId").Visible = False
                 .Columns("ab_ReminderVermerkID").Visible = False
+                .Columns("ab_VermerkID").Visible = False
                 .Columns("ab_ReminderVermerkCode").Visible = False
 
                 .Columns("ab_TO_Art").Visible = False
@@ -120,6 +144,11 @@
                 '.Columns("ab_Beschreibung").DefaultCellStyle.ForeColor = Color.White
                 .Columns("ab_Beschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
+                '.Columns("ab_Vermerk").MinimumWidth = 50
+                '.Columns("ab_Vermerk").HeaderText = "Vermerk"
+                ''.Columns("ab_Beschreibung").DefaultCellStyle.ForeColor = Color.White
+                '.Columns("ab_Vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
                 If .RowCount = 0 Then .Columns.Clear() : Exit Sub
 
 
@@ -156,20 +185,48 @@
                         r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
                         'r.DefaultCellStyle.SelectionForeColor = Color.Red
                     End If
+
+                    If r.Cells("ab_BenachrichtigungCode").Value = "6" Then
+                        r.Cells("ab_Art").Value = "VK"
+                    End If
+
+
                 Next
 
                 '.Width = gridAviso.Width - gridVermerke.Width
                 '.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending)
                 .ClearSelection()
+
+
             End With
 
         Catch ex As Exception
-            MsgBox(ex.Message & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         '   Grid_aktiv = True
 
     End Sub
 
+    Private Sub gridAvisoBenachrichtigungen_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting
+        If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then
+            If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Beschreibung").Value.ToString.Contains("AAS:") Then
+                If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
+                    e.Graphics.DrawImage(My.Resources.reminder, e.CellBounds)
+                    'e.CellStyle.BackColor = Color.White
+                    gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Art").Value = ""
+                    gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_Art").Style.BackColor = Color.Gray
+                End If
+
+
+                If Not e.Handled Then
+                    e.Handled = True
+                    e.PaintContent(e.CellBounds)
+                End If
+            End If
+        End If
+
+    End Sub
+
     Private Sub usrCntlBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         'MyComboBox2.Items.Clear()
@@ -200,6 +257,15 @@
             'cbxNeukunden.Checked = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeVerwahrung", "AVISO") Then
+            cbxVerwarung.Visible = True
+            cbxVerwarung.Checked = True
+        End If
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BENACHRICHTIGUNGEN_SeeTaskForce", "AVISO") Then
+            cbxTaskForce.Visible = True
+            cbxTaskForce.Checked = True
+        End If
 
 
         'NEIN; weils zB Waidhaus dann alles sieht und übernimmt
@@ -246,13 +312,23 @@
                 Case Else 'Weiterleitung Akt/Snd
 
                     If AB.BESTAETIGEN_BENACHRICHTIGUNG Then
-                        'Übermehmen
-                        If AB.ab_Art = "A" Then
-                            If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, False) Then Exit Sub
-                            '  If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, True) Then Exit Sub
-                        Else
-                            If Not ASF.SendungUebernehmen(AB.ab_SendungID, AB.ab_AvisoID) Then Exit Sub
-                        End If
+                        Select Case AB.ab_BenachrichtigungCode
+                            Case VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.Vorauskasse_OK
+                                AvisoStatusFunctions.insertSendungsVermerk(AB.ab_SendungID, AB.ab_AvisoID, "Benachrichtigung 'Vorauskasse OK' bestätigt.", 46)
+                                'Akt nicht übernehmen
+                            Case VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
+                                AvisoStatusFunctions.insertSendungsVermerk(AB.ab_SendungID, AB.ab_AvisoID, "Benachrichtigung 'ZOLL:Dokumentenbeschau' bestätigt.", 46)
+                                'Akt nicht übernehmen
+                            Case Else
+                                'Weiterleitung --> Übermehmen
+                                If AB.ab_Art = "A" Then
+                                    If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, False) Then Exit Sub
+                                    '  If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, True) Then Exit Sub
+                                Else
+                                    If Not ASF.SendungUebernehmen(AB.ab_SendungID, AB.ab_AvisoID) Then Exit Sub
+                                End If
+
+                        End Select
                         'VERMERK inserieren
                         'insertSendungsVermerk(SendungID, myAviso.AvisoID, "In die Neukunden-Abteilung gegeben.", 46)
                         Dim f As New frmAvisoWeiterleitenBestaetigen(AB)
@@ -286,6 +362,11 @@
 
     Private Sub usrCntlBenachrichtigungen_SelectionChanged() Handles gridAvisoBenachrichtigungen.SelectionChanged
         Button10.Enabled = (gridAvisoBenachrichtigungen.SelectedRows.Count = 1)
+        txtVermerk.Text = ""
+        If gridAvisoBenachrichtigungen.SelectedRows.Count > 0 Then
+            txtVermerk.Text = If(gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_vermerk").Value, "")
+        End If
+
     End Sub
 
     Private Sub usrCntlBenachrichtigungen_SelectionChanged(sender As Object, e As EventArgs) Handles gridAvisoBenachrichtigungen.SelectionChanged
@@ -302,7 +383,31 @@
         initDgvAvisoBenachrichtigungen(True, Me.Font)
     End Sub
 
-    Private Sub cbxNeukunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNeukunden.CheckedChanged
+    Private Sub cbxNeukunden_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNeukunden.CheckedChanged, cbxVerwarung.CheckedChanged, cbxTaskForce.CheckedChanged
         initDgvAvisoBenachrichtigungen(True, Me.Font)
     End Sub
+
+    Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting
+        'If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then
+        '    If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_BenachrichtigungCode").Value = "6" Then
+
+        '        If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
+        '            'e.Graphics.Clear(Color.White)
+        '            e.Graphics.DrawImage(My.Resources.vorauszahlung_bg, e.CellBounds.X + 5, e.CellBounds.Y + 1, 18, e.CellBounds.Height - 2)
+        '            ' e.CellStyle.ForeColor = Color.White
+        '            gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = ""
+        '            '  e.PaintContent(e.CellBounds)
+        '        End If
+
+
+        '        If Not e.Handled Then
+        '            e.Handled = True
+        '            e.PaintContent(e.CellBounds)
+        '        End If
+        '    End If
+        'End If
+
+
+    End Sub
+
 End Class

Aviso/Classes/cSendungsoptions.vb

@@ -163,6 +163,12 @@ Public Class SendungOptions
         If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
         If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
 
+        Dim imgQR As Image = Nothing
+        If SENDUNG.tblSnd_Abfertigungsart_ID.ToString = "44" Then
+            imgQR = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/upload?avisoid=" & AVISO.AvisoID & "&sendungsid=" & SENDUNG.tblSnd_SendungID)
+        End If
+        If barcode IsNot Nothing Then VALUES.imgQR = imgQR
+
         VALUES.ABF_ART = SENDUNG.tblSnd_Abfertigungsart_ID
         VALUES.Abfertigungsnummer = SENDUNG.AbfertigungsNr
         VALUES.FilialeNr = SENDUNG.FilialenNr
@@ -172,7 +178,7 @@ Public Class SendungOptions
         If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_Grenzstelle") Then
             If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
                 '                VALUES.Grenze = VERAGSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name]  FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
-                VALUES.Grenze = VERAGSQL.getValueTxtBySql("SELECT Code +' - ' + [Description]  FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
+            VALUES.Grenze = VERAGSQL.getValueTxtBySql("SELECT Code +' - ' + [Description]  FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
 
             Else
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
@@ -238,6 +244,10 @@ Public Class SendungOptions
             VALUES.Tarifposanzahl = SENDUNG.tblSnd_anzahlHandling
         End If
 
+        If SENDUNG.tblSnd_Abfertigungsart_ID = 67 Or SENDUNG.tblSnd_Abfertigungsart_ID = 68 Then
+            VALUES.Tarifposanzahl = SENDUNG.tblSnd_anzahlHandling
+        End If
+
         VALUES.NCTS_VZAdr = If(SENDUNG.tblSnd_NCTSVerzollungsadresse, "")
         VALUES.NCTS_VZAdr &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Strasse, "")
         VALUES.NCTS_VZAdr &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Land, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_Ort, "")
@@ -285,7 +295,7 @@ Public Class SendungOptions
                 VALUES.Frachtfuehrer_Bar_Betrag3 = CDbl(dt.Rows(2)("rksv_umsatz")).ToString("C2")
             End If
         Catch ex As Exception
-            MsgBox("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
 
         'If SENDUNG.tblSnd_bar IsNot Nothing AndAlso CBool(SENDUNG.tblSnd_bar) Then
@@ -431,8 +441,9 @@ Public Class SendungOptions
                 End Select
             End If
 
+
             Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
-            If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString, SENDUNG.tblSnd_DakosyRef) Then
+            If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString, SENDUNG.tblSnd_DakosyRef, AVISO.Grenzstelle, SENDUNG.tblSnd_Zollsystem_Land) Then
                 ZOLLANMELDUNG = Nothing
             End If
 
@@ -467,7 +478,7 @@ Public Class SendungOptions
             End If
 
         Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         ' If art = "PRINT" Then
         'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)
@@ -643,7 +654,7 @@ Public Class SendungOptions
                 rpt.Run(False)
                 ' If Printername = "" Then rpt.Dispose() : Exit Sub
                 rpt.Document.Printer.PrinterName = Printername
-                rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
+                rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Printing.Margin(0, 0, 0, 0)
                 rpt.Document.Printer.OriginAtMargins = False
                 'rpt.Document.Printer.PrinterSettings.PrintRange = Printing.PrintRange.Selection
                 'rpt.Document.Printer.PrinterSettings.PrintRange = Printing.PrintRange.CurrentPage
@@ -657,7 +668,7 @@ Public Class SendungOptions
             End If
 
         Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
         ' If art = "PRINT" Then
         'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)

Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Public Class rptSUBWESTIIAkt 
+Partial Public Class rptSUBWESTIIAkt
     Inherits GrapeCity.ActiveReports.SectionReport
 
     'Form overrides dispose to clean up the component list.
@@ -8,7 +8,7 @@ Partial Public Class rptSUBWESTIIAkt
         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.
@@ -73,7 +73,7 @@ Partial Public Class rptSUBWESTIIAkt
         '
         Me.BG.DataField = ""
         Me.BG.Height = 11.81102!
-        Me.BG.ImageData = CType(resources.GetObject("BG.ImageData"), System.IO.Stream)
+        Me.BG.ImageBase64String = resources.GetString("BG.ImageBase64String")
         Me.BG.Left = -0.1968504!
         Me.BG.Name = "BG"
         Me.BG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Stretch
@@ -345,7 +345,7 @@ Partial Public Class rptSUBWESTIIAkt
         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.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.Custom
         Me.PageSettings.PaperName = "Custom paper"
         Me.PageSettings.PaperWidth = 8.426064!
         Me.PrintWidth = 8.425198!

Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.vb

@@ -1,5 +1,5 @@
 Imports GrapeCity.ActiveReports 
-Imports GrapeCity.ActiveReports.Document 
+Imports GrapeCity.ActiveReports.Document
 
 Public Class rptSUBWESTIIAkt
 

Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.Designer.vb

@@ -133,7 +133,7 @@ Partial Public Class rptSUBWESTIIAktNEU
         '
         Me.BG.DataField = ""
         Me.BG.Height = 11.9685!
-        Me.BG.ImageData = CType(resources.GetObject("BG.ImageData"), System.IO.Stream)
+        Me.BG.ImageBase64String = resources.GetString("BG.ImageBase64String")
         Me.BG.Left = -0.1771654!
         Me.BG.Name = "BG"
         Me.BG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Stretch
@@ -780,7 +780,7 @@ Partial Public Class rptSUBWESTIIAktNEU
         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.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.Custom
         Me.PageSettings.PaperName = "Custom paper"
         Me.PageSettings.PaperWidth = 8.426064!
         Me.PrintWidth = 8.425198!

Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.vb

@@ -1,5 +1,5 @@
 Imports GrapeCity.ActiveReports 
-Imports GrapeCity.ActiveReports.Document 
+Imports GrapeCity.ActiveReports.Document
 
 Public Class rptSUBWESTIIAktNEU
 

Aviso/GVMS/frmGVMS.vb

@@ -338,7 +338,7 @@
             Dim dt = SQL.loadDgvBySql("SELECT distinct([gvms_notification_boxid]) FROM [tblGVMS] where gvms_GMR is null and gvms_notification_boxid is not null", "FMZOLL")
             If dt IsNot Nothing Then
                 For Each row In dt.Rows
-                    cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid"))
+                    VERAG_PROG_ALLGEMEIN.cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid"))
                 Next
             End If
         Catch ex As Exception
@@ -377,7 +377,7 @@
         If MyDatagridview1.SelectedRows.Count() = 1 Then
             Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
             If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
-                cHMRC.DELETE_GMR(GVMS)
+                VERAG_PROG_ALLGEMEIN.cHMRC.DELETE_GMR(GVMS)
             End If
         ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
         Else
@@ -387,7 +387,7 @@
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        cHMRC.GET_GVMS_LIST()
+        VERAG_PROG_ALLGEMEIN.cHMRC.GET_GVMS_LIST()
 
     End Sub
 
@@ -395,7 +395,7 @@
         If MyDatagridview1.SelectedRows.Count() = 1 Then
             Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
             If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
-                cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR)
+                VERAG_PROG_ALLGEMEIN.cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR)
             End If
         ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
         Else
@@ -404,14 +404,14 @@
     End Sub
 
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
-        cHMRC.getGVMS_RefData()
+        VERAG_PROG_ALLGEMEIN.cHMRC.getGVMS_RefData()
     End Sub
 
     Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
         If MyDatagridview1.SelectedRows.Count() = 1 Then
             Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
             If GVMS.hasEntry AndAlso If(GVMS.gvms_notification_boxid, "") <> "" AndAlso If(GVMS.gvms_notification_id, "") <> "" Then
-                cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id)
+                VERAG_PROG_ALLGEMEIN.cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id)
             End If
         ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
         Else

Aviso/GVMS/frmGVMSNew.vb

@@ -221,9 +221,9 @@ Public Class frmGVMSNew
 
         If GVMS.SAVE() Then
             If If(GVMS.gvms_GMR, "") <> "" Then
-                cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE
+                VERAG_PROG_ALLGEMEIN.cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE
             Else
-                cHMRC.SEND_GVMS(GVMS)
+                VERAG_PROG_ALLGEMEIN.cHMRC.SEND_GVMS(GVMS)
             End If
 
             Return True