45 Commits

Author SHA1 Message Date
a2c931c6df Login auf Testsystem. 2022-09-14 08:47:44 +02:00
94556d7686 neu 2022-09-01 10:38:09 +02:00
505b2800c5 neu 2022-07-08 08:11:33 +02:00
a4ad6cc8c8 neu 2022-03-21 09:19:52 +01:00
4491b88deb neu 2021-12-06 11:54:27 +01:00
dbe63ae55a neu 2021-11-25 14:09:40 +01:00
e19a163187 neu 2021-11-18 14:58:25 +01:00
afaaa450e1 neu 2021-10-20 23:37:42 +02:00
2d7bb951d2 neu 2021-10-20 22:24:56 +02:00
787491cf6b neu 2021-09-07 08:31:10 +02:00
2d06d935ef neu 2021-06-24 23:04:15 +02:00
5187fe0e71 neu2 2021-03-09 15:29:27 +01:00
6eee074497 neu 2021-03-09 15:25:39 +01:00
ms
6e428cc58a Bugfix Gesamtsicherheiten II 2021-03-09 15:23:12 +01:00
ms
c6423afb6a Bugfix Gesamtsicherheiten 2021-03-05 08:03:38 +01:00
ms
bef022b755 Merge Commit. Was kann schon schief gehen... 2021-03-04 16:01:10 +01:00
ms
9f615774ea Gesamtsicherheit 1.0 2021-03-04 15:59:08 +01:00
8233a21e83 neu 2021-03-04 15:41:35 +01:00
326c3fcb11 neu 2021-02-02 22:39:23 +01:00
3e4a86ab76 neu 2021-02-02 21:20:11 +01:00
d22ee3d24c neu 2021-02-02 21:16:08 +01:00
2f7746d9ca neu 2021-01-19 20:26:05 +01:00
f25ff457b2 neu 2020-12-16 09:31:14 +01:00
56fe11bc97 neu 2020-12-13 21:30:05 +01:00
65ee38135e neu 2020-11-27 22:56:38 +01:00
24dd462073 neu 2020-11-05 07:59:16 +01:00
4f81004835 neu 3.5.5.5 2020-10-21 07:40:55 +02:00
ff29a8d491 201020 2020-10-20 08:58:30 +02:00
be84dcbbea neu 2020-10-02 10:36:20 +02:00
bead6bad6d neu 2020-09-23 07:23:26 +02:00
81905f2f44 neu 2020-08-04 16:33:49 +02:00
0a7e4feedd neu 2020-06-22 13:32:11 +02:00
8f6eaaaba8 neu 2020-06-04 22:19:07 +02:00
bf4f36a8f2 neu 2020-05-31 22:24:36 +02:00
2d28680ad0 neu 2020-03-26 22:22:21 +01:00
afaac3c2a4 neu 2020-03-12 14:48:24 +01:00
e879fb6881 20200108 2020-01-08 15:01:48 +01:00
c860c222c7 neu 2019-11-06 17:15:16 +01:00
bd77a8a525 neu 2019-11-06 16:32:20 +01:00
12f63bb4bc neu 2019-10-31 09:22:40 +01:00
6ae299259e neu 2019-10-28 09:30:39 +01:00
d29dc72b22 NEU 2019-09-19 17:25:22 +02:00
c7ff55bbae neu 2019-09-10 14:15:44 +02:00
189a2ac284 X 2019-08-23 16:29:04 +02:00
367092cd33 NEU AVISO 2019-08-14 08:57:27 +02:00
503 changed files with 90749 additions and 9009 deletions

View File

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

View File

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

View File

@@ -1 +1 @@
4.0
7.0

View File

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

View File

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

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", "4.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()> _

View File

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

View File

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

View File

@@ -3,7 +3,7 @@ Imports System.Security.Cryptography
Public Class UPDATERfrm
Dim CopyIdentical = False ' selbe Dateien nicht kopieren
Dim CopyIncremental = True ' selbe Dateien nicht kopieren
Private Sub UPDATERfrm_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -18,11 +18,24 @@ Public Class UPDATERfrm
Dim F As String = "F:\Programme\AVISO\" ' WDH TERM
Dim F_PROD As String = "\\192.168.0.91\f\Programme\AVISO\" ' VERAG
' Dim F_PROD As String = "\\192.168.0.91\f\Programme\AVISO\" ' VERAG
Dim F_PROD As String = "\\share01.verag.ost.dmn\Programme\AVISO\" ' VERAG
' Dim F As String = "\\192.168.0.90\f\Programme\AVISO\" 'DEVELOPER
Dim F_ATILLA As String = "\\172.16.0.99\Daten\Programme\AVISO\" ' ATILLA
Public Sub Main()
'STARTPARAMETER - DP
Dim PARAM = ""
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
PARAM = parameter(1)
End If
If PARAM = "full" Then
CopyIncremental = False
End If
Dim FIRMA = "VERAG"
Dim pfadDatei As String = System.AppDomain.CurrentDomain.BaseDirectory & "\Standort.txt"
FIRMA = "VERAG"
@@ -38,23 +51,34 @@ Public Class UPDATERfrm
If FIRMA = "ATILLA" Then F = F_ATILLA 'Sichere Verbindung
If F.Contains("10.4.3.17") Then buildConnectionUNISPED()
'Falls Settings existiert, wird der Pfad daraus verwendet.
F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
' F = System.IO.File.ReadAllLines(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")(0)
' F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
If Not System.IO.Directory.Exists(F) Then
F = getFByIP()
If FIRMA = "ATILLA" Then
F = F_ATILLA 'Sichere Verbindung
Else
F = F_PROD
End If
writeLine(RichTextBox, "F-Pfad nicht gefunden, verbinde mit '" & F & "' ...")
writeLine(RichTextBox, "Verbinde mit '" & F & "' ...")
If Not System.IO.Directory.Exists(F) Then
MsgBox("ERROR_UPDATE_05: Es konnte keine Verbindung mit dem F:\ Laufwerk hergestellt werden." & vbNewLine & "Wenn Sie eine Remote-Sitzung verwenden, melden Sie sich mit dieser erneut an.", MsgBoxStyle.Critical, "ERROR")
Environment.Exit(0)
If FIRMA = "ATILLA" Then
F = F_ATILLA 'Sichere Verbindung
Else
F = F_PROD
End If
writeLine(RichTextBox, "Standard-Freigabelaufwerk nicht gefunden. Verbinde mit '" & F & "' ...")
If Not System.IO.Directory.Exists(F) Then
MsgBox("ERROR_UPDATE_05: Es konnte keine Verbindung mit dem Freigabe-Laufwerk hergestellt werden." & vbNewLine & "Wenn Sie eine Remote-Sitzung verwenden, melden Sie sich mit dieser erneut an.", MsgBoxStyle.Critical, "ERROR")
Environment.Exit(0)
End If
End If
writeLine(RichTextBox, "Verbindung erfolgreich...")
'Else
' System.Console.WriteLine("UPDATEPFAD: " & F)
End If
writeLine(RichTextBox, "3 Sekunden warten, um sicherzustellen, dass das Programm beendet wurde...")
@@ -73,14 +97,22 @@ Public Class UPDATERfrm
End If
'---------------------------
delFiles()
FileCopier()
'---------------------------
'Alternative:
'---------------------------
'-------
'copyAndDelFilesAndDir()
'---------------------------
' If Not cut_file(File).Contains("AVISOUPDATER") And Not cut_file(File).Contains("NOT_DEL_") Then
If CopyIncremental Then
cProgrammeUpdate.copyProgramLIST(F, AppDomain.CurrentDomain.BaseDirectory, {"AVISOUPDATER", "NOT_DEL_"})
Else
delFiles()
FileCopier()
End If
If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "AVISO.exe") Then
@@ -105,6 +137,64 @@ Public Class UPDATERfrm
Environment.Exit(0)
End Sub
Function getFByIP() As String
Dim default_F = ""
getFByIP = ""
Try
Dim IPADDR As System.Net.IPAddress
IPADDR = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0)
'MsgBox(IPADDR.ToString())
For Each l In System.IO.File.ReadAllLines(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
If l.Contains("|") Then
Dim sp = l.Split("|")
If IPADDR.ToString.Contains(sp(0).Replace("**", "")) Then
getFByIP = sp(1)
End If
Else
default_F = l
End If
Next
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
If getFByIP = "" Then
If default_F <> "" Then
getFByIP = default_F
Else
getFByIP = F
End If
End If
End Function
Sub buildConnectionUNISPED()
Try
writeLine(RichTextBox, "UNISPED Netzwerkzugriff einrichten...")
'Dim netuse1 As New System.Diagnostics.ProcessStartInfo()
'netuse1.FileName = "C:\Windows\system32\net"
'netuse1.Arguments = "use \\10.4.3.17 /User:VERAG 1VerSub9#"
'netuse1.CreateNoWindow = True
'netuse1.WindowStyle = ProcessWindowStyle.Hidden
'System.Diagnostics.Process.Start(netuse1)
Dim netuse As New System.Diagnostics.ProcessStartInfo()
netuse.FileName = "C:\Windows\system32\net"
netuse.Arguments = "use \\10.4.3.17 /User:VERAG 1VerSub9#"
netuse.CreateNoWindow = True
netuse.WindowStyle = ProcessWindowStyle.Hidden
System.Diagnostics.Process.Start(netuse)
Catch ex As Exception
writeLine(RichTextBox, "ERR: UNISPED Netzwerkzugriff fehlgeschlagen...")
End Try
End Sub
Delegate Sub writeLineCallback(rtb As System.Windows.Forms.RichTextBox, text As String)
Private Sub writeLine(rtb As System.Windows.Forms.RichTextBox, text As String)
If Me.InvokeRequired Then

View File

@@ -0,0 +1,215 @@

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

View File

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

38
AVISO_CHECKIN/App.config Normal file
View File

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

31
AVISO_CHECKIN/Form1.Designer.vb generated Normal file
View File

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

3
AVISO_CHECKIN/Form1.vb Normal file
View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

Binary file not shown.

After

Width:  |  Height:  |  Size: 102 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 369 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 89 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 10 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 86 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 17 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 26 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 113 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 32 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 50 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 311 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 100 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 41 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 31 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 54 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 29 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 16 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 21 KiB

329
AVISO_CHECKIN/frmCheckIn.Designer.vb generated Normal file
View File

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

File diff suppressed because it is too large Load Diff

106
AVISO_CHECKIN/frmCheckIn.vb Normal file
View File

@@ -0,0 +1,106 @@

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

160
AVISO_CHECKIN/usrCntlFinish.Designer.vb generated Normal file
View File

@@ -0,0 +1,160 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlFinish
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.lblKennzeichen = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblKennzeichen
'
Me.lblKennzeichen.BackColor = System.Drawing.Color.SeaGreen
Me.lblKennzeichen.Dock = System.Windows.Forms.DockStyle.Top
Me.lblKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 60.0!, System.Drawing.FontStyle.Bold)
Me.lblKennzeichen.ForeColor = System.Drawing.Color.White
Me.lblKennzeichen.Location = New System.Drawing.Point(0, 0)
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Size = New System.Drawing.Size(1562, 165)
Me.lblKennzeichen.TabIndex = 4
Me.lblKennzeichen.Text = "FERTIG!"
Me.lblKennzeichen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label3.Location = New System.Drawing.Point(785, 200)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(293, 46)
Me.Label3.TabIndex = 10
Me.Label3.Text = "2. AKT:"
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(605, 788)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(347, 87)
Me.btn.TabIndex = 19
Me.btn.Text = "RESET (30)"
Me.btn.UseVisualStyleBackColor = False
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label1.Location = New System.Drawing.Point(72, 200)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(293, 46)
Me.Label1.TabIndex = 20
Me.Label1.Text = "1. TICKET:"
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label2.Location = New System.Drawing.Point(72, 647)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(682, 46)
Me.Label2.TabIndex = 22
Me.Label2.Text = "TICKET BITTE BEHALTEN"
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label4.Location = New System.Drawing.Point(785, 647)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(688, 121)
Me.Label4.TabIndex = 23
Me.Label4.Text = "BITTE ALLE UNTERLAGEN IN DEN AKT GEBEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UND INS FRONT-OFFICE BRINGEN"
'
'Timer
'
Me.Timer.Enabled = True
Me.Timer.Interval = 1000
'
'PictureBox2
'
Me.PictureBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox2.Location = New System.Drawing.Point(792, 249)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(681, 395)
Me.PictureBox2.TabIndex = 24
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(79, 249)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(675, 395)
Me.PictureBox1.TabIndex = 21
Me.PictureBox1.TabStop = False
'
'usrCntlFinish
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.lblKennzeichen)
Me.Name = "usrCntlFinish"
Me.Size = New System.Drawing.Size(1562, 878)
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents lblKennzeichen As Label
Friend WithEvents Label3 As Label
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents btn As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Timer As Timer
End Class

View File

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

View File

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

410
AVISO_CHECKIN/usrCntlFound.Designer.vb generated Normal file
View File

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

View File

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

View File

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

169
AVISO_CHECKIN/usrCntlSearch.Designer.vb generated Normal file
View File

@@ -0,0 +1,169 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSearch
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSearch))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Label1 = New System.Windows.Forms.Label()
Me.txt = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btn = New System.Windows.Forms.Button()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label1.Location = New System.Drawing.Point(3, 85)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(1556, 46)
Me.Label1.TabIndex = 4
Me.Label1.Text = "Bitte geben Sie das Kennzeichen oder den Frächter ein und wählen Sie einen Eintra" &
"g aus:"
'
'txt
'
Me.txt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.txt.Location = New System.Drawing.Point(3, 134)
Me.txt.Name = "txt"
Me.txt.Size = New System.Drawing.Size(1475, 53)
Me.txt.TabIndex = 5
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(1212, 613)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(347, 87)
Me.Button1.TabIndex = 20
Me.Button1.Text = "WEITER >>"
Me.Button1.UseVisualStyleBackColor = False
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label2.Location = New System.Drawing.Point(152, 597)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(986, 116)
Me.Label2.TabIndex = 22
Me.Label2.Text = "Sie können Ihr Fahrzeug nicht finden?" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Bitte melden Sie sich am Schalter."
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'PictureBox1
'
Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.fragezeichen
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(10, 597)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(124, 116)
Me.PictureBox1.TabIndex = 21
Me.PictureBox1.TabStop = False
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(1484, 134)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 53)
Me.btn.TabIndex = 6
Me.btn.UseVisualStyleBackColor = True
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToResizeColumns = False
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.WhiteSmoke
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.ColumnHeadersVisible = False
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle1
Me.MyDatagridview1.Location = New System.Drawing.Point(3, 194)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.RowTemplate.Height = 60
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.MyDatagridview1.Size = New System.Drawing.Size(1556, 377)
Me.MyDatagridview1.TabIndex = 7
'
'usrCntlSearch
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.MyDatagridview1)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.txt)
Me.Controls.Add(Me.Label1)
Me.Name = "usrCntlSearch"
Me.Size = New System.Drawing.Size(1562, 713)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents txt As TextBox
Friend WithEvents btn As Button
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Button1 As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label2 As Label
End Class

View File

@@ -0,0 +1,278 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btn.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAI19JREFUeF7t
3f+Z1Dj2L+DdjoAQOgQy+JLBkMGQwZDBTgZLBkMGQwaQAWQAGUAG957TdrM9xgXdVbZLR3rf5/n8cX/s
IFfL9rEsyf+CRj2P/N+c3yP/ydzc3Pz33//+9/sT+X+PzNr/9n3+t+//nfnfvP/3sy0AwAbyxvpb5OFN
/WNk7YbdUrKND4uFPIY8FgBg9iySN8c/4ob5V944H9xIe00WB3/lMc/Hnr8BAHQrh8nvhurzJhj5+uCm
OHryt3ifv838G3mlAEBZ+XSbN/u/5xvc2o1PTid/s7/zN5x/SwBoTg5j//bgXf3aDU0uz/3cgpxX4NUB
AFeRw9T5hF9hYl6v+Zh/g/lvAQC7yCfO3+fJeob028vXeXJhziEwOgDARW4jf8TNxVN+veToQK40yL8h
APySm35/UQwAsMpNf5woBgD41+9xQzBrf9zkMsOcMwDAAG7n5Xom8sl9cgJhLi80KgDQmbsZ/HGh97Qv
v0ruSGhUAKC4fNq3bE/Oyf2yQqMCAIW8iAt4bsG7dmEXeWpyrsCLqWsB0CLD/LJnvB4AaMj9+/3Pi4u1
yF75nH1u7nsAHCwvvrkXv/f7cq18zT4490UAdubGL61FIQCwsxzqd+OXVnP/agCAjXjHL5WiEAC40Mu8
mC4uriJVkoXAy6krA/AYz+PiaTmf9JJcPvh86toArHk279y3dhEVKZ15Z0ETBQEWzOyXEXK/YgBgeN7z
y4jJ+QG2FwaG9Cwugvbrl9GT3xnwWgAYhvX8Iv9LvhawbBDo2m1c7MzuF1lPrhbw+WGgO3/EBc5Tv8jP
k6MBf0ynDEBtuab/4+IiJyI/z8c8d6ZTCKAeT/0i58doAFCOGf4i28VKAaCEF3HB8tQvsm1yNMC+AUCb
bm5u/rty4RKRjZLn2Hy6ATTBRD+R42KCINCE3MrXkL/IsclXAj41DFyHIX+R68YrAeBoOcvfjn4ibSR3
ELRKANhdvu/39b528inyIfIungb/vE/8nXLG+MM85Z1x/v/9x//+4X87/63538x/e61Ncnzy64LmBQC7
ebVy4ZF98y3yIW68b+Ybe773zZtyS0982ZZs08u5SHiTbZ7bvnZMslPib/Aq/yAAm4mL+l9rFxzZNJ/i
d3473+jzhtrDh2HyGO5HEN7mMS6OWTZOnqvTTw9wGbv67ZN8Or4bto/fOG/2o7krCvI3mH+Ltd9Izo/d
A4GL5M3f+v5tcnfDj980h2h98vVH+f46XzEpCLZL7hegCACezGS/y5ND+vmEb3LW0z2fRwi8MrgsJgcC
T2I///Nz/5TvyWs7+Vvejw6s/eby8/iOAPAoZvo/PW76x1EMnJn83e5+QYAVbv6Pj5v+9SkGnpj8ve5+
OYAH3Px/nS/zO32T+NpzO88Z+LL4m8ki8VspAoBJXDit8f9J4vd5Gz+Td6h15BLD3HNg9e8p9goAgpv/
yXyL3yaf9g3x1/Us/4b5t1z8bSWiCICBufmv5kv8NIZI+5OvuLweWEQRAANy8/8hH+JnMczfv1zimt8p
WOsDQ0YRAANx8/9H3PjHpBB4EEUADMDN/3vc+EkKgTmKAOiYm/9d3PhZoxCIKAKgQ27+d5P73Pj5lSwE
hp4sqAiAvoy8yc+3OP7X088Aj/Y6+86iLw2TPP7pZwAqG/bmH08yb+L4rePnXLmPwJu1vjVC4vgth4XC
Rr3553t+2/WyldvsU4s+NkTi2BUBUFC+y1w9qTtODve7YLGXLKiHey0Qx23uDBTyPE7c0b7nn1/nM9zP
3p5lX1v0vd7zNY77+XT4QMvyAvV5cQL3HLP7uYbRVgt8jmNWYEPD8ub/cXHidhuT/Liy0SYJfsxjng4d
aEqcoH8vTthek+/6X05HDVf3Mvvkoo/2mr/nYwZakZt3rJysPSZn+HsKoTU5+jbESoG81szHDDRghOV+
NvShgiE2EIrjtNoGGpAz/ldP0o7yKY9zOlxoXp6TnxZ9uLvkcU6HC1zDCDP+Le+johGWC1oZANcSJ+D7
xQnZVeIQDflTXb4SWO3fneT9fJzAUTpffpTv+63tpxe5Z0C38wLm5bjAQXLZ0erJ2EHyfb9hRXqT3xPo
dl5AHJ9luXCAbrf5jSeJt3F8bv70qud5AbYLhr3FidblTn/zzR+6l3197RzoILlTILCHXt/7x6FZU8xo
uty7w3wA2EePn/e1pS8j63IL4TguE3hhQ/nusLf3/nnz986Q0eWcnt6KgJwPYC4PbCFOqN4+8uPmD//T
YxHgo0Gwgd42EnHzhx91VwTEMdnICy7Q25I/a/zhtN72CrA0EM4VJ1BPS/7c/OHXcr5PT0WApYFwhp6G
/t384fG6KgLieLwKgCfIocBehv7d/OHpeioC8lXA7XRYwE/FCdPLV/5ywp8TH86TDwK9TAz01UB4hF4+
9GO2P1yum9UBcSx2/ISf6GXDHzd/2E4vRYANguCUOEF62PDHzR+210sRYIMgWNHFXv9xHPb2h3108QGh
OA7XCHgoTozPyxOlWuIwvOODffVQBHyejwUI5df8+54/HCPPtbVzsFLiGP6cDweGVn7in5s/HCvOu3fL
87BYTAiEuHm+WTk5KsVGP3C88hsFeXBgdDmzd/XkKBIb/cD1lN8oKI7BiiHGFCdA6R3/4hBeTEcCXEn1
1UN2CGRIpXf8i/b7wAc0ICfUrZ2jVRKHYFkgY4mOX3nZ37v5MIAG5Dm5OEcrxbJAhlJ5La9Jf9Ce0pMC
o/32EGEM0eGrPv3b5hfaVXm7YKMADKHs03+03Xt/aFvZTcWy7dMhQKeio1d9+v8wHwLQsDxXF+duldgc
iK5Vrc5z6N+JCTXkfICSrwJsEUyvym75G223TAdqqbrM2CgA/am6Vje3Kp4PASgkt9pdO6dbj1EAelP1
6f9Ltn06BKCYvO58WZzTFWIUgK6UnPkf7bbVL9RW8lVAtNuKAPoQHbrizH+7/UEH8lxenNsVYl8AulCx
AjfrH/pRclVAtNvugNQWHbncF/+i2YbfoC8VlyB/nNsOJVX8VKcNf6BDeW4vzvXmE802D4maKi7DiWbf
Tq0HOnO7ds43nvdz26GUciebNf/QNw8lcIC8ma515oZj4h/0r9yEwCxa5rZDDdFxS238E0028Q8GEDfU
aruS2hiIUqpt/JM7/gGDyHN+cQ1oOtFkSwKpITpsqaV/0WQf+4GxVNufxJJASqg2+c+yPxhQnvuLa0HT
iSY/n1oOjao2+S+abJ0tjKnUPiUmA9K86KiVJv95+oeB5TVgcU1oOTkZEJpVavJftNfTP4yt1ChAtNdk
QNoUHbTSV7c8/QPVRgHsDEiTcoONtQ7bZKK9nv6BVG0UwM6ANKfS8L+nf+C7vCYsrhHNJppr0zLaEh3z
47KjtppornX/wEOV9gWwJwBNqbT2365/wA/y2rC4VjSbaK7XADTj9VonbTHRVrNogTVlXmNGW70GoA3R
IasM//viH3BKpS8Feg1AE8oM/+dXwOY2A/yg0pcCo7leA3B1lYb/nTDAz5R5oIm2eg3AdUVHLDH8bx9t
4DHielFlQzOvAbiqMpv/RFst/QMeo8ySwGirUU2upsqsWUv/gEfLa8biGtJkoqlWNXEdOay+1ilbi8l/
wFMUmgz4bm4yHCs63+dFZ2wy0VTDZMBTVJkM6BPBXMXzlc7YYuz7DzxZXjsW15ImE031YTMOV2L5X7TT
OzLgHCXmON3c3LyZ2wvHiI5XpTq28x9wjiqrnCwH5FBVTgwTZICz5TVkcU1pMtFU85w4TIl1stFOw//A
JUq8Bsh2Ts2FnVVZIhNNNfwPXKLEaKd5ABwmOlyF9/+G/4GL5bVkcW1pMeYBcIyVztdcopmGxIAtVHkN
YMST3b1Y63ytJdrpZAC2UOI1QLTTfgDsrsL6/09zWwEulteUxTWmudjynN1FR2v+fZgTAdhSTrJbu9Y0
Fruesq/oZF8Xna65RDMNhQFbqvLqE3ZT4QMZ3+a2Amwmry2La01ziWY+n1oL26swG9byP2BzeW1ZXGua
SzTz9dRa2FiFDYCimU4AYA/NT4C2IRC7iQ7W/AZA0UxDYMAeKnwC3URA9hGd6/Ois7UW7/+B3eQ1ZnHN
aS5zU2FTFTbDUP0Cu8lrzOKa01yimb4MyOaaXwZj/T+wpyLzoF5OrYXtND8BJtpo/T+wJw9CjCc61du1
ztZSopn2/wf2VOFVqKXQbCs6Vevvvuz/D+wurzWLa09r8WlgtrXSyZpKjlDMTQXYTZHRUNjOWidrKd57
AUfIa83aNailRDOtBGAzzU98yTZOTQXYleshQ6nQ4VW8wBGa/yhatPHV1FS4UJEhL4BDrF2DWopXomym
QAFgB0DgMHnNWVyDWoulgGwjOlPTnT0KFF/AAg4T15zWVwJ4KGIb0Zk+LjpXUzHcBRypwKjo17mpcJmV
ztVUoon2vgaO9HLtWtRS5nbCZdY6V0uJJlryAhypwsqo51NT4XzP1zpXS4k2+gYAcKTmvwkQbfRgxMUq
VLoAh1q7FrWUaKICgIu1XgD4CBBwuLz2LK5FTSWaaDMgLvZqrXM1FMtdgMPltWdxLWoqVkdxsQLLXWx4
ARwurz2La1FTUQBwsdYLAJ0cuIYC10YbpHGZ7ERrnauVKACAa2i9AIh4PcplshMtOlVTUQAA16AAoHvZ
iRadqqlEE+0CCFxD67sBKgC4THaiRadqKtFEa12Ba2h9ifTHuZ1wnuhECgCAH9kkjb5FJ1IAAPxIAUDf
ohO1XgD44AVwDQoA+rbWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZNailzM+E8a52qpczNBDjc2jWp
pczNhPOsdaqWMjcT4HBr16SWMjcTzrPWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZNailzM+E8a52q
pczNBDjc2jWppczNhPOsdaqWMjcT4HBr16SWMjcTzrPWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZN
ailzM+E80YlsBQzwI1sB07foRD4GBPAjBQB9i06kAAD4kQKAvkUnUgAA/Kj1AuDb3E44T3QiBQDAj1ov
AD7M7YTzZCdadKqmcnNz8+fcVIDD5LVn7ZrUUBQAXCY6+ZuVjtVMFADANSgA6F7rnVwBAFxDgQLg3dxU
OE+BAuDt3FSAw+S1Z+2a1Eo8HLGF12udq6EY5gIOl9eexbWoqSgA2IKZrgALce35uLgWNRUFAFuw2QXA
wtq1qKVEE19NLYXzKQAA/unZ2rWopUQb7ZHC5dY6V0uJJurowJEqPBj5UBqXW+tcLSWaqAAAjmRklDFE
Z/q07FwtxWQX4Eh5zVm7FrWUualwmehMrS93eTM3FWB3ec1ZuxY1FKuj2IbODvA/ec1ZXINai2si2ygw
3PV1birA7vKas7gGNZW4Ztshlc28XOtkLSXa+GxqKsCuml8CmA9tc1vhYhVmvFoJAByhwvXw5dRUuFyF
TS9eT00F2FXr30fJ66E9ANjOWidrKd55AUfIa83aNailzE2FbUSnanovgIhZr8Du8lqzuPa0li9zU2Eb
ql6A9kdDIx6G2FbOKl3paE0lmmkiILCn5icAxrXaxmhsrsLMVxMBgT1VmADoOsjmbtc6W2N5N7cVYHN5
jVlcc5pLNNNIKNuLzvVt2dkaix0Bgd3kNWZxzWkuc1NhW9G5Wp/9mp3/dmotwKYqjIJ+mtsK28rJJSsd
rqlEM19NrQXY1Ku1a05j8RqU3TR/AuRyxbmtAJupsBQ6V2vNzYXNPV/rdI3FPABgc3ltWVxrmks00wRA
9rPW6VpLNNM+2MCWKjz85LXPV1HZT3SyChMBrYMFttT8+v+ILYDZV75jWul4rcVWmMBm8pqyuMY0F/Of
OELzOwJmop2GwoAtNP859Ey00woodlflZHg5NRfgIi/XrjGtJdppDxT2F52t9U8DGw4DNlFh+V/k29xc
2FecEM1vCBSxHBC4WF5LFteWFmMDIA5TYUcsrwGAS1UZ/rfyicNU2BPbawDgIkWG/7MAsPcJx4lO1/w8
gIjXAMDZ8hqyuKa0GO//OVaReQBeAwDnKjH8b6STayixH0DE5BjgyfLasbiWNJloqvX/HC8637dlZ2wx
0VSbAgFPUWK/k0y2dWoyHCg6X5UK2QxZ4Ckq7P2f+TS3Fw5XYjlg5PPcXoBfymvG4hrSZG5ubv6cmwyH
K7EcMBNttUwGeIwSn/7NZFunJsMVRCessBzQTFngUaqs/Y9Y/sd1VVkOGMk9AUyWAX4mJ/9VWPvvoYYm
VBouMxkQ+Jkqk//yemaPE64vOmOJ1wARkwGBk/IasbhmtBrD/zSjUtVs0wxgTZVVTYb/aUqZ1QCR93Ob
Ab7La8PiWtFsormG/2lHdMoqrwHy5HkxtRrgTpWtzTOG/2lOmdcAhs+Ahwot/XP9okmVXgPkKMDt1Gxg
cNWuXTb/oT3ROcu8BlBFA6nS03/ky9xsaE6ZWbSZaK9RABhbtad/e5nQrNxFq8Qnguf8PbcbGFCxp38P
LbSt4AllRQCMqdTTf+TD3G5oVpmtgefYFwAGVPBhxSZmtC8665dl52050WSjADCWSuv+M7n238fMKKHM
ngBzPs7tBgYQ53yZXf8yNzc3b+amQ/NyMuBqR2410WbDazCGUquVMtFmk/+oo9r7tUh+KdAQG3Quz/XF
ud963s1NhzKqvWPLYbY/57YDHcpzfO3cbznRbHOUqCc674dlZ248X6PZhtqgT/lq8uvinG89dv6jrJcr
Hbr12BwIOpTn9uJcbz7RbDv/UVd04lJLAjPRbN/ahr6UeyUZsfSP8srNuI2YEAj9yKH/ahP/zEmiD9GZ
K30f4C7W3UIfKk78y0TTPYRQX+ET0OxbqK3a1uR3iWumz5XTjXIbA82xQyAUlufw4pwukWi61Uj0I4fU
1zp668nRi/kQgEKqjjx6+qdHOQpQbi5AJtruVQDUUnLoPxNt9/RPf6pW5BGrAqCOfNgoOfTv6Z+elR0F
iNggCAqIm2jJ142ZaL6nf/pVeBQgT04bBEHbKu4+ehdP/4yg8iiAbwVAu/LaUm2v/++J9ru20L/KowAR
SwOhQXFuvl+cq2Xi6Z+RVB4FyJP1r/k4gAbEOVn2vX8k9/z39M9QXq+cCGUS7X81HQZwZWXf+2dyRHQ+
DhhHdP5yXwp8mDiE59ORAFeS6/3LvveP+OIfw6r4ic6HsT8AXE/Z9f73iWMwksi44iT4sDwpiuX9fCjA
geLc+3txLlbLp/lQYFi3KydGqZgUCMcqPunvLnEYthiHnASzdoJUShzG6+logJ29WjsHi+XdfCwwvNLL
Au8Tx+F9Huyr9Iz/OZb9wUIPVb2VAbCf6jP+72LZH6yIk6P6hMBMbhesCIBtld7m90FM/IMTyk8InJNF
gOWBsI3yy/3uE8di4h+c0sOEwDn5zQBFAFymm5t/rlyYjwk4JU6WT8uTp2gUAXC+bm7+ETv+wSPlZJ+1
k6hiFAHwdD3d/HPo/+V0WMAv9bDRx4MoAuAJ4vz/a+U8qhpr/uGJ8gmg9MeCFlEEwCN0dvM39A9nqv6x
oGUUAXBaV8P+mTgmQ/9wrs5eBWQUAfCj7m7+ce16Ox8bcK44mXpZFXAfRQD8T3c3/8iXPK7p8IBL5KqA
8t8KWMSOgdDnzd+GP7Cx12snWvEoAhhZFvafF+dE+eRry/n4gK3EyfVuebJ1kCwCfEWQ0eQE3x729l/G
Xv+wkxwu7O1VwF3i2P6YDhG618WXP1fiM7+ws96WBn5Prn+ejxF69Z+1vt9D4tgs+YMD9Dgf4D7v4/jM
HqY3zzrb4Ocf8d4fDhQnXY/zAe7zOQ7R5EB6kZ/57m6m/4N47w8Hy/kAve0P8DAmB9KDl9mXF327q3h1
B9fR4/4A/4iLC4V1+75/GecpXEc+YayelB3FzoFUkqNzfy/6cPdRBMAV5ASctROys+QrAbOMaV2u0ulu
c5/HRhEAVxAnX8+TAr9nvsAYDaA50Tf/u9ZnR4siAI7X+6TAh7FKgJbkXJyeZ/k/OYoAOF63OwWuJY73
P9Nhw9X8EX2x61n+50YRAMfrfmXAIjlB0GgAR8u1/e8XfVEWUQTA8UZYGfCP5PvXOG5zAzhCLu/z1P/I
KALgeL1+cORnybkBvkPOXnKGv3f9Z0QRAAeLk26E5YFr+TsO32gAW8l9/M3wvzCKADhYnHRv107GAZL7
BpgkyKV+z7606FtyZhQBcLCBi4BMvhawgRBPZbh/pygC4GCDFwGZ/Myw+QH8itn9B0QRAAeLE2+UjYJO
Zr7w3E6/CHx3m31jrc/IPlEEwLFG2i3wp1EIMHPjv2IUAXAsRcCDKASG5cbfSBQBcCxFwCLzRciOgv1z
428wigA4liJgPTlZ8LfpJ6IjOat/uG/0V4oiAI6lCDidXD74e/5Gd78UVeU6fsv5ikQRAAeLk270JYI/
y9f4ffI7A+YJ1JF/q9yv//PibykFogiAgykCHpX88qBRgXbl0741/B1EEQAHUwQ8OjkqkBcoGwtd3/P8
W+TfZPE3kuJRBMDBFAFPzuf4zfIVgYmDx8mbfn6cxxB/51EEwPFG/JTwFrkfGVAMbM9Nf9AoAuB4L+Pk
+7Y8GeXRySHp/CxxzhkwgfDp8jf7PS/+82+59hvLIFEEwPGex8mnCNgmD18VmES47rf5Kd+yPfkhigA4
Xn4dzV4B2+fjfEHLEYIRdyC8f8J3w5dHRxEAx8sNgz4sT0bZNDnMnbsQ/ifSW1GQx5IjH7k2P3fjM6Qv
Z0cRAFcQJ54VAscnn45zLsF9YfB/kRbnFORrjWzbwxu9J3vZJYoAuI5cIWBeQBvJGfHv54thFgiZPyJ5
I77PJfMN7m/q98n/9t2/k/9m/ttzG9baJrJrrlQEfD8P4t/POT33552VPwwjJwd+WZ6QIiJH5oAiIEfb
/oh/6zEfksrvh7y6+19B58wLELl+coLu0JN0dyoCfov/9llfj5xHBqB/0dn/XDsJRGTfxLn3Zj4Nh/+q
54ZFQH5P4uLXWjsVJdAkmwaJHJdvec5Np953ioDLbro5zL/pfBZFACPJ/QK8EhDZN5/yXJtOuR8oAp5+
093kif9UFAEMJTq8VwIiOyTOrfsh/59RBDzuppsTmQ/5dLQigNFYJSCyXXLI/ymfnlYEnL7pPov/t9x9
cvV/t1cUAYwmT7Q3ayeDiDw67/Jcmk6pJ1EE/HjTfRH/91fbt0IRwIhMEBR5etYm+j2VImC66V7lqX8t
igBGlBeid8uTQURW8yHPmenUudjwRUCkqW9PKAIYVQ7BmRsgsp586t9jJzlFQGNRBDAqcwNEFolz4m2e
G9MpsgujcI1FEcDIcjTAU4mMni95LkynxP6y0Fhpg1wpigCGFidA7htgkqAMl+z782lwKEVAW1EEMLpb
FyUZKDnJ79RufodwvrUVRQBMrwVsJyy95tDh/l9RBLQVRQBMXsUJYbWA9JKc3f966tptUQS0FUUATHK1
gO8KSOlEH879+/ec3X8xRUBbUQTA/5gfIOWSfTb77tSF2+ccayuKAPgnhYA0n2o3/oecX21FEQA/UghI
i8mZ/c+nLlqXc6utKAJgnUJAWkh+ra+Zmf1bcF61FUUAnKYQkMOTfS773tQF++OcaiuKAPi5LATsKih7
5lvvN/6HFAFtRREAv5ZLruwjIFvmSxaXc98aiiKgrSgC4PGyELCzoJybnNi3x+d5S1EEtBVFADzN8zhp
8hPEXg/IrzLUMP9jKQLaiiIAzmNUQNbyKftGZLhh/sdSBLQVRQCcLycNGhUYO/luP7fq9bT/SIqAtqII
gMu9nC9sioEBkn/r/JtPf3qeShHQVhQBsB3FQH/Jv2Vu2GOIfyOKgLaiCIDtKQbq5n4ynyf9nSgC2ooi
APbzIk6wnDPwaXniSTO5f6fvpn8QRUBbUQTA/nLSWK4meBcxOnDd5ND+6/lvwhUoAtqKIgCOlaMDuQ2x
5YX750P+1vmbTz89LVAEtBVFAFxPfhb2dZyIOUJgS+Lzcz95L5/w3fAbpwhoK4oAaMPdK4M4IXMOQY4S
eG3wY/I3uX+6z3f45b+tPyJFQFtRBECbcjna3auD+aI50uTCLILePbjZe3/fEUVAW1EEQB15M8zh7td5
g4wTOF8jVBw1yDbfP9HfD+G70Q9CEdBWFAHQhxwaz5vp/ejBXeIkvy8UMnvMO8gRivv/ft7Y39z/29GW
fIp3g+cfom8oAhpK/D0UAcBUQKzEDZxNKQLaiiIAgKM8ixvP1+WNSK4XRQAAu4ubTa58Wb0RyfWiCABg
Ty/Wbj7SRhQBAOwhh/4/L2860lYUAQBsKm4suTJl9aYjbUURAMBWbtduNNJuFAEAXCxuKO+XNxhpP4oA
AC5h4l/hKAIAOEvcREz8Kx5FAABP9WrthiL1oggA4NHixuHpv6MoAgB4DE//HUYRAMBPxc3i4/LmIX1E
EQDAKWb+dx5FAAA/iJuDT/4OEEUAAA/53O9AUQQAcM/kv8GiCADA8P+gUQQADC5uBob/B40iAGBcvvo3
eBQBAGN6uXZTkLGiCAAYTFz4/1y7Ich4UQQADEQBIA+jCAAYhAJAllEEAIzh9dpNQMaOIgCgf8/XbgAi
igCAzsXF/svy4i+SUQQA9M2XAOVkFAEAffM9ADkZRQBA3xQBcjKKAIC+KQLkZBQBAH1TBMjJKAIA+qYI
kJNRBAD0TREgJ6MIAOibIkBORhEA0DdFgJyMIgCgb4oAORlFAEDfFAFyMooAgL4pAuRkFAEAfVMEyMko
AgD6pgiQk1EEAPRNESAnowgA6JsiQE5GEQDQN0WAnIwiAKBvigA5GUUAQN8UAXIyigCAvikC5GQUAQB9
UwTIySgCAPqmCJCTUQQA9E0RICejCADomyJATkYRANA3RYCcjCIAoG+KADkZRQBA3xQBcjKKAIC+KQLk
ZBQBAH1TBMjJKAIA+qYIkJNRBAD0TREgJ6MIAOibIkBORhEA0DdFgJyMIgCgb4oAORlFAEDfFAFyMooA
gL4pAuRkFAEAfVMEyMkoAgD6pgiQk1EEAPRNESAnowgA6JsiQE5GEQDQN0WAnIwiAKBvigA5GUUAQN8U
AXIyigCAvikC5GQUAQB9UwTIySgCAPqmCJCTUQQA9E0RICcT/eP11E0A6JEiQE4m+sft1E0A6JEiQFZz
c3PzZu4jAHRKESBr+Tj3DwA6pgiQHzL3DQA6pwiQf2TuFwAMQBEg3zP3CQAGoQiQzIe5PwAwEEXA4Lm5
uXk79wUABqMIGDhRAPw59wMABqQIGDTxt38+dQEARqUIGC9f5r89AINTBAwU7/8BeEgRMEjib/1y+pMD
wEQR0H8M/wOwShHQceLv61PAAJykCOgz3+Jv+2z6EwPAOkVAZ7H2H4DHUgR0lPh7evoH4NEUAR3E0z8A
51AE1I53/wCcTRFQNPm3m/6EAHAeRUC9WPcPwCYUAYUSf68X058NAC6nCKiRd/PfCwA2owhoOyb+AbAb
RUCjib+ND/4AsCtFQHsx9A/AIRQB7cTQPwCHUgQ0kPg7GPoH4HCKgCvm5ubmzfx3AIDDKQKuk0/z7w8A
V6MIODb53v92+ukB4LoUAQclfmvv/QFoiiJg5/jMLwCtUgTslLj5v51/YwBokiJg++SkP+v9AWieImC7
2OwHgFIUAZcnb/7Pp58TAOpQBFyQ+P3M+AegLEXAGcnfbfr5AKAuRcATkr/X9LMBQH2KgEfEHv8A9EgR
8JNY6w9AzxQBK3HzB2AEioAHcfMHYCSKgIibPwAjGroIcPMHYGRDFgFx8zfbH4DhDVUE5PFOhw0ADFEE
5HFOhwsA3Ou5CMgP+9jbHwBO6LEI8FU/AHiEnoqAT3E8vucPAI9UvgiYl/m5+QPAE5UtAuLm/+d8DADA
GaoVASb7AcBGqhQB+b7/dmoyALCFposAO/sBwH5aLAIM+QPAAVoqAt5Fe8zyB4CDXLsI8NQPAFdyrSLA
Uz8AXNmRRcCX+PdeTP8sAHBtexcBOdz/evqnAICW7FIEzLv5Ge4HgIZtVQR8m2/8NvQBgCIuKQLyHX8O
9XviB4CCsgj4tri5n0o+7ecX+yzpA4AO3ObWvHGD/7S44ef/+d08xD/QTf9f//r/oSs8kHKK7soAAAAA
SUVORK5CYII=
</value>
</data>
</root>

View File

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

263
AVISO_CHECKIN/usrCntlWelcome.Designer.vb generated Normal file
View File

@@ -0,0 +1,263 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlWelcome
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlWelcome))
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btn = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button4
'
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.AliceBlue
Me.Button4.Location = New System.Drawing.Point(123, 501)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 63)
Me.Button4.TabIndex = 10
Me.Button4.Tag = "RUS"
Me.Button4.UseVisualStyleBackColor = True
Me.Button4.Visible = False
'
'Button5
'
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.ForeColor = System.Drawing.Color.AliceBlue
Me.Button5.Location = New System.Drawing.Point(123, 570)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 63)
Me.Button5.TabIndex = 11
Me.Button5.Tag = "BG"
Me.Button5.UseVisualStyleBackColor = True
Me.Button5.Visible = False
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label1.Location = New System.Drawing.Point(384, 262)
Me.Label1.Name = "Label1"
Me.Label1.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
Me.Label1.Size = New System.Drawing.Size(514, 63)
Me.Label1.TabIndex = 12
Me.Label1.Tag = "DE"
Me.Label1.Text = "WILLKOMMEN!"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label2.Location = New System.Drawing.Point(384, 331)
Me.Label2.Name = "Label2"
Me.Label2.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
Me.Label2.Size = New System.Drawing.Size(514, 63)
Me.Label2.TabIndex = 13
Me.Label2.Tag = "EN"
Me.Label2.Text = "WELCOME!"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label3.Location = New System.Drawing.Point(384, 400)
Me.Label3.Name = "Label3"
Me.Label3.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
Me.Label3.Size = New System.Drawing.Size(514, 63)
Me.Label3.TabIndex = 14
Me.Label3.Tag = "YU"
Me.Label3.Text = "DOBRODOŠLI!"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label4.Location = New System.Drawing.Point(384, 469)
Me.Label4.Name = "Label4"
Me.Label4.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
Me.Label4.Size = New System.Drawing.Size(514, 63)
Me.Label4.TabIndex = 15
Me.Label4.Text = "HOŞGELDINIZ!"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label5
'
Me.Label5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label5.Location = New System.Drawing.Point(303, 173)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(481, 46)
Me.Label5.TabIndex = 16
Me.Label5.Text = "Please select Language:"
'
'PictureBox3
'
Me.PictureBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox3.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.IMEX_LOGO_simple
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox3.Location = New System.Drawing.Point(824, 582)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(385, 93)
Me.PictureBox3.TabIndex = 19
Me.PictureBox3.TabStop = False
'
'PictureBox2
'
Me.PictureBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox2.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Unisped_logo
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(414, 582)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(385, 93)
Me.PictureBox2.TabIndex = 18
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Verag_AG_Logopng
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(0, 582)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(385, 93)
Me.PictureBox1.TabIndex = 17
Me.PictureBox1.TabStop = False
'
'btn
'
Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(310, 262)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 63)
Me.btn.TabIndex = 6
Me.btn.Tag = "DE"
Me.btn.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(310, 331)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 63)
Me.Button1.TabIndex = 7
Me.Button1.Tag = "EN"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.White
Me.Button2.Location = New System.Drawing.Point(310, 400)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 63)
Me.Button2.TabIndex = 8
Me.Button2.Tag = "YU"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image)
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.White
Me.Button3.Location = New System.Drawing.Point(310, 469)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 63)
Me.Button3.TabIndex = 9
Me.Button3.Tag = "TR"
Me.Button3.Text = "TR"
Me.Button3.UseVisualStyleBackColor = True
'
'usrCntlWelcome
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.PictureBox3)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button3)
Me.Name = "usrCntlWelcome"
Me.Size = New System.Drawing.Size(1212, 678)
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents btn As Button
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button5 As Button
Friend WithEvents Button3 As Button
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents PictureBox3 As PictureBox
End Class

File diff suppressed because it is too large Load Diff

View File

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

View File

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

6
AVISO_INFO/App.config Normal file
View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

Binary file not shown.

After

Width:  |  Height:  |  Size: 311 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 100 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 41 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 54 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 29 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 21 KiB

BIN
AVISO_INFO/aviso.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 66 KiB

372
AVISO_INFO/frmInfo.Designer.vb generated Normal file
View File

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

1262
AVISO_INFO/frmInfo.resx Normal file

File diff suppressed because it is too large Load Diff

117
AVISO_INFO/frmInfo.vb Normal file
View File

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

195
Aviso.sln
View File

@@ -1,7 +1,7 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.28307.106
# Visual Studio Version 17
VisualStudioVersion = 17.0.31612.314
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Aviso", "Aviso\Aviso.vbproj", "{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}"
EndProject
@@ -13,8 +13,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISOUPDATER", "AVISOUPDATE
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "..\..\SDL\SDL\SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "UID", "..\..\UID\UID\UID\UID.vbproj", "{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGAddIn", "..\..\OutlookAddIN\VERAGAddIn\VERAGAddIn\VERAGAddIn.vbproj", "{D579F7A6-7D29-4295-B382-DA5F7EFB4528}"
@@ -23,118 +21,273 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "..\..\
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
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Debug|Mixed Platforms = Debug|Mixed Platforms
Debug|x64 = Debug|x64
Debug|x86 = Debug|x86
Release|Any CPU = Release|Any CPU
Release|Mixed Platforms = Release|Mixed Platforms
Release|x64 = Release|x64
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.ActiveCfg = Debug|x86
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.Build.0 = Debug|x86
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.ActiveCfg = Debug|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.Build.0 = Debug|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.Build.0 = Debug|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x64.ActiveCfg = Debug|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x64.Build.0 = Debug|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x86.ActiveCfg = Debug|x86
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x86.Build.0 = Debug|x86
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Any CPU.ActiveCfg = Release|x86
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Mixed Platforms.ActiveCfg = Release|x86
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Mixed Platforms.Build.0 = Release|x86
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x64.ActiveCfg = Release|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x64.Build.0 = Release|x64
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x86.ActiveCfg = Release|x86
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x86.Build.0 = Release|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Any CPU.ActiveCfg = Debug|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Any CPU.ActiveCfg = Debug|x64
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.Build.0 = Debug|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x64.ActiveCfg = Debug|x64
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x86.ActiveCfg = Debug|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x86.Build.0 = Debug|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Any CPU.ActiveCfg = Release|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Mixed Platforms.ActiveCfg = Release|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Mixed Platforms.Build.0 = Release|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x64.ActiveCfg = Release|x64
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x64.Build.0 = Release|x64
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x86.ActiveCfg = Release|x86
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x86.Build.0 = Release|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.ActiveCfg = Debug|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.ActiveCfg = Debug|x64
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.Build.0 = Debug|x64
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.Build.0 = Debug|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x64.ActiveCfg = Debug|x64
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x64.Build.0 = Debug|x64
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x86.ActiveCfg = Debug|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x86.Build.0 = Debug|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Any CPU.ActiveCfg = Release|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.ActiveCfg = Release|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.Build.0 = Release|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x64.ActiveCfg = Release|x64
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x64.Build.0 = Release|x64
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.ActiveCfg = Release|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.Build.0 = Release|x86
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Any CPU.Build.0 = Debug|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|x64.ActiveCfg = Debug|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|x64.Build.0 = Debug|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|x86.ActiveCfg = Debug|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Any CPU.ActiveCfg = Release|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Any CPU.Build.0 = Release|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x64.ActiveCfg = Release|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x64.Build.0 = Release|Any CPU
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x86.ActiveCfg = Release|Any CPU
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.Build.0 = Debug|Any CPU
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|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
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.Build.0 = Debug|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x86.ActiveCfg = Debug|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.ActiveCfg = Release|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.Build.0 = Release|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|x86.ActiveCfg = Release|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|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
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x64.ActiveCfg = Debug|Any CPU
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x64.Build.0 = Debug|Any CPU
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x86.ActiveCfg = Debug|Any CPU
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Any CPU.ActiveCfg = Release|Any CPU
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Any CPU.Build.0 = Release|Any CPU
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x64.ActiveCfg = Release|Any CPU
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x64.Build.0 = Release|Any CPU
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x86.ActiveCfg = Release|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.ActiveCfg = Debug|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.Build.0 = Debug|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x86.ActiveCfg = Debug|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.ActiveCfg = Release|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.Build.0 = Release|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.ActiveCfg = Release|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.Build.0 = Release|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x86.ActiveCfg = Release|Any CPU
{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
{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Any CPU.Build.0 = Release|Any CPU
{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x64.ActiveCfg = Release|Any CPU
{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x64.Build.0 = Release|Any CPU
{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x86.ActiveCfg = Release|Any CPU
{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x86.Build.0 = Release|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.Build.0 = Debug|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x64.ActiveCfg = Debug|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x64.Build.0 = Debug|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x86.ActiveCfg = Debug|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x86.Build.0 = Debug|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.ActiveCfg = Release|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.Build.0 = Release|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x64.ActiveCfg = Release|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x64.Build.0 = Release|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x86.ActiveCfg = Release|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x86.Build.0 = Release|Any CPU
{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
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Any CPU.Build.0 = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x64.ActiveCfg = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x64.Build.0 = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x86.ActiveCfg = Release|Any CPU
{5193A729-058C-4C93-B7D3-0A228CA719CC}.Release|x86.Build.0 = Release|Any CPU
{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
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|x64.ActiveCfg = Debug|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|x64.Build.0 = Debug|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|x86.ActiveCfg = Debug|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Debug|x86.Build.0 = Debug|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|Any CPU.ActiveCfg = Release|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|Any CPU.Build.0 = Release|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|x64.ActiveCfg = Release|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|x64.Build.0 = Release|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|x86.ActiveCfg = Release|Any CPU
{BCB250F8-F74C-4768-8833-0F13FC8659B8}.Release|x86.Build.0 = Release|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|Any CPU.Build.0 = Debug|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|x64.ActiveCfg = Debug|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|x64.Build.0 = Debug|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|x86.ActiveCfg = Debug|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Debug|x86.Build.0 = Debug|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|Any CPU.ActiveCfg = Release|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|Any CPU.Build.0 = Release|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x64.ActiveCfg = Release|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x64.Build.0 = Release|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x86.ActiveCfg = Release|Any CPU
{1F68E194-88A8-47F2-B9F9-20E092EFA30A}.Release|x86.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE

443
Aviso/Anhänge/frmAddSendnung.Designer.vb generated Normal file
View File

@@ -0,0 +1,443 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAddSendnung
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(frmAddSendnung))
Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.txtGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.txtColli = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rtbWarenbezeichnung = New System.Windows.Forms.RichTextBox()
Me.Label23 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.picWarnAbsender = New System.Windows.Forms.PictureBox()
Me.picWarnEmpfaenger = New System.Windows.Forms.PictureBox()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.lblWW = New System.Windows.Forms.Label()
Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'cboAbfertigungsart
'
Me.cboAbfertigungsart._allowedValuesFreiText = Nothing
Me.cboAbfertigungsart._allowFreiText = False
Me.cboAbfertigungsart._value = ""
Me.cboAbfertigungsart.BackColor = System.Drawing.Color.White
Me.cboAbfertigungsart.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboAbfertigungsart.FormattingEnabled = True
Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
Me.cboAbfertigungsart.Size = New System.Drawing.Size(425, 24)
Me.cboAbfertigungsart.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(10, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(109, 17)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Abfertigungsart:"
'
'txtEmpfaenger
'
Me.txtEmpfaenger._AlleFirmenCLUSTER = False
Me.txtEmpfaenger._AllowSetValue = True
Me.txtEmpfaenger._autoSizeGross = True
Me.txtEmpfaenger._display_Name1 = False
Me.txtEmpfaenger._displayAVISO_Email = False
Me.txtEmpfaenger._displayFullName = False
Me.txtEmpfaenger._displayWoelflKd = False
Me.txtEmpfaenger._hideIfListEmpty = True
Me.txtEmpfaenger._loadKdData = True
Me.txtEmpfaenger._UseFIRMA = ""
Me.txtEmpfaenger._ValueKdAndName = True
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtEmpfaenger.dgvpos = "LEFT"
Me.txtEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtEmpfaenger.KdName = ""
Me.txtEmpfaenger.KdNr = "-1"
Me.txtEmpfaenger.kdNrField = Nothing
Me.txtEmpfaenger.KdNrNullInt = Nothing
Me.txtEmpfaenger.Location = New System.Drawing.Point(15, 131)
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.nurAktive = True
Me.txtEmpfaenger.searchActive = True
Me.txtEmpfaenger.Size = New System.Drawing.Size(378, 23)
Me.txtEmpfaenger.TabIndex = 7
Me.txtEmpfaenger.TIMER_SEARCH = True
Me.txtEmpfaenger.usrcntl = Nothing
'
'txtGewicht
'
Me.txtGewicht._DateTimeOnly = False
Me.txtGewicht._numbersOnly = True
Me.txtGewicht._numbersOnlyKommastellen = ""
Me.txtGewicht._Prozent = False
Me.txtGewicht._ShortDateNew = False
Me.txtGewicht._ShortDateOnly = False
Me.txtGewicht._TimeOnly = False
Me.txtGewicht._TimeOnly_Seconds = False
Me.txtGewicht._value = ""
Me.txtGewicht._Waehrung = False
Me.txtGewicht._WaehrungZeichen = True
Me.txtGewicht.ForeColor = System.Drawing.Color.Black
Me.txtGewicht.Location = New System.Drawing.Point(152, 212)
Me.txtGewicht.MaxLineLength = -1
Me.txtGewicht.MaxLines_Warning = ""
Me.txtGewicht.MaxLines_Warning_Label = Nothing
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Size = New System.Drawing.Size(60, 20)
Me.txtGewicht.TabIndex = 13
Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(9, 164)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(100, 13)
Me.Label19.TabIndex = 8
Me.Label19.Text = "Warenbezeichnung"
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(10, 215)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(73, 13)
Me.Label17.TabIndex = 10
Me.Label17.Text = "Colli/Gewicht:"
'
'txtColli
'
Me.txtColli._DateTimeOnly = False
Me.txtColli._numbersOnly = True
Me.txtColli._numbersOnlyKommastellen = ""
Me.txtColli._Prozent = False
Me.txtColli._ShortDateNew = False
Me.txtColli._ShortDateOnly = False
Me.txtColli._TimeOnly = False
Me.txtColli._TimeOnly_Seconds = False
Me.txtColli._value = ""
Me.txtColli._Waehrung = False
Me.txtColli._WaehrungZeichen = True
Me.txtColli.ForeColor = System.Drawing.Color.Black
Me.txtColli.Location = New System.Drawing.Point(84, 212)
Me.txtColli.MaxLineLength = -1
Me.txtColli.MaxLines_Warning = ""
Me.txtColli.MaxLines_Warning_Label = Nothing
Me.txtColli.Name = "txtColli"
Me.txtColli.Size = New System.Drawing.Size(46, 20)
Me.txtColli.TabIndex = 11
Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'rtbWarenbezeichnung
'
Me.rtbWarenbezeichnung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.rtbWarenbezeichnung.Cursor = System.Windows.Forms.Cursors.IBeam
Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 180)
Me.rtbWarenbezeichnung.MaxLength = 500
Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung"
Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(425, 32)
Me.rtbWarenbezeichnung.TabIndex = 9
Me.rtbWarenbezeichnung.Text = ""
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Location = New System.Drawing.Point(129, 215)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(23, 13)
Me.Label23.TabIndex = 12
Me.Label23.Text = "Pk."
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label2.Location = New System.Drawing.Point(10, 111)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(81, 17)
Me.Label2.TabIndex = 5
Me.Label2.Text = "Empfänger:"
'
'btn
'
Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(12, 244)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(425, 52)
Me.btn.TabIndex = 17
Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label3.Location = New System.Drawing.Point(10, 65)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(73, 17)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Absender:"
'
'txtAbsender
'
Me.txtAbsender._AlleFirmenCLUSTER = False
Me.txtAbsender._AllowSetValue = True
Me.txtAbsender._autoSizeGross = True
Me.txtAbsender._display_Name1 = False
Me.txtAbsender._displayAVISO_Email = False
Me.txtAbsender._displayFullName = False
Me.txtAbsender._displayWoelflKd = False
Me.txtAbsender._hideIfListEmpty = True
Me.txtAbsender._loadKdData = True
Me.txtAbsender._UseFIRMA = ""
Me.txtAbsender._ValueKdAndName = True
Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtAbsender.dgvpos = "LEFT"
Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbsender.KdName = ""
Me.txtAbsender.KdNr = "-1"
Me.txtAbsender.kdNrField = Nothing
Me.txtAbsender.KdNrNullInt = Nothing
Me.txtAbsender.Location = New System.Drawing.Point(15, 85)
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.nurAktive = True
Me.txtAbsender.searchActive = True
Me.txtAbsender.Size = New System.Drawing.Size(378, 23)
Me.txtAbsender.TabIndex = 4
Me.txtAbsender.TIMER_SEARCH = True
Me.txtAbsender.usrcntl = Nothing
'
'FlatButton4
'
Me.FlatButton4.allowBorder = False
Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image)
Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton4.FlatAppearance.BorderSize = 0
Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton4.ForeColor = System.Drawing.Color.Black
Me.FlatButton4.Location = New System.Drawing.Point(391, 130)
Me.FlatButton4.Name = "FlatButton4"
Me.FlatButton4.Size = New System.Drawing.Size(25, 25)
Me.FlatButton4.TabIndex = 6
Me.FlatButton4.TabStop = False
Me.FlatButton4.UseVisualStyleBackColor = True
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image)
Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Location = New System.Drawing.Point(391, 84)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(25, 25)
Me.FlatButton1.TabIndex = 3
Me.FlatButton1.TabStop = False
Me.FlatButton1.UseVisualStyleBackColor = True
'
'picWarnAbsender
'
Me.picWarnAbsender.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
Me.picWarnAbsender.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picWarnAbsender.Location = New System.Drawing.Point(417, 85)
Me.picWarnAbsender.Name = "picWarnAbsender"
Me.picWarnAbsender.Size = New System.Drawing.Size(20, 23)
Me.picWarnAbsender.TabIndex = 86
Me.picWarnAbsender.TabStop = False
Me.picWarnAbsender.Visible = False
'
'picWarnEmpfaenger
'
Me.picWarnEmpfaenger.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
Me.picWarnEmpfaenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picWarnEmpfaenger.Location = New System.Drawing.Point(417, 131)
Me.picWarnEmpfaenger.Name = "picWarnEmpfaenger"
Me.picWarnEmpfaenger.Size = New System.Drawing.Size(20, 23)
Me.picWarnEmpfaenger.TabIndex = 87
Me.picWarnEmpfaenger.TabStop = False
Me.picWarnEmpfaenger.Visible = False
'
'RichTextBox1
'
Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
Me.RichTextBox1.Location = New System.Drawing.Point(12, 327)
Me.RichTextBox1.MaxLength = 500
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.ReadOnly = True
Me.RichTextBox1.Size = New System.Drawing.Size(425, 102)
Me.RichTextBox1.TabIndex = 19
Me.RichTextBox1.Text = ""
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(12, 311)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(184, 13)
Me.Label4.TabIndex = 18
Me.Label4.Text = "Besonderheiten (aktives Kundenfeld):"
'
'txtWarenwertWaehrung
'
Me.txtWarenwertWaehrung._allowFreitext = False
Me.txtWarenwertWaehrung._AllowSetValue = False
Me.txtWarenwertWaehrung._allowSpaceAsSplitter = False
Me.txtWarenwertWaehrung._autoSizeGross = False
Me.txtWarenwertWaehrung._hideIfListEmpty = True
Me.txtWarenwertWaehrung._value = ""
Me.txtWarenwertWaehrung.conn_art = "FMZOLL"
Me.txtWarenwertWaehrung.dgvpos = "LEFT"
Me.txtWarenwertWaehrung.DISPLAY_PARAM = Nothing
Me.txtWarenwertWaehrung.INVISIBLE_COLUMNS = Nothing
Me.txtWarenwertWaehrung.key_visible = False
Me.txtWarenwertWaehrung.KEYPARAM = Nothing
Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(397, 212)
Me.txtWarenwertWaehrung.Name = "txtWarenwertWaehrung"
Me.txtWarenwertWaehrung.searchActive = True
Me.txtWarenwertWaehrung.Size = New System.Drawing.Size(40, 20)
Me.txtWarenwertWaehrung.SQL_ORDER_BY = Nothing
Me.txtWarenwertWaehrung.SQL_SELECT = Nothing
Me.txtWarenwertWaehrung.SQL_WHERE = Nothing
Me.txtWarenwertWaehrung.SQL_WhereParamList = Nothing
Me.txtWarenwertWaehrung.TabIndex = 16
Me.txtWarenwertWaehrung.usrcntl = Nothing
'
'lblWW
'
Me.lblWW.AutoSize = True
Me.lblWW.Location = New System.Drawing.Point(218, 215)
Me.lblWW.Name = "lblWW"
Me.lblWW.Size = New System.Drawing.Size(62, 13)
Me.lblWW.TabIndex = 14
Me.lblWW.Text = "Warenwert:"
'
'txtWarenwert
'
Me.txtWarenwert._DateTimeOnly = False
Me.txtWarenwert._numbersOnly = True
Me.txtWarenwert._numbersOnlyKommastellen = ""
Me.txtWarenwert._Prozent = False
Me.txtWarenwert._ShortDateNew = False
Me.txtWarenwert._ShortDateOnly = False
Me.txtWarenwert._TimeOnly = False
Me.txtWarenwert._TimeOnly_Seconds = False
Me.txtWarenwert._value = ""
Me.txtWarenwert._Waehrung = False
Me.txtWarenwert._WaehrungZeichen = True
Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
Me.txtWarenwert.Location = New System.Drawing.Point(289, 212)
Me.txtWarenwert.MaxLineLength = -1
Me.txtWarenwert.MaxLines_Warning = ""
Me.txtWarenwert.MaxLines_Warning_Label = Nothing
Me.txtWarenwert.Name = "txtWarenwert"
Me.txtWarenwert.Size = New System.Drawing.Size(109, 20)
Me.txtWarenwert.TabIndex = 15
Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'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.txtWarenwertWaehrung)
Me.Controls.Add(Me.lblWW)
Me.Controls.Add(Me.txtWarenwert)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.picWarnEmpfaenger)
Me.Controls.Add(Me.picWarnAbsender)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtAbsender)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtGewicht)
Me.Controls.Add(Me.Label19)
Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.txtColli)
Me.Controls.Add(Me.rtbWarenbezeichnung)
Me.Controls.Add(Me.Label23)
Me.Controls.Add(Me.txtEmpfaenger)
Me.Controls.Add(Me.cboAbfertigungsart)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.FlatButton1)
Me.Controls.Add(Me.FlatButton4)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAddSendnung"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Sendnung hinzufügen"
CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cboAbfertigungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label1 As Label
Friend WithEvents txtEmpfaenger As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents txtGewicht As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label19 As Label
Friend WithEvents Label17 As Label
Friend WithEvents txtColli As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rtbWarenbezeichnung As RichTextBox
Friend WithEvents Label23 As Label
Friend WithEvents Label2 As Label
Friend WithEvents btn As Button
Friend WithEvents Label3 As Label
Friend WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents ToolTip As ToolTip
Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents picWarnAbsender As PictureBox
Friend WithEvents picWarnEmpfaenger As PictureBox
Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents Label4 As Label
Friend WithEvents txtWarenwertWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents lblWW As Label
Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,198 @@
Public Class frmAddSendnung
Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim AvisoId As Integer
Dim AVISOFUNC As New AvisoStatusFunctions
Public SendungsId As Integer = -1
Sub New(AvisoId)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AvisoId = AvisoId
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(AvisoId, SENDUNG)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AvisoId = AvisoId
Me.Sendung = SENDUNG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
txtEmpfaenger.initKdBox(Me)
txtEmpfaenger.usrcntlWIDTH = 360
txtEmpfaenger.usrcntlHEIGHT = 100
txtAbsender.initKdBox(Me)
txtAbsender.usrcntlWIDTH = 360
txtAbsender.usrcntlHEIGHT = 100
txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)
AddHandler txtEmpfaenger.PropertyChanged, Sub()
FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
initBesKd(txtEmpfaenger)
End Sub
AddHandler txtAbsender.PropertyChanged, Sub()
FlatButton1.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
initWarnKd(txtAbsender, picWarnAbsender)
initBesKd(txtAbsender)
End Sub
If Sendung IsNot Nothing Then
cboAbfertigungsart.changeItem(Sendung.tblSnd_Abfertigungsart_ID)
If Sendung.tblSnd_EmpfaengerKdNr > 0 Then
txtEmpfaenger.KdNr = Sendung.tblSnd_EmpfaengerKdNr
Else
txtEmpfaenger.Text = Sendung.tblSnd_Empfaenger
End If
If Sendung.tblSnd_AbsenderKdNr > 0 Then
txtAbsender.KdNr = Sendung.tblSnd_AbsenderKdNr
Else
txtAbsender.Text = Sendung.tblSnd_Absender
End If
txtColli.Text = If(Sendung.tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtWarenwert.Text = If(Sendung.tblSnd_Warenwert, "")
txtWarenwertWaehrung.SET_VALUE(If(Sendung.tblSnd_WarenwertWaehrung, ""))
rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Try
txtColli.Text = txtColli.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
txtGewicht.Text = txtGewicht.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
If txtColli.Text <> "" And Not IsNumeric(txtColli.Text) Then MsgBox("Colli: Falsches Format") : Exit Sub
If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("Gewicht: Falsches Format") : Exit Sub
If Sendung Is Nothing Then
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
End If
Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
Sendung.tblSnd_Empfaenger = txtEmpfaenger.Text
Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
Sendung.tblSnd_Absender = txtAbsender.Text
Sendung.tblSnd_AbsenderKdNr = txtAbsender.KdNr
Sendung.tblSnd_Colli = ""
Sendung.tblSnd_Gewicht = ""
If txtColli.Text <> "" Then Sendung.tblSnd_Colli = CInt(txtColli.Text)
If txtGewicht.Text <> "" Then Sendung.tblSnd_Gewicht = CDbl(txtGewicht.Text)
If txtWarenwert._value <> "" Then Sendung.tblSnd_Warenwert = CDbl(txtWarenwert._value)
If txtWarenwertWaehrung._value <> "" Then Sendung.tblSnd_WarenwertWaehrung = txtWarenwertWaehrung._value
Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
If Sendung.SAVE Then
SendungsId = Sendung.tblSnd_SendungID
Me.DialogResult = DialogResult.OK
Else
Me.DialogResult = DialogResult.None
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub txtEmpfaenger_PropertyChanged(sender As Object, e As EventArgs) Handles txtEmpfaenger.PropertyChanged
initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
End Sub
Private Sub txtEmpfaenger_TextChanged_1(sender As Object, e As EventArgs) Handles txtEmpfaenger.TextChanged
picWarnEmpfaenger.Visible = False
'initBesKd(Nothing)
End Sub
Private Sub txtAbsender_TextChanged(sender As Object, e As EventArgs) Handles txtAbsender.TextChanged
picWarnAbsender.Visible = False
' initBesKd(Nothing)
End Sub
Private Sub txtAbsender_PropertyChanged(sender As Object, e As EventArgs) Handles txtAbsender.PropertyChanged
initWarnKd(txtAbsender, picWarnAbsender)
End Sub
Sub initWarnKd(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox, pic As PictureBox)
Try
pic.Visible = False
ToolTip.SetToolTip(pic, "")
Dim InfoText = ""
If kdSearch.KdData_ADRESSEN IsNot Nothing Then
If kdSearch.KdData_ADRESSEN.Auswahl = "I" Then
InfoText &= "KUNDE INAKTIV!" & vbNewLine & vbNewLine
End If
End If
If kdSearch.KdData_KUNDE IsNot Nothing Then
If kdSearch.KdData_KUNDE.Abfertigungsverbot Then
pic.Visible = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : InfoText &= "ACHTUNG!" & vbNewLine
Case Else
InfoText &= "ABFERTIGUNGSVERBOT!" & vbNewLine
End Select
If If(kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund, "") <> "" Then InfoText &= kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund & vbNewLine
End If
End If
ToolTip.SetToolTip(pic, InfoText.Trim)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Sub initBesKd(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox)
If kdSearch Is Nothing Then
RichTextBox1.Text = ""
Else
If kdSearch.KdData_KUNDE IsNot Nothing Then
RichTextBox1.Text = If(kdSearch.KdData_KUNDE.Besonderheiten, "")
End If
End If
End Sub
Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
If txtEmpfaenger.KdNr > 0 Then
Me.Cursor = Cursors.WaitCursor
AVISOFUNC.showKd(txtEmpfaenger.KdNr)
Me.Cursor = Cursors.Default
End If
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
If txtAbsender.KdNr > 0 Then
Me.Cursor = Cursors.WaitCursor
AVISOFUNC.showKd(txtAbsender.KdNr)
Me.Cursor = Cursors.Default
End If
End Sub
Private Sub txtAbsender_GotFocus(sender As Object, e As EventArgs) Handles txtAbsender.GotFocus, txtEmpfaenger.GotFocus
initBesKd(sender)
End Sub
Private Sub txtAbsender_lostFocus(sender As Object, e As EventArgs) Handles txtAbsender.LostFocus, txtEmpfaenger.LostFocus
initBesKd(Nothing)
End Sub
Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.Leave, txtColli.Leave
sender.Text = sender.Text.Replace(" ", "")
End Sub
End Class

View File

@@ -0,0 +1,735 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmSendungAnhangImport
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(frmSendungAnhangImport))
Me.lbl = New System.Windows.Forms.Label()
Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel()
Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
Me.lblSendungen = New System.Windows.Forms.Label()
Me.lblImport = New System.Windows.Forms.Label()
Me.pnlAnfuegen = New System.Windows.Forms.Panel()
Me.cbxAlternativePDFAnsicht = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblBezeichnung = New System.Windows.Forms.Label()
Me.btnSeitenLoeschen = New System.Windows.Forms.Button()
Me.btnAnfuegenAll = New System.Windows.Forms.Button()
Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblDatei = New System.Windows.Forms.Label()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblSendung = New System.Windows.Forms.Label()
Me.lblArt = New System.Windows.Forms.Label()
Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnAnfuegen = New System.Windows.Forms.Button()
Me.txtSeiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblSeiten = New System.Windows.Forms.Label()
Me.cbxDelPDF = New System.Windows.Forms.CheckBox()
Me.btnAdd = New System.Windows.Forms.Button()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageeinfügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnDel = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button5 = New System.Windows.Forms.Button()
Me.PdfViewer = New Spire.PdfViewer.Forms.PdfViewer()
Me.WebBrowser = New System.Windows.Forms.WebBrowser()
Me.Button3 = New System.Windows.Forms.Button()
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()
Me.lblAbsender = New System.Windows.Forms.Label()
Me.lblEmpfaenger = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button17 = New System.Windows.Forms.Button()
Me.lblRgPreis = New System.Windows.Forms.Label()
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
Me.flpnlAviso.SuspendLayout()
Me.pnlAnfuegen.SuspendLayout()
Me.cntxt.SuspendLayout()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(12, 14)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(53, 13)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Anhänge:"
'
'flpnlAviso
'
Me.flpnlAviso.AllowDrop = True
Me.flpnlAviso.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.flpnlAviso.AutoScroll = True
Me.flpnlAviso.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.flpnlAviso.Controls.Add(Me.UsrCntlSendungAnhangElement1)
Me.flpnlAviso.Controls.Add(Me.UsrCntlSendungAnhangElement2)
Me.flpnlAviso.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpnlAviso.Location = New System.Drawing.Point(15, 30)
Me.flpnlAviso.Name = "flpnlAviso"
Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
Me.flpnlAviso.TabIndex = 7
'
'flpnlSendungen
'
Me.flpnlSendungen.AllowDrop = True
Me.flpnlSendungen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.flpnlSendungen.AutoScroll = True
Me.flpnlSendungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.flpnlSendungen.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpnlSendungen.Location = New System.Drawing.Point(1073, 150)
Me.flpnlSendungen.Name = "flpnlSendungen"
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(1070, 14)
Me.lblSendungen.Name = "lblSendungen"
Me.lblSendungen.Size = New System.Drawing.Size(65, 13)
Me.lblSendungen.TabIndex = 6
Me.lblSendungen.Text = "Sendungen:"
'
'lblImport
'
Me.lblImport.AutoSize = True
Me.lblImport.Location = New System.Drawing.Point(221, 14)
Me.lblImport.Name = "lblImport"
Me.lblImport.Size = New System.Drawing.Size(39, 13)
Me.lblImport.TabIndex = 5
Me.lblImport.Text = "Import:"
'
'pnlAnfuegen
'
Me.pnlAnfuegen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlAnfuegen.BackColor = System.Drawing.Color.FloralWhite
Me.pnlAnfuegen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlAnfuegen.Controls.Add(Me.cbxAlternativePDFAnsicht)
Me.pnlAnfuegen.Controls.Add(Me.Button1)
Me.pnlAnfuegen.Controls.Add(Me.txtBezeichnung)
Me.pnlAnfuegen.Controls.Add(Me.lblBezeichnung)
Me.pnlAnfuegen.Controls.Add(Me.btnSeitenLoeschen)
Me.pnlAnfuegen.Controls.Add(Me.btnAnfuegenAll)
Me.pnlAnfuegen.Controls.Add(Me.txtDateiname)
Me.pnlAnfuegen.Controls.Add(Me.lblDatei)
Me.pnlAnfuegen.Controls.Add(Me.MyTextBox2)
Me.pnlAnfuegen.Controls.Add(Me.lblSendung)
Me.pnlAnfuegen.Controls.Add(Me.lblArt)
Me.pnlAnfuegen.Controls.Add(Me.cboArt)
Me.pnlAnfuegen.Controls.Add(Me.btnAnfuegen)
Me.pnlAnfuegen.Controls.Add(Me.txtSeiten)
Me.pnlAnfuegen.Controls.Add(Me.lblSeiten)
Me.pnlAnfuegen.Controls.Add(Me.cbxDelPDF)
Me.pnlAnfuegen.Location = New System.Drawing.Point(221, 30)
Me.pnlAnfuegen.Name = "pnlAnfuegen"
Me.pnlAnfuegen.Size = New System.Drawing.Size(846, 162)
Me.pnlAnfuegen.TabIndex = 8
'
'cbxAlternativePDFAnsicht
'
Me.cbxAlternativePDFAnsicht.AutoSize = True
Me.cbxAlternativePDFAnsicht.Location = New System.Drawing.Point(527, 139)
Me.cbxAlternativePDFAnsicht.Name = "cbxAlternativePDFAnsicht"
Me.cbxAlternativePDFAnsicht.Size = New System.Drawing.Size(138, 17)
Me.cbxAlternativePDFAnsicht.TabIndex = 15
Me.cbxAlternativePDFAnsicht.Text = "Alternative PDF-Ansicht"
Me.cbxAlternativePDFAnsicht.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.Wheat
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(748, 132)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(52, 28)
Me.Button1.TabIndex = 14
Me.Button1.Text = "Hardcore test"
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
Me.lblBezeichnung.Location = New System.Drawing.Point(3, 113)
Me.lblBezeichnung.Name = "lblBezeichnung"
Me.lblBezeichnung.Size = New System.Drawing.Size(63, 13)
Me.lblBezeichnung.TabIndex = 10
Me.lblBezeichnung.Text = "Bezeichng.:"
'
'btnSeitenLoeschen
'
Me.btnSeitenLoeschen.BackColor = System.Drawing.Color.Wheat
Me.btnSeitenLoeschen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSeitenLoeschen.Location = New System.Drawing.Point(523, 105)
Me.btnSeitenLoeschen.Name = "btnSeitenLoeschen"
Me.btnSeitenLoeschen.Size = New System.Drawing.Size(277, 28)
Me.btnSeitenLoeschen.TabIndex = 11
Me.btnSeitenLoeschen.Text = "Seiten löschen"
Me.btnSeitenLoeschen.UseVisualStyleBackColor = False
'
'btnAnfuegenAll
'
Me.btnAnfuegenAll.BackColor = System.Drawing.Color.Wheat
Me.btnAnfuegenAll.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnfuegenAll.Location = New System.Drawing.Point(523, 47)
Me.btnAnfuegenAll.Name = "btnAnfuegenAll"
Me.btnAnfuegenAll.Size = New System.Drawing.Size(277, 56)
Me.btnAnfuegenAll.TabIndex = 9
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
Me.lblDatei.Location = New System.Drawing.Point(3, 14)
Me.lblDatei.Name = "lblDatei"
Me.lblDatei.Size = New System.Drawing.Size(35, 13)
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
Me.lblSendung.Location = New System.Drawing.Point(3, 140)
Me.lblSendung.Name = "lblSendung"
Me.lblSendung.Size = New System.Drawing.Size(53, 13)
Me.lblSendung.TabIndex = 12
Me.lblSendung.Text = "Sendung:"
'
'lblArt
'
Me.lblArt.AutoSize = True
Me.lblArt.Location = New System.Drawing.Point(3, 83)
Me.lblArt.Name = "lblArt"
Me.lblArt.Size = New System.Drawing.Size(23, 13)
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
Me.btnAnfuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnfuegen.Location = New System.Drawing.Point(316, 47)
Me.btnAnfuegen.Name = "btnAnfuegen"
Me.btnAnfuegen.Size = New System.Drawing.Size(205, 56)
Me.btnAnfuegen.TabIndex = 8
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
Me.lblSeiten.Location = New System.Drawing.Point(3, 55)
Me.lblSeiten.Name = "lblSeiten"
Me.lblSeiten.Size = New System.Drawing.Size(40, 13)
Me.lblSeiten.TabIndex = 3
Me.lblSeiten.Text = "Seiten:"
'
'cbxDelPDF
'
Me.cbxDelPDF.AutoSize = True
Me.cbxDelPDF.Checked = True
Me.cbxDelPDF.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDelPDF.Location = New System.Drawing.Point(316, 31)
Me.cbxDelPDF.Name = "cbxDelPDF"
Me.cbxDelPDF.Size = New System.Drawing.Size(244, 17)
Me.cbxDelPDF.TabIndex = 2
Me.cbxDelPDF.Text = "angefügte Dateien aus Original PDF entfernen"
Me.cbxDelPDF.UseVisualStyleBackColor = True
'
'btnAdd
'
Me.btnAdd.ContextMenuStrip = Me.cntxt
Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAdd.Location = New System.Drawing.Point(71, 3)
Me.btnAdd.Name = "btnAdd"
Me.btnAdd.Size = New System.Drawing.Size(75, 25)
Me.btnAdd.TabIndex = 3
Me.btnAdd.Text = "Hinzufügen"
Me.btnAdd.UseVisualStyleBackColor = True
'
'cntxt
'
Me.cntxt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem, Me.DateiScannenToolStripMenuItem, Me.AusZwischenablageeinfügenToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(250, 70)
'
'DateiHochladenToolStripMenuItem
'
Me.DateiHochladenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem"
Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.DateiHochladenToolStripMenuItem.Text = "Datei hochladen..."
'
'DateiScannenToolStripMenuItem
'
Me.DateiScannenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.scanner
Me.DateiScannenToolStripMenuItem.Name = "DateiScannenToolStripMenuItem"
Me.DateiScannenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.DateiScannenToolStripMenuItem.Text = "Datei scannen..."
'
'AusZwischenablageeinfügenToolStripMenuItem
'
Me.AusZwischenablageeinfügenToolStripMenuItem.Name = "AusZwischenablageeinfügenToolStripMenuItem"
Me.AusZwischenablageeinfügenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.AusZwischenablageeinfügenToolStripMenuItem.Text = "Aus Zwischenablage (einfügen)..."
'
'btnDel
'
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(152, 3)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(63, 25)
Me.btnDel.TabIndex = 4
Me.btnDel.Text = "Löschen"
Me.btnDel.UseVisualStyleBackColor = True
'
'pnl
'
Me.pnl.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button5)
Me.pnl.Controls.Add(Me.PdfViewer)
Me.pnl.Controls.Add(Me.WebBrowser)
Me.pnl.Location = New System.Drawing.Point(221, 198)
Me.pnl.Name = "pnl"
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(793, 1)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(48, 34)
Me.Button5.TabIndex = 2
Me.Button5.UseVisualStyleBackColor = True
'
'PdfViewer
'
Me.PdfViewer.Dock = System.Windows.Forms.DockStyle.Fill
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.IsToolBarVisible = True
Me.PdfViewer.Location = New System.Drawing.Point(0, 0)
Me.PdfViewer.MultiPagesThreshold = 60
Me.PdfViewer.Name = "PdfViewer"
Me.PdfViewer.OnRenderPageExceptionEvent = Nothing
Me.PdfViewer.Size = New System.Drawing.Size(844, 655)
Me.PdfViewer.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))
'
'WebBrowser
'
Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser.Location = New System.Drawing.Point(0, 0)
Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser.Name = "WebBrowser"
Me.WebBrowser.Size = New System.Drawing.Size(844, 655)
Me.WebBrowser.TabIndex = 1
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.BackColor = System.Drawing.Color.Wheat
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(1073, 799)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(230, 56)
Me.Button3.TabIndex = 12
Me.Button3.Text = "<< zurück <<"
Me.Button3.UseVisualStyleBackColor = False
'
'btnSndDel
'
Me.btnSndDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSndDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSndDel.Image = Global.AVISO.My.Resources.Resources.del1
Me.btnSndDel.Location = New System.Drawing.Point(1271, 2)
Me.btnSndDel.Name = "btnSndDel"
Me.btnSndDel.Size = New System.Drawing.Size(32, 25)
Me.btnSndDel.TabIndex = 2
Me.btnSndDel.UseVisualStyleBackColor = True
'
'btnAddSnd
'
Me.btnAddSnd.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnAddSnd.ContextMenuStrip = Me.cntxt
Me.btnAddSnd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAddSnd.Location = New System.Drawing.Point(1141, 2)
Me.btnAddSnd.Name = "btnAddSnd"
Me.btnAddSnd.Size = New System.Drawing.Size(58, 25)
Me.btnAddSnd.TabIndex = 1
Me.btnAddSnd.Text = "+ NEU"
Me.btnAddSnd.UseVisualStyleBackColor = True
'
'cboSendungen
'
Me.cboSendungen._allowedValuesFreiText = Nothing
Me.cboSendungen._allowFreiText = False
Me.cboSendungen._value = ""
Me.cboSendungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboSendungen.DropDownWidth = 450
Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboSendungen.FormattingEnabled = True
Me.cboSendungen.Location = New System.Drawing.Point(1073, 30)
Me.cboSendungen.Name = "cboSendungen"
Me.cboSendungen.Size = New System.Drawing.Size(230, 28)
Me.cboSendungen.TabIndex = 9
'
'lblSendungsdetails
'
Me.lblSendungsdetails.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSendungsdetails.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSendungsdetails.Location = New System.Drawing.Point(1077, 98)
Me.lblSendungsdetails.Name = "lblSendungsdetails"
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(1077, 116)
Me.lblWarenbeichnung.Name = "lblWarenbeichnung"
Me.lblWarenbeichnung.Size = New System.Drawing.Size(223, 31)
Me.lblWarenbeichnung.TabIndex = 14
Me.lblWarenbeichnung.Text = "-"
'
'btnSndEdit
'
Me.btnSndEdit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSndEdit.ContextMenuStrip = Me.cntxt
Me.btnSndEdit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSndEdit.Image = Global.AVISO.My.Resources.Resources.stift1
Me.btnSndEdit.Location = New System.Drawing.Point(1205, 3)
Me.btnSndEdit.Name = "btnSndEdit"
Me.btnSndEdit.Size = New System.Drawing.Size(29, 25)
Me.btnSndEdit.TabIndex = 15
Me.btnSndEdit.UseVisualStyleBackColor = True
'
'lblAbsender
'
Me.lblAbsender.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAbsender.Location = New System.Drawing.Point(1077, 67)
Me.lblAbsender.Name = "lblAbsender"
Me.lblAbsender.Size = New System.Drawing.Size(223, 15)
Me.lblAbsender.TabIndex = 16
Me.lblAbsender.Text = "-"
'
'lblEmpfaenger
'
Me.lblEmpfaenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEmpfaenger.Location = New System.Drawing.Point(1077, 82)
Me.lblEmpfaenger.Name = "lblEmpfaenger"
Me.lblEmpfaenger.Size = New System.Drawing.Size(223, 17)
Me.lblEmpfaenger.TabIndex = 17
Me.lblEmpfaenger.Text = "-"
'
'Panel1
'
Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Location = New System.Drawing.Point(1073, 98)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(230, 1)
Me.Panel1.TabIndex = 18
'
'Button17
'
Me.Button17.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button17.BackgroundImage = Global.AVISO.My.Resources.Resources.vermerk
Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button17.Location = New System.Drawing.Point(1240, 2)
Me.Button17.Name = "Button17"
Me.Button17.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
Me.Button17.Size = New System.Drawing.Size(25, 26)
Me.Button17.TabIndex = 6
Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button17.UseVisualStyleBackColor = True
'
'lblRgPreis
'
Me.lblRgPreis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblRgPreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblRgPreis.Location = New System.Drawing.Point(1196, 98)
Me.lblRgPreis.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
'
'UsrCntlSendungAnhangElement1
'
Me.UsrCntlSendungAnhangElement1.ACTIVE = False
Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement1.TabIndex = 0
'
'UsrCntlSendungAnhangElement2
'
Me.UsrCntlSendungAnhangElement2.ACTIVE = False
Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement2.TabIndex = 1
'
'frmSendungAnhangImport
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1309, 860)
Me.Controls.Add(Me.Button17)
Me.Controls.Add(Me.flpnlSendungen)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.lblAbsender)
Me.Controls.Add(Me.btnSndEdit)
Me.Controls.Add(Me.lblWarenbeichnung)
Me.Controls.Add(Me.lblSendungsdetails)
Me.Controls.Add(Me.btnAddSnd)
Me.Controls.Add(Me.btnSndDel)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.cboSendungen)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.btnAdd)
Me.Controls.Add(Me.pnlAnfuegen)
Me.Controls.Add(Me.lblImport)
Me.Controls.Add(Me.lblSendungen)
Me.Controls.Add(Me.flpnlAviso)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.lblEmpfaenger)
Me.Controls.Add(Me.lblRgPreis)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Name = "frmSendungAnhangImport"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Anhang Import"
Me.flpnlAviso.ResumeLayout(False)
Me.pnlAnfuegen.ResumeLayout(False)
Me.pnlAnfuegen.PerformLayout()
Me.cntxt.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl As Label
Friend WithEvents flpnlAviso As FlowLayoutPanel
Friend WithEvents flpnlSendungen As FlowLayoutPanel
Friend WithEvents lblSendungen As Label
Friend WithEvents lblImport As Label
Friend WithEvents pnlAnfuegen As Panel
Friend WithEvents lblSeiten As Label
Friend WithEvents btnAdd As Button
Friend WithEvents btnAnfuegen As Button
Friend WithEvents txtSeiten As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents UsrCntlSendungAnhangElement1 As usrCntlSendungAnhangElement
Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblSendung As Label
Friend WithEvents lblArt As Label
Friend WithEvents cboArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtDateiname As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblDatei As Label
Friend WithEvents UsrCntlSendungAnhangElement2 As usrCntlSendungAnhangElement
Friend WithEvents btnDel As Button
Friend WithEvents pnl As Panel
Friend WithEvents cbxDelPDF As CheckBox
Friend WithEvents cboSendungen As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnAnfuegenAll As Button
Friend WithEvents Button3 As Button
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents DateiScannenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnSndDel As Button
Friend WithEvents PrintDocument1 As Printing.PrintDocument
Friend WithEvents PdfViewer As Spire.PdfViewer.Forms.PdfViewer
Friend WithEvents WebBrowser As WebBrowser
Friend WithEvents btnAddSnd As Button
Friend WithEvents Button5 As Button
Friend WithEvents AusZwischenablageeinfügenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnSeitenLoeschen As Button
Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblBezeichnung As Label
Friend WithEvents Button1 As Button
Friend WithEvents lblSendungsdetails As Label
Friend WithEvents lblWarenbeichnung As Label
Friend WithEvents btnSndEdit As Button
Friend WithEvents lblAbsender As Label
Friend WithEvents lblEmpfaenger As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents Button17 As Button
Friend WithEvents cbxAlternativePDFAnsicht As CheckBox
Friend WithEvents lblRgPreis As Label
End Class

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,122 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSendungAnhangUmbenennenUmkateg
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangUmbenennenUmkateg))
Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnAnfuegen = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'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._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(77, 41)
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(242, 26)
Me.txtBezeichnung.TabIndex = 13
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 49)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(63, 13)
Me.Label1.TabIndex = 14
Me.Label1.Text = "Bezeichng.:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(12, 19)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(23, 13)
Me.Label5.TabIndex = 11
Me.Label5.Text = "Art:"
'
'cboArt
'
Me.cboArt._allowedValuesFreiText = Nothing
Me.cboArt._allowFreiText = False
Me.cboArt._value = ""
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(77, 11)
Me.cboArt.Name = "cboArt"
Me.cboArt.Size = New System.Drawing.Size(242, 28)
Me.cboArt.TabIndex = 12
'
'btnAnfuegen
'
Me.btnAnfuegen.BackColor = System.Drawing.Color.White
Me.btnAnfuegen.DialogResult = DialogResult.OK
Me.btnAnfuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnfuegen.Location = New System.Drawing.Point(77, 73)
Me.btnAnfuegen.Name = "btnAnfuegen"
Me.btnAnfuegen.Size = New System.Drawing.Size(242, 46)
Me.btnAnfuegen.TabIndex = 15
Me.btnAnfuegen.Text = "OK"
Me.btnAnfuegen.UseVisualStyleBackColor = False
'
'frmSendungAnhangUmbenennenUmkateg
'
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(326, 130)
Me.Controls.Add(Me.btnAnfuegen)
Me.Controls.Add(Me.txtBezeichnung)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.cboArt)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSendungAnhangUmbenennenUmkateg"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As Label
Friend WithEvents Label5 As Label
Friend WithEvents cboArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnAnfuegen As Button
End Class

View File

@@ -0,0 +1,59 @@
Public Class frmSendungAnhangUmbenennenUmkateg
Dim nameOLD = ""
Dim artOLD = ""
Sub New(nameOLD As String, artOLD As String)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.nameOLD = nameOLD
Me.artOLD = artOLD
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load
cboArt.Items.Clear()
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", "Dispoliste"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorkasse", "Vorkasse"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Überweisungsbeleg", "Überweisungsbeleg"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - C88", "C88"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - E2", "E2"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - Atanak Rechnung", "Atanak_RG"))
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT_DOCS", "EXPORT_DOCS"))
End If
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
txtBezeichnung.Text = nameOLD
cboArt.changeItem(artOLD)
End Sub
Private Sub txtBezeichnung_TextChanged(sender As Object, e As EventArgs) Handles txtBezeichnung.TextChanged
End Sub
Private Sub txtBezeichnung_KeyDown(sender As Object, e As KeyEventArgs) Handles txtBezeichnung.KeyDown
If e.KeyCode = Keys.Return Then
btnAnfuegen.PerformClick()
End If
End Sub
Private Sub btnAnfuegen_Click(sender As Object, e As EventArgs) Handles btnAnfuegen.Click
If txtBezeichnung.Text = "" Then Me.DialogResult = DialogResult.None : Exit Sub
End Sub
End Class

View File

@@ -0,0 +1,112 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSendungAnhang_SendenAnSnd
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhang_SendenAnSnd))
Me.MyDatagridview1 = New System.Windows.Forms.DataGridView()
Me.pnl = New System.Windows.Forms.Panel()
Me.lbl = New System.Windows.Forms.Label()
Me.clmnSendungID = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnSendung = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'MyDatagridview1
'
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToResizeColumns = False
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.ColumnHeadersVisible = False
Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnSendungID, Me.clmnSendung})
Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyDatagridview1.GridColor = System.Drawing.Color.White
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 35)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.RowTemplate.Height = 25
Me.MyDatagridview1.Size = New System.Drawing.Size(471, 354)
Me.MyDatagridview1.TabIndex = 0
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnl.Controls.Add(Me.lbl)
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(471, 35)
Me.pnl.TabIndex = 1
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(4, 11)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(232, 13)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Anhang an Sendung verschieben (doppelklick):"
'
'clmnSendungID
'
Me.clmnSendungID.HeaderText = "ID"
Me.clmnSendungID.Name = "clmnSendungID"
Me.clmnSendungID.ReadOnly = True
Me.clmnSendungID.Visible = False
'
'clmnSendung
'
Me.clmnSendung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnSendung.HeaderText = "Sendung"
Me.clmnSendung.Name = "clmnSendung"
Me.clmnSendung.ReadOnly = True
'
'frmSendungAnhang_SendenAnSnd
'
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(471, 389)
Me.Controls.Add(Me.MyDatagridview1)
Me.Controls.Add(Me.pnl)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSendungAnhang_SendenAnSnd"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Anhang verschieben"
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents MyDatagridview1 As System.Windows.Forms.DataGridView
Friend WithEvents pnl As Panel
Friend WithEvents lbl As Label
Friend WithEvents clmnSendungID As DataGridViewTextBoxColumn
Friend WithEvents clmnSendung As DataGridViewTextBoxColumn
End Class

View File

@@ -0,0 +1,986 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="clmnSendungID.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnSendung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
////////////////////////////////////////////////////////////////////////////////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
XUL/////////////////////////////////////////////////////////////////////////////
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
///////////////////////////////////////////////////////////////////////////d1tFm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////Uy8XB
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
v7j/////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////+Mblhm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
////////////////////////////////////////////////////////////////////////////////
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3/////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////39fRmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////L
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
//////////////////////////////////////////////////////////////////////////////+A
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@@ -0,0 +1,39 @@
Public Class frmSendungAnhang_SendenAnSnd
Public SendungsId = -1
Dim SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen))
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.SENDUNG_LIST = SENDUNG_LIST
End Sub
Private Sub frmSendungAnhang_SendenAnSnd_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim cnt = 1
For Each S In SENDUNG_LIST
Dim abfertigungsArt = SQL.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE Abfertigungsart='" & S.tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
Dim empfTmp = ""
If S.tblSnd_Empfaenger IsNot Nothing Then
empfTmp = If(S.tblSnd_Empfaenger.Length > 15, S.tblSnd_Empfaenger.Substring(0, 15), S.tblSnd_Empfaenger)
End If
MyDatagridview1.Rows.Add({S.tblSnd_SendungID, (cnt & ". " & empfTmp & " (" & abfertigungsArt & ")")})
cnt += 1
Next
MyDatagridview1.ClearSelection()
End Sub
Private Sub MyDatagridview1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellDoubleClick, MyDatagridview1.CellContentDoubleClick
If e.RowIndex >= 0 Then
SendungsId = MyDatagridview1.Rows(e.RowIndex).Cells(0).Value
Me.DialogResult = DialogResult.OK
Me.Close()
Else
Me.DialogResult = DialogResult.None
End If
End Sub
End Class

View File

@@ -0,0 +1,117 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSendungAnhangElement
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pic = New System.Windows.Forms.PictureBox()
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()
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
Me.pic.Location = New System.Drawing.Point(3, 0)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(32, 27)
Me.pic.TabIndex = 0
Me.pic.TabStop = False
'
'cntxt
'
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(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(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(197, 22)
Me.AnhängeVerschiebenToolStripMenuItem.Text = "Anhänge verschieben..."
'
'PDFsZusammenführenToolStripMenuItem
'
Me.PDFsZusammenführenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.PDFsZusammenführenToolStripMenuItem.Name = "PDFsZusammenführenToolStripMenuItem"
Me.PDFsZusammenführenToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
Me.PDFsZusammenführenToolStripMenuItem.Text = "PDFs zusammenführen..."
'
'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.lbl)
Me.Controls.Add(Me.pic)
Me.Name = "usrCntlSendungAnhangElement"
Me.Size = New System.Drawing.Size(180, 28)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.cntxt.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pic As PictureBox
Friend WithEvents lbl As Label
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents UmbenennenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AnhängeVerschiebenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PDFsZusammenführenToolStripMenuItem As ToolStripMenuItem
End Class

View File

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

View File

@@ -0,0 +1,168 @@
Imports System.ComponentModel
Public Class usrCntlSendungAnhangElement
' Implements INotifyPropertyChanged
' Property FILE_NAME = ""
Property FILE_PATH
'Property FILE_TYPE
Property FILE_PAGES
Property FILE_DOCID
Property FILE_ANHID
Public Event ME_CLICK(STRG_PRESSED)
Public Event ME_DELETE(FILE_DOCID, FILE_ANHID)
'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
'Private Sub NotifyPropertyChanged(ByVal info As String)
' RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
'End Sub
Private ACTIVE_Value As Boolean = False
Public Property ACTIVE As Boolean
Get
Return Me.ACTIVE_Value
End Get
Set(ByVal value As Boolean)
If Not (value = ACTIVE) Then
Me.ACTIVE_Value = value
' NotifyPropertyChanged("ACTIVE")
End If
If value Then
Me.BackColor = Color.FromArgb(0, 54, 128)
Me.lbl.ForeColor = Color.White
Else
Me.BackColor = Color.White
Me.lbl.ForeColor = Color.Black
End If
End Set
End Property
Private FILE_NAME_Value As String = False
Public Property FILE_NAME As String
Get
Return Me.FILE_NAME_Value
End Get
Set(ByVal value As String)
If Not (value = FILE_NAME) Then
Me.FILE_NAME_Value = value
Me.lbl.Text = value
' NotifyPropertyChanged("FILE_NAME")
End If
End Set
End Property
Private FILE_TYPE_Value As String = False
Public Property FILE_TYPE As String
Get
Return Me.FILE_TYPE_Value
End Get
Set(ByVal value As String)
If Not (value = FILE_TYPE) Then
Me.FILE_TYPE_Value = value
Select Case value
Case "PDF" : pic.BackgroundImage = My.Resources.pdf
Case "EXCEL" : pic.BackgroundImage = My.Resources.Excel_2013_logo_155x110
Case "WORD" : pic.BackgroundImage = My.Resources.word
Case "BILD" : pic.BackgroundImage = My.Resources.ImageIcon
Case "TEXT" : pic.BackgroundImage = My.Resources.android_note
Case Else : pic.BackgroundImage = My.Resources.docAllgemein
End Select
' NotifyPropertyChanged("FILE_TYPE")
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
If e.Button = MouseButtons.Left Then
RaiseEvent ME_CLICK((My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
End If
End Sub
Public Sub CLICK_Me()
RaiseEvent ME_CLICK(False) 'My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
End Sub
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
Exit Sub
'Dim p = New System.Diagnostics.Process()
'p.StartInfo.FileName = Me.FILE_PATH
'' p.StartInfo.Arguments = "/c echo Foo && echo Bar"
'p.StartInfo.RedirectStandardOutput = False
'p.StartInfo.UseShellExecute = False
'p.StartInfo.CreateNoWindow = True
'p.Start()
Exit Sub
Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(FILE_DOCID)
If ds IsNot Nothing Then
ds.OPEN_SINGLE()
End If
End Sub
Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
Try
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
ANH.anh_Name = f.txtBezeichnung.Text
ANH.anh_Art = f.cboArt._value
ANH.SAVE()
FILE_NAME = f.txtBezeichnung.Text
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
RaiseEvent ME_DELETE(FILE_DOCID, FILE_ANHID)
End Sub
Private Sub cntxt_Opening(sender As Object, e As CancelEventArgs) Handles cntxt.Opening
If Not Me.ACTIVE Then CLICK_Me()
End Sub
Private Sub AnhängeVerschiebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnhängeVerschiebenToolStripMenuItem.Click
Try
Dim f As frmSendungAnhangImport = Me.FindForm
f.AnhangVerschieben_Markierte(Me)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub PDFsZusammenführenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFsZusammenführenToolStripMenuItem.Click
Try
Dim f As frmSendungAnhangImport = Me.FindForm
f.PDFszusammenfuehren_Markierte(Me)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
End Class

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.5" />
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
</startup>
<userSettings>
@@ -45,6 +45,28 @@
<assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-19.3.0.0" newVersion="19.3.0.0" />
<publisherPolicy apply="no" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Aspose.Imaging" publicKeyToken="716fcc553a201e56" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-19.4.0.0" newVersion="19.4.0.0" />
<publisherPolicy apply="no" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="BouncyCastle.Crypto" publicKeyToken="0e99375e54769942" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-1.8.2.0" newVersion="1.8.2.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.16.0.0" newVersion="2.16.0.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration>

View File

@@ -0,0 +1,10 @@
Namespace My
' Für MyApplication sind folgende Ereignisse verfügbar:
' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird.
' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst.
' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist.
' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
Partial Friend Class MyApplication
End Class
End Namespace

View File

@@ -28,6 +28,7 @@ Partial Class frmAuswertung
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.pnlOptions = New System.Windows.Forms.Panel()
Me.Button5 = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
@@ -61,6 +62,7 @@ Partial Class frmAuswertung
Me.Button10.TabIndex = 9
Me.Button10.Text = "E-Mails in Fmzoll laden"
Me.Button10.UseVisualStyleBackColor = True
Me.Button10.Visible = False
'
'PictureBox1
'
@@ -85,6 +87,7 @@ Partial Class frmAuswertung
'pnlOptions
'
Me.pnlOptions.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnlOptions.Controls.Add(Me.Button5)
Me.pnlOptions.Controls.Add(Me.Panel1)
Me.pnlOptions.Controls.Add(Me.Button3)
Me.pnlOptions.Controls.Add(Me.Button2)
@@ -95,6 +98,18 @@ Partial Class frmAuswertung
Me.pnlOptions.Size = New System.Drawing.Size(144, 552)
Me.pnlOptions.TabIndex = 1
'
'Button5
'
Me.Button5.Enabled = False
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.ForeColor = System.Drawing.Color.White
Me.Button5.Location = New System.Drawing.Point(7, 180)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(131, 51)
Me.Button5.TabIndex = 3
Me.Button5.Text = "VERIMEX"
Me.Button5.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button4)
@@ -117,6 +132,7 @@ Partial Class frmAuswertung
'
'Button3
'
Me.Button3.Enabled = False
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.White
Me.Button3.Location = New System.Drawing.Point(7, 123)
@@ -128,6 +144,7 @@ Partial Class frmAuswertung
'
'Button2
'
Me.Button2.Enabled = False
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.White
Me.Button2.Location = New System.Drawing.Point(7, 66)
@@ -139,6 +156,7 @@ Partial Class frmAuswertung
'
'Button1
'
Me.Button1.Enabled = False
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(7, 9)
@@ -188,4 +206,5 @@ Partial Class frmAuswertung
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents Button5 As Button
End Class

View File

@@ -8,9 +8,18 @@ Public Class frmAuswertung
Private Sub frmAuswertung_Load(sender As Object, e As EventArgs) Handles Me.Load
clrPnlMain()
Dim usrCntl As New usrctlAuswertung
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Gesamt", Me) Then
Button2.Enabled = True
Dim usrCntl As New usrctlAuswertung
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Kunden", Me) Then Button1.Enabled = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Mitarbeiter", Me) Then Button3.Enabled = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_VERIMEX", Me) Then Button5.Enabled = True
End Sub
@@ -28,17 +37,21 @@ Public Class frmAuswertung
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
clrPnlMain()
Dim usrCntl As New usrctStatistik
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Gesamt", Me) Then
clrPnlMain()
Dim usrCntl As New usrctStatistik
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
clrPnlMain()
Dim usrCntl As New usrctlMAUebersicht
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Mitarbeiter", Me) Then
clrPnlMain()
Dim usrCntl As New usrctlMAUebersicht
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
pnlMain.Controls.Add(usrCntl)
End If
End Sub
@@ -555,7 +568,7 @@ Public Class frmAuswertung
Exit Sub
End If
If result = System.Windows.Forms.DialogResult.OK Then
If result = DialogResult.OK Then
Me.Cursor = Cursors.WaitCursor
@@ -631,8 +644,8 @@ Public Class frmAuswertung
While dr.Read
Dim kdnr = dr.Item("KundenNr").ToString
Dim LIST_EMAILS = New SDL.cEmailBenachrichtigungList(kdnr, 1)
Dim LIST_EMAILS2 = New SDL.cEmailBenachrichtigungList(kdnr, 2)
Dim LIST_EMAILS = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(kdnr, 1)
Dim LIST_EMAILS2 = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(kdnr, 2)
Dim eMail = (dr.Item("eMail")).ToString.Replace(" ", "")
Dim eMail2 = (dr.Item("eMail2")).ToString.Replace(" ", "")
@@ -677,6 +690,15 @@ Public Class frmAuswertung
admin.doSQL("delete FROM [tblEmailBenachrichtigung] WHERE [eb_EMail] = '' ", "FMZOLL")
End Sub
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_VERIMEX", Me) Then
clrPnlMain()
Dim usrCntl As New usrctlStatVERIMEX
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
End If
End Sub
End Class
Public Class listMAZusammenf

View File

@@ -146,6 +146,13 @@ Public Class frmStatFrima
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If DataGridView1.SelectedRows.Count > 0 Then
Dim frmLKWBericht As New frmLKWBericht(DataGridView1.SelectedRows(0).Cells("AvisoID").Value)
frmLKWBericht.ShowDialog(Me)
End If
Exit Sub
Dim str As String = ""
For Each r As DataGridViewRow In DataGridView1.Rows()
If r.Selected Then

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