edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: edv:4d8e90de9e66ade4a3e61df091b402564dce8a83
Branches Tags
edv:master edv:essensbestellungen edv:change_VM_logic edv:SDL
..
compare: edv:change_VM_logic
Branches Tags
edv:master edv:essensbestellungen edv:change_VM_logic edv:SDL

1 Commits
4d8e90de9e ... change_VM_

Author SHA1 Message Date
d.breimaier
a2c931c6df Login auf Testsystem. 2022-09-14 08:47:44 +02:00
373 changed files with 44681 additions and 125505 deletions
Expand all files Collapse all files

3
AVISOUPDATER/AVISOUPDATER.vbproj
View File

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

2
AVISOUPDATER/AVISOUPDATER_Version.txt
View File

@@ -1 +1 @@
7.4
7.0

2
AVISOUPDATER/App.config
View File

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

2
AVISOUPDATER/My Project/Resources.Designer.vb generated
View File

@@ -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", "17.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

2
AVISOUPDATER/My Project/Settings.Designer.vb generated
View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.6.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase

17
AVISOUPDATER/UPDATERfrm.vb
View File

@@ -13,9 +13,6 @@ 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
@@ -38,12 +35,6 @@ 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"
@@ -116,7 +107,7 @@ Public Class UPDATERfrm
If CopyIncremental Then
cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_", "Standort.txt"})
cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_"})
Else
delFiles()
FileCopier()
@@ -265,7 +256,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_") And Not cut_file(file).Contains("Standort.txt") Then 'alles außer den Updater
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") 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
@@ -288,7 +279,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_") And Not cut_file(file).Contains("Standort.txt") Then 'alles außer den Updater
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then 'alles außer den Updater
If cut_file(file) = cut_file(file_source) Then 'Gleicher Name
found = True
End If
@@ -321,7 +312,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_") And Not cut_file(file).Contains("Standort.txt") Then
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then
' f = file
My.Computer.FileSystem.DeleteFile(file) 'Löscht das AVISO-Programm, außer den Updater
' IO.File.Delete(file)

13
AVISOUPDATER/cProgrammeUpdate.vb
View File

@@ -100,19 +100,10 @@ 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("\\", "\")
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
Dim d_path = dirNameReplace_DEST & "\" & If(f.pud_filePathFolder, "") & "\" & f.pud_fileName.Replace("\\", "\")
IO.File.Copy(s_path, d_path)
End If
Next
Catch ex As Exception

6
AVISOUPDATER/packages.config
View File

@@ -1,6 +0,0 @@
<?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>

8
AVISO_CHECKIN/AVISO_CHECKIN.vbproj
View File

@@ -247,6 +247,14 @@
<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>

4
AVISO_CHECKIN/App.config
View File

@@ -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-13.0.0.0" newVersion="13.0.0.0" />
<bindingRedirect oldVersion="0.0.0.0-12.0.0.0" newVersion="12.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.4.0.46" newVersion="1.4.0.46" />
<bindingRedirect oldVersion="0.0.0.0-1.3.15.46" newVersion="1.3.15.46" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="GrapeCity.Documents.Pdf" publicKeyToken="d55d733d2bfd5065" culture="neutral" />

7
AVISO_INFO/AVISO_INFO.vbproj
View File

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

2
AVISO_INFO/App.config
View File

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

6
AVISO_INFO/My Project/Application.Designer.vb generated
View File

@@ -34,11 +34,5 @@ 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

2
AVISO_INFO/My Project/Resources.Designer.vb generated
View File

@@ -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", "17.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

2
AVISO_INFO/My Project/Settings.Designer.vb generated
View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.8.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase

2
AVISO_INFO/frmInfo.vb
View File

@@ -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=") And Not link.contains("https://status.app.verag.ag/aviso-status") Then Return False
If Not link.contains("https://login.verag.ag/status.aspx?AvisoId=") Then Return False
Return True
End Function

171
Aviso.sln
View File

@@ -11,28 +11,30 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "Gemeinsames\
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISOUPDATER", "AVISOUPDATER\AVISOUPDATER.vbproj", "{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGAddIn", "..\..\VERAGAddIn\VERAGAddIn\VERAGAddIn.vbproj", "{D579F7A6-7D29-4295-B382-DA5F7EFB4528}"
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}"
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
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
@@ -61,8 +63,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|x64
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.Build.0 = 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|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
@@ -74,8 +76,9 @@ Global
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x86.ActiveCfg = Release|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x86.Build.0 = Release|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.ActiveCfg = Debug|x64
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.Build.0 = 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|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
@@ -101,6 +104,34 @@ 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
@@ -129,11 +160,28 @@ 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
@@ -160,11 +208,28 @@ 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
@@ -175,6 +240,22 @@ 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
@@ -207,70 +288,6 @@ 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

489
Aviso/ARConverterBackup/Auswertung/rptStat_VERIMEX_AbklTR.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

6
Aviso/ARConverterBackup/Auswertung/rptStat_VERIMEX_AbklTR.vb
View File

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

1990
Aviso/ARConverterBackup/Aviso.vbproj
View File

File diff suppressed because it is too large Load Diff

349
Aviso/ARConverterBackup/AvisoReports/rptQRAviso.Designer.vb generated
View File

@@ -1,349 +0,0 @@
<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

105
Aviso/ARConverterBackup/AvisoReports/rptQRAviso.vb
View File

@@ -1,105 +0,0 @@
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

378
Aviso/ARConverterBackup/AvisoReports/rptQRSendung_VerwahrungApp.Designer.vb generated
View File

@@ -1,378 +0,0 @@
<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

111
Aviso/ARConverterBackup/AvisoReports/rptQRSendung_VerwahrungApp.vb
View File

@@ -1,111 +0,0 @@
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

95
Aviso/ARConverterBackup/AvisoReports/rptTEST.Designer.vb generated
View File

@@ -1,95 +0,0 @@
<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

7
Aviso/ARConverterBackup/AvisoReports/rptTEST.vb
View File

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

406
Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAkt.Designer.vb generated
View File

@@ -1,406 +0,0 @@
<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

13
Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAkt.vb
View File

@@ -1,13 +0,0 @@
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

901
Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.Designer.vb generated
View File

@@ -1,901 +0,0 @@
<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

13
Aviso/ARConverterBackup/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.vb
View File

@@ -1,13 +0,0 @@
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

343
Aviso/ARConverterBackup/WLAN/rptWLANTicket.Designer.vb generated
View File

@@ -1,343 +0,0 @@
<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

8
Aviso/ARConverterBackup/WLAN/rptWLANTicket.vb
View File

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

475
Aviso/ARConverterBackup/rptAuswertung.designer.vb generated
View File

@@ -1,475 +0,0 @@
<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

125
Aviso/ARConverterBackup/rptAuswertung.vb
View File

@@ -1,125 +0,0 @@
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

503
Aviso/ARConverterBackup/rptLKWBericht.Designer.vb generated
View File

@@ -1,503 +0,0 @@
<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

91
Aviso/ARConverterBackup/rptLKWBericht.vb
View File

@@ -1,91 +0,0 @@
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

445
Aviso/ARConverterBackup/rptTicketLKW.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

8
Aviso/ARConverterBackup/rptTicketLKW.vb
View File

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

249
Aviso/ARConverterBackup/rptTicketLKWInfo.Designer.vb generated
View File

@@ -1,249 +0,0 @@
<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

10
Aviso/ARConverterBackup/rptTicketLKWInfo.vb
View File

@@ -1,10 +0,0 @@
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

489
Aviso/ARConverterBackup1/Auswertung/rptStat_VERIMEX_AbklTR.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

6
Aviso/ARConverterBackup1/Auswertung/rptStat_VERIMEX_AbklTR.vb
View File

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

349
Aviso/ARConverterBackup1/AvisoReports/rptQRAviso.Designer.vb generated
View File

@@ -1,349 +0,0 @@
<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

105
Aviso/ARConverterBackup1/AvisoReports/rptQRAviso.vb
View File

@@ -1,105 +0,0 @@
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

378
Aviso/ARConverterBackup1/AvisoReports/rptQRSendung_VerwahrungApp.Designer.vb generated
View File

@@ -1,378 +0,0 @@
<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

111
Aviso/ARConverterBackup1/AvisoReports/rptQRSendung_VerwahrungApp.vb
View File

@@ -1,111 +0,0 @@
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

95
Aviso/ARConverterBackup1/AvisoReports/rptTEST.Designer.vb generated
View File

@@ -1,95 +0,0 @@
<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

7
Aviso/ARConverterBackup1/AvisoReports/rptTEST.vb
View File

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

406
Aviso/ARConverterBackup1/Dokumentenbeschriftung/rptSUBWESTIIAkt.Designer.vb generated
View File

@@ -1,406 +0,0 @@
<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

13
Aviso/ARConverterBackup1/Dokumentenbeschriftung/rptSUBWESTIIAkt.vb
View File

@@ -1,13 +0,0 @@
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

901
Aviso/ARConverterBackup1/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.Designer.vb generated
View File

@@ -1,901 +0,0 @@
<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

13
Aviso/ARConverterBackup1/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.vb
View File

@@ -1,13 +0,0 @@
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

343
Aviso/ARConverterBackup1/WLAN/rptWLANTicket.Designer.vb generated
View File

@@ -1,343 +0,0 @@
<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

8
Aviso/ARConverterBackup1/WLAN/rptWLANTicket.vb
View File

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

475
Aviso/ARConverterBackup1/rptAuswertung.designer.vb generated
View File

@@ -1,475 +0,0 @@
<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

125
Aviso/ARConverterBackup1/rptAuswertung.vb
View File

@@ -1,125 +0,0 @@
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

503
Aviso/ARConverterBackup1/rptLKWBericht.Designer.vb generated
View File

@@ -1,503 +0,0 @@
<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

91
Aviso/ARConverterBackup1/rptLKWBericht.vb
View File

@@ -1,91 +0,0 @@
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

445
Aviso/ARConverterBackup1/rptTicketLKW.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

8
Aviso/ARConverterBackup1/rptTicketLKW.vb
View File

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

249
Aviso/ARConverterBackup1/rptTicketLKWInfo.Designer.vb generated
View File

@@ -1,249 +0,0 @@
<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

10
Aviso/ARConverterBackup1/rptTicketLKWInfo.vb
View File

@@ -1,10 +0,0 @@
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

334
Aviso/ATEZ/frmATEZ_EZA.Designer.vb generated
View File

@@ -1,334 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmATEZ_EZA
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATEZ_EZA))
Me.btnSend = New System.Windows.Forms.Button()
Me.pnlHead = New System.Windows.Forms.Panel()
Me.lblInfo = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.txtDyMandant = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.lblAnh = New System.Windows.Forms.Label()
Me.Button1 = 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(395, 348)
Me.btnSend.Margin = New System.Windows.Forms.Padding(2)
Me.btnSend.Name = "btnSend"
Me.btnSend.Size = New System.Drawing.Size(192, 58)
Me.btnSend.TabIndex = 26
Me.btnSend.Text = "An ATEZ senden >>"
Me.btnSend.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSend.UseVisualStyleBackColor = False
'
'pnlHead
'
Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlHead.BackColor = System.Drawing.Color.White
Me.pnlHead.Controls.Add(Me.lblInfo)
Me.pnlHead.Controls.Add(Me.Label8)
Me.pnlHead.Controls.Add(Me.cboStammreferenz)
Me.pnlHead.Controls.Add(Me.txtLKWId)
Me.pnlHead.Controls.Add(Me.Label3)
Me.pnlHead.Controls.Add(Me.Label9)
Me.pnlHead.Controls.Add(Me.sbAdressierteZollstelle)
Me.pnlHead.Controls.Add(Me.txtDyMandant)
Me.pnlHead.Controls.Add(Me.Label1)
Me.pnlHead.Controls.Add(Me.txtDyNiederlassung)
Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
Me.pnlHead.Location = New System.Drawing.Point(3, 2)
Me.pnlHead.Name = "pnlHead"
Me.pnlHead.Size = New System.Drawing.Size(584, 151)
Me.pnlHead.TabIndex = 112
'
'lblInfo
'
Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblInfo.ForeColor = System.Drawing.Color.Red
Me.lblInfo.Location = New System.Drawing.Point(3, 32)
Me.lblInfo.Name = "lblInfo"
Me.lblInfo.Size = New System.Drawing.Size(460, 21)
Me.lblInfo.TabIndex = 148
'
'Label8
'
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(9, 61)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(80, 13)
Me.Label8.TabIndex = 146
Me.Label8.Text = "Stammreferenz:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboStammreferenz
'
Me.cboStammreferenz._allowedValuesFreiText = Nothing
Me.cboStammreferenz._allowFreiText = False
Me.cboStammreferenz._value = ""
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboStammreferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboStammreferenz.FormattingEnabled = True
Me.cboStammreferenz.Location = New System.Drawing.Point(151, 56)
Me.cboStammreferenz.Name = "cboStammreferenz"
Me.cboStammreferenz.Size = New System.Drawing.Size(255, 24)
Me.cboStammreferenz.TabIndex = 145
'
'txtLKWId
'
Me.txtLKWId._DateTimeOnly = False
Me.txtLKWId._numbersOnly = False
Me.txtLKWId._numbersOnlyKommastellen = ""
Me.txtLKWId._numbersOnlyTrennzeichen = True
Me.txtLKWId._Prozent = False
Me.txtLKWId._ShortDateNew = False
Me.txtLKWId._ShortDateOnly = False
Me.txtLKWId._TimeOnly = False
Me.txtLKWId._TimeOnly_Seconds = False
Me.txtLKWId._value = ""
Me.txtLKWId._Waehrung = False
Me.txtLKWId._WaehrungZeichen = True
Me.txtLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtLKWId.ForeColor = System.Drawing.Color.Black
Me.txtLKWId.Location = New System.Drawing.Point(151, 86)
Me.txtLKWId.MaxLineLength = -1
Me.txtLKWId.MaxLines_Warning = ""
Me.txtLKWId.MaxLines_Warning_Label = Nothing
Me.txtLKWId.Name = "txtLKWId"
Me.txtLKWId.Size = New System.Drawing.Size(255, 23)
Me.txtLKWId.TabIndex = 144
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(10, 91)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(103, 17)
Me.Label3.TabIndex = 113
Me.Label3.Text = "LKW-KZ:"
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(10, 117)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(103, 17)
Me.Label9.TabIndex = 110
Me.Label9.Text = "Adressierte-Zollstelle:"
'
'sbAdressierteZollstelle
'
Me.sbAdressierteZollstelle._allowFreitext = False
Me.sbAdressierteZollstelle._AllowSetValue = False
Me.sbAdressierteZollstelle._allowSpaceAsSplitter = False
Me.sbAdressierteZollstelle._autoSizeGross = False
Me.sbAdressierteZollstelle._hideIfListEmpty = True
Me.sbAdressierteZollstelle._value = ""
Me.sbAdressierteZollstelle.conn_art = "FMZOLL"
Me.sbAdressierteZollstelle.dgvpos = "LEFT"
Me.sbAdressierteZollstelle.DISPLAY_PARAM = Nothing
Me.sbAdressierteZollstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.sbAdressierteZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbAdressierteZollstelle.key_visible = False
Me.sbAdressierteZollstelle.KEYPARAM = Nothing
Me.sbAdressierteZollstelle.Location = New System.Drawing.Point(151, 112)
Me.sbAdressierteZollstelle.Name = "sbAdressierteZollstelle"
Me.sbAdressierteZollstelle.searchActive = True
Me.sbAdressierteZollstelle.Size = New System.Drawing.Size(255, 23)
Me.sbAdressierteZollstelle.SQL_ORDER_BY = Nothing
Me.sbAdressierteZollstelle.SQL_SELECT = Nothing
Me.sbAdressierteZollstelle.SQL_WHERE = Nothing
Me.sbAdressierteZollstelle.SQL_WhereParamList = Nothing
Me.sbAdressierteZollstelle.TabIndex = 111
Me.sbAdressierteZollstelle.usrcntl = Nothing
'
'txtDyMandant
'
Me.txtDyMandant.BackColor = System.Drawing.Color.White
Me.txtDyMandant.Location = New System.Drawing.Point(2, 7)
Me.txtDyMandant.Name = "txtDyMandant"
Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
Me.txtDyMandant.TabIndex = 109
Me.txtDyMandant.Text = "VERG"
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(296, 20)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 106
Me.Label1.Text = "Bezugsnummer:"
'
'txtDyNiederlassung
'
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 7)
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
Me.txtDyNiederlassung.TabIndex = 108
Me.txtDyNiederlassung.Text = "SUB"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBezugsnummer.Location = New System.Drawing.Point(384, 14)
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
Me.lblBezugsnummer.TabIndex = 107
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(409, 159)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(178, 23)
Me.Button3.TabIndex = 152
Me.Button3.Text = "alle Anhänge auswählen"
Me.Button3.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(9, 168)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(135, 13)
Me.Label6.TabIndex = 147
Me.Label6.Text = "Dokumente:"
'
'dgvAnhaenge
'
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAnhaenge.AllowUserToAddRows = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False
Me.dgvAnhaenge.AllowUserToResizeColumns = False
Me.dgvAnhaenge.AllowUserToResizeRows = False
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
Me.dgvAnhaenge.Location = New System.Drawing.Point(3, 184)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.ReadOnly = True
Me.dgvAnhaenge.RowHeadersVisible = False
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(584, 158)
Me.dgvAnhaenge.TabIndex = 112
'
'columnName
'
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.columnName.HeaderText = "Name"
Me.columnName.Name = "columnName"
Me.columnName.ReadOnly = True
'
'lblAnh
'
Me.lblAnh.Location = New System.Drawing.Point(0, 345)
Me.lblAnh.Name = "lblAnh"
Me.lblAnh.Size = New System.Drawing.Size(135, 13)
Me.lblAnh.TabIndex = 151
Me.lblAnh.Visible = False
'
'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
'
'frmATEZ_EZA
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.ClientSize = New System.Drawing.Size(589, 409)
Me.Controls.Add(Me.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
End Class

1256
Aviso/ATEZ/frmATEZ_EZA.resx
View File

File diff suppressed because it is too large Load Diff

774
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -1,774 +0,0 @@

Imports com.esendex.sdk.optouts.models
Imports DAKOSY_Worker.eZollTypes
Imports SDL
Imports VERAG_PROG_ALLGEMEIN
Public Class frmATEZ_EZA
Dim ART As String = ""
Dim FilialenNr As Integer
Dim AbfertigungsNr As Integer
Dim JAHR As Integer = Now.ToString("yy")
Public isSTAMMREF As Boolean = False
Public STAMMREF As String = ""
Public CopyFromZA_Id As Integer = -1
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim ZOLL_SYSTEM = "DAKOSY"
Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
Public ATT As List(Of String)
Dim AVISO As New cAviso
Dim zusatz As String
Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
Dim VermerkeDAL As New cVermerkeDAL
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
Dim openExisting As Boolean = False
Dim id As Integer = -1
Dim dgv As DataGridView = Nothing
Dim atez_data As cATEZ_NCTS_DATA
Dim atez = New cATEZ_NCTS_IN("atez_ncts")
Dim allSelected As Boolean = False
Property BezugsNr As String = ""
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional _dgv As DataGridView = Nothing)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
If _dgv IsNot Nothing Then Me.dgv = _dgv
Me.AVISO = AVISO
Me.SENDUNG = SENDUNG
Me.JAHR = JAHR
If SENDUNG IsNot Nothing Then
Me.FilialenNr = SENDUNG.FilialenNr
Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
End If
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(_id As Integer, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
openExisting = True
id = _id
Me.AVISO = AVISO
Me.SENDUNG = SENDUNG
Me.JAHR = JAHR
If SENDUNG IsNot Nothing Then
Me.FilialenNr = SENDUNG.FilialenNr
Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
End If
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSend.Click
Try
'If Button1.Text = "JSON" Then
' If Not atez.setJson(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
' atez.setJsonPDF(atez_data, dgvAnhaenge)
' Dim data As New DataObject()
' data.SetData(DataFormats.Text, atez_data.json)
' Clipboard.SetDataObject(data)
' Me.Cursor = Cursors.Default
' MsgBox("JSON-Daten in Zwischenablage gespeichert")
' Exit Sub
'End If
'If atez_data.status = "Sent" Then
' Exit Sub
'End If
''auskommentiert, weil Sendungen ohne ANhang auch geschickt werden sollen: M.Akceylan
''If Not checkAttachment() Then
'' Exit Sub
''End If
If Not checkMandatoryField() Then
Exit Sub
End If
Me.Cursor = Cursors.WaitCursor
lblInfo.Text = ""
'txtDyMandant.Text = "VERA" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
txtDyMandant.Text = "VERG"
' atez.setJsonPDF(atez_data, dgvAnhaenge)
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'----ATEZ EZA------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim procedureCodeRequested As Integer
Select Case SENDUNG.tblSnd_Abfertigungsart_ID
Case 26, 27
procedureCodeRequested = 42
Case Else
procedureCodeRequested = 40
End Select
Dim ioReference = lblBezugsnummer.Text & Now.ToString("ddMMyyyy_HHmmss")
'
'.DAKOSY_TemplateCode = cboStammreferenz._value
'If .DAKOSY_TemplateCode = "" Then .DAKOSY_TemplateCode = "*OWN"
'.documents = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument) From {
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test.txt", .fileType = "invoice"},
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test2.txt", .fileType = "atr"},
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test3.txt", .fileType = "cmr"}
'},
Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With {
.referenceNo = ioReference,
.outputApplication = "dakosy/sftp/verg",'.outputApplication = "dakosy/sftp/vera",
.regimeType = "IMPORT",' .customer = "AVISO",
.dispatchCountry = "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 = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr, "+43 7711/2777 0"),
.contactPersonPosition = "Zolldeklarant/in"
},
.declarantIsConsignee = True,
.representationRelationshipCode = "",'-1, '??????????????????????????????????????????????????????????????
.inputTaxDeduction = True,'"",'"true",
.procedureCodeRequested = procedureCodeRequested.ToString,' .goodsStatus = "",'"EU",
.transportMeansArrivalIdentity = txtLKWId.Text,
.transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
}
}
}
}
}
If If(AVISO.Zollstelle, "").length >= 4 Then
ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice = AVISO.Zollstelle.ToString.Substring(AVISO.Zollstelle.ToString.Length - 4)
'MsgBox(ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice)
End If
ATEZ_RH_EZA.additionalData.declaration(0).objectIdentification.username = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "ANDREAS")
ATEZ_RH_EZA.additionalData.declaration(0).objectIdentification.referenceNumberOverlay = If(cboStammreferenz._value <> "", cboStammreferenz._value, "*OWN")
If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
ATEZ_RH_EZA.additionalData.declaration(0).headerData.previousAdministrativeReferenceType = "T1"
ATEZ_RH_EZA.additionalData.declaration(0).headerData.previousAdministrativeReferenceNumber = SENDUNG.tblSnd_Vorpapier
End If
' .destinationCountry = "DE",
' .dispatchCountry = "DE",
', .destinationFederalState = "07"
' .destinationCountry = "DE",
' .departureCountry = "TR"
' .previousAdministrativeReferenceType = "T1",' SENDUNG.tblSnd_Vorpapier
'.previousAdministrativeReferenceNumber = "25TR160100001472M0",
',
'.addresses = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress) From {
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress With {.addressType = "CZ", .participantEORI = "EORI12345", .participantSubsidiaryNumber = "001", .companyName = "SISECAM DIS TIC.A.S.", .streetAndNumber = "D-100 KARAYOLU CD.YAYLA MH.NO.70/C", .countryCode = "TR", .postalCode = "34949", .city = "TUZLA ISTANBUL"},
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress With {.addressType = "CN", .participantEORI = "EORI67890", .participantSubsidiaryNumber = "002", .companyName = "POLYNT COMPOSITES GERMANY GMBH", .streetAndNumber = "KIESELSTRASSE 2", .countryCode = "DE", .postalCode = "56357", .city = "MIEHLEN"}
ATEZ_RH_EZA.documents = New List(Of cRelayHub.cRelayHubDocument)
For Each r As DataGridViewRow In dgvAnhaenge.Rows
Dim isSelected As Boolean = If(DBNull.Value Is r.Cells("anh_selekt").Value, False, r.Cells("anh_selekt").Value)
If isSelected Then
Dim bd As New Chilkat.BinData
Dim DOC As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument
If r.Cells("anh_Art").Value IsNot DBNull.Value Then
Select Case r.Cells("anh_Art").Value
Case "Rechnung", "Konsi-Rechnung", "eFatura", "INVOICE" : DOC.fileType = "invoice"
Case "CMR" : DOC.fileType = "cmr"
Case "Ausfuhr", "EXPORT" : DOC.fileType = "tr_export_declaration"
Case "ATR", "A.TR", "ATR-EUR1" : DOC.fileType = "atr"
Case "Vorpapier", "T1" : DOC.fileType = "transit_declaration"
Case Else : DOC.fileType = "other"
''invoice',
'atr',
'cmr',
'transit_declaration',
'tr_export_declaration',
' Case Else : DOC.fileType = "additional_data" --> DARF NCIHT -_> additional_data ist das verwednete Datenformat
End Select
End If
'invoice' | 'atr' | 'cmr' | 'transit_declaration' | 'tr_export_declaration' | 'additional_data', received 'PDF'
DOC.type = "base64"
DOC.filename = r.Cells("anh_Name").Value
Try
Dim dateiBytes As Byte() = IO.File.ReadAllBytes((VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)))
Dim base64String As String = Convert.ToBase64String(dateiBytes)
DOC.base64String = base64String
Catch ex As Exception
' Fehlerbehandlung, z. B. Datei nicht gefunden oder keine Zugriffsrechte
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
ATEZ_RH_EZA.documents.Add(DOC)
End If
Next
ATEZ_RH_EZA.additionalData.declaration(0).addresses = New List(Of cRelayHub.cRelayHubAddress)
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
Dim AD As New cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim KD As New cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
Dim CN As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
CN.addressType = "CN"
CN.participantEORI = If(KD.EORITIN, "")
CN.participantSubsidiaryNumber = If(KD.EORITIN_NL, "")
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
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------SENDEN-----------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim RESP = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.query_declarations(ATEZ_RH_EZA)
If RESP.Success Then
MsgBox("Erfolgreich gesendet!")
'-> ATEZ ID Speichern
Me.Close()
Else
MsgBox("ERROR" & vbNewLine & RESP.Details, MsgBoxStyle.OkOnly, RESP.Message)
End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Me.Cursor = Cursors.Default
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
End Try
End Sub
'Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
' Dim failreDesc As String
' Dim authResp = atez.authenticate("NCTS")
' If authResp <> "200" Then
' failreDesc = "Authentifizierung fehlgeschlagen"
' lblInfo.Text = failreDesc & " - " & authResp & vbNewLine & "Vorgang abgebrochen" & vbNewLine & " Bitte wiederholen!"
' Dim resultAuthentifizierung As MsgBoxResult = MsgBox("Fehler beim Authentifizieren" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
' If resultAuthentifizierung = vbYes Then
' atezData.status = "Draft"
' atezData.fehlerbeschreibung = failreDesc
' Return atezData.SAVE()
' Else
' atezData.status = "Failure"
' atezData.fehlerbeschreibung = failreDesc
' Return atezData.SAVE()
' End If
' Return False
' End If
' atezData.sessionId = atez.sessionID
' If Not atez.setJsonNCTS(atezData) Then
' MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
' atezData.status = "Failure"
' atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten"
' Return atezData.SAVE
' End If
' If checkAttachment() Then
' If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
' MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
' atezData.status = "Failure"
' atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
' Return atezData.SAVE
' End If
' End If
' Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc, "/api/integrations/verag", "POST")
' If failreDesc <> "" Then
' If atezData.status = "Draft" Then
' MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
' atezData.fehlerbeschreibung = failreDesc
' Return atezData.SAVE()
' End If
' Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
' If result = vbYes Then
' atezData.status = "Draft"
' atezData.fehlerbeschreibung = failreDesc
' Return atezData.SAVE()
' Else
' atezData.status = "Failure"
' atezData.fehlerbeschreibung = failreDesc
' Return atezData.SAVE()
' End If
' lblInfo.Text = "Fehler in der API "
' Else
' If azetId = "-1" Then
' atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
' Else
' atezData.fehlerbeschreibung = ""
' End If
' atezData.status = "Sent"
' atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
' Return atezData.SAVE()
' End If
'End Function
Function getBezugsnr(ByRef BezugsNr)
Dim BezugsNrTmp = ""
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
BezugsNr = BezugsNrTmp
zusatz = "A"
If dgv IsNot Nothing AndAlso dgv.Rows.Count > 0 Then
BezugsNr = BezugsNrTmp & "/" & zusatz
For Each r As DataGridViewRow In dgv.Rows
If r.Cells("BezugsNr").Value = BezugsNr Then
If zusatz.Length = 1 Then
zusatz = Chr(Asc(zusatz.ToString) + 1)
Else
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
End If
If zusatz = "Z" Then zusatz = "AA"
End If
BezugsNr = BezugsNrTmp & "/" & zusatz
Next
End If
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
BezugsNr = BezugsNrTmp & "/" & zusatz
If zusatz.Length = 1 Then
zusatz = Chr(Asc(zusatz.ToString) + 1)
Else
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
End If
If zusatz = "Z" Then zusatz = "AA"
End While
lblBezugsnummer.Text = BezugsNr
Return BezugsNr
End Function
Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Select Case FIRMA_DY
Case "VERAG" : txtDyMandant.Text = "VERG"
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Select Case FilialenNr
Case "5103" : txtDyNiederlassung.Text = "WAI"
End Select
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
End Select
initSeachboxes()
lblAnh.Visible = True
If openExisting Then
If id > 0 Then
' atez_data = New cATEZ_NCTS_DATA(id)
initAttachment()
If atez_data.atezId <> "" Then
lblInfo.Text = "Atez-ID " & atez_data.atezId
Else
lblInfo.Text = "Status: " & IIf(atez_data.fehlerbeschreibung <> "", atez_data.status & "- " & atez_data.fehlerbeschreibung, atez_data.status)
End If
lblBezugsnummer.Text = atez_data.VERAG_LRN
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
'cboProzedur.changeItem(atez_data.DAKOSY_Procedure)
txtLKWId.Text = atez_data.LicensePlateContainerNo
'sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice)
sbAdressierteZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice)
If atez_data.status = "Draft" Then
btnSend.Text = "An ATEZ senden -->"
pnlHead.Enabled = True
btnSend.Enabled = True
'initAttachment()
Else
btnSend.Text = "JSON"
pnlHead.Enabled = False
dgvAnhaenge.ReadOnly = True
btnSend.Enabled = True
End If
Else
btnSend.Enabled = False
End If
Else
' atez_data = New cATEZ_NCTS_DATA()
initAttachment()
'Button1.Text = "An ATEZ senden -->"
pnlHead.Enabled = True
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.changeItem("")
getBezugsnr(BezugsNr)
txtLKWId.Text = AVISO.LKW_Nr
' sbBestimmungsZollstelle.SET_VALUE(SENDUNG.NCTS_Bestimmungszollstelle)
If AVISO.Grenzstelle.Replace("???", "") = "" Then
sbAdressierteZollstelle.SET_VALUE(AVISO.Zollstelle)
Else
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
If GRZ.grz_ZollamtDST IsNot Nothing Then
sbAdressierteZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
End If
End If
End If
End If
'initAttachment()
End Sub
Sub initAttachment()
Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
case WHEN [anh_size] > 0 Then ROUND([anh_size] / 1000000,2) End as anh_size,
[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
End Class

1045
Aviso/ATEZ/frmATEZ_NCTS.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

1256
Aviso/ATEZ/frmATEZ_NCTS.resx
View File

File diff suppressed because it is too large Load Diff

784
Aviso/ATEZ/frmATEZ_NCTS.vb
View File

@@ -1,784 +0,0 @@

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

41
Aviso/Anhänge/frmAddSendnung.Designer.vb generated
View File

@@ -47,8 +47,6 @@ 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()
@@ -61,9 +59,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(102, 29)
Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
Me.cboAbfertigungsart.Size = New System.Drawing.Size(335, 24)
Me.cboAbfertigungsart.Size = New System.Drawing.Size(425, 24)
Me.cboAbfertigungsart.TabIndex = 1
'
'Label1
@@ -71,7 +69,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(99, 9)
Me.Label1.Location = New System.Drawing.Point(10, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(109, 17)
Me.Label1.TabIndex = 0
@@ -88,7 +86,6 @@ 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
@@ -112,7 +109,6 @@ 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
@@ -154,7 +150,6 @@ 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
@@ -235,7 +230,6 @@ 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
@@ -366,7 +360,6 @@ 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
@@ -385,38 +378,12 @@ 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)
@@ -473,6 +440,4 @@ 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

68
Aviso/Anhänge/frmAddSendnung.vb
View File

@@ -3,12 +3,9 @@
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
Public frmName As String = "Sendung hinzufügen"
Sub New(AvisoId As Integer)
Sub New(AvisoId)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -17,7 +14,7 @@
End Sub
Sub New(AvisoId As Integer, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen)
Sub New(AvisoId, SENDUNG)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -26,36 +23,7 @@
' 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
@@ -112,7 +80,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"), filialNr,,, 0)
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
End If
Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
@@ -227,34 +195,4 @@
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

379
Aviso/Anhänge/frmSendungAnhangImport.Designer.vb generated
View File

@@ -32,13 +32,18 @@ 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()
@@ -55,6 +60,7 @@ 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()
@@ -63,21 +69,12 @@ 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
@@ -99,9 +96,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(3, 30)
Me.flpnlAviso.Location = New System.Drawing.Point(15, 30)
Me.flpnlAviso.Name = "flpnlAviso"
Me.flpnlAviso.Size = New System.Drawing.Size(253, 825)
Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
Me.flpnlAviso.TabIndex = 7
'
'flpnlSendungen
@@ -112,16 +109,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(8, 149)
Me.flpnlSendungen.Location = New System.Drawing.Point(1073, 150)
Me.flpnlSendungen.Name = "flpnlSendungen"
Me.flpnlSendungen.Size = New System.Drawing.Size(306, 643)
Me.flpnlSendungen.Size = New System.Drawing.Size(230, 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(5, 12)
Me.lblSendungen.Location = New System.Drawing.Point(1070, 14)
Me.lblSendungen.Name = "lblSendungen"
Me.lblSendungen.Size = New System.Drawing.Size(65, 13)
Me.lblSendungen.TabIndex = 6
@@ -158,9 +155,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(262, 30)
Me.pnlAnfuegen.Location = New System.Drawing.Point(221, 30)
Me.pnlAnfuegen.Name = "pnlAnfuegen"
Me.pnlAnfuegen.Size = New System.Drawing.Size(852, 162)
Me.pnlAnfuegen.Size = New System.Drawing.Size(846, 162)
Me.pnlAnfuegen.TabIndex = 8
'
'cbxAlternativePDFAnsicht
@@ -185,6 +182,30 @@ 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
@@ -216,6 +237,29 @@ 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
@@ -225,6 +269,29 @@ 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
@@ -243,6 +310,20 @@ 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
@@ -254,6 +335,30 @@ 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
@@ -329,20 +434,19 @@ 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(262, 198)
Me.pnl.Location = New System.Drawing.Point(221, 198)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(852, 657)
Me.pnl.Size = New System.Drawing.Size(846, 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(799, 1)
Me.Button5.Location = New System.Drawing.Point(793, 1)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(48, 34)
Me.Button5.TabIndex = 2
@@ -354,13 +458,12 @@ 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(850, 655)
Me.PdfViewer.Size = New System.Drawing.Size(844, 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))
@@ -371,7 +474,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(850, 655)
Me.WebBrowser.Size = New System.Drawing.Size(844, 655)
Me.WebBrowser.TabIndex = 1
'
'Button3
@@ -379,9 +482,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(8, 798)
Me.Button3.Location = New System.Drawing.Point(1073, 799)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(306, 56)
Me.Button3.Size = New System.Drawing.Size(230, 56)
Me.Button3.TabIndex = 12
Me.Button3.Text = "<< zurück <<"
Me.Button3.UseVisualStyleBackColor = False
@@ -391,7 +494,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(282, 0)
Me.btnSndDel.Location = New System.Drawing.Point(1271, 2)
Me.btnSndDel.Name = "btnSndDel"
Me.btnSndDel.Size = New System.Drawing.Size(32, 25)
Me.btnSndDel.TabIndex = 2
@@ -402,29 +505,43 @@ 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(152, 0)
Me.btnAddSnd.Location = New System.Drawing.Point(1141, 2)
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(12, 96)
Me.lblSendungsdetails.Location = New System.Drawing.Point(1077, 98)
Me.lblSendungsdetails.Name = "lblSendungsdetails"
Me.lblSendungsdetails.Size = New System.Drawing.Size(233, 21)
Me.lblSendungsdetails.Size = New System.Drawing.Size(157, 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(12, 114)
Me.lblWarenbeichnung.Location = New System.Drawing.Point(1077, 116)
Me.lblWarenbeichnung.Name = "lblWarenbeichnung"
Me.lblWarenbeichnung.Size = New System.Drawing.Size(299, 31)
Me.lblWarenbeichnung.Size = New System.Drawing.Size(223, 31)
Me.lblWarenbeichnung.TabIndex = 14
Me.lblWarenbeichnung.Text = "-"
'
@@ -434,7 +551,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(216, 1)
Me.btnSndEdit.Location = New System.Drawing.Point(1205, 3)
Me.btnSndEdit.Name = "btnSndEdit"
Me.btnSndEdit.Size = New System.Drawing.Size(29, 25)
Me.btnSndEdit.TabIndex = 15
@@ -444,9 +561,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(12, 65)
Me.lblAbsender.Location = New System.Drawing.Point(1077, 67)
Me.lblAbsender.Name = "lblAbsender"
Me.lblAbsender.Size = New System.Drawing.Size(299, 15)
Me.lblAbsender.Size = New System.Drawing.Size(223, 15)
Me.lblAbsender.TabIndex = 16
Me.lblAbsender.Text = "-"
'
@@ -454,9 +571,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(12, 80)
Me.lblEmpfaenger.Location = New System.Drawing.Point(1077, 82)
Me.lblEmpfaenger.Name = "lblEmpfaenger"
Me.lblEmpfaenger.Size = New System.Drawing.Size(299, 17)
Me.lblEmpfaenger.Size = New System.Drawing.Size(223, 17)
Me.lblEmpfaenger.TabIndex = 17
Me.lblEmpfaenger.Text = "-"
'
@@ -464,9 +581,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(16, 96)
Me.Panel1.Location = New System.Drawing.Point(1073, 98)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(294, 1)
Me.Panel1.Size = New System.Drawing.Size(230, 1)
Me.Panel1.TabIndex = 18
'
'Button17
@@ -477,7 +594,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(251, 0)
Me.Button17.Location = New System.Drawing.Point(1240, 2)
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)
@@ -489,161 +606,13 @@ 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(207, 96)
Me.lblRgPreis.Location = New System.Drawing.Point(1196, 98)
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
@@ -653,7 +622,6 @@ 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"
@@ -669,38 +637,39 @@ 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(1433, 860)
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.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.pnlSendung)
Me.Controls.Add(Me.lblEmpfaenger)
Me.Controls.Add(Me.lblRgPreis)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Name = "frmSendungAnhangImport"
@@ -711,8 +680,6 @@ 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()
@@ -765,6 +732,4 @@ 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

447
Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -1,16 +1,18 @@

Imports itextsharp.text
'Imports iTextSharp.text.pdf
'Imports iTextSharp.text
Imports System.IO
Imports Spire.Pdf
Imports Spire.Pdf.Conversion.Compression
Imports Spire.Pdf.Exporting
Imports VERAG_PROG_ALLGEMEIN
'Imports GrapeCity.Documents.Pdf
'Imports Spire.Pdf
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
@@ -27,13 +29,12 @@ Public Class frmSendungAnhangImport
'Dim f As New GroupDocs.Viewer
End Sub
Sub New(AvisoId, SendungsId, Optional LKWOnly = False)
Sub New(AvisoId, SendungsId)
' 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
@@ -69,75 +70,11 @@ Public Class frmSendungAnhangImport
End Function
Sub initElement(USRCNTL As usrCntlSendungAnhangElement)
AddHandler USRCNTL.ME_CLICK, Sub(STRG_PRESSED, SHIFT_PRESSED)
AddHandler USRCNTL.ME_CLICK, Sub(STRG_PRESSED)
' If BrowserLoaded 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
If Not STRG_PRESSED Then
'prüfen, ob genau 1 Elemnt markeirt ist, dann kein neues Laden nötig
If USRCNTL.ACTIVE Then
@@ -163,6 +100,10 @@ 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
@@ -171,11 +112,6 @@ 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())
@@ -187,6 +123,7 @@ Public Class frmSendungAnhangImport
Try
'If PdfViewer IsNot Nothing AndAlso PdfViewer.IsDocumentLoaded Then
' PdfViewer.CloseDocument()
'End If
@@ -200,38 +137,14 @@ Public Class frmSendungAnhangImport
WebBrowser.Visible = (loc <> "")
WebBrowser.Navigate(loc)
Else
WebBrowser.Visible = False
PdfViewer.Visible = (loc <> "")
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.LoadFromFile(loc)
End If
ElseIf typ = "BILD" Then
PdfViewer.Visible = False
WebBrowser.Visible = (loc <> "")
' WebBrowser.Navigate(loc)
If loc <> "" Then
DisplayImageInWebBrowser(loc, WebBrowser)
Else
WebBrowser.Navigate("")
End If
WebBrowser.Navigate(loc)
End If
Button5.Visible = PdfViewer.Visible
@@ -240,42 +153,6 @@ 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
@@ -329,7 +206,7 @@ Public Class frmSendungAnhangImport
'-------------
'------------- PDFs extrahieren und auf den Datenserver laden + Eintrag in tblAvisoAnhaenger
'-------------
Dim SendngsId As Integer = If(LKWOnly, -1, cboSendungen._value)
Dim SendngsId As Integer = 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
@@ -370,12 +247,7 @@ Public Class frmSendungAnhangImport
Next
' initSendungen()
If LKWOnly Then
initFlpANH_LIST()
Else
initFlpANH_LIST(flpnlSendungen, False)
End If
initFlpANH_LIST(flpnlSendungen, False)
If flpnlAviso.Controls.Count > 0 Then
If Not setAvtiveById(flpnlAviso, CurrentPageNumber, pages, cntlID) Then
@@ -443,7 +315,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 = If(LKWOnly, -1, cboSendungen._value)
Dim SendngsId As Integer = 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)
@@ -606,7 +478,7 @@ Public Class frmSendungAnhangImport
Try
PagesLeft = 0
Dim pdf As New Spire.Pdf.PdfDocument()
Dim pdf As New PdfDocument()
pdf.LoadFromFile(sourceFile)
' Dim r As PdfReader = New PdfReader(sourceFile)
Dim pagesToKeep As New List(Of Integer)
@@ -623,7 +495,7 @@ Public Class frmSendungAnhangImport
Next
Dim pdf1 As New Spire.Pdf.PdfDocument()
Dim pdf1 As New PdfDocument()
Dim page As PdfPageBase
For Each p In pagesToKeep
@@ -692,10 +564,10 @@ Public Class frmSendungAnhangImport
Dim pdf As New Spire.Pdf.PdfDocument()
Dim pdf As New PdfDocument()
pdf.LoadFromFile(sourceFile)
Dim pdf1 As New Spire.Pdf.PdfDocument()
Dim pdf1 As New PdfDocument()
Dim page As PdfPageBase
For Each p In pagesToExtract
@@ -765,12 +637,11 @@ 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
If SourceFile.Contains(" ") Then SourceFile = SourceFile
Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
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 FileStream(TargetFile, System.IO.FileMode.Create))
Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
PdfCopyProvider.SetFullCompression()
srcDoc.Open()
For Each p In pagesToExtract
@@ -1167,106 +1038,12 @@ 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
'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense()
Try
DirectCast(PdfViewer.Controls(0).Controls(0).Controls(0), ToolStrip).Items(0).Visible = False
@@ -1283,60 +1060,43 @@ 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("", ""))
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
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"))
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()
@@ -1354,7 +1114,6 @@ Public Class frmSendungAnhangImport
If e.KeyCode = Keys.Return Then
btnAnfuegen.PerformClick()
End If
End Sub
Sub initSendungen()
cboSendungen.Items.Clear()
@@ -1442,7 +1201,6 @@ 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
@@ -1456,7 +1214,6 @@ 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
@@ -1466,15 +1223,11 @@ 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
@@ -1548,7 +1301,7 @@ Public Class frmSendungAnhangImport
End Try
End Sub
Sub addUsrcnlToPnl(TMP_Path, dicId, anhId, Optional filename = "", Optional Typ = "", Optional Size = "")
Sub addUsrcnlToPnl(TMP_Path, dicId, anhId, Optional filename = "", Optional Typ = "")
Dim USRCNTL As New usrCntlSendungAnhangElement
Dim fi As New FileInfo(TMP_Path)
@@ -1561,7 +1314,6 @@ Public Class frmSendungAnhangImport
USRCNTL.FILE_ANHID = anhId
USRCNTL.FILE_TYPE = Typ
USRCNTL.FILE_SIZE = Size
initElement(USRCNTL)
flpnlAviso.Controls.Add(USRCNTL)
@@ -1671,24 +1423,23 @@ 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, Optional crmId = 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) 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 fi As New FileInfo(sourcePath)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId,, fi.Length, crmId)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId)
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
anhId = ANH.anh_id
Return True
End Function
Private Shared Function scantoAvisoDS(AvisoId, SendungsId, Art) As Boolean
Public Shared Function quickScan(AvisoId, Optional SendungsId = Nothing) As Boolean
Try
'If KdNr < 0 Then Exit Sub
Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan(Art)
Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("QuickScan")
frmScan.DefaultFileName = "Scan" ' Me._TEXT_PDF
If frmScan.ShowDialog() = DialogResult.OK Then
@@ -1713,29 +1464,12 @@ 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
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)
Dim f As New frmAddSendnung(AvisoId)
If f.ShowDialog(Me) = DialogResult.OK Then
initSendungen()
cboSendungen.changeItem(f.SendungsId)
@@ -1751,7 +1485,7 @@ Public Class frmSendungAnhangImport
' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
' File.Copy(s, newFile)
' MsgBox(s)
If System.IO.File.Exists(s) Then
If IO.File.Exists(s) Then
Dim fi As New FileInfo(s)
Dim filename = fi.Name
@@ -1811,12 +1545,6 @@ 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()
@@ -1959,7 +1687,7 @@ Public Class frmSendungAnhangImport
If u.FILE_TYPE <> "PDF" Then Exit Sub
' Dim fi As New FileInfo(u.FILE_PATH)
Dim pdf As New Spire.Pdf.PdfDocument()
Dim pdf As New PdfDocument()
pdf.LoadFromFile(u.FILE_PATH)
For Each p In pdf.Pages
txtSeiten.Text = "1"
@@ -2121,8 +1849,6 @@ Public Class frmSendungAnhangImport
If FilePath <> "" Then
addData_SendungAnhang(FilePath)
End If
' ElseIf e.Data.GetDataPresent(DataFormats.drag) Then
End If
@@ -2195,7 +1921,7 @@ Public Class frmSendungAnhangImport
Try
' We have a embedded file. First lets try to get the file name out of memory
Dim theStream As System.IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), System.IO.Stream)
Dim theStream As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream)
Dim fileGroupDescriptor(512) As Byte
theStream.Read(fileGroupDescriptor, 0, 512)
Dim fileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
@@ -2208,8 +1934,7 @@ 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 = System.IO.Path.GetTempPath & VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName.ToString)
Dim myTempFile As String = IO.Path.GetTempPath & 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
@@ -2225,19 +1950,19 @@ Public Class frmSendungAnhangImport
objMI = Nothing
Else
' If its a attachment we need to pull the file itself out of memory
Dim ms As System.IO.MemoryStream = CType(e.Data.GetData("FileContents", True), System.IO.MemoryStream)
Dim ms As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), 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 System.IO.FileStream = New System.IO.FileStream(myTempFile, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
Dim fs As IO.FileStream = New IO.FileStream(myTempFile, IO.FileMode.OpenOrCreate, 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 System.IO.File.Exists(myTempFile) Then
If IO.File.Exists(myTempFile) Then
' Assign the file name to the add dialog
EmAilAttach = myTempFile
Else
@@ -2257,26 +1982,6 @@ 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

74
Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.vb
View File

@@ -1,6 +1,4 @@
Imports VERAG_PROG_ALLGEMEIN
Public Class frmSendungAnhangUmbenennenUmkateg
Public Class frmSendungAnhangUmbenennenUmkateg
Dim nameOLD = ""
Dim artOLD = ""
Sub New(nameOLD As String, artOLD As String)
@@ -15,51 +13,33 @@ Public Class frmSendungAnhangUmbenennenUmkateg
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("", ""))
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"))
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"))
txtBezeichnung.Text = nameOLD
cboArt.changeItem(artOLD)
End Sub

60
Aviso/Anhänge/usrCntlSendungAnhangElement.Designer.vb generated
View File

@@ -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,27 +49,39 @@ 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.KomprimierenToolStripMenuItem})
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.AnhängeVerschiebenToolStripMenuItem, Me.PDFsZusammenführenToolStripMenuItem})
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(205, 22)
Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(180, 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(205, 22)
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(180, 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(205, 22)
Me.AnhängeVerschiebenToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
Me.AnhängeVerschiebenToolStripMenuItem.Text = "Anhänge verschieben..."
'
'PDFsZusammenführenToolStripMenuItem
@@ -79,44 +91,12 @@ 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"
@@ -134,6 +114,4 @@ 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

49
Aviso/Anhänge/usrCntlSendungAnhangElement.vb
View File

@@ -14,9 +14,8 @@ Public Class usrCntlSendungAnhangElement
Property FILE_ANHID
Public Event ME_CLICK(STRG_PRESSED, SHIFT_PRESSED)
Public Event ME_CLICK(STRG_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
@@ -25,7 +24,6 @@ Public Class usrCntlSendungAnhangElement
' RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
'End Sub
Private ACTIVE_Value As Boolean = False
Public Property ACTIVE As Boolean
Get
@@ -89,36 +87,19 @@ 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, lblSize.MouseClick
Private Sub pic_Click(sender As Object, e As MouseEventArgs) Handles pic.MouseClick, lbl.MouseClick, Me.MouseClick
If e.Button = MouseButtons.Left Then
RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown, My.Computer.Keyboard.ShiftKeyDown)
RaiseEvent ME_CLICK((My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
End If
End Sub
Public Sub CLICK_Me()
RaiseEvent ME_CLICK(False, False) 'My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
RaiseEvent ME_CLICK(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, lblSize.DoubleClick
Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick
If IO.File.Exists(Me.FILE_PATH) Then
Process.Start(Me.FILE_PATH) 'damit Orginial bearbeitet werden kann
End If
@@ -147,14 +128,8 @@ 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)
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_Name = f.txtBezeichnung.Text
ANH.anh_Art = f.cboArt._value
ANH.SAVE()
FILE_NAME = f.txtBezeichnung.Text
@@ -190,16 +165,4 @@ 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

30
Aviso/App.config
View File

@@ -9,7 +9,7 @@
<add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
</startup>
<userSettings>
@@ -47,7 +47,7 @@
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
<bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral" />
@@ -65,31 +65,7 @@
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.7.2.0" newVersion="2.7.2.0" />
</dependentAssembly>
<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" />
<bindingRedirect oldVersion="0.0.0.0-2.16.0.0" newVersion="2.16.0.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>

1
Aviso/Auswertung/usrctlStatVERIMEX.Designer.vb generated
View File

@@ -345,7 +345,6 @@ 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)

106
Aviso/Auswertung/usrctlStatVERIMEX.vb
View File

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

741
Aviso/ARConverterBackup1/Aviso.vbproj → Aviso/Aviso - Kopie.vbproj
View File

File diff suppressed because it is too large Load Diff

628
Aviso/Aviso.vbproj
View File

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

2
Aviso/AvisoReports/rptQRAviso.Designer.vb generated
View File

@@ -78,7 +78,7 @@ Partial Public Class rptQRAviso
'
Me.picVERAG.Height = 0.4897638!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
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

637
Aviso/AvisoReports/rptQRAviso.resx
View File

File diff suppressed because one or more lines are too long

45
Aviso/AvisoReports/rptQRAviso.vb
View File

@@ -51,13 +51,10 @@ 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))
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)
picQRAviso.Image = getBARCODEAviso(AVISO.AvisoID)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -101,5 +98,41 @@ 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

378
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.Designer.vb generated
View File

@@ -1,378 +0,0 @@
<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

132
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.resx
View File

File diff suppressed because one or more lines are too long

111
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.vb
View File

@@ -1,111 +0,0 @@
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

2569
Aviso/AvisoStatusFunctions.vb
View File

File diff suppressed because it is too large Load Diff

52
Aviso/Benachrichtigung/frmAvisoWeiterleiten.Designer.vb generated
View File

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

78
Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
View File

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

137
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb generated
View File

@@ -23,21 +23,17 @@ Partial Class usrCntlBenachrichtigungen
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxTaskForce = New System.Windows.Forms.CheckBox()
Me.cbxVerwarung = New System.Windows.Forms.CheckBox()
Me.txtVermerk = New System.Windows.Forms.TextBox()
Me.cbxNeukunden = New System.Windows.Forms.CheckBox()
Me.Button10 = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.cbxCluster = New System.Windows.Forms.CheckBox()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxTeams = New System.Windows.Forms.CheckBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label()
Me.cbxCluster = New System.Windows.Forms.CheckBox()
Me.Panel2.SuspendLayout()
CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout()
@@ -53,26 +49,9 @@ Partial Class usrCntlBenachrichtigungen
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(284, 203)
Me.Panel2.Size = New System.Drawing.Size(236, 203)
Me.Panel2.TabIndex = 2
'
'MyComboBox2
'
Me.MyComboBox2._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False
Me.MyComboBox2._value = ""
Me.MyComboBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyComboBox2.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.MyComboBox2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox2.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(160, 86)
Me.MyComboBox2.Name = "MyComboBox2"
Me.MyComboBox2.Size = New System.Drawing.Size(71, 21)
Me.MyComboBox2.TabIndex = 27
Me.MyComboBox2.Visible = False
'
'gridAvisoBenachrichtigungen
'
Me.gridAvisoBenachrichtigungen.AKTUALISIERUNGS_INTERVALL = -1
@@ -80,8 +59,8 @@ Partial Class usrCntlBenachrichtigungen
Me.gridAvisoBenachrichtigungen.AllowUserToDeleteRows = False
Me.gridAvisoBenachrichtigungen.AllowUserToOrderColumns = True
Me.gridAvisoBenachrichtigungen.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle3.BackColor = System.Drawing.Color.Azure
Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.gridAvisoBenachrichtigungen.BackgroundColor = System.Drawing.Color.White
Me.gridAvisoBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridAvisoBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
@@ -89,69 +68,19 @@ Partial Class usrCntlBenachrichtigungen
Me.gridAvisoBenachrichtigungen.Name = "gridAvisoBenachrichtigungen"
Me.gridAvisoBenachrichtigungen.ReadOnly = True
Me.gridAvisoBenachrichtigungen.RowHeadersVisible = False
Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(284, 144)
Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(236, 144)
Me.gridAvisoBenachrichtigungen.TabIndex = 2
'
'Panel4
'
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.cbxTaskForce)
Me.Panel4.Controls.Add(Me.cbxVerwarung)
Me.Panel4.Controls.Add(Me.cbxNeukunden)
Me.Panel4.Controls.Add(Me.Button10)
Me.Panel4.Controls.Add(Me.txtVermerk)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel4.Location = New System.Drawing.Point(0, 165)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(284, 38)
Me.Panel4.Size = New System.Drawing.Size(236, 38)
Me.Panel4.TabIndex = 5
'
'cbxTaskForce
'
Me.cbxTaskForce.AutoSize = True
Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19)
Me.cbxTaskForce.Name = "cbxTaskForce"
Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
Me.cbxTaskForce.TabIndex = 33
Me.cbxTaskForce.Text = "TaskForce"
Me.cbxTaskForce.UseVisualStyleBackColor = True
Me.cbxTaskForce.Visible = False
'
'cbxVerwarung
'
Me.cbxVerwarung.AutoSize = True
Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black
Me.cbxVerwarung.Location = New System.Drawing.Point(85, 19)
Me.cbxVerwarung.Name = "cbxVerwarung"
Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17)
Me.cbxVerwarung.TabIndex = 32
Me.cbxVerwarung.Text = "Verwahrung"
Me.cbxVerwarung.UseVisualStyleBackColor = True
Me.cbxVerwarung.Visible = False
'
'txtVermerk
'
Me.txtVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVermerk.Location = New System.Drawing.Point(7, -1)
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.ReadOnly = True
Me.txtVermerk.Size = New System.Drawing.Size(146, 20)
Me.txtVermerk.TabIndex = 31
'
'cbxNeukunden
'
Me.cbxNeukunden.AutoSize = True
Me.cbxNeukunden.ForeColor = System.Drawing.Color.Black
Me.cbxNeukunden.Location = New System.Drawing.Point(7, 19)
Me.cbxNeukunden.Name = "cbxNeukunden"
Me.cbxNeukunden.Size = New System.Drawing.Size(82, 17)
Me.cbxNeukunden.TabIndex = 30
Me.cbxNeukunden.Text = "Neukunden"
Me.cbxNeukunden.UseVisualStyleBackColor = True
Me.cbxNeukunden.Visible = False
'
'Button10
'
Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -160,7 +89,7 @@ Partial Class usrCntlBenachrichtigungen
Me.Button10.ForeColor = System.Drawing.Color.Black
Me.Button10.Image = Global.AVISO.My.Resources.Resources.ok
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(159, 3)
Me.Button10.Location = New System.Drawing.Point(111, 3)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(121, 30)
Me.Button10.TabIndex = 3
@@ -179,20 +108,25 @@ Partial Class usrCntlBenachrichtigungen
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(284, 21)
Me.Panel3.Size = New System.Drawing.Size(236, 21)
Me.Panel3.TabIndex = 3
'
'cbxCluster
'MyComboBox2
'
Me.cbxCluster.AutoSize = True
Me.cbxCluster.ForeColor = System.Drawing.Color.White
Me.cbxCluster.Location = New System.Drawing.Point(219, 4)
Me.cbxCluster.Name = "cbxCluster"
Me.cbxCluster.Size = New System.Drawing.Size(58, 17)
Me.cbxCluster.TabIndex = 29
Me.cbxCluster.Text = "Cluster"
Me.cbxCluster.UseVisualStyleBackColor = True
Me.cbxCluster.Visible = False
Me.MyComboBox2._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False
Me.MyComboBox2._value = ""
Me.MyComboBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyComboBox2.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.MyComboBox2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox2.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(112, 86)
Me.MyComboBox2.Name = "MyComboBox2"
Me.MyComboBox2.Size = New System.Drawing.Size(71, 21)
Me.MyComboBox2.TabIndex = 27
Me.MyComboBox2.Visible = False
'
'cbxTeams
'
@@ -220,24 +154,35 @@ Partial Class usrCntlBenachrichtigungen
'
Me.Label25.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label25.ForeColor = System.Drawing.Color.White
Me.Label25.Location = New System.Drawing.Point(627, 6)
Me.Label25.Location = New System.Drawing.Point(579, 6)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(207, 19)
Me.Label25.TabIndex = 1
Me.Label25.Text = "0 Akte vom Arbeitsplatz übernommen"
Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cbxCluster
'
Me.cbxCluster.AutoSize = True
Me.cbxCluster.ForeColor = System.Drawing.Color.White
Me.cbxCluster.Location = New System.Drawing.Point(219, 4)
Me.cbxCluster.Name = "cbxCluster"
Me.cbxCluster.Size = New System.Drawing.Size(58, 17)
Me.cbxCluster.TabIndex = 29
Me.cbxCluster.Text = "Cluster"
Me.cbxCluster.UseVisualStyleBackColor = True
Me.cbxCluster.Visible = False
'
'usrCntlBenachrichtigungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Panel2)
Me.Name = "usrCntlBenachrichtigungen"
Me.Size = New System.Drawing.Size(284, 203)
Me.Size = New System.Drawing.Size(236, 203)
Me.Panel2.ResumeLayout(False)
CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.ResumeLayout(False)
@@ -254,8 +199,4 @@ Partial Class usrCntlBenachrichtigungen
Public WithEvents gridAvisoBenachrichtigungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents cbxTeams As CheckBox
Friend WithEvents cbxCluster As CheckBox
Friend WithEvents cbxNeukunden As CheckBox
Friend WithEvents txtVermerk As TextBox
Friend WithEvents cbxVerwarung As CheckBox
Friend WithEvents cbxTaskForce As CheckBox
End Class

170
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

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

1450
Aviso/CHMRC.vb Normal file
View File

File diff suppressed because it is too large Load Diff

29
Aviso/Classes/cSendungsoptions.vb
View File

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

8
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.Designer.vb generated
View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSUBWESTIIAkt
Partial Public Class rptSUBWESTIIAkt
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
@@ -8,7 +8,7 @@ Partial Public Class rptSUBWESTIIAkt
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
@@ -73,7 +73,7 @@ Partial Public Class rptSUBWESTIIAkt
'
Me.BG.DataField = ""
Me.BG.Height = 11.81102!
Me.BG.ImageBase64String = resources.GetString("BG.ImageBase64String")
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
@@ -345,7 +345,7 @@ Partial Public Class rptSUBWESTIIAkt
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 12.00606!
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.Custom
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom
Me.PageSettings.PaperName = "Custom paper"
Me.PageSettings.PaperWidth = 8.426064!
Me.PrintWidth = 8.425198!

11355
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.resx
View File

File diff suppressed because one or more lines are too long

2
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.vb
View File

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

4
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.Designer.vb generated
View File

@@ -133,7 +133,7 @@ Partial Public Class rptSUBWESTIIAktNEU
'
Me.BG.DataField = ""
Me.BG.Height = 11.9685!
Me.BG.ImageBase64String = resources.GetString("BG.ImageBase64String")
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
@@ -780,7 +780,7 @@ Partial Public Class rptSUBWESTIIAktNEU
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 12.00606!
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.Custom
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom
Me.PageSettings.PaperName = "Custom paper"
Me.PageSettings.PaperWidth = 8.426064!
Me.PrintWidth = 8.425198!

9037
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.resx
View File

File diff suppressed because one or more lines are too long

2
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.vb
View File

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

12
Aviso/GVMS/frmGVMS.vb
View File

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

Some files were not shown because too many files have changed in this diff Show More