vermerke update

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

.editorconfig

@@ -0,0 +1,7 @@
+[*.vb]
+
+# BC42104: Die Variable wurde verwendet, bevor ihr ein Wert zugewiesen wurde.
+dotnet_diagnostic.BC42104.severity = suggestion
+
+# Default severity for all analyzer diagnostics
+dotnet_analyzer_diagnostic.severity = suggestion

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

@@ -247,14 +247,6 @@
     <None Include="Resources\searchGG.png" />
   </ItemGroup>
   <ItemGroup>
-    <ProjectReference Include="..\..\..\SDL\SDL\SDL\SDL.vbproj">
-      <Project>{289bcd77-bc00-4ba1-95ed-a79176d99525}</Project>
-      <Name>SDL</Name>
-    </ProjectReference>
-    <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
-      <Project>{A3B497BD-842C-4A2B-B398-ED1976849DF1}</Project>
-      <Name>VERAG_PROG_ALLGEMEIN</Name>
-    </ProjectReference>
     <ProjectReference Include="..\Aviso\Aviso.vbproj">
       <Project>{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}</Project>
       <Name>Aviso</Name>

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-12.0.0.0" newVersion="12.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" />

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>
@@ -208,10 +209,6 @@
     </BootstrapperPackage>
   </ItemGroup>
   <ItemGroup>
-    <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
-      <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
-      <Name>VERAG_PROG_ALLGEMEIN</Name>
-    </ProjectReference>
     <ProjectReference Include="..\Gemeinsames\Gemeinsames.vbproj">
       <Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
       <Name>Gemeinsames</Name>

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,30 +11,33 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "Gemeinsames\
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISOUPDATER", "AVISOUPDATER\AVISOUPDATER.vbproj", "{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "..\..\SDL\SDL\SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
-EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
-EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGAddIn", "..\..\OutlookAddIN\VERAGAddIn\VERAGAddIn\VERAGAddIn.vbproj", "{D579F7A6-7D29-4295-B382-DA5F7EFB4528}"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGAddIn", "..\..\VERAGAddIn\VERAGAddIn\VERAGAddIn.vbproj", "{D579F7A6-7D29-4295-B382-DA5F7EFB4528}"
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
-EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISO_INFO", "AVISO_INFO\AVISO_INFO.vbproj", "{A734141E-2C4E-4D70-81E8-A88184282AF5}"
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "..\..\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "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}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "..\..\SDL\SDL\SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "..\..\ADMIN\ADMIN\MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}"
+EndProject
+Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution Items", "{02EA681E-C7D8-13C7-8484-4AC65E1B71E8}"
+	ProjectSection(SolutionItems) = preProject
+		.editorconfig = .editorconfig
+	EndProjectSection
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -63,8 +66,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,9 +79,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|Any CPU.Build.0 = 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
@@ -104,34 +106,6 @@ Global
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x64.ActiveCfg = Release|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x64.Build.0 = Release|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x86.ActiveCfg = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x64.ActiveCfg = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x64.Build.0 = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.Build.0 = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.Build.0 = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x64.ActiveCfg = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x64.Build.0 = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x86.ActiveCfg = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|x64
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|x64
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.ActiveCfg = Debug|x64
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.Build.0 = Debug|x64
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.Build.0 = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.ActiveCfg = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.Build.0 = Release|Any CPU
-		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.ActiveCfg = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
@@ -160,28 +134,11 @@ Global
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.ActiveCfg = Release|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.Build.0 = Release|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x86.ActiveCfg = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x64.ActiveCfg = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x64.Build.0 = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.Build.0 = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.Build.0 = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x64.ActiveCfg = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x64.Build.0 = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.ActiveCfg = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.Build.0 = Release|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|x64.ActiveCfg = Debug|Any CPU
-		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|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
@@ -208,28 +165,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
@@ -240,22 +180,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
@@ -288,6 +212,70 @@ Global
 		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x64.Build.0 = Release|Any CPU
 		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x86.ActiveCfg = Release|Any CPU
 		{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x86.Build.0 = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x64.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.Build.0 = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x64.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x64.Build.0 = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x86.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x86.Build.0 = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.Build.0 = Debug|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.ActiveCfg = Debug|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.Build.0 = Debug|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x86.Build.0 = Debug|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.ActiveCfg = Release|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.Build.0 = Release|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.ActiveCfg = Release|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.Build.0 = Release|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.ActiveCfg = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x64.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x64.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x64.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x64.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x86.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x64.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x64.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

Aviso/ARConverterBackup/Auswertung/rptStat_VERIMEX_AbklTR.vb

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

Aviso/ARConverterBackup/AvisoReports/rptQRAviso.Designer.vb

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

Aviso/ARConverterBackup/AvisoReports/rptQRAviso.vb

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

Aviso/ARConverterBackup/AvisoReports/rptQRSendung_VerwahrungApp.Designer.vb

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

Aviso/ARConverterBackup/AvisoReports/rptQRSendung_VerwahrungApp.vb

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

Aviso/ARConverterBackup/AvisoReports/rptTEST.Designer.vb

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

Aviso/ARConverterBackup/AvisoReports/rptTEST.vb

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

Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAkt.Designer.vb

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

Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAkt.vb

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

Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.Designer.vb

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

Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.vb

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

Aviso/ARConverterBackup/WLAN/rptWLANTicket.Designer.vb

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

Aviso/ARConverterBackup/WLAN/rptWLANTicket.vb

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

Aviso/ARConverterBackup/rptAuswertung.designer.vb

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

Aviso/ARConverterBackup/rptAuswertung.vb

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

Aviso/ARConverterBackup/rptLKWBericht.Designer.vb

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

Aviso/ARConverterBackup/rptLKWBericht.vb

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

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,428 @@
+<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.lblAnh = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnAgg_Tnr = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.btnAgg_Origin = New System.Windows.Forms.Button()
+        Me.btnAgg_Unit = New System.Windows.Forms.Button()
+        Me.btnAgg_desc = New System.Windows.Forms.Button()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        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(486, 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.Label4)
+        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(675, 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(10, 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(387, 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(475, 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(473, 159)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(205, 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:"
+        '
+        'lblAnh
+        '
+        Me.lblAnh.Location = New System.Drawing.Point(332, 168)
+        Me.lblAnh.Name = "lblAnh"
+        Me.lblAnh.Size = New System.Drawing.Size(135, 13)
+        Me.lblAnh.TabIndex = 151
+        Me.lblAnh.Visible = False
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(3, 383)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(178, 23)
+        Me.Button1.TabIndex = 153
+        Me.Button1.Text = "Clear Token Cache"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'btnAgg_Tnr
+        '
+        Me.btnAgg_Tnr.BackColor = System.Drawing.Color.DeepSkyBlue
+        Me.btnAgg_Tnr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAgg_Tnr.Location = New System.Drawing.Point(71, 344)
+        Me.btnAgg_Tnr.Name = "btnAgg_Tnr"
+        Me.btnAgg_Tnr.Size = New System.Drawing.Size(83, 23)
+        Me.btnAgg_Tnr.TabIndex = 154
+        Me.btnAgg_Tnr.Tag = "1"
+        Me.btnAgg_Tnr.Text = "Tarifnummer"
+        Me.btnAgg_Tnr.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.Location = New System.Drawing.Point(6, 350)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(103, 17)
+        Me.Label2.TabIndex = 149
+        Me.Label2.Text = "Aggregieren:"
+        '
+        'btnAgg_Origin
+        '
+        Me.btnAgg_Origin.BackColor = System.Drawing.Color.DeepSkyBlue
+        Me.btnAgg_Origin.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAgg_Origin.Location = New System.Drawing.Point(160, 344)
+        Me.btnAgg_Origin.Name = "btnAgg_Origin"
+        Me.btnAgg_Origin.Size = New System.Drawing.Size(90, 23)
+        Me.btnAgg_Origin.TabIndex = 155
+        Me.btnAgg_Origin.Tag = "1"
+        Me.btnAgg_Origin.Text = "Ursprungsland"
+        Me.btnAgg_Origin.UseVisualStyleBackColor = False
+        '
+        'btnAgg_Unit
+        '
+        Me.btnAgg_Unit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAgg_Unit.Location = New System.Drawing.Point(255, 344)
+        Me.btnAgg_Unit.Name = "btnAgg_Unit"
+        Me.btnAgg_Unit.Size = New System.Drawing.Size(79, 23)
+        Me.btnAgg_Unit.TabIndex = 156
+        Me.btnAgg_Unit.Tag = "0"
+        Me.btnAgg_Unit.Text = "Maßeinheit"
+        Me.btnAgg_Unit.UseVisualStyleBackColor = True
+        '
+        'btnAgg_desc
+        '
+        Me.btnAgg_desc.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAgg_desc.Location = New System.Drawing.Point(340, 344)
+        Me.btnAgg_desc.Name = "btnAgg_desc"
+        Me.btnAgg_desc.Size = New System.Drawing.Size(126, 23)
+        Me.btnAgg_desc.TabIndex = 157
+        Me.btnAgg_desc.Tag = "0"
+        Me.btnAgg_desc.Text = "Warenbeschreibung"
+        Me.btnAgg_desc.UseVisualStyleBackColor = True
+        '
+        '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(675, 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
+        '
+        'Label4
+        '
+        Me.Label4.BackColor = System.Drawing.Color.White
+        Me.Label4.Location = New System.Drawing.Point(106, 8)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(45, 12)
+        Me.Label4.TabIndex = 149
+        Me.Label4.Text = "SUB"
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(416, 383)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(65, 23)
+        Me.Button2.TabIndex = 158
+        Me.Button2.Text = "json"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        '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(680, 413)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.btnAgg_desc)
+        Me.Controls.Add(Me.btnAgg_Tnr)
+        Me.Controls.Add(Me.btnAgg_Unit)
+        Me.Controls.Add(Me.btnAgg_Origin)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Button1)
+        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
+    Friend WithEvents Button1 As Button
+    Friend WithEvents btnAgg_Tnr As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents btnAgg_Origin As Button
+    Friend WithEvents btnAgg_Unit As Button
+    Friend WithEvents btnAgg_desc As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Button2 As Button
+End Class

Aviso/ATEZ/frmATEZ_EZA.vb

@@ -0,0 +1,794 @@
+
+Imports com.esendex.sdk.optouts.models
+Imports DAKOSY_Worker
+Imports DAKOSY_Worker.eZollTypes
+Imports SDL
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.cRelayHub
+
+
+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")
+    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, Button2.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 AdditionalSettings As New List(Of String)
+            If btnAgg_desc.Tag = 1 Then AdditionalSettings.Add("description")
+            If btnAgg_Tnr.Tag = 1 Then AdditionalSettings.Add("commodity_code")
+            If btnAgg_Origin.Tag = 1 Then AdditionalSettings.Add("country_of_origin")
+            If btnAgg_Unit.Tag = 1 Then AdditionalSettings.Add("unit_type")
+
+
+            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 = "TR",'"TR",
+               .destinationCountry = "DE", '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 = "0049 8503 7973999 " & If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl), "200", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl),'If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr, "+43 7711/2777 0"),
+                                        .contactPersonPosition = "Zolldeklarant/in",
+                                        .contactPersonEmail = If(String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email), "quickstop@verag.ag", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
+                                    },
+                                    .declarantIsConsignee = True,
+                                    .representationRelationshipCode = "",'-1, '??????????????????????????????????????????????????????????????
+                                    .inputTaxDeduction = True,'"",'"true",
+                                    .procedureCodeRequested = procedureCodeRequested.ToString,'                                    .goodsStatus = "",'"EU",
+                                     .transportMeansArrivalIdentity = txtLKWId.Text,
+                                    .transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
+                                   }
+                                }
+                            }
+                    },
+                 .AdditionalSettings = New cRelayHubAdditionalSettings With {
+                        .combineOptions = AdditionalSettings
+                    }
+            }
+
+
+            '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
+            If If(sbAdressierteZollstelle._value, "").Length >= 4 Then
+                ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice = sbAdressierteZollstelle._value
+            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
+                    DOC.fileType = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getRelayHub_AnhDesc(r.Cells("anh_Art").Value)
+
+                    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, "")
+                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, "")
+                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
+
+
+            '-------------------JSON AUSGEBEN-----------------------------------------------------------------------------------------------------------------------------------------------------------------
+            If sender Is Button2 Then
+                MsgBox(VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getJSON(ATEZ_RH_EZA))
+                Exit Sub ' --> Json uns raus...
+
+            End If
+            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            '-------------------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 
+        FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me)
+        txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "EZA")
+        txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA")
+
+        Label4.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "-").ToString
+
+        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='EZA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "' " & If(txtDyMandant.Text = "UNAT", ", 'ATSPED' ", "") & ")  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 & "' " & If(txtDyMandant.Text = "UNAT", ", 'ATSPED' ", "") & ")  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,
+                                                   [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_Art").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
+
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        cRelayHubToken.DeleteStore()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAgg_Tnr.Click, btnAgg_desc.Click, btnAgg_Origin.Click, btnAgg_Unit.Click
+        If sender.Tag = 0 Then
+            sender.Tag = 1
+            sender.BackColor = Color.DeepSkyBlue
+        Else
+            sender.Tag = 0
+            sender.BackColor = SystemColors.Control
+        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 As cATEZ_NCTS_IN = New cATEZ_NCTS_IN("ATEZ")
+    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.setJsonNCTS(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/AktenErfassung/frmEintragAviso.designer.vb

@@ -75,6 +75,7 @@ Partial Class frmEintragAviso
         Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblAktenuebersicht = New System.Windows.Forms.Label()
         Me.grpAviso = New System.Windows.Forms.GroupBox()
+        Me.cbxEintreffenAus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblTeamFraechter = New System.Windows.Forms.Label()
         Me.lblTeamAvisierer = New System.Windows.Forms.Label()
         Me.cboTransportmittelart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -82,7 +83,7 @@ Partial Class frmEintragAviso
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.lblErr_KdNr = New System.Windows.Forms.Label()
-        Me.Button5 = New System.Windows.Forms.Button()
+        Me.btnStreckendauerBerechnen = New System.Windows.Forms.Button()
         Me.lblErrVorraussuchtlEintreffen = New System.Windows.Forms.Label()
         Me.txtAvisiererAuftragsNr = New System.Windows.Forms.TextBox()
         Me.lblAvisiererAtrNr = New System.Windows.Forms.Label()
@@ -151,6 +152,8 @@ Partial Class frmEintragAviso
         Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label2 = New System.Windows.Forms.Label()
+        Me.lblErrErfasstDat = New System.Windows.Forms.Label()
+        Me.lblAnhaenge = New System.Windows.Forms.Label()
         Me.UsrCntlAviso_Vorpapiere1 = New AVISO.usrCntlAviso_Vorpapiere()
         Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
         Me.panAdmin.SuspendLayout()
@@ -728,6 +731,7 @@ Partial Class frmEintragAviso
         '
         'grpAviso
         '
+        Me.grpAviso.Controls.Add(Me.cbxEintreffenAus)
         Me.grpAviso.Controls.Add(Me.lblTeamFraechter)
         Me.grpAviso.Controls.Add(Me.lblTeamAvisierer)
         Me.grpAviso.Controls.Add(Me.cboTransportmittelart)
@@ -735,7 +739,7 @@ Partial Class frmEintragAviso
         Me.grpAviso.Controls.Add(Me.PictureBox1)
         Me.grpAviso.Controls.Add(Me.Button1)
         Me.grpAviso.Controls.Add(Me.lblErr_KdNr)
-        Me.grpAviso.Controls.Add(Me.Button5)
+        Me.grpAviso.Controls.Add(Me.btnStreckendauerBerechnen)
         Me.grpAviso.Controls.Add(Me.lblErrVorraussuchtlEintreffen)
         Me.grpAviso.Controls.Add(Me.txtAvisiererAuftragsNr)
         Me.grpAviso.Controls.Add(Me.lblAvisiererAtrNr)
@@ -788,6 +792,17 @@ Partial Class frmEintragAviso
         Me.grpAviso.TabStop = False
         Me.grpAviso.Text = "Aviso"
         '
+        'cbxEintreffenAus
+        '
+        Me.cbxEintreffenAus._allowedValuesFreiText = Nothing
+        Me.cbxEintreffenAus._allowFreiText = True
+        Me.cbxEintreffenAus._value = ""
+        Me.cbxEintreffenAus.FormattingEnabled = True
+        Me.cbxEintreffenAus.Location = New System.Drawing.Point(218, 99)
+        Me.cbxEintreffenAus.Name = "cbxEintreffenAus"
+        Me.cbxEintreffenAus.Size = New System.Drawing.Size(81, 21)
+        Me.cbxEintreffenAus.TabIndex = 51
+        '
         'lblTeamFraechter
         '
         Me.lblTeamFraechter.BackColor = System.Drawing.Color.Transparent
@@ -878,17 +893,16 @@ Partial Class frmEintragAviso
         Me.lblErr_KdNr.Text = "Kunden-Nummer eingeben!"
         Me.lblErr_KdNr.Visible = False
         '
-        'Button5
+        'btnStreckendauerBerechnen
         '
-        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.Button5.Location = New System.Drawing.Point(272, 48)
-        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(119, 21)
-        Me.Button5.TabIndex = 7
-        Me.Button5.Text = "Berechnen"
-        Me.Button5.UseVisualStyleBackColor = True
-        Me.Button5.Visible = False
+        Me.btnStreckendauerBerechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnStreckendauerBerechnen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnStreckendauerBerechnen.Location = New System.Drawing.Point(279, 45)
+        Me.btnStreckendauerBerechnen.Name = "btnStreckendauerBerechnen"
+        Me.btnStreckendauerBerechnen.Size = New System.Drawing.Size(118, 21)
+        Me.btnStreckendauerBerechnen.TabIndex = 7
+        Me.btnStreckendauerBerechnen.Text = "Berechnen"
+        Me.btnStreckendauerBerechnen.UseVisualStyleBackColor = True
         '
         'lblErrVorraussuchtlEintreffen
         '
@@ -896,9 +910,9 @@ Partial Class frmEintragAviso
         Me.lblErrVorraussuchtlEintreffen.ForeColor = System.Drawing.Color.Red
         Me.lblErrVorraussuchtlEintreffen.Location = New System.Drawing.Point(147, 69)
         Me.lblErrVorraussuchtlEintreffen.Name = "lblErrVorraussuchtlEintreffen"
-        Me.lblErrVorraussuchtlEintreffen.Size = New System.Drawing.Size(244, 13)
+        Me.lblErrVorraussuchtlEintreffen.Size = New System.Drawing.Size(250, 13)
         Me.lblErrVorraussuchtlEintreffen.TabIndex = 8
-        Me.lblErrVorraussuchtlEintreffen.Text = "Datum kann icht kleiner als Erfassungsdatum sein!"
+        Me.lblErrVorraussuchtlEintreffen.Text = "Datum kann nicht kleiner als Erfassungsdatum sein!"
         Me.lblErrVorraussuchtlEintreffen.Visible = False
         '
         'txtAvisiererAuftragsNr
@@ -930,6 +944,7 @@ Partial Class frmEintragAviso
         Me.kdAuftraggeber._displayWoelflKd = False
         Me.kdAuftraggeber._hideIfListEmpty = True
         Me.kdAuftraggeber._loadKdData = False
+        Me.kdAuftraggeber._searchName1 = True
         Me.kdAuftraggeber._UseFIRMA = ""
         Me.kdAuftraggeber._ValueKdAndName = True
         Me.kdAuftraggeber.dgvpos = "LEFT"
@@ -958,6 +973,7 @@ Partial Class frmEintragAviso
         Me.kdAvisierer._displayWoelflKd = False
         Me.kdAvisierer._hideIfListEmpty = True
         Me.kdAvisierer._loadKdData = False
+        Me.kdAvisierer._searchName1 = True
         Me.kdAvisierer._UseFIRMA = ""
         Me.kdAvisierer._ValueKdAndName = True
         Me.kdAvisierer.dgvpos = "LEFT"
@@ -985,6 +1001,7 @@ Partial Class frmEintragAviso
         Me.kdFrächter._displayWoelflKd = False
         Me.kdFrächter._hideIfListEmpty = True
         Me.kdFrächter._loadKdData = False
+        Me.kdFrächter._searchName1 = True
         Me.kdFrächter._UseFIRMA = ""
         Me.kdFrächter._ValueKdAndName = True
         Me.kdFrächter.dgvpos = "LEFT"
@@ -1184,7 +1201,6 @@ Partial Class frmEintragAviso
         Me.cboImEx.Name = "cboImEx"
         Me.cboImEx.Size = New System.Drawing.Size(79, 28)
         Me.cboImEx.TabIndex = 21
-        Me.cboImEx.Visible = False
         '
         'Label1
         '
@@ -1195,7 +1211,6 @@ Partial Class frmEintragAviso
         Me.Label1.Size = New System.Drawing.Size(35, 13)
         Me.Label1.TabIndex = 19
         Me.Label1.Text = "Im/Ex"
-        Me.Label1.Visible = False
         '
         'lblErr_Uhrzeit
         '
@@ -1323,9 +1338,9 @@ Partial Class frmEintragAviso
         '
         Me.datVoraussichtlichesEintreffen.CustomFormat = "dd.MM.yyyy"
         Me.datVoraussichtlichesEintreffen.Format = System.Windows.Forms.DateTimePickerFormat.Custom
-        Me.datVoraussichtlichesEintreffen.Location = New System.Drawing.Point(177, 48)
+        Me.datVoraussichtlichesEintreffen.Location = New System.Drawing.Point(171, 47)
         Me.datVoraussichtlichesEintreffen.Name = "datVoraussichtlichesEintreffen"
-        Me.datVoraussichtlichesEintreffen.Size = New System.Drawing.Size(89, 20)
+        Me.datVoraussichtlichesEintreffen.Size = New System.Drawing.Size(96, 20)
         Me.datVoraussichtlichesEintreffen.TabIndex = 6
         Me.datVoraussichtlichesEintreffen.Value = New Date(2020, 1, 23, 0, 0, 0, 0)
         Me.datVoraussichtlichesEintreffen.Visible = False
@@ -1521,6 +1536,7 @@ Partial Class frmEintragAviso
         Me.txtSendungen._DateTimeOnly = False
         Me.txtSendungen._numbersOnly = True
         Me.txtSendungen._numbersOnlyKommastellen = ""
+        Me.txtSendungen._numbersOnlyTrennzeichen = True
         Me.txtSendungen._Prozent = False
         Me.txtSendungen._ShortDateNew = False
         Me.txtSendungen._ShortDateOnly = False
@@ -1572,6 +1588,7 @@ Partial Class frmEintragAviso
         Me.txtSndFremd._DateTimeOnly = False
         Me.txtSndFremd._numbersOnly = True
         Me.txtSndFremd._numbersOnlyKommastellen = ""
+        Me.txtSndFremd._numbersOnlyTrennzeichen = True
         Me.txtSndFremd._Prozent = False
         Me.txtSndFremd._ShortDateNew = False
         Me.txtSndFremd._ShortDateOnly = False
@@ -1635,6 +1652,7 @@ Partial Class frmEintragAviso
         Me.txtSndFiskalDE._DateTimeOnly = False
         Me.txtSndFiskalDE._numbersOnly = True
         Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
+        Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
         Me.txtSndFiskalDE._Prozent = False
         Me.txtSndFiskalDE._ShortDateNew = False
         Me.txtSndFiskalDE._ShortDateOnly = False
@@ -1669,6 +1687,7 @@ Partial Class frmEintragAviso
         Me.txtSndFiskalAT._DateTimeOnly = False
         Me.txtSndFiskalAT._numbersOnly = True
         Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
+        Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
         Me.txtSndFiskalAT._Prozent = False
         Me.txtSndFiskalAT._ShortDateNew = False
         Me.txtSndFiskalAT._ShortDateOnly = False
@@ -1808,6 +1827,28 @@ Partial Class frmEintragAviso
         Me.Label2.TabIndex = 5
         Me.Label2.Text = "FIRMA:"
         '
+        'lblErrErfasstDat
+        '
+        Me.lblErrErfasstDat.AutoSize = True
+        Me.lblErrErfasstDat.ForeColor = System.Drawing.Color.Red
+        Me.lblErrErfasstDat.Location = New System.Drawing.Point(139, 5)
+        Me.lblErrErfasstDat.Name = "lblErrErfasstDat"
+        Me.lblErrErfasstDat.Size = New System.Drawing.Size(85, 26)
+        Me.lblErrErfasstDat.TabIndex = 52
+        Me.lblErrErfasstDat.Text = "Darf nicht in der " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zukunft liegen!"
+        Me.lblErrErfasstDat.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErrErfasstDat.Visible = False
+        '
+        'lblAnhaenge
+        '
+        Me.lblAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.lblAnhaenge.AutoSize = True
+        Me.lblAnhaenge.Location = New System.Drawing.Point(699, 641)
+        Me.lblAnhaenge.Name = "lblAnhaenge"
+        Me.lblAnhaenge.Size = New System.Drawing.Size(56, 13)
+        Me.lblAnhaenge.TabIndex = 56
+        Me.lblAnhaenge.Text = "Anhänge: "
+        '
         'UsrCntlAviso_Vorpapiere1
         '
         Me.UsrCntlAviso_Vorpapiere1.BackColor = System.Drawing.Color.White
@@ -1832,6 +1873,7 @@ Partial Class frmEintragAviso
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(792, 765)
+        Me.Controls.Add(Me.lblAnhaenge)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.cboFirma)
         Me.Controls.Add(Me.UsrCntlAviso_Vorpapiere1)
@@ -1863,6 +1905,7 @@ Partial Class frmEintragAviso
         Me.Controls.Add(Me.lblErrFmZollKdNr)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.lblErrErfasstDat)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.KeyPreview = True
@@ -1894,12 +1937,10 @@ Partial Class frmEintragAviso
     Friend WithEvents btnOK As System.Windows.Forms.Button
     Friend WithEvents lblErfAm As System.Windows.Forms.Label
     Friend WithEvents btnAbbruch As System.Windows.Forms.Button
-    Friend WithEvents txtInfo As System.Windows.Forms.TextBox
     Friend WithEvents Label3 As System.Windows.Forms.Label
     Friend WithEvents lblFraecher As System.Windows.Forms.Label
     Friend WithEvents lblAvisierer As System.Windows.Forms.Label
     Friend WithEvents lblLkwKennzeichen As System.Windows.Forms.Label
-    Friend WithEvents txtÄnderungen As System.Windows.Forms.TextBox
     Friend WithEvents lblAenderungen As System.Windows.Forms.Label
     Friend WithEvents txtLKW_Nr As System.Windows.Forms.TextBox
     Friend WithEvents txtDatum As System.Windows.Forms.TextBox
@@ -2005,7 +2046,7 @@ Partial Class frmEintragAviso
     Friend WithEvents txtAvisiererAuftragsNr As TextBox
     Friend WithEvents lblAvisiererAtrNr As Label
     Friend WithEvents lblErrVorraussuchtlEintreffen As Label
-    Friend WithEvents Button5 As Button
+    Friend WithEvents btnStreckendauerBerechnen As Button
     Friend WithEvents lblVoraussEintreff As Label
     Friend WithEvents datVoraussichtlichesEintreffen As DateTimePicker
     Friend WithEvents columnName As DataGridViewTextBoxColumn
@@ -2021,4 +2062,9 @@ Partial Class frmEintragAviso
     Friend WithEvents Label4 As Label
     Friend WithEvents lblTeamFraechter As Label
     Friend WithEvents lblTeamAvisierer As Label
+    Friend WithEvents cbxEintreffenAus As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents lblErrErfasstDat As Label
+    Public WithEvents lblAnhaenge As Label
+    Public WithEvents txtInfo As TextBox
+    Public WithEvents txtÄnderungen As TextBox
 End Class

Aviso/AktenErfassung/frmEintragAviso.resx

@@ -120,94 +120,94 @@
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
-        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
-        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
-        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
-        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
-        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
-        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
-        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
-        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
-        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
-        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
-        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
-        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
-        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
-        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
+        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d
+        0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV
+        vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ
+        WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX
+        LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8
+        CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF
+        +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB
+        WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y
+        jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos
+        gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36
+        eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+
+        W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX
+        qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY
+        DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+
+        6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
 </value>
   </data>
   <data name="btnAuftraggeber.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
-        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
-        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
-        GQAZAwERAAIRAQMRAf/EABYAAQEBAAAAAAAAAAAAAAAAAAoACf/EACgQAAAGAgICAQMFAAAAAAAAAAEC
-        AwQFBgcIABESCSExEwpBQiMVJf/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAAAAAA
-        AAAA/9oADAMBAAIRAxEAPwBaeVMm0DDWJc2bBZoyJfq9S8ZT2brDZ5YuXLNAxkbXqhYphu3QQbNJhu1Q
-        Arduk3RTTTKHfiHXACDf/wAvPZA2bnDrF+B6m31xRnmgN4C85cypJZpfVlI/TgRmmORWUI3crk+Uv8o5
-        SD8GBT68BmuqO3eIt6dJS7a4Gt+X4xjLUe3OFYmUzNa3EvRr9WmKp3ca6KabMgsowdAUPLxEhw6Hroeu
-        BtdwMXN69b5vcLRnb7WasTLWAs2WVdga5XZR4mKrNCdLb5hy0KsHmn0ms4QImcfL4ARHgA3hfT364qrR
-        k4zYLbHa7GGz9XimkPkjW9hqlI2mzlygkmQi0XBSLJVaDkkH7sTf1zkz4hTpeJ1RSERKALg9MGqGRdNf
-        U9M4yyfBStTsFpNnHJrCn2NNNG2VStXVBZSNYy5EVFkSPU2qRDOCJqGAph6AR64Ci+AWX3JWzfSe18ns
-        GeuhGHJlLIWZ87MMo3smaqZiqexlR2tlklE0Gx7LORD5N1Oi7H7DhgBjpESOJjE+4mJgKrF6j/k3Q1QP
-        RI3PGQGtXO0esRjCewqiCUGsiPkqQDjfRUDyER/d8fpwN3PTe69ruEMf5x159iQ1Gdw8XEF5sGJMpWDY
-        +nZayU2yE6UbN06v1D2SXlXjZ6zdOnKSjgggkZEqRDfyFJwG0cC4FwLgXA//2Q==
+        /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQIBAQEBAQICAgICAgIC
+        AgICAgMCAgIDAwMDAwMFBQUFBQUFBQUFBQUFBQX/2wBDAQEBAQIBAgMCAgMEBAMEBAUFBQUFBQUFBQUF
+        BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQX/wAARCAAZABkDAREAAhEBAxEB/8QA
+        FgABAQEAAAAAAAAAAAAAAAAACgAJ/8QAKBAAAAYCAgIBAwUAAAAAAAAAAQIDBAUGBwgAERIJITETCkFC
+        IxUl/8QAFAEBAAAAAAAAAAAAAAAAAAAAAP/EABQRAQAAAAAAAAAAAAAAAAAAAAD/2gAMAwEAAhEDEQA/
+        AFp5UybQMNYlzZsFmjIl+r1LxlPZusNnli5cs0DGRteqFimG7dBBs0mG7VACt26TdFNNMod+IdcAIN//
+        AC89kDZucOsX4HqbfXFGeaA3gLzlzKklml9WUj9OBGaY5FZQjdyuT5S/yjlIPwYFPrwGa6o7d4i3p0lL
+        trga35fjGMtR7c4ViZTM1rcS9Gv1aYqndxroppsyCyjB0BQ8vESHDoeuh64G13Axc3r1vm9wtGdvtZqx
+        MtYCzZZV2BrldlHiYqs0J0tvmHLQqweafSazhAiZx8vgBEeADeF9PfriqtGTjNgtsdrsYbP1eKaQ+SNb
+        2GqUjabOXKCSZCLRcFIslVoOSQfuxN/XOTPiFOl4nVFIREoAuD0waoZF019T0zjLJ8FK1OwWk2ccmsKf
+        Y000bZVK1dUFlI1jLkRUWRI9TapEM4ImoYCmHoBHrgKL4BZfclbN9J7XyewZ66EYcmUshZnzswyjeyZq
+        pmKp7GVHa2WSUTQbHss5EPk3U6LsfsOGAGOkRI4mMT7iYmAqsXqP+TdDVA9Ejc8ZAa1c7R6xGMJ7CqIJ
+        QayI+SpAON9FQPIRH93x+nA3c9N7r2u4Qx/nHXn2JDUZ3DxcQXmwYkylYNj6dlrJTbITpRs3Tq/UPZJe
+        VeNnrN06cpKOCCCRkSpEN/IUnAbRwLgXAuBcD//Z
 </value>
   </data>
   <data name="btnAvisiererKd.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
-        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
-        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
-        GQAZAwERAAIRAQMRAf/EABYAAQEBAAAAAAAAAAAAAAAAAAoACf/EACgQAAAGAgICAQMFAAAAAAAAAAEC
-        AwQFBgcIABESCSExEwpBQiMVJf/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAAAAAA
-        AAAA/9oADAMBAAIRAxEAPwBaeVMm0DDWJc2bBZoyJfq9S8ZT2brDZ5YuXLNAxkbXqhYphu3QQbNJhu1Q
-        Arduk3RTTTKHfiHXACDf/wAvPZA2bnDrF+B6m31xRnmgN4C85cypJZpfVlI/TgRmmORWUI3crk+Uv8o5
-        SD8GBT68BmuqO3eIt6dJS7a4Gt+X4xjLUe3OFYmUzNa3EvRr9WmKp3ca6KabMgsowdAUPLxEhw6Hroeu
-        BtdwMXN69b5vcLRnb7WasTLWAs2WVdga5XZR4mKrNCdLb5hy0KsHmn0ms4QImcfL4ARHgA3hfT364qrR
-        k4zYLbHa7GGz9XimkPkjW9hqlI2mzlygkmQi0XBSLJVaDkkH7sTf1zkz4hTpeJ1RSERKALg9MGqGRdNf
-        U9M4yyfBStTsFpNnHJrCn2NNNG2VStXVBZSNYy5EVFkSPU2qRDOCJqGAph6AR64Ci+AWX3JWzfSe18ns
-        GeuhGHJlLIWZ87MMo3smaqZiqexlR2tlklE0Gx7LORD5N1Oi7H7DhgBjpESOJjE+4mJgKrF6j/k3Q1QP
-        RI3PGQGtXO0esRjCewqiCUGsiPkqQDjfRUDyER/d8fpwN3PTe69ruEMf5x159iQ1Gdw8XEF5sGJMpWDY
-        +nZayU2yE6UbN06v1D2SXlXjZ6zdOnKSjgggkZEqRDfyFJwG0cC4FwLgXA//2Q==
+        /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQIBAQEBAQICAgICAgIC
+        AgICAgMCAgIDAwMDAwMFBQUFBQUFBQUFBQUFBQX/2wBDAQEBAQIBAgMCAgMEBAMEBAUFBQUFBQUFBQUF
+        BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQX/wAARCAAZABkDAREAAhEBAxEB/8QA
+        FgABAQEAAAAAAAAAAAAAAAAACgAJ/8QAKBAAAAYCAgIBAwUAAAAAAAAAAQIDBAUGBwgAERIJITETCkFC
+        IxUl/8QAFAEBAAAAAAAAAAAAAAAAAAAAAP/EABQRAQAAAAAAAAAAAAAAAAAAAAD/2gAMAwEAAhEDEQA/
+        AFp5UybQMNYlzZsFmjIl+r1LxlPZusNnli5cs0DGRteqFimG7dBBs0mG7VACt26TdFNNMod+IdcAIN//
+        AC89kDZucOsX4HqbfXFGeaA3gLzlzKklml9WUj9OBGaY5FZQjdyuT5S/yjlIPwYFPrwGa6o7d4i3p0lL
+        trga35fjGMtR7c4ViZTM1rcS9Gv1aYqndxroppsyCyjB0BQ8vESHDoeuh64G13Axc3r1vm9wtGdvtZqx
+        MtYCzZZV2BrldlHiYqs0J0tvmHLQqweafSazhAiZx8vgBEeADeF9PfriqtGTjNgtsdrsYbP1eKaQ+SNb
+        2GqUjabOXKCSZCLRcFIslVoOSQfuxN/XOTPiFOl4nVFIREoAuD0waoZF019T0zjLJ8FK1OwWk2ccmsKf
+        Y000bZVK1dUFlI1jLkRUWRI9TapEM4ImoYCmHoBHrgKL4BZfclbN9J7XyewZ66EYcmUshZnzswyjeyZq
+        pmKp7GVHa2WSUTQbHss5EPk3U6LsfsOGAGOkRI4mMT7iYmAqsXqP+TdDVA9Ejc8ZAa1c7R6xGMJ7CqIJ
+        QayI+SpAON9FQPIRH93x+nA3c9N7r2u4Qx/nHXn2JDUZ3DxcQXmwYkylYNj6dlrJTbITpRs3Tq/UPZJe
+        VeNnrN06cpKOCCCRkSpEN/IUnAbRwLgXAuBcD//Z
 </value>
   </data>
   <data name="btnFraechterKd.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
-        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
-        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
-        GQAZAwERAAIRAQMRAf/EABYAAQEBAAAAAAAAAAAAAAAAAAoACf/EACgQAAAGAgICAQMFAAAAAAAAAAEC
-        AwQFBgcIABESCSExEwpBQiMVJf/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAAAAAA
-        AAAA/9oADAMBAAIRAxEAPwBaeVMm0DDWJc2bBZoyJfq9S8ZT2brDZ5YuXLNAxkbXqhYphu3QQbNJhu1Q
-        Arduk3RTTTKHfiHXACDf/wAvPZA2bnDrF+B6m31xRnmgN4C85cypJZpfVlI/TgRmmORWUI3crk+Uv8o5
-        SD8GBT68BmuqO3eIt6dJS7a4Gt+X4xjLUe3OFYmUzNa3EvRr9WmKp3ca6KabMgsowdAUPLxEhw6Hroeu
-        BtdwMXN69b5vcLRnb7WasTLWAs2WVdga5XZR4mKrNCdLb5hy0KsHmn0ms4QImcfL4ARHgA3hfT364qrR
-        k4zYLbHa7GGz9XimkPkjW9hqlI2mzlygkmQi0XBSLJVaDkkH7sTf1zkz4hTpeJ1RSERKALg9MGqGRdNf
-        U9M4yyfBStTsFpNnHJrCn2NNNG2VStXVBZSNYy5EVFkSPU2qRDOCJqGAph6AR64Ci+AWX3JWzfSe18ns
-        GeuhGHJlLIWZ87MMo3smaqZiqexlR2tlklE0Gx7LORD5N1Oi7H7DhgBjpESOJjE+4mJgKrF6j/k3Q1QP
-        RI3PGQGtXO0esRjCewqiCUGsiPkqQDjfRUDyER/d8fpwN3PTe69ruEMf5x159iQ1Gdw8XEF5sGJMpWDY
-        +nZayU2yE6UbN06v1D2SXlXjZ6zdOnKSjgggkZEqRDfyFJwG0cC4FwLgXA//2Q==
+        /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQIBAQEBAQICAgICAgIC
+        AgICAgMCAgIDAwMDAwMFBQUFBQUFBQUFBQUFBQX/2wBDAQEBAQIBAgMCAgMEBAMEBAUFBQUFBQUFBQUF
+        BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQX/wAARCAAZABkDAREAAhEBAxEB/8QA
+        FgABAQEAAAAAAAAAAAAAAAAACgAJ/8QAKBAAAAYCAgIBAwUAAAAAAAAAAQIDBAUGBwgAERIJITETCkFC
+        IxUl/8QAFAEBAAAAAAAAAAAAAAAAAAAAAP/EABQRAQAAAAAAAAAAAAAAAAAAAAD/2gAMAwEAAhEDEQA/
+        AFp5UybQMNYlzZsFmjIl+r1LxlPZusNnli5cs0DGRteqFimG7dBBs0mG7VACt26TdFNNMod+IdcAIN//
+        AC89kDZucOsX4HqbfXFGeaA3gLzlzKklml9WUj9OBGaY5FZQjdyuT5S/yjlIPwYFPrwGa6o7d4i3p0lL
+        trga35fjGMtR7c4ViZTM1rcS9Gv1aYqndxroppsyCyjB0BQ8vESHDoeuh64G13Axc3r1vm9wtGdvtZqx
+        MtYCzZZV2BrldlHiYqs0J0tvmHLQqweafSazhAiZx8vgBEeADeF9PfriqtGTjNgtsdrsYbP1eKaQ+SNb
+        2GqUjabOXKCSZCLRcFIslVoOSQfuxN/XOTPiFOl4nVFIREoAuD0waoZF019T0zjLJ8FK1OwWk2ccmsKf
+        Y000bZVK1dUFlI1jLkRUWRI9TapEM4ImoYCmHoBHrgKL4BZfclbN9J7XyewZ66EYcmUshZnzswyjeyZq
+        pmKp7GVHa2WSUTQbHss5EPk3U6LsfsOGAGOkRI4mMT7iYmAqsXqP+TdDVA9Ejc8ZAa1c7R6xGMJ7CqIJ
+        QayI+SpAON9FQPIRH93x+nA3c9N7r2u4Qx/nHXn2JDUZ3DxcQXmwYkylYNj6dlrJTbITpRs3Tq/UPZJe
+        VeNnrN06cpKOCCCRkSpEN/IUnAbRwLgXAuBcD//Z
 </value>
   </data>
   <data name="btnAbsSrch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
-        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
-        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
-        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
-        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
-        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
-        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
-        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
-        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
-        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
-        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
-        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
-        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
-        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
-        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
+        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d
+        0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV
+        vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ
+        WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX
+        LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8
+        CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF
+        +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB
+        WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y
+        jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos
+        gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36
+        eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+
+        W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX
+        qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY
+        DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+
+        6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
 </value>
   </data>
   <metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

Aviso/AktenErfassung/frmEintragAviso.vb

@@ -2,7 +2,8 @@
 Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
 Imports System.Data.OleDb
 Imports System.Data.SqlClient
-Imports System.Drawing.Printing 
+Imports System.Drawing.Printing
+Imports System.Linq.Expressions
 
 Public Class frmEintragAviso
     '   Public frmHilf As frmMain
@@ -10,7 +11,7 @@ Public Class frmEintragAviso
     Dim ATILLA_NEUERAKTENDECKEL = True
     Dim Firmen As New cFirmenDAL
     Dim AvisoDAL As New cAvisoDAL
-    Dim myAviso As New cAviso
+    Public myAviso As New cAviso
     Dim AVISOFUNC As New AvisoStatusFunctions
     Dim ADMIN As New cADMIN
     Dim hÄnderung As Boolean = False
@@ -31,6 +32,9 @@ Public Class frmEintragAviso
     Dim PROG As New cProgramFunctions
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
+    Dim INFO As String = ""
+
+    Public getFromAVISO_Trip As cAviso = Nothing
 
     Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
 
@@ -39,6 +43,14 @@ Public Class frmEintragAviso
         Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
     End Sub
 
+
+    Public Sub New(INFO As String)
+        InitializeComponent()
+        Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
+
+        Me.INFO = INFO
+    End Sub
+
     Private Sub frmEintragAviso_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         If FIRMA_TMP = "ATILLA" And myAviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
             If myAviso.Frächter = "" Then
@@ -101,6 +113,21 @@ Public Class frmEintragAviso
         cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
         cboGrenzstelle.changeItem("")
 
+        'Select Case FIRMA_TMP
+        '    Case "ATILLA"
+        '        cboGrenzstelle.Items.Clear()
+        '        cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Grenzstelle] IN ('SUB','NEU') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
+        '        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
+        '        'cboGrenzstelle.changeItem("")
+
+        '    Case Else
+        '        cboGrenzstelle.Items.Clear()
+        '        cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
+        '        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
+        '        cboGrenzstelle.changeItem("")
+
+        'End Select
+
         cboTransportmittelart.Items.Clear()
         cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
         cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKW", "LKW"))
@@ -141,7 +168,8 @@ Public Class frmEintragAviso
                 Label1.Visible = True
                 cboImEx.Visible = True
 
-                txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
+                'txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
+                txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Code] +' - ' + [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"})
                 'txtBestimmungszollstelle.Visible = True
                 'lblZA.Visible = True
                 pnl.Visible = True
@@ -156,15 +184,21 @@ Public Class frmEintragAviso
                 Label1.Visible = True
                 cboImEx.Visible = True
 
-                txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
+                '   txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
+                txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Code] +' - ' + [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"})
 
                 pnl.Visible = True
+
+            Case "ATILLA"
+                cboImEx.Visible = True
+                cboImEx.Text = "EXPORT"
             Case "VERAG"
                 Label1.Visible = True
                 cboImEx.Visible = True
                 cboImEx.Text = "IMPORT"
             Case "VERIMEX"
                 cboFirma.Enabled = True
+
         End Select
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -197,6 +231,12 @@ Public Class frmEintragAviso
                 lblSndFremd.Visible = True
                 cboImEx.Visible = True
                 Label1.Visible = True
+
+            Case "DTB"
+                cboImEx.Visible = True
+                Label1.Visible = True
+                lblFiskAT.Visible = False
+                txtSndFiskalAT.Visible = False
         End Select
         Select Case FIRMA_TMP
             Case "FRONTOFFICE"
@@ -257,22 +297,24 @@ Public Class frmEintragAviso
 
         btnOK.Enabled = True
 
+
+
         If FIRMA_TMP = "ATILLA" Then
             cbxFrächterUnbekannt.Visible = True
-            cboGrenzstelle.Visible = False
-            lblGrenze.Visible = False
             grpAktVerzollung.Visible = False
             cbxSendungsvorlagen.Visible = False
             Button3.Visible = False
-            cboGrenzstelle.changeItem("SUB")
+            'lblGrenze.Visible = False
+            '  cboGrenzstelle.Visible = False
+            cboGrenzstelle.changeItem(If(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG, "SUB"))
             cbxAuftraggeberfurAlleSendungen.Visible = False
             If ATILLA_NEUERAKTENDECKEL Then
                 UsrCntlEintragAvisoAtilla.Visible = True
                 lblAenderungen.Visible = False
                 txtÄnderungen.Visible = False
                 cbxAktenzettelDrucken.Visible = True ': cbxAktenzettelDrucken.Checked = True --> checked, wenn ohne AVISO
-            End If
 
+            End If
 
             lblAtr.Visible = True
             kdAuftraggeber.Visible = True
@@ -287,12 +329,16 @@ Public Class frmEintragAviso
             Neuanlage = True
             Me.Text = "Neuanlage LKW-Aviso"
             dtpDatum.Value = Now
+            If Not bearb Then dtpDatum.Enabled = False
             datVoraussichtlichesEintreffen.Value = Now.AddDays(-1)
             If cboFirma._value = "ATILLA" Then datVoraussichtlichesEintreffen.Value = Now 'Bei ATILLA gibt es meist kein voraussichtliches Eintreffdatum.
 
             dtpAvisoEingangDatum.Value = Now.Date
             dtpAvisoEingangZeit.Value = LeerDatum
             txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
+            If INFO <> "" Then txtÄnderungen.Text &= vbNewLine & vbNewLine & INFO
+
+
             lblStatus.Text = "Neuanlage"
             optAvisoEingang.Checked = True
             kdAvisierer.Text = ""
@@ -303,21 +349,84 @@ Public Class frmEintragAviso
                     cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
                 End If
             End If
+            If FIRMA_TMP = "AMBAR" Then
+                cboGrenzstelle.changeItem("AMB")
+            End If
+
+
+
+            If getFromAVISO_Trip IsNot Nothing Then
+                myAviso.AvisoTripId = getFromAVISO_Trip.AvisoTripId ' --> Trip gespeichert!
+
+                myAviso.Frächter = getFromAVISO_Trip.Frächter
+                myAviso.Frächter_KdNr = getFromAVISO_Trip.Frächter_KdNr
+                myAviso.Auftraggeber = getFromAVISO_Trip.Auftraggeber
+                myAviso.Auftraggeber_KdNr = getFromAVISO_Trip.Auftraggeber_KdNr
+
+                myAviso.Zugmaschine = getFromAVISO_Trip.Zugmaschine
+                myAviso.LKW_Nr = getFromAVISO_Trip.LKW_Nr
+                myAviso.LKW_Nationalitaet = getFromAVISO_Trip.LKW_Nationalitaet
+                myAviso.Transportmittelart = getFromAVISO_Trip.Transportmittelart
+
+                myAviso.AvisoEingang = getFromAVISO_Trip.AvisoEingang
+                myAviso.FahrerHandy = getFromAVISO_Trip.FahrerHandy
+                myAviso.KdAuftragsNr_Avisierer = getFromAVISO_Trip.KdAuftragsNr_Avisierer
+                myAviso.Telefonisch = getFromAVISO_Trip.Telefonisch
+                myAviso.Transportmittelart = getFromAVISO_Trip.Transportmittelart
+
+                '---------ANZEIGE----------------------------------
+                If myAviso.Frächter_KdNr > 0 Then
+                    kdFrächter.KdNr = myAviso.Frächter_KdNr
+                Else
+                    kdFrächter.Text = myAviso.Frächter
+                End If
+
+                If myAviso.Auftraggeber_KdNr > 0 Then
+                    kdAvisierer.KdNr = myAviso.Auftraggeber_KdNr
+                Else
+                    kdAvisierer.Text = myAviso.Auftraggeber
+                End If
+
+
+                txtLKW_Nr.Text = myAviso.LKW_Nr
+                sbLkwNationalitaet.SET_VALUE(myAviso.LKW_Nationalitaet)
+                txtFahrerHandy.Text = If(myAviso.FahrerHandy, "")
+                txtAvisiererAuftragsNr.Text = If(myAviso.KdAuftragsNr_Avisierer, "")
+
+
+                optAvisoEingang.Checked = True  'bei Änderung kann kein Eingang ohne Aviso erfolgen...
+
+                If myAviso.Telefonisch = "Telefon" Then
+                    optTelefonisch.Checked = True
+                ElseIf myAviso.Telefonisch = "Schriftl." Then
+                    optSchriftlich.Checked = True
+                Else
+                    optUnbekannt.Checked = True
+                End If
+                cboTransportmittelart.changeItem(myAviso.Transportmittelart)
+            End If
+
         Else
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
+                Me.Close()
+            End If
+
+
             Me.Text = "Änderung LKW-Aviso"
-            'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
+                'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
 
-            txtInfo.Visible = False
-            Label3.Visible = False
-            'ausgewählter Datensatz wird geladen
-            grpAktVerzollung.Visible = False
-            cbxSendungsvorlagen.Visible = False
-            Button3.Visible = False
+                txtInfo.Visible = False
+                Label3.Visible = False
+                'ausgewählter Datensatz wird geladen
+                grpAktVerzollung.Visible = False
+                cbxSendungsvorlagen.Visible = False
+                Button3.Visible = False
 
-            myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
+                myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
 
             'Werte(zuweisen)
             dtpDatum.Value = myAviso.Datum
+            If Not bearb Then dtpDatum.Enabled = False
             If myAviso.Frächter_KdNr > 0 Then
                 kdFrächter.KdNr = myAviso.Frächter_KdNr
             Else
@@ -325,188 +434,188 @@ Public Class frmEintragAviso
             End If
 
             If myAviso.Auftraggeber_KdNr > 0 Then
-                kdAvisierer.KdNr = myAviso.Auftraggeber_KdNr
-            Else
-                kdAvisierer.Text = myAviso.Auftraggeber
-            End If
+                    kdAvisierer.KdNr = myAviso.Auftraggeber_KdNr
+                Else
+                    kdAvisierer.Text = myAviso.Auftraggeber
+                End If
 
-            txtInfo.Text = myAviso.Info.Trim
-            txtLKW_Nr.Text = myAviso.LKW_Nr
-            sbLkwNationalitaet.SET_VALUE(myAviso.LKW_Nationalitaet)
-            txtFahrerHandy.Text = If(myAviso.FahrerHandy, "")
-            txtAvisiererAuftragsNr.Text = If(myAviso.KdAuftragsNr_Avisierer, "")
-            If myAviso.VoraussichtlichesEintreffen IsNot Nothing Then
-                datVoraussichtlichesEintreffen.Value = myAviso.VoraussichtlichesEintreffen
-            Else
-                datVoraussichtlichesEintreffen.Value = myAviso.Datum.AddDays(-1)
-            End If
-
-
-            txtÄnderungen.Text = myAviso.Änderungen.Trim
-            optOhneAviso.Visible = False    'bei Änderung kann kein Eingang ohne Aviso erfolgen, da Datum bereits bei Anlage gesetzt
-            optAvisoEingang.Checked = True  'bei Änderung kann kein Eingang ohne Aviso erfolgen...
-            dtpAvisoEingangDatum.Visible = True
-            dtpAvisoEingangZeit.Visible = True
-            If myAviso.Telefonisch = "Telefon" Then
-                optTelefonisch.Checked = True
-            ElseIf myAviso.Telefonisch = "Schriftl." Then
-                optSchriftlich.Checked = True
-            Else
-                optUnbekannt.Checked = True
-            End If
-            cboGrenzstelle.changeItem(myAviso.Grenzstelle)
-            cboTransportmittelart.changeItem(myAviso.Transportmittelart)
-
-            cboImEx.Text = If(myAviso.ImEx, "")
-            hStatus = myAviso.Status
-            If myAviso.Ankunft = LeerDatum Then
-                dtpAnkunft.Value = Now.Date
-                dtpAnkunftZeit.Value = Now
-            Else
-                dtpAnkunft.Value = myAviso.Ankunft
-                dtpAnkunftZeit.Value = myAviso.Ankunft
-            End If
-            If myAviso.AvisoEingang = LeerDatum Then
-                dtpAvisoEingangDatum.Value = dtpDatum.Value.Date
-                dtpAvisoEingangZeit.Value = dtpDatum.Value
-            Else
-                dtpAvisoEingangDatum.Value = myAviso.AvisoEingang
-                dtpAvisoEingangZeit.Value = myAviso.AvisoEingang
-            End If
-            If myAviso.Freigabe = LeerDatum Then
-                dtpFreigabe.Value = Now.Date
-                dtpFreigabeZeit.Value = Now
-            Else
-                dtpFreigabe.Value = myAviso.Freigabe
-                dtpFreigabeZeit.Value = myAviso.Freigabe
-            End If
-            If myAviso.Vorbereitet = LeerDatum Then
-                dtpVorbereitet.Value = Now.Date
-                dtpVorbereitetZeit.Value = Now
-            Else
-                dtpVorbereitet.Value = myAviso.Vorbereitet
-                dtpVorbereitetZeit.Value = myAviso.Vorbereitet
-            End If
-            If myAviso.Vorgeschrieben = LeerDatum Then
-                dtpVorgeschrieben.Value = Now.Date
-                dtpVorgeschriebenZeit.Value = Now
-            Else
-                dtpVorgeschrieben.Value = myAviso.Vorgeschrieben
-                dtpVorgeschriebenZeit.Value = myAviso.Vorgeschrieben
-            End If
-
-            txtDauer.Text = Minuten_auf_Text(myAviso.Dauer)
-            cbxHandling.Checked = myAviso.Handling
-            cbxSammelakt.Checked = myAviso.Sammelakt
-            txtSendungen.Text = myAviso.Sendungen_Gesamtanzahl
-            If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
-
-            'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
-
-            'Status anzeigen
-
-            Select Case hStatus
-                Case cGlobal.Status_Ankunft
-                    lblStatus.Text = "Ankunft"
-                    If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
-                    lblStatus.ForeColor = Color.Blue
-                    optAnkunft.Checked = True
-                Case cGlobal.Status_Erfasst
-                    lblStatus.Text = "erfasst"
-                    lblStatus.ForeColor = Color.Red
-                    optErfasst.Checked = True
-                Case cGlobal.Status_Freigegeben
-                    lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
-                    lblStatus.ForeColor = Color.Green
-                    btnOK.Enabled = bearb
-                    optFreigegeben.Checked = True
-                Case cGlobal.Status_NichtEingetroffen
-                    lblStatus.Text = "LKW nicht eingetroffen"
-                    lblStatus.ForeColor = Color.DarkGray
-                    btnOK.Enabled = bearb
-                    optNichtEingetroffen.Checked = True
-                Case cGlobal.Status_Vorbereitet
-                    lblStatus.Text = "Vorbereitet"
-                    lblStatus.ForeColor = Color.Brown
-                    btnOK.Enabled = bearb
-                    optVorbereitet.Checked = True
-                Case cGlobal.Status_Vorgeschrieben
-                    lblStatus.Text = "Vorgeschrieben"
-                    lblStatus.ForeColor = Color.Purple
-                    btnOK.Enabled = bearb
-                    optVorgeschrieben.Checked = True
-                Case Else
-                    lblStatus.Text = ""
-            End Select
-            lblStatus.Text = " " & lblStatus.Text & " "   'für bessere farbliche Hervorhebung
-            cboFirma.changeItem("")
-            cboFirma.changeItem(myAviso.FIRMA)
-
-            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ZeitenBearbeiten", "SDL") Then
-                panAdmin.Visible = bearb 'Administrator bekommt mehr Edit-Möglichkeiten
-            End If
-
-            'Vorpapier laden
-            UsrCntlAviso_Vorpapiere1.setVorpapiere(myAviso)
-
-
-            '  If FIRMA_TMP = "IMEX" Then
-            txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, ""))
-            cbxWarenort.Checked = myAviso.Warenort
-            ' End If
-
-
-            If FIRMA_TMP = "ATILLA" Then
-                cbxAktenzettelDrucken.Checked = AktenzetteldruckenVisible
-                UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle1.SET_VALUE(If(myAviso.Durchgangszollstelle1, ""))
-                UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle2.SET_VALUE(If(myAviso.Durchgangszollstelle2, ""))
-                UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle3.SET_VALUE(If(myAviso.Durchgangszollstelle3, ""))
-                UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle4.SET_VALUE(If(myAviso.Durchgangszollstelle4, ""))
-                UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle5.SET_VALUE(If(myAviso.Durchgangszollstelle5, ""))
-                UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle6.SET_VALUE(If(myAviso.Durchgangszollstelle6, ""))
-                UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = ""
-
-                If myAviso.Ausgangszollstelle IsNot Nothing Then
-                    For Each s In myAviso.Ausgangszollstelle.split(";")
-                        Select Case s
-                            Case "KA" : UsrCntlEintragAvisoAtilla.rbtnKaptainAndreevo.Checked = True
-                            Case "L" : UsrCntlEintragAvisoAtilla.rbtnLesovo.Checked = True
-                            Case "BB" : UsrCntlEintragAvisoAtilla.rbtnBatrovici.Checked = True
-                            Case "HR" : UsrCntlEintragAvisoAtilla.rbtnHorgos.Checked = True
-                            Case "TK" : UsrCntlEintragAvisoAtilla.rbtnTompa.Checked = True
-                            Case "T" : UsrCntlEintragAvisoAtilla.rbtnTrieste.Checked = True
-                            Case "KI" : UsrCntlEintragAvisoAtilla.rbtnKipi.Checked = True
-                            Case "TS" : UsrCntlEintragAvisoAtilla.rbtnTovarnik.Checked = True
-                            Case Else : If s <> "" Then UsrCntlEintragAvisoAtilla.rbtnAndere.Checked = True : UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = s
-                        End Select
-                    Next
+                txtInfo.Text = myAviso.Info.Trim
+                txtLKW_Nr.Text = myAviso.LKW_Nr
+                sbLkwNationalitaet.SET_VALUE(myAviso.LKW_Nationalitaet)
+                txtFahrerHandy.Text = If(myAviso.FahrerHandy, "")
+                txtAvisiererAuftragsNr.Text = If(myAviso.KdAuftragsNr_Avisierer, "")
+                If myAviso.VoraussichtlichesEintreffen IsNot Nothing Then
+                    datVoraussichtlichesEintreffen.Value = myAviso.VoraussichtlichesEintreffen
+                Else
+                    datVoraussichtlichesEintreffen.Value = myAviso.Datum.AddDays(-1)
                 End If
 
 
-                UsrCntlEintragAvisoAtilla.txtTransporttemp.Text = If(myAviso.TransportTemperatur, "")
-                UsrCntlEintragAvisoAtilla.txtZugmaschine.Text = If(myAviso.Zugmaschine, "")
-                Dim sndId = ADMIN.getValueTxtBySql("SELECT TOP 1 isnull(tblSnd_SendungID,-1) FROM [tblSendungen] WHERE [tblSnd_AvisoID]=" & myAviso.AvisoID, "AVISO")
-                If IsNumeric(sndId) AndAlso sndId > 0 Then
-                    TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
+                txtÄnderungen.Text = myAviso.Änderungen.Trim
+                optOhneAviso.Visible = False    'bei Änderung kann kein Eingang ohne Aviso erfolgen, da Datum bereits bei Anlage gesetzt
+                optAvisoEingang.Checked = True  'bei Änderung kann kein Eingang ohne Aviso erfolgen...
+                dtpAvisoEingangDatum.Visible = True
+                dtpAvisoEingangZeit.Visible = True
+                If myAviso.Telefonisch = "Telefon" Then
+                    optTelefonisch.Checked = True
+                ElseIf myAviso.Telefonisch = "Schriftl." Then
+                    optSchriftlich.Checked = True
+                Else
+                    optUnbekannt.Checked = True
                 End If
-                If TMP_SND_Atilla IsNot Nothing Then
-                    UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text = If(TMP_SND_Atilla.tblSnd_Warenbezeichnung, "")
-                    UsrCntlEintragAvisoAtilla.txtColli.Text = If(TMP_SND_Atilla.tblSnd_Colli, "")
-                    UsrCntlEintragAvisoAtilla.txtGewicht.Text = If(TMP_SND_Atilla.tblSnd_Gewicht, "")
-                    UsrCntlEintragAvisoAtilla.txtAnmerkung.Text = If(TMP_SND_Atilla.tblSnd_Anmerkung, "")
+                cboGrenzstelle.changeItem(myAviso.Grenzstelle)
+                cboTransportmittelart.changeItem(myAviso.Transportmittelart)
+
+                cboImEx.Text = If(myAviso.ImEx, "")
+                hStatus = myAviso.Status
+                If myAviso.Ankunft = LeerDatum Then
+                    dtpAnkunft.Value = Now.Date
+                    dtpAnkunftZeit.Value = Now
+                Else
+                    dtpAnkunft.Value = myAviso.Ankunft
+                    dtpAnkunftZeit.Value = myAviso.Ankunft
+                End If
+                If myAviso.AvisoEingang = LeerDatum Then
+                    dtpAvisoEingangDatum.Value = dtpDatum.Value.Date
+                    dtpAvisoEingangZeit.Value = dtpDatum.Value
+                Else
+                    dtpAvisoEingangDatum.Value = myAviso.AvisoEingang
+                    dtpAvisoEingangZeit.Value = myAviso.AvisoEingang
+                End If
+                If myAviso.Freigabe = LeerDatum Then
+                    dtpFreigabe.Value = Now.Date
+                    dtpFreigabeZeit.Value = Now
+                Else
+                    dtpFreigabe.Value = myAviso.Freigabe
+                    dtpFreigabeZeit.Value = myAviso.Freigabe
+                End If
+                If myAviso.Vorbereitet = LeerDatum Then
+                    dtpVorbereitet.Value = Now.Date
+                    dtpVorbereitetZeit.Value = Now
+                Else
+                    dtpVorbereitet.Value = myAviso.Vorbereitet
+                    dtpVorbereitetZeit.Value = myAviso.Vorbereitet
+                End If
+                If myAviso.Vorgeschrieben = LeerDatum Then
+                    dtpVorgeschrieben.Value = Now.Date
+                    dtpVorgeschriebenZeit.Value = Now
+                Else
+                    dtpVorgeschrieben.Value = myAviso.Vorgeschrieben
+                    dtpVorgeschriebenZeit.Value = myAviso.Vorgeschrieben
+                End If
+
+                txtDauer.Text = Minuten_auf_Text(myAviso.Dauer)
+                cbxHandling.Checked = myAviso.Handling
+                cbxSammelakt.Checked = myAviso.Sammelakt
+                txtSendungen.Text = myAviso.Sendungen_Gesamtanzahl
+                If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
+
+                'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
+
+                'Status anzeigen
+
+                Select Case hStatus
+                    Case cGlobal.Status_Ankunft
+                        lblStatus.Text = "Ankunft"
+                        If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
+                        lblStatus.ForeColor = Color.Blue
+                        optAnkunft.Checked = True
+                    Case cGlobal.Status_Erfasst
+                        lblStatus.Text = "erfasst"
+                        lblStatus.ForeColor = Color.Red
+                        optErfasst.Checked = True
+                    Case cGlobal.Status_Freigegeben
+                        lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
+                        lblStatus.ForeColor = Color.Green
+                        btnOK.Enabled = bearb
+                        optFreigegeben.Checked = True
+                    Case cGlobal.Status_NichtEingetroffen
+                        lblStatus.Text = "LKW nicht eingetroffen"
+                        lblStatus.ForeColor = Color.DarkGray
+                        btnOK.Enabled = bearb
+                        optNichtEingetroffen.Checked = True
+                    Case cGlobal.Status_Vorbereitet
+                        lblStatus.Text = "Vorbereitet"
+                        lblStatus.ForeColor = Color.Brown
+                        btnOK.Enabled = bearb
+                        optVorbereitet.Checked = True
+                    Case cGlobal.Status_Vorgeschrieben
+                        lblStatus.Text = "Vorgeschrieben"
+                        lblStatus.ForeColor = Color.Purple
+                        btnOK.Enabled = bearb
+                        optVorgeschrieben.Checked = True
+                    Case Else
+                        lblStatus.Text = ""
+                End Select
+                lblStatus.Text = " " & lblStatus.Text & " "   'für bessere farbliche Hervorhebung
+                cboFirma.changeItem("")
+                cboFirma.changeItem(myAviso.FIRMA)
+
+                If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ZeitenBearbeiten", "SDL") Then
+                    panAdmin.Visible = bearb 'Administrator bekommt mehr Edit-Möglichkeiten
+                End If
+
+                'Vorpapier laden
+                UsrCntlAviso_Vorpapiere1.setVorpapiere(myAviso)
 
 
-                    If TMP_SND_Atilla.tblSnd_AuftraggeberKdNr > 0 Then
-                        kdAuftraggeber.KdNr = TMP_SND_Atilla.tblSnd_AuftraggeberKdNr
-                    Else
-                        kdAuftraggeber.Text = TMP_SND_Atilla.tblSnd_Auftraggeber
+                '  If FIRMA_TMP = "IMEX" Then
+                txtBestimmungszollstelle.SET_VALUE(If(myAviso.Zollstelle, ""))
+                cbxWarenort.Checked = myAviso.Warenort
+                ' End If
+
+
+                If FIRMA_TMP = "ATILLA" Then
+                    cbxAktenzettelDrucken.Checked = AktenzetteldruckenVisible
+                    UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle1.SET_VALUE(If(myAviso.Durchgangszollstelle1, ""))
+                    UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle2.SET_VALUE(If(myAviso.Durchgangszollstelle2, ""))
+                    UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle3.SET_VALUE(If(myAviso.Durchgangszollstelle3, ""))
+                    UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle4.SET_VALUE(If(myAviso.Durchgangszollstelle4, ""))
+                    UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle5.SET_VALUE(If(myAviso.Durchgangszollstelle5, ""))
+                    UsrCntlEintragAvisoAtilla.sbDurchgangszollstelle6.SET_VALUE(If(myAviso.Durchgangszollstelle6, ""))
+                    UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = ""
+
+                    If myAviso.Ausgangszollstelle IsNot Nothing Then
+                        For Each s In myAviso.Ausgangszollstelle.split(";")
+                            Select Case s
+                                Case "KA" : UsrCntlEintragAvisoAtilla.rbtnKaptainAndreevo.Checked = True
+                                Case "L" : UsrCntlEintragAvisoAtilla.rbtnLesovo.Checked = True
+                                Case "BB" : UsrCntlEintragAvisoAtilla.rbtnBatrovici.Checked = True
+                                Case "HR" : UsrCntlEintragAvisoAtilla.rbtnHorgos.Checked = True
+                                Case "TK" : UsrCntlEintragAvisoAtilla.rbtnTompa.Checked = True
+                                Case "T" : UsrCntlEintragAvisoAtilla.rbtnTrieste.Checked = True
+                                Case "KI" : UsrCntlEintragAvisoAtilla.rbtnKipi.Checked = True
+                                Case "TS" : UsrCntlEintragAvisoAtilla.rbtnTovarnik.Checked = True
+                                Case Else : If s <> "" Then UsrCntlEintragAvisoAtilla.rbtnAndere.Checked = True : UsrCntlEintragAvisoAtilla.txtAusgangszstAndere.Text = s
+                            End Select
+                        Next
                     End If
 
+
+                    UsrCntlEintragAvisoAtilla.txtTransporttemp.Text = If(myAviso.TransportTemperatur, "")
+                    UsrCntlEintragAvisoAtilla.txtZugmaschine.Text = If(myAviso.Zugmaschine, "")
+                    Dim sndId = ADMIN.getValueTxtBySql("SELECT TOP 1 isnull(tblSnd_SendungID,-1) FROM [tblSendungen] WHERE [tblSnd_AvisoID]=" & myAviso.AvisoID, "AVISO")
+                    If IsNumeric(sndId) AndAlso sndId > 0 Then
+                        TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
+                    End If
+                    If TMP_SND_Atilla IsNot Nothing Then
+                        UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text = If(TMP_SND_Atilla.tblSnd_Warenbezeichnung, "")
+                        UsrCntlEintragAvisoAtilla.txtColli.Text = If(TMP_SND_Atilla.tblSnd_Colli, "")
+                        UsrCntlEintragAvisoAtilla.txtGewicht.Text = If(TMP_SND_Atilla.tblSnd_Gewicht, "")
+                        UsrCntlEintragAvisoAtilla.txtAnmerkung.Text = If(TMP_SND_Atilla.tblSnd_Anmerkung, "")
+
+
+                        If TMP_SND_Atilla.tblSnd_AuftraggeberKdNr > 0 Then
+                            kdAuftraggeber.KdNr = TMP_SND_Atilla.tblSnd_AuftraggeberKdNr
+                        Else
+                            kdAuftraggeber.Text = TMP_SND_Atilla.tblSnd_Auftraggeber
+                        End If
+
+                    End If
                 End If
             End If
-        End If
 
-        If bearb Then Me.Text += " (Verwaltung)"
+            If bearb Then Me.Text += " (Verwaltung)"
 
         hÄnderung = False
 
@@ -519,6 +628,7 @@ Public Class frmEintragAviso
             dtpAvisoEingangZeit.Enabled = bearb
         End If
 
+        'cbxEintreffenAus.fillWithSQL("SELECT [nctsr_dauer_in_tagen], [nctsr_von] FROM [tblNTCSRouten] ", False, "FMZOLL", False)
 
         initAttachment()
 
@@ -586,6 +696,7 @@ Public Class frmEintragAviso
             lblErr_Uhrzeit.Visible = False
             lblErr_LKW.Visible = False
             lblErr_KdNr.Visible = False
+            lblErrErfasstDat.Visible = False
             lblSendungsanzahl.Visible = False
             lblErrVorraussuchtlEintreffen.Visible = False
 
@@ -598,14 +709,20 @@ Public Class frmEintragAviso
                 End If
             End If
 
-            If CDate(dtpAvisoEingangDatum.Value) > Now Then
-                MsgBox("Aviso-Datum darf nicht in der Zukunft liegen!", vbInformation)
-                dtpAvisoEingangDatum.Focus()
+
+            If dtpDatum.Enabled AndAlso CDate(dtpDatum.Value) > Now Then
+                lblErrErfasstDat.Visible = True
+                dtpDatum.Focus()
                 Exit Sub
             End If
 
-
             If optAvisoEingang.Checked Then
+                If CDate(dtpAvisoEingangDatum.Value) > Now Then
+                    MsgBox("Aviso-Datum darf nicht in der Zukunft liegen!", vbInformation)
+                    dtpAvisoEingangDatum.Focus()
+                    Exit Sub
+                End If
+
                 If dtpAvisoEingangZeit.Value.Hour = 0 And dtpAvisoEingangZeit.Value.Minute = 0 Then
                     ' MsgBox("Bitte eine gültige Uhrzeit bei Aviso-Eingang eingegeben (00:00 ist nicht erlaubt).", vbInformation)
                     lblErr_Uhrzeit.Visible = True
@@ -617,18 +734,18 @@ Public Class frmEintragAviso
             'If Neuanlage Then
             '  If optAvisoEingang.Checked Then
             '  If optAvisoEingang.Checked Thensend
-            '    If dtpAvisoEingangDatum.Value < Now.Date Then
+            '    If dtpAvisoEingangDatum.Value <Now.Date Then
             '         Dim antwort As MsgBoxResult = MsgBox("Das Aviso-Eingangsdatum liegt in der Vergangenheit. Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
-            '                                 "Aviso speichern")
-            '        If antwort = vbNo Then
-            '          dtpAvisoEingangDatum.Focus()
-            '          Exit Sub
-            '      End If
-            '    End If
-            '  End If
-            'End If
+                                        '                                 "Aviso speichern")
+                                        '        If antwort = vbNo Then
+                                        '          dtpAvisoEingangDatum.Focus()
+                                        '          Exit Sub
+                                        '      End If
+                                        '    End If
+                                        '  End If
+                                        'End If
 
-            If txtLKW_Nr.Text.Trim = "" Then
+                                        If txtLKW_Nr.Text.Trim = "" Then
                 ' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
                 lblErr_LKW.Visible = True
                 txtLKW_Nr.Focus()
@@ -655,14 +772,14 @@ Public Class frmEintragAviso
             End If
 
 
-            If FIRMA_TMP <> "ATILLA" Then
-                If cboGrenzstelle._value.Trim = "" Then
+            '  If FIRMA_TMP <> "ATILLA" Then
+            If cboGrenzstelle._value.Trim = "" Then
                     ' MsgBox("Bitte die Grenzstelle eingegeben.", vbInformation)
                     lblErr_Grenzstelle.Visible = True
                     cboGrenzstelle.Focus()
                     Exit Sub
                 End If
-            End If
+            '   End If
 
 
 
@@ -685,28 +802,70 @@ Public Class frmEintragAviso
                 End If
             End If
 
+            Dim EintragMehrfach As Boolean = False
 
             If Neuanlage Then
                 'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
-                Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
-                If hLKWCheck2 <> "" Then
-                    Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
-                                           "Aviso-Eintrag")
-                    If antwort = vbNo Then
-                        Exit Sub
-                    End If
-                End If
 
-                If hLKWCheck2 = "" Then
-                    'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
-                    Dim hLKWCheck As String = AvisoDAL.Suche_LKW(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
-                    If hLKWCheck <> "" Then
-                        Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
-                                               "Aviso-Eintrag")
-                        If antwort = vbNo Then
-                            Exit Sub
+                Dim ListOfLKWNr = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkLKWNr(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
+
+
+                If getFromAVISO_Trip Is Nothing Then 'wenn Trip -> Prüfung überspringen 
+
+
+                    For Each LKWNr In ListOfLKWNr
+                        Dim temp_avisoID As Integer = -1
+                        Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(LKWNr, temp_avisoID)
+                        If hLKWCheck2 <> "" Then
+                            Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
+                                                   "Aviso-Eintrag")
+                            If antwort = vbNo Then
+                                If temp_avisoID > 0 Then
+                                    Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                                    Dim FRM As New frmSendungsdetailsNEU(temp_avisoID, -1)
+                                    FRM.ShowDialog(frmGrayOut)
+                                    frmGrayOut.Close()
+
+                                    Exit Sub
+                                Else
+                                    MsgBox("AVISO-ID konnte nicht ermittelt werden")
+                                    Exit Sub
+                                End If
+
+                            ElseIf antwort = vbCancel Then
+                                Exit Sub
+                            Else
+                                EintragMehrfach = True
+                            End If
                         End If
-                    End If
+
+                        If hLKWCheck2 = "" Then
+                            'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
+                            Dim hLKWCheck As String = AvisoDAL.Suche_LKW(LKWNr, temp_avisoID)
+                            If hLKWCheck <> "" Then
+                                Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
+                                                       "Aviso-Eintrag")
+                                If antwort = vbNo Then
+                                    If temp_avisoID > 0 Then
+                                        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                                        Dim FRM As New frmSendungsdetailsNEU(temp_avisoID, -1)
+                                        FRM.ShowDialog(frmGrayOut)
+                                        frmGrayOut.Close()
+                                        Exit Sub
+                                    Else
+                                        MsgBox("AVISO-ID konnte nicht ermittelt werden")
+                                        Exit Sub
+                                    End If
+                                ElseIf antwort = vbCancel Then
+                                    Exit Sub
+                                Else
+
+                                    EintragMehrfach = True
+                                End If
+                            End If
+                        End If
+
+                    Next
                 End If
 
             End If
@@ -832,6 +991,7 @@ Public Class frmEintragAviso
             ' myAviso.Auftraggeber_KdNr = IIf(kdAvisierer.KdNr_value > 0, kdAvisierer.KdNr_value, "")
 
             myAviso.Handling = cbxHandling.Checked
+            myAviso.EintragMehrfach = EintragMehrfach
 
 
 
@@ -850,19 +1010,19 @@ Public Class frmEintragAviso
                 myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
                 myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
             End If
-            If FIRMA_TMP = "ATILLA" Then
-                myAviso.Grenzstelle = "SUB"
-            Else
-                myAviso.Grenzstelle = cboGrenzstelle._value
-                ' MsgBox(myAviso.Grenzstelle)
-            End If
+            'If FIRMA_TMP = "ATILLA" Then
+            '    myAviso.Grenzstelle = "SUB"
+            'Else
+            myAviso.Grenzstelle = cboGrenzstelle._value
+            ' MsgBox(myAviso.Grenzstelle)
+            '  End If
 
             myAviso.Transportmittelart = cboTransportmittelart._value
 
 
-            If FIRMA_TMP = "AMBAR" Then
-                myAviso.Grenzstelle = "AMB"
-            End If
+            'If FIRMA_TMP = "AMBAR" Then
+            '    myAviso.Grenzstelle = "AMB"
+            'End If
 
 
             '  myAviso.Buero = cboGrenzstelle.Text
@@ -1030,6 +1190,10 @@ Public Class frmEintragAviso
                 End If
             End If
 
+            If INFO <> "" Then
+                AvisoStatusFunctions.insertVermerkAllg(tmpId, INFO, 123)
+            End If
+
             If myAviso.Warenort Then
                 AvisoStatusFunctions.insertVermerkAllg(tmpId, "ATB-Nr. folgt", 80)
             End If
@@ -1037,27 +1201,32 @@ Public Class frmEintragAviso
             '   Dim FIRMA_CBO = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
 
             Select Case FIRMA_TMP
-                Case "ATILLA"
-                    Try
-                        'ATILLA AKTENZETTEL DRUCKEN
-                        If Neuanlage Then
-                            If ATILLA_NEUERAKTENDECKEL Then
-                                Dim abfnr_tmp As Object = DBNull.Value
-                                getFilialeAndAbfertNrATILLA(1, abfnr_tmp) ' FilialeNr u AbfNr werden geladen
-                                Dim sndId = -1
-                                If AvisoDAL.insertSendungEmpty(tmpId, 1, 4801, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT 
-                                    TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
-                                    loadInSND(TMP_SND_Atilla)
-                                End If
-                            End If
-                        Else
-                            loadInSND(TMP_SND_Atilla)
-                        End If
-                        If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text)
-                    Catch ex As Exception
-                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-                    End Try
-                Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX"
+                'Case "ATILLA"
+                '    Try
+                '        'ATILLA AKTENZETTEL DRUCKEN
+                '        If Neuanlage Then
+                '            If ATILLA_NEUERAKTENDECKEL Then
+                '                Dim abfnr_tmp As Object = DBNull.Value
+                '                Dim sndId = -1
+                '                Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
+                '                If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
+                '                getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen
+
+                '                MsgBox(filiale_tmp & "/" & abfnr_tmp)
+
+                '                If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT 
+                '                    TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
+                '                    loadInSND(TMP_SND_Atilla)
+                '                End If
+                '            End If
+                '        Else
+                '            loadInSND(TMP_SND_Atilla)
+                '        End If
+                '        If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text)
+                '    Catch ex As Exception
+                '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                '    End Try
+                Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX", "ATILLA"
                     Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
 
                     'Die Sendungen eintragen:
@@ -1069,6 +1238,11 @@ Public Class frmEintragAviso
                                     showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann.
                                 Else
                                     Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
+                                    Select Case FIRMA_TMP
+                                        Case "ATILLA"
+                                            filiale_tmp = 4801
+                                            If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
+                                    End Select
 
                                     Dim gesAnzSnd = initSndAnzahl()
 
@@ -1093,7 +1267,17 @@ Public Class frmEintragAviso
                                             tblSnd_Auftraggeber = kdAvisierer.Text
                                         End If
 
-                                        AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT 
+                                        Dim sndId = -1
+
+                                        If AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, remd, sndId) Then ' INSERT 
+
+                                            If FIRMA_TMP = "ATILLA" Then
+                                                TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
+                                                loadInSND(TMP_SND_Atilla)
+
+                                            End If
+
+                                        End If
 
                                     Next
                                 End If
@@ -1216,9 +1400,9 @@ Public Class frmEintragAviso
 
     Sub loadInSND(SND As VERAG_PROG_ALLGEMEIN.cSendungen)
         If SND IsNot Nothing Then
-            SND.tblSnd_Warenbezeichnung = (UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text)
-            SND.tblSnd_Colli = (UsrCntlEintragAvisoAtilla.txtColli.Text)
-            SND.tblSnd_Gewicht = (UsrCntlEintragAvisoAtilla.txtGewicht.Text)
+            ' SND.tblSnd_Warenbezeichnung = (UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text)
+            '   SND.tblSnd_Colli = (UsrCntlEintragAvisoAtilla.txtColli.Text)
+            '  SND.tblSnd_Gewicht = (UsrCntlEintragAvisoAtilla.txtGewicht.Text)
             SND.tblSnd_Anmerkung = (UsrCntlEintragAvisoAtilla.txtAnmerkung.Text)
 
 
@@ -1267,8 +1451,8 @@ Public Class frmEintragAviso
         End If
         If cbxPosNr.Checked Then abfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filialeNr, Now.Year)
     End Sub
-    Sub getFilialeAndAbfertNrATILLA(ByVal cnt, ByRef abfertigungsNr)
-        Dim filialeNr = 4801
+    Sub getFilialeAndAbfertNrATILLA(ByVal cnt, ByRef abfertigungsNr, filialeNr)
+
         If cbxPosNr.Checked Then abfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filialeNr, Now.Year)
     End Sub
 
@@ -1645,18 +1829,27 @@ Public Class frmEintragAviso
         'End If
         If myAviso.AvisoID > 0 Then
 
-            Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
-            Dim frmSendungsdetails As New frmSendungsdetailsNEU(myAviso.AvisoID, -1)
-            frmSendungsdetails.ShowDialog(frmGrayOut)
+            If Process.GetCurrentProcess().ProcessName.ToUpper() = "AVISO" Then
+                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                Dim frmSendungsdetails As New frmSendungsdetailsNEU(myAviso.AvisoID, -1)
+                frmSendungsdetails.ShowDialog(frmGrayOut)
+
+
+                frmGrayOut.Close()
+            Else
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_" & myAviso.AvisoID)
+
+            End If
 
 
-            frmGrayOut.Close()
         End If
         'initDgvSendungen()
     End Sub
 
 
 
+
+
     Private Sub txtSendungen_Leave(sender As Object, e As EventArgs) Handles txtSendungen.Leave
         If Not IsNumeric(txtSendungen.Text) Then
             txtSendungen.Text = 1
@@ -1691,13 +1884,14 @@ Public Class frmEintragAviso
 
         pnl.Visible = False
         ' cboImEx.Visible = (cboGrenzstelle.Text = "WAI" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED")
-        Label1.Visible = (cboGrenzstelle._value = "WAI" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED")
+        Label1.Visible = (cboGrenzstelle._value = "WAI" Or cboGrenzstelle._value = "DTB" Or FIRMA_TMP = "IMEX" Or FIRMA_TMP = "UNISPED")
 
         Select Case FIRMA_TMP
-            Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX", "AMBAR"
+            Case "VERAG", "FRONTOFFICE", "UNISPED", "IMEX", "AMBAR", "VERIMEX"
 
                 If cboGrenzstelle._value = "???" Then
-                    txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
+                    'txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
+                    txtBestimmungszollstelle.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"})
                     'txtBestimmungszollstelle.Visible = True
                     'lblZA.Visible = True
                     pnl.Visible = True
@@ -1825,4 +2019,30 @@ Public Class frmEintragAviso
             lblAtrAvis_Click(lblAtrAvis, New EventArgs)
         End If
     End Sub
+
+
+
+
+
+    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles btnStreckendauerBerechnen.Click
+
+        Dim destination As String = ""
+
+        If cboGrenzstelle._value = "???" AndAlso txtBestimmungszollstelle._value IsNot "" Then
+            destination = txtBestimmungszollstelle._value
+        Else
+            destination = cboGrenzstelle._value
+        End If
+
+        If destination Is "" Or destination Is Nothing Then
+            MsgBox("Zur Berechnung muss vorher eine Grenzstelle/Zollstelle ausgewählt werden!")
+        Else
+            Dim frmRouteBerechnen = New frmRoutendauerBerechnen(destination)
+
+            If frmRouteBerechnen.ShowDialog() = DialogResult.OK Then
+                datVoraussichtlichesEintreffen.Value = frmRouteBerechnen.calculatedDate
+            End If
+
+        End If
+    End Sub
 End Class

Aviso/AktenErfassung/frmEintragSammelakt.designer.vb

@@ -0,0 +1,532 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmEintragSammelakt
+    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(frmEintragSammelakt))
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.lblErfAm = New System.Windows.Forms.Label()
+        Me.btnAbbruch = New System.Windows.Forms.Button()
+        Me.txtInfo = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.lblLkwKennzeichen = New System.Windows.Forms.Label()
+        Me.txtÄnderungen = New System.Windows.Forms.TextBox()
+        Me.lblAenderungen = New System.Windows.Forms.Label()
+        Me.dtpDatum = New System.Windows.Forms.DateTimePicker()
+        Me.txtLKW_Nr = New System.Windows.Forms.TextBox()
+        Me.lblStatus = New System.Windows.Forms.Label()
+        Me.lblStatus2 = New System.Windows.Forms.Label()
+        Me.lblAktenuebersicht = New System.Windows.Forms.Label()
+        Me.grpAviso = New System.Windows.Forms.GroupBox()
+        Me.lblErr_Kunde = New System.Windows.Forms.Label()
+        Me.lblErr_Aktentyp = New System.Windows.Forms.Label()
+        Me.lblErr_LKW = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.kdAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.btnAuftraggeber = New System.Windows.Forms.Button()
+        Me.lblErrFmZollKdNr = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.lblErrErfasstDat = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.grpAviso.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btnOK
+        '
+        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnOK.Location = New System.Drawing.Point(21, 489)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(271, 45)
+        Me.btnOK.TabIndex = 24
+        Me.btnOK.Text = "OK"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'lblErfAm
+        '
+        Me.lblErfAm.AutoSize = True
+        Me.lblErfAm.Location = New System.Drawing.Point(220, 12)
+        Me.lblErfAm.Name = "lblErfAm"
+        Me.lblErfAm.Size = New System.Drawing.Size(59, 13)
+        Me.lblErfAm.TabIndex = 2
+        Me.lblErfAm.Text = "Erfasst am:"
+        '
+        'btnAbbruch
+        '
+        Me.btnAbbruch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAbbruch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnAbbruch.Location = New System.Drawing.Point(298, 489)
+        Me.btnAbbruch.Name = "btnAbbruch"
+        Me.btnAbbruch.Size = New System.Drawing.Size(111, 45)
+        Me.btnAbbruch.TabIndex = 27
+        Me.btnAbbruch.Text = "Abbruch"
+        Me.btnAbbruch.UseVisualStyleBackColor = True
+        '
+        'txtInfo
+        '
+        Me.txtInfo.AcceptsReturn = True
+        Me.txtInfo.Location = New System.Drawing.Point(424, 356)
+        Me.txtInfo.MaxLength = 240
+        Me.txtInfo.Multiline = True
+        Me.txtInfo.Name = "txtInfo"
+        Me.txtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.txtInfo.Size = New System.Drawing.Size(360, 75)
+        Me.txtInfo.TabIndex = 25
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(421, 340)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(25, 13)
+        Me.Label3.TabIndex = 21
+        Me.Label3.Text = "Info"
+        '
+        'lblLkwKennzeichen
+        '
+        Me.lblLkwKennzeichen.AutoSize = True
+        Me.lblLkwKennzeichen.Location = New System.Drawing.Point(6, 77)
+        Me.lblLkwKennzeichen.Name = "lblLkwKennzeichen"
+        Me.lblLkwKennzeichen.Size = New System.Drawing.Size(96, 13)
+        Me.lblLkwKennzeichen.TabIndex = 11
+        Me.lblLkwKennzeichen.Text = "Aktenbezeichnung"
+        '
+        'txtÄnderungen
+        '
+        Me.txtÄnderungen.AcceptsReturn = True
+        Me.txtÄnderungen.BackColor = System.Drawing.SystemColors.Info
+        Me.txtÄnderungen.ForeColor = System.Drawing.SystemColors.InfoText
+        Me.txtÄnderungen.Location = New System.Drawing.Point(424, 466)
+        Me.txtÄnderungen.MaxLength = 0
+        Me.txtÄnderungen.Multiline = True
+        Me.txtÄnderungen.Name = "txtÄnderungen"
+        Me.txtÄnderungen.ReadOnly = True
+        Me.txtÄnderungen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.txtÄnderungen.Size = New System.Drawing.Size(360, 68)
+        Me.txtÄnderungen.TabIndex = 13
+        Me.txtÄnderungen.TabStop = False
+        '
+        'lblAenderungen
+        '
+        Me.lblAenderungen.AutoSize = True
+        Me.lblAenderungen.Location = New System.Drawing.Point(421, 450)
+        Me.lblAenderungen.Name = "lblAenderungen"
+        Me.lblAenderungen.Size = New System.Drawing.Size(65, 13)
+        Me.lblAenderungen.TabIndex = 12
+        Me.lblAenderungen.Text = "Änderungen"
+        '
+        'dtpDatum
+        '
+        Me.dtpDatum.CustomFormat = "dd.MM.yyyy HH:mm"
+        Me.dtpDatum.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.dtpDatum.Location = New System.Drawing.Point(285, 7)
+        Me.dtpDatum.Name = "dtpDatum"
+        Me.dtpDatum.Size = New System.Drawing.Size(130, 20)
+        Me.dtpDatum.TabIndex = 0
+        '
+        'txtLKW_Nr
+        '
+        Me.txtLKW_Nr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtLKW_Nr.Location = New System.Drawing.Point(108, 69)
+        Me.txtLKW_Nr.MaxLength = 30
+        Me.txtLKW_Nr.Name = "txtLKW_Nr"
+        Me.txtLKW_Nr.Size = New System.Drawing.Size(289, 26)
+        Me.txtLKW_Nr.TabIndex = 15
+        '
+        'lblStatus
+        '
+        Me.lblStatus.BackColor = System.Drawing.Color.LemonChiffon
+        Me.lblStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblStatus.ForeColor = System.Drawing.Color.Green
+        Me.lblStatus.Location = New System.Drawing.Point(516, 7)
+        Me.lblStatus.Name = "lblStatus"
+        Me.lblStatus.Size = New System.Drawing.Size(268, 20)
+        Me.lblStatus.TabIndex = 4
+        Me.lblStatus.Text = "freigegeben"
+        '
+        'lblStatus2
+        '
+        Me.lblStatus2.AutoSize = True
+        Me.lblStatus2.Location = New System.Drawing.Point(430, 12)
+        Me.lblStatus2.Name = "lblStatus2"
+        Me.lblStatus2.Size = New System.Drawing.Size(80, 13)
+        Me.lblStatus2.TabIndex = 3
+        Me.lblStatus2.Text = "aktueller Status"
+        '
+        'lblAktenuebersicht
+        '
+        Me.lblAktenuebersicht.AutoSize = True
+        Me.lblAktenuebersicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAktenuebersicht.Location = New System.Drawing.Point(12, 11)
+        Me.lblAktenuebersicht.Name = "lblAktenuebersicht"
+        Me.lblAktenuebersicht.Size = New System.Drawing.Size(130, 20)
+        Me.lblAktenuebersicht.TabIndex = 1
+        Me.lblAktenuebersicht.Text = "Aktenübersicht"
+        '
+        'grpAviso
+        '
+        Me.grpAviso.Controls.Add(Me.lblErr_Kunde)
+        Me.grpAviso.Controls.Add(Me.lblErr_Aktentyp)
+        Me.grpAviso.Controls.Add(Me.lblErr_LKW)
+        Me.grpAviso.Controls.Add(Me.Label5)
+        Me.grpAviso.Controls.Add(Me.Label4)
+        Me.grpAviso.Controls.Add(Me.Label1)
+        Me.grpAviso.Controls.Add(Me.MyComboBox1)
+        Me.grpAviso.Controls.Add(Me.PictureBox1)
+        Me.grpAviso.Controls.Add(Me.kdAuftraggeber)
+        Me.grpAviso.Controls.Add(Me.dgvAnhaenge)
+        Me.grpAviso.Controls.Add(Me.txtLKW_Nr)
+        Me.grpAviso.Controls.Add(Me.btnAuftraggeber)
+        Me.grpAviso.Controls.Add(Me.lblLkwKennzeichen)
+        Me.grpAviso.Location = New System.Drawing.Point(12, 49)
+        Me.grpAviso.Name = "grpAviso"
+        Me.grpAviso.Size = New System.Drawing.Size(403, 434)
+        Me.grpAviso.TabIndex = 7
+        Me.grpAviso.TabStop = False
+        Me.grpAviso.Text = "CBAM"
+        '
+        'lblErr_Kunde
+        '
+        Me.lblErr_Kunde.AutoSize = True
+        Me.lblErr_Kunde.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Kunde.Location = New System.Drawing.Point(105, 124)
+        Me.lblErr_Kunde.Name = "lblErr_Kunde"
+        Me.lblErr_Kunde.Size = New System.Drawing.Size(130, 13)
+        Me.lblErr_Kunde.TabIndex = 61
+        Me.lblErr_Kunde.Text = "Kunde darf nicht leer sein!"
+        Me.lblErr_Kunde.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErr_Kunde.Visible = False
+        '
+        'lblErr_Aktentyp
+        '
+        Me.lblErr_Aktentyp.AutoSize = True
+        Me.lblErr_Aktentyp.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Aktentyp.Location = New System.Drawing.Point(105, 13)
+        Me.lblErr_Aktentyp.Name = "lblErr_Aktentyp"
+        Me.lblErr_Aktentyp.Size = New System.Drawing.Size(141, 13)
+        Me.lblErr_Aktentyp.TabIndex = 60
+        Me.lblErr_Aktentyp.Text = "Aktentyp darf nicht leer sein!"
+        Me.lblErr_Aktentyp.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErr_Aktentyp.Visible = False
+        '
+        'lblErr_LKW
+        '
+        Me.lblErr_LKW.AutoSize = True
+        Me.lblErr_LKW.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_LKW.Location = New System.Drawing.Point(105, 58)
+        Me.lblErr_LKW.Name = "lblErr_LKW"
+        Me.lblErr_LKW.Size = New System.Drawing.Size(188, 13)
+        Me.lblErr_LKW.TabIndex = 54
+        Me.lblErr_LKW.Text = "Aktenbezeichnung darf nicht leer sein!"
+        Me.lblErr_LKW.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErr_LKW.Visible = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(6, 132)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(53, 13)
+        Me.Label5.TabIndex = 59
+        Me.Label5.Text = "Anhänge:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(6, 35)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(59, 13)
+        Me.Label4.TabIndex = 58
+        Me.Label4.Text = "Akten-Typ:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(6, 104)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(41, 13)
+        Me.Label1.TabIndex = 57
+        Me.Label1.Text = "Kunde:"
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(108, 27)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(198, 28)
+        Me.MyComboBox1.TabIndex = 56
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.cbam_s
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(312, 9)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(85, 58)
+        Me.PictureBox1.TabIndex = 48
+        Me.PictureBox1.TabStop = False
+        '
+        'kdAuftraggeber
+        '
+        Me.kdAuftraggeber._AlleFirmenCLUSTER = False
+        Me.kdAuftraggeber._AllowSetValue = True
+        Me.kdAuftraggeber._autoSizeGross = False
+        Me.kdAuftraggeber._display_Name1 = False
+        Me.kdAuftraggeber._displayAVISO_Email = True
+        Me.kdAuftraggeber._displayFullName = False
+        Me.kdAuftraggeber._displayWoelflKd = False
+        Me.kdAuftraggeber._hideIfListEmpty = True
+        Me.kdAuftraggeber._loadKdData = False
+        Me.kdAuftraggeber._searchName1 = True
+        Me.kdAuftraggeber._UseFIRMA = ""
+        Me.kdAuftraggeber._ValueKdAndName = True
+        Me.kdAuftraggeber.dgvpos = "LEFT"
+        Me.kdAuftraggeber.KdName = ""
+        Me.kdAuftraggeber.KdNr = "-1"
+        Me.kdAuftraggeber.kdNrField = Nothing
+        Me.kdAuftraggeber.KdNrNullInt = Nothing
+        Me.kdAuftraggeber.Location = New System.Drawing.Point(108, 101)
+        Me.kdAuftraggeber.Name = "kdAuftraggeber"
+        Me.kdAuftraggeber.nurAktive = False
+        Me.kdAuftraggeber.searchActive = True
+        Me.kdAuftraggeber.Size = New System.Drawing.Size(258, 20)
+        Me.kdAuftraggeber.TabIndex = 42
+        Me.kdAuftraggeber.TIMER_SEARCH = True
+        Me.kdAuftraggeber.usrcntl = Nothing
+        '
+        'dgvAnhaenge
+        '
+        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhaenge.AllowUserToAddRows = False
+        Me.dgvAnhaenge.AllowUserToDeleteRows = False
+        Me.dgvAnhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnhaenge.AllowUserToResizeRows = False
+        Me.dgvAnhaenge.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhaenge.ColumnHeadersVisible = False
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName, Me.clmnPfad})
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(9, 148)
+        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(388, 286)
+        Me.dgvAnhaenge.TabIndex = 17
+        '
+        'columnName
+        '
+        Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.columnName.HeaderText = "Name"
+        Me.columnName.Name = "columnName"
+        Me.columnName.ReadOnly = True
+        '
+        'clmnPfad
+        '
+        Me.clmnPfad.HeaderText = "Pfad"
+        Me.clmnPfad.Name = "clmnPfad"
+        Me.clmnPfad.ReadOnly = True
+        Me.clmnPfad.Visible = False
+        '
+        'btnAuftraggeber
+        '
+        Me.btnAuftraggeber.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnAuftraggeber.Enabled = False
+        Me.btnAuftraggeber.FlatAppearance.BorderSize = 0
+        Me.btnAuftraggeber.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAuftraggeber.Image = CType(resources.GetObject("btnAuftraggeber.Image"), System.Drawing.Image)
+        Me.btnAuftraggeber.Location = New System.Drawing.Point(372, 97)
+        Me.btnAuftraggeber.Name = "btnAuftraggeber"
+        Me.btnAuftraggeber.Size = New System.Drawing.Size(25, 24)
+        Me.btnAuftraggeber.TabIndex = 43
+        Me.btnAuftraggeber.TabStop = False
+        Me.btnAuftraggeber.Tag = "Kunde hinzufügen"
+        Me.btnAuftraggeber.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnAuftraggeber.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btnAuftraggeber.UseVisualStyleBackColor = True
+        '
+        'lblErrFmZollKdNr
+        '
+        Me.lblErrFmZollKdNr.AutoSize = True
+        Me.lblErrFmZollKdNr.ForeColor = System.Drawing.Color.Red
+        Me.lblErrFmZollKdNr.Location = New System.Drawing.Point(591, 372)
+        Me.lblErrFmZollKdNr.Name = "lblErrFmZollKdNr"
+        Me.lblErrFmZollKdNr.Size = New System.Drawing.Size(156, 26)
+        Me.lblErrFmZollKdNr.TabIndex = 26
+        Me.lblErrFmZollKdNr.Text = "Wenn möglich bitte die FM-Zoll " & Global.Microsoft.VisualBasic.ChrW(10) & "Zuordnung mit KdNr eintragen!"
+        Me.lblErrFmZollKdNr.Visible = False
+        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button3.Location = New System.Drawing.Point(424, 49)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(359, 37)
+        Me.Button3.TabIndex = 11
+        Me.Button3.Text = "Weiter zu den Unterakten"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'cboFirma
+        '
+        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.cboFirma._allowFreiText = False
+        Me.cboFirma._value = ""
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Location = New System.Drawing.Point(285, 28)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(130, 21)
+        Me.cboFirma.TabIndex = 6
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(220, 31)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(43, 13)
+        Me.Label2.TabIndex = 5
+        Me.Label2.Text = "FIRMA:"
+        '
+        'lblErrErfasstDat
+        '
+        Me.lblErrErfasstDat.AutoSize = True
+        Me.lblErrErfasstDat.ForeColor = System.Drawing.Color.Red
+        Me.lblErrErfasstDat.Location = New System.Drawing.Point(139, 5)
+        Me.lblErrErfasstDat.Name = "lblErrErfasstDat"
+        Me.lblErrErfasstDat.Size = New System.Drawing.Size(85, 26)
+        Me.lblErrErfasstDat.TabIndex = 52
+        Me.lblErrErfasstDat.Text = "Darf nicht in der " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zukunft liegen!"
+        Me.lblErrErfasstDat.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErrErfasstDat.Visible = False
+        '
+        'Label12
+        '
+        Me.Label12.BackColor = System.Drawing.Color.Transparent
+        Me.Label12.Location = New System.Drawing.Point(421, 432)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(372, 18)
+        Me.Label12.TabIndex = 29
+        Me.Label12.Text = "Achtung: im Feld Info nur allgemeine Infos erfassen. "
+        '
+        'Panel1
+        '
+        Me.Panel1.Location = New System.Drawing.Point(424, 92)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(358, 245)
+        Me.Panel1.TabIndex = 53
+        '
+        'frmEintragAvisoCBAM
+        '
+        Me.AcceptButton = Me.btnOK
+        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(792, 564)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.cboFirma)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.grpAviso)
+        Me.Controls.Add(Me.lblAktenuebersicht)
+        Me.Controls.Add(Me.lblStatus)
+        Me.Controls.Add(Me.lblStatus2)
+        Me.Controls.Add(Me.lblErfAm)
+        Me.Controls.Add(Me.txtÄnderungen)
+        Me.Controls.Add(Me.dtpDatum)
+        Me.Controls.Add(Me.btnAbbruch)
+        Me.Controls.Add(Me.lblAenderungen)
+        Me.Controls.Add(Me.btnOK)
+        Me.Controls.Add(Me.txtInfo)
+        Me.Controls.Add(Me.lblErrFmZollKdNr)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.lblErrErfasstDat)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.KeyPreview = True
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmEintragAvisoCBAM"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Sammelaktakt erfassen/bearbeiten"
+        Me.grpAviso.ResumeLayout(False)
+        Me.grpAviso.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents lblErfAm As System.Windows.Forms.Label
+    Friend WithEvents btnAbbruch As System.Windows.Forms.Button
+    Friend WithEvents txtInfo As System.Windows.Forms.TextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents lblLkwKennzeichen As System.Windows.Forms.Label
+    Friend WithEvents txtÄnderungen As System.Windows.Forms.TextBox
+    Friend WithEvents lblAenderungen As System.Windows.Forms.Label
+    Friend WithEvents txtLKW_Nr As System.Windows.Forms.TextBox
+    Friend WithEvents txtDatum As System.Windows.Forms.TextBox
+    Friend WithEvents lblStatus As System.Windows.Forms.Label
+    Friend WithEvents lblStatus2 As System.Windows.Forms.Label
+    Friend WithEvents dtpDatum As System.Windows.Forms.DateTimePicker
+    Friend WithEvents lblAktenuebersicht As System.Windows.Forms.Label
+    Friend WithEvents grpAviso As System.Windows.Forms.GroupBox
+    Friend WithEvents lblErrFmZollKdNr As System.Windows.Forms.Label
+    Friend WithEvents Button3 As System.Windows.Forms.Button
+    Friend WithEvents btnAuftraggeber As System.Windows.Forms.Button
+    Friend WithEvents kdAuftraggeber As VERAG_PROG_ALLGEMEIN.KdSearchBox
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents columnName As DataGridViewTextBoxColumn
+    Friend WithEvents clmnPfad As DataGridViewTextBoxColumn
+    Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents lblErrErfasstDat As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents lblErr_Kunde As Label
+    Friend WithEvents lblErr_Aktentyp As Label
+    Friend WithEvents lblErr_LKW As Label
+End Class

Aviso/AktenErfassung/frmEintragSammelakt.vb

@@ -0,0 +1,597 @@
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
+
+Public Class frmEintragSammelakt
+    '   Public frmHilf As frmMain
+
+    Dim Firmen As New cFirmenDAL
+    Dim AvisoDAL As New cAvisoDAL
+    Dim myAviso As New cAviso
+    Dim AVISOFUNC As New AvisoStatusFunctions
+    Dim ADMIN As New cADMIN
+    Dim hÄnderung As Boolean = False
+    Dim Neuanlage As Boolean = False
+    Public EingangsDatum As Date = CDate("01.01.1990")
+
+    Dim hStatus As Integer
+    Dim showSendungsdetails As Boolean = False
+    Dim hAdresse As String = ""
+    Dim hCC As String = ""
+    Public aktiv As Boolean = False
+
+    Public ATT As List(Of String)
+    Dim PROG As New cProgramFunctions
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+    Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+    Public Sub New()
+        InitializeComponent()
+        Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
+    End Sub
+
+
+
+    Private Sub frmEintragAviso_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
+        'Escape händisch abfangen und auf Abbruch-Taste legen
+        If e.KeyCode = Keys.Escape Then
+            btnAbbruch.PerformClick()
+        End If
+        If e.KeyCode = Keys.Return Then
+            e.Handled = True
+        End If
+    End Sub
+
+    Sub initAttachment()
+        If ATT Is Nothing Then dgvAnhaenge.Visible = False : Exit Sub
+        dgvAnhaenge.Rows.Clear()
+        If ATT.Count = 0 Then
+            '    btnSaveAttachments.Enabled = False
+        Else
+            dgvAnhaenge.Visible = True
+
+            For Each a In ATT
+                Dim display = a
+                If a.Contains("\") Then
+                    Dim sp = a.Split("\")
+                    display = sp(sp.Count - 1)
+                End If
+                dgvAnhaenge.Rows.Add({display, a})
+            Next
+        End If
+        dgvAnhaenge.ClearSelection()
+    End Sub
+
+
+    Private Sub frmEintragAviso_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+        '    MsgBox("Keine Berechtigung!")
+        '    Me.Close()
+        'End If
+
+
+        Me.CenterToParent()
+        btnOK.Enabled = False
+        kdAuftraggeber.initKdBox(Me)
+
+        MyComboBox1.Items.Clear()
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM", "CBAM"))
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUDR", "EUDR"))
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FGAS", "FGAS"))
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLLBERATUNG", "COMPLIANCE"))
+        MyComboBox1.changeItem("")
+
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            ATILLA_NEUERAKTENDECKEL = True
+        End If
+
+        ' SDL.cProgramFunctions.initDrucker(cboPrinter)
+
+
+        cboFirma.Items.Clear()
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
+        cboFirma.changeItem(FIRMA_TMP)
+        cboFirma.Enabled = False
+
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+            cboFirma.Enabled = True
+        End If
+
+
+
+        AddHandler kdAuftraggeber.PropertyChanged, Sub()
+                                                       If kdAuftraggeber.KdNr_value > 0 Then
+                                                           btnAuftraggeber.Enabled = True
+                                                       Else
+                                                           btnAuftraggeber.Enabled = False
+                                                       End If
+                                                   End Sub
+
+
+
+        btnOK.Enabled = True
+
+
+
+        Dim bearb As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm)
+
+        If cGlobal.Aktive_ID = 0 Then
+            'es erfolgt eine Neuanlage
+            Neuanlage = True
+            Me.Text = "Neuanlage LKW-Aviso"
+            dtpDatum.Value = Now
+            If Not bearb Then dtpDatum.Enabled = False
+
+            txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
+            lblStatus.Text = "Neuanlage"
+
+            kdAuftraggeber.Text = ""
+
+
+        Else
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
+                Me.Close()
+            End If
+
+
+            Me.Text = "Änderung LKW-Aviso"
+            'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
+
+            'txtInfo.Visible = False
+            'Label3.Visible = False
+            ''ausgewählter Datensatz wird geladen
+            'Button3.Visible = False
+
+            myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
+
+            'Werte(zuweisen)
+            dtpDatum.Value = myAviso.Datum
+            If Not bearb Then dtpDatum.Enabled = False
+
+            If myAviso.Auftraggeber_KdNr > 0 Then
+                kdAuftraggeber.KdNr = myAviso.Auftraggeber_KdNr
+            Else
+                kdAuftraggeber.Text = myAviso.Auftraggeber
+            End If
+
+            txtInfo.Text = myAviso.Info.Trim
+            txtLKW_Nr.Text = myAviso.LKW_Nr
+
+
+            txtÄnderungen.Text = myAviso.Änderungen.Trim
+
+            hStatus = myAviso.Status
+
+            If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
+
+            'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
+
+            'Status anzeigen
+
+            Select Case hStatus
+                Case cGlobal.Status_Ankunft
+                    lblStatus.Text = "Ankunft"
+                    If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
+                    lblStatus.ForeColor = Color.Blue
+                Case cGlobal.Status_Erfasst
+                    lblStatus.Text = "erfasst"
+                    lblStatus.ForeColor = Color.Red
+                Case cGlobal.Status_Freigegeben
+                    lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
+                    lblStatus.ForeColor = Color.Green
+                    btnOK.Enabled = bearb
+                Case cGlobal.Status_NichtEingetroffen
+                    lblStatus.Text = "LKW nicht eingetroffen"
+                    lblStatus.ForeColor = Color.DarkGray
+                    btnOK.Enabled = bearb
+                Case cGlobal.Status_Vorbereitet
+                    lblStatus.Text = "Vorbereitet"
+                    lblStatus.ForeColor = Color.Brown
+                    btnOK.Enabled = bearb
+                Case cGlobal.Status_Vorgeschrieben
+                    lblStatus.Text = "Vorgeschrieben"
+                    lblStatus.ForeColor = Color.Purple
+                    btnOK.Enabled = bearb
+                Case Else
+                    lblStatus.Text = ""
+            End Select
+            lblStatus.Text = " " & lblStatus.Text & " "   'für bessere farbliche Hervorhebung
+            cboFirma.changeItem("")
+            cboFirma.changeItem(myAviso.FIRMA)
+
+
+
+
+        End If
+
+        If bearb Then Me.Text += " (Verwaltung)"
+
+        hÄnderung = False
+
+        dtpDatum.Enabled = bearb   'nur Administrator darf Erfassungsdatum ändern/bearbeiten
+        'If Neuanlage Then
+        '    dtpAvisoEingangDatum.Value = Now.Date
+        '    dtpAvisoEingangZeit.Value = LeerDatum
+        'Else
+        '    dtpAvisoEingangDatum.Enabled = bearb
+        '    dtpAvisoEingangZeit.Enabled = bearb
+        'End If
+
+
+        initAttachment()
+
+    End Sub
+
+    Private Sub dgvAnhaenge_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyDown
+        If e.KeyCode = Keys.Delete Then
+
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                For Each row In dgvAnhaenge.SelectedRows.Cast(Of DataGridViewRow)().OrderByDescending(Function(dgvr) dgvr.Index)
+                    ATT.RemoveAt(row.Index)
+                Next
+
+                'ATT.RemoveAt(dgvAnhaenge.SelectedRows(0).Index) 'Inex-Rows = Index-Att
+                initAttachment()
+            End If
+        End If
+    End Sub
+
+    Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
+        Me.Close()
+    End Sub
+
+    Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtLKW_Nr.GotFocus
+        CType(sender, TextBox).SelectAll()
+    End Sub
+
+    Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
+        Try
+
+
+            If Not aktiv Then Exit Sub
+
+
+            lblErrErfasstDat.Visible = False
+            lblErr_Aktentyp.Visible = False
+            lblErr_Kunde.Visible = False
+            lblErr_LKW.Visible = False
+
+            If FIRMA_TMP = "VERIMEX" Then
+                If cboFirma._value = "" Then
+                    MsgBox("Firma auswählen!", vbInformation)
+                    cboFirma.Focus()
+                    Exit Sub
+
+                End If
+            End If
+
+
+            If dtpDatum.Enabled AndAlso CDate(dtpDatum.Value) > Now Then
+                lblErrErfasstDat.Visible = True
+                dtpDatum.Focus()
+                Exit Sub
+            End If
+
+            If MyComboBox1._value.Trim = "" Then
+                ' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
+                lblErr_Aktentyp.Visible = True
+                MyComboBox1.Focus()
+                Exit Sub
+            End If
+
+            If txtLKW_Nr.Text.Trim = "" Then
+                ' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
+                lblErr_LKW.Visible = True
+                txtLKW_Nr.Focus()
+                Exit Sub
+            End If
+
+            If kdAuftraggeber.KdNr_value <= 0 Then
+                lblErr_Kunde.Visible = True
+                kdAuftraggeber.Focus()
+                Exit Sub
+            End If
+
+
+
+            If Neuanlage Then
+                'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
+                Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
+                If hLKWCheck2 <> "" Then
+                    Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
+                                           "Aviso-Eintrag")
+                    If antwort = vbNo Then
+                        Exit Sub
+                    End If
+                End If
+
+                If hLKWCheck2 = "" Then
+                    'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
+                    Dim hLKWCheck As String = AvisoDAL.Suche_LKW(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
+                    If hLKWCheck <> "" Then
+                        Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
+                                               "Aviso-Eintrag")
+                        If antwort = vbNo Then
+                            Exit Sub
+                        End If
+                    End If
+                End If
+
+            End If
+
+
+
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim aendart As String = ""
+            Dim aendText As String = ""
+
+            'Werte zuweisen
+            myAviso.Telefonisch = ""
+            myAviso.Datum = dtpDatum.Value
+            myAviso.LKW_Nr = txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", "")
+
+
+            If kdAuftraggeber.KdNr_value > 0 Then
+                myAviso.Auftraggeber = IIf(kdAuftraggeber.KdName <> "", kdAuftraggeber.KdName, kdAuftraggeber.Text)
+                myAviso.Auftraggeber_KdNr = kdAuftraggeber.KdNr_value
+            Else
+                myAviso.Auftraggeber = kdAuftraggeber.Text
+                myAviso.Auftraggeber_KdNr = -1
+            End If
+
+            If myAviso.Auftraggeber.Length > 50 Then myAviso.Auftraggeber = myAviso.Auftraggeber.Substring(0, 50)
+
+            myAviso.Frächter = myAviso.Auftraggeber
+            myAviso.Frächter_KdNr = myAviso.Auftraggeber_KdNr
+
+
+            myAviso.Grenzstelle = ""
+            myAviso.Info = ""
+
+            If Neuanlage Then
+                myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
+                myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
+            End If
+
+            If Neuanlage Then
+                myAviso.Änderungen = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+                aendart = "Neuanlage"
+                aendText = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+
+            Else
+                myAviso.Änderungen = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & myAviso.Änderungen
+                aendart = "Änderung per Eingabefenster"
+                aendText = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+            End If
+
+            Dim DatAnkunftNow = AVISOFUNC.getAnkunftDateNow()
+
+
+            myAviso.Status = cGlobal.Status_Ankunft
+
+
+            myAviso.Status = cGlobal.Status_Erfasst
+            myAviso.Ankunft = LeerDatum
+            myAviso.Freigabe = LeerDatum
+            myAviso.Vorbereitet = LeerDatum
+            myAviso.Vorgeschrieben = LeerDatum
+            myAviso.Dauer = 0
+
+
+
+
+            myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
+            myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")
+
+
+
+
+            Dim tmpId = AvisoDAL.SpeichernAviso(myAviso)
+
+
+            myAviso.AvisoID = tmpId
+            AvisoDAL.addAenderung(tmpId, aendart, aendText)
+
+
+            'Infotext als Vermerk:
+            If txtInfo.Text.Trim <> "" Then
+                If txtInfo.Text.Length <= 80 Then
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Trim, 46)
+                ElseIf txtInfo.Text.Length <= 160 Then
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46)
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46)
+                ElseIf txtInfo.Text.Length <= 240 Then
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46)
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46)
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(160, 80), 46)
+                End If
+            End If
+
+            Me.Cursor = Cursors.Default
+            'Jetzt wird Fenster geschlossen
+            Me.Close()
+            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
+            frmHauptfenster.setAktDetails(tmpId, showSendungsdetails)
+            If showSendungsdetails Then
+
+            End If
+
+        Catch ex As Exception
+            Me.Cursor = Cursors.Default
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+
+    ''threadsicherer Aufruf
+    'Delegate Sub setCboEntryCallback(i As String)
+    'Private Sub setCboEntry(i As String)
+    '    Try
+    '        If Me.InvokeRequired Then
+    '            Dim d As New setCboEntryCallback(AddressOf setCboEntry)
+    '            Me.Invoke(d, New Object() {i})
+    '        Else
+    '            cboPrinter.Items.Add(i)
+    '        End If
+
+    '    Catch ex As Exception
+
+    '    End Try
+    'End Sub
+
+    ''threadsicherer Aufruf
+    'Delegate Sub setCboSelectedCallback(standardDrucker As String)
+    'Private Sub setCboSelected(standardDrucker As String)
+    '    If Me.InvokeRequired Then
+    '        Dim d As New setCboSelectedCallback(AddressOf setCboSelected)
+    '        Me.Invoke(d, New Object() {standardDrucker})
+    '    Else
+    '        Dim found As Boolean = False
+    '        '  For Each i In cboPrinter.Items
+    '        'If i.ToString.ToUpper.Contains("TALLY") Then
+    '        'found = True
+    '        ' cboPrinter.SelectedItem = i : Exit For
+    '        ' End If
+    '        '   Next
+
+    '        If found = False Then 'Falls kein TALLY, Standarddrucker
+    '            cboPrinter.SelectedIndex = 0
+    '            For Each i In cboPrinter.Items
+    '                If i.ToString = standardDrucker Then
+    '                    cboPrinter.SelectedItem = i
+    '                    Exit For
+    '                End If
+    '            Next
+    '        End If
+    '    End If
+
+    'End Sub
+
+
+
+
+    Private Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String) As String
+        If hText = "" Then
+            Platzhalter_ersetzen = hText
+            Exit Function
+        End If
+
+        'hier werden alle möglichen Platzhalter ersetzt
+        hText = hText.Replace("%LKW%", hLKW)
+        If hGrenzstelle <> "" Then
+            Dim Standorte As New cStandorteDAL
+            Dim Standort As New cStandort
+            Standort = Standorte.LesenStandort(0, hGrenzstelle, "")
+            If Not IsNothing(Standort) Then
+                hGrenzstelle = Standort.Standort_Text.Trim
+            End If
+        End If
+        hText = hText.Replace("%Standort%", hGrenzstelle)
+        hText = hText.Replace("%Uhrzeit%", Format(Now, "HH:mm"))
+        hText = hText.Replace("&", "und")
+
+        Platzhalter_ersetzen = hText
+    End Function
+
+
+
+    Private Sub txtLKW_Nr_TextChanged(sender As Object, e As EventArgs) Handles txtLKW_Nr.Leave
+        txtLKW_Nr.Text = txtLKW_Nr.Text.ToUpper
+    End Sub
+
+
+
+    Private Sub frmEintragAviso_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        'dtpAvisoEingangZeit.Focus()
+        aktiv = True
+        'If EingangsDatum > CDate("01.01.1990") Then
+        '    dtpAvisoEingangDatum.Value = EingangsDatum
+        '    dtpAvisoEingangZeit.Value = EingangsDatum
+        'End If
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
+    End Sub
+
+
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If StartFromOUTLOOK Then
+            MsgBox("Diese Funktion ist im Outlook Addin nicht verfügbar!")
+            Exit Sub
+        End If
+        ' Me.showSendungsdetails = True
+        btnOK.PerformClick()
+
+
+        'If dgvSendungen.SelectedRows.Count > 0 Then
+        'sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
+        'End If
+        If myAviso.AvisoID > 0 Then
+
+            If Process.GetCurrentProcess().ProcessName.ToUpper() = "AVISO" Then
+                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                Dim frmSendungsdetails As New frmSendungsdetailsNEU(myAviso.AvisoID, -1)
+                frmSendungsdetails.ShowDialog(frmGrayOut)
+
+
+                frmGrayOut.Close()
+            Else
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_" & myAviso.AvisoID)
+            End If
+
+
+        End If
+        'initDgvSendungen()
+    End Sub
+
+
+
+    Private Sub btnAuftraggeber_Click(sender As Object, e As EventArgs) Handles btnAuftraggeber.Click
+        If kdAuftraggeber.KdNr > 0 Then
+            Me.Cursor = Cursors.WaitCursor
+            AVISOFUNC.showKd(kdAuftraggeber.KdNr)
+            Me.Cursor = Cursors.Default
+        End If
+    End Sub
+
+
+    Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick, dgvAnhaenge.CellContentDoubleClick
+        Try
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                If dgvAnhaenge.SelectedRows(0).Cells(1).Value <> "" Then
+                    Process.Start(dgvAnhaenge.SelectedRows(0).Cells(1).Value)
+                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 MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
+        Select Case MyComboBox1._value
+            Case "CBAM"
+                PictureBox1.BackgroundImage = My.Resources.cbam_s
+            Case "EUDR"
+                PictureBox1.BackgroundImage = My.Resources.eudr
+            Case "FGAS"
+                PictureBox1.BackgroundImage = My.Resources.fgas_s
+            Case "COMPLIANCE"
+                PictureBox1.BackgroundImage = My.Resources.compliance_s
+            Case Else
+                PictureBox1.BackgroundImage = Nothing
+        End Select
+
+    End Sub
+End Class

Aviso/AktenErfassung/usrCntlHauptakt_CBAM.Designer.vb

@@ -0,0 +1,37 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlHauptakt_CBAM
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.SuspendLayout()
+        '
+        'usrCntlHauptakt_CBAM
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Name = "usrCntlHauptakt_CBAM"
+        Me.Size = New System.Drawing.Size(358, 245)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+End Class

Aviso/AktenErfassung/usrCntlHauptakt_CBAM.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Aviso/AktenErfassung/usrCntlHauptakt_CBAM.vb

@@ -0,0 +1,3 @@
+Public Class usrCntlHauptakt_CBAM
+
+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

@@ -32,18 +32,13 @@ Partial Class frmSendungAnhangImport
         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()
@@ -60,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()
@@ -69,12 +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,9 +99,9 @@ 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
         '
         'flpnlSendungen
@@ -109,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
@@ -155,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
@@ -182,30 +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._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
@@ -237,29 +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._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
@@ -269,29 +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._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
@@ -310,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
@@ -335,30 +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._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
@@ -434,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
@@ -458,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))
@@ -474,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
@@ -482,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
@@ -494,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
@@ -505,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 = "-"
         '
@@ -551,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
@@ -561,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 = "-"
         '
@@ -571,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 = "-"
         '
@@ -581,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
@@ -594,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)
@@ -606,13 +489,161 @@ 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
@@ -622,6 +653,7 @@ Partial Class frmSendungAnhangImport
         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"
@@ -637,39 +669,38 @@ Partial Class frmSendungAnhangImport
         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"
@@ -680,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()
 
@@ -732,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,38 @@ Public Class frmSendungAnhangImport
                     WebBrowser.Visible = (loc <> "")
                     WebBrowser.Navigate(loc)
                 Else
+
                     WebBrowser.Visible = False
                     PdfViewer.Visible = (loc <> "")
-                    PdfViewer.LoadFromFile(loc)
-                End If
-            ElseIf typ = "BILD" Then
+                    If loc <> "" Then
+                        Dim data = File.ReadAllBytes(loc)
+
+                        Dim header As String = System.Text.Encoding.ASCII.GetString(data, 0, Math.Min(4, data.Length))
+
+                        If header = "%PDF" Then
+
+                            Dim pdfStream = New MemoryStream(data)
+                            PdfViewer.LoadFromStream(pdfStream)
+                            pdfStream.Close()
+
+                        End If
+
+                    End If
+
+
+                        'NOT WORKING
+                        'PdfViewer.LoadFromFile(loc) NOT WORKING
+                    End If
+            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 +240,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 +329,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 +370,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 +443,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 +606,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 +623,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 +692,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 +765,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 +1167,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 +1283,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 +1354,7 @@ Public Class frmSendungAnhangImport
         If e.KeyCode = Keys.Return Then
             btnAnfuegen.PerformClick()
         End If
+
     End Sub
     Sub initSendungen()
         cboSendungen.Items.Clear()
@@ -1201,6 +1442,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 +1456,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 +1466,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 +1548,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 +1561,7 @@ Public Class frmSendungAnhangImport
         USRCNTL.FILE_ANHID = anhId
 
         USRCNTL.FILE_TYPE = Typ
+        USRCNTL.FILE_SIZE = Size
 
         initElement(USRCNTL)
         flpnlAviso.Controls.Add(USRCNTL)
@@ -1423,23 +1671,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 +1713,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 +1751,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 +1811,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 +1959,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 +2121,8 @@ Public Class frmSendungAnhangImport
             If FilePath <> "" Then
                 addData_SendungAnhang(FilePath)
             End If
+            ' ElseIf e.Data.GetDataPresent(DataFormats.drag) Then
+
         End If
 
 
@@ -1921,7 +2195,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 +2208,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 +2225,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 +2257,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

@@ -1,30 +1,35 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
-    <configSections>
-        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-            <section name="AVISO.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
-        </sectionGroup>
-    </configSections>
-    <connectionStrings>
-        <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" />
-    </startup>
-     
-    <userSettings>
-        <AVISO.My.MySettings>
-            <setting name="frmMainSize" serializeAs="String">
-                <value>600, 800</value>
-            </setting>
-            <setting name="frmMainPosition" serializeAs="String">
-                <value>200, 200</value>
-            </setting>
-            <setting name="s" serializeAs="String">
-                <value />
-            </setting>
-        </AVISO.My.MySettings>
-    </userSettings>
+  <configSections>
+    <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+      <section name="AVISO.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+    </sectionGroup>
+  </configSections>
+  <connectionStrings>
+    <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>
+  <appSettings>
+    <add key="CustomerPortalApiBaseUrl" value="https://login.server.verag.ag" />
+    <add key="CustomerPortalApiUsername" value="admin" />
+    <add key="CustomerPortalApiPassword" value="veragadmin" />
+    <add key="ClientSettingsProvider.ServiceUri" value="" />
+  </appSettings>
+  <startup>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+  </startup>
+  <userSettings>
+    <AVISO.My.MySettings>
+      <setting name="frmMainSize" serializeAs="String">
+        <value>600, 800</value>
+      </setting>
+      <setting name="frmMainPosition" serializeAs="String">
+        <value>200, 200</value>
+      </setting>
+      <setting name="s" serializeAs="String">
+        <value />
+      </setting>
+    </AVISO.My.MySettings>
+  </userSettings>
   <system.serviceModel>
     <bindings>
       <basicHttpBinding>
@@ -47,7 +52,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" />
@@ -65,8 +70,44 @@
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-2.16.0.0" newVersion="2.16.0.0" />
+        <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>
+  <system.web>
+    <membership defaultProvider="ClientAuthenticationMembershipProvider">
+      <providers>
+        <add name="ClientAuthenticationMembershipProvider" type="System.Web.ClientServices.Providers.ClientFormsAuthenticationMembershipProvider, System.Web.Extensions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" />
+      </providers>
+    </membership>
+    <roleManager defaultProvider="ClientRoleProvider" enabled="true">
+      <providers>
+        <add name="ClientRoleProvider" type="System.Web.ClientServices.Providers.ClientRoleProvider, System.Web.Extensions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" cacheTimeout="86400" />
+      </providers>
+    </roleManager>
+  </system.web>
+</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 " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".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/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