diff --git a/ADMIN.sln b/ADMIN.sln
index 8158a20..ed36b73 100644
--- a/ADMIN.sln
+++ b/ADMIN.sln
@@ -31,6 +31,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "MDM_Worke
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}"
EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RKSV_DE", "RKSV_DE\RKSV_DE.vbproj", "{173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}"
+EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
@@ -93,6 +95,10 @@ Global
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.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
+ {173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+ {173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}.Debug|Any CPU.Build.0 = Debug|Any CPU
+ {173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}.Release|Any CPU.ActiveCfg = Release|Any CPU
+ {173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
index 22b90d0..c5136fd 100644
--- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
@@ -1653,6 +1653,7 @@ Public Class cDakosy_EZA_Warenposition
Property ezaWP_PositionsZusatz As Object = Nothing ' VARCHAR (100) NULL,
Property ezaWP_AHStatWertManuellKZ As Object = Nothing ' VARCHAR (1) NULL,
Property ezaWP_Artikelpreis As Object = Nothing ' DECIMAL (13, 2) NULL,
+ Property ezaWP_ArtikelpreisWaehrung As Object = Nothing ' DECIMAL (13, 2) NULL,
Property ezaWP_OrtVerbringens As Object = Nothing ' VARCHAR (35) NULL,
Property ezaWP_AbflughafenIATACode As Object = Nothing ' VARCHAR (3) NULL,
Property ezaWP_WarenmengeAVUVZugang As Object = Nothing ' DECIMAL (15, 3) NULL,
@@ -1799,6 +1800,7 @@ Public Class cDakosy_EZA_Warenposition
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_PositionsZusatz", ezaWP_PositionsZusatz)) ' VARCHAR (100) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AHStatWertManuellKZ", ezaWP_AHStatWertManuellKZ)) ' VARCHAR (1) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Artikelpreis", ezaWP_Artikelpreis)) ' DECIMAL (13, 2) NULL,
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_ArtikelpreisWaehrung", ezaWP_ArtikelpreisWaehrung)) ' DECIMAL (13, 2) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_OrtVerbringens", ezaWP_OrtVerbringens)) ' VARCHAR (35) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AbflughafenIATACode", ezaWP_AbflughafenIATACode)) ' VARCHAR (3) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenmengeAVUVZugang", ezaWP_WarenmengeAVUVZugang)) ' DECIMAL (15, 3) NULL,
diff --git a/RKSV_DE/App.config b/RKSV_DE/App.config
new file mode 100644
index 0000000..8ccef15
--- /dev/null
+++ b/RKSV_DE/App.config
@@ -0,0 +1,6 @@
+
+
+
+
+
+
\ No newline at end of file
diff --git a/RKSV_DE/My Project/Application.Designer.vb b/RKSV_DE/My Project/Application.Designer.vb
new file mode 100644
index 0000000..cf8df2a
--- /dev/null
+++ b/RKSV_DE/My Project/Application.Designer.vb
@@ -0,0 +1,38 @@
+'------------------------------------------------------------------------------
+'
+' 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.
+'
+'------------------------------------------------------------------------------
+
+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
+
+ _
+ 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
+
+ _
+ Protected Overrides Sub OnCreateMainForm()
+ Me.MainForm = Global.RKSV_DE.frmRKSV
+ End Sub
+ End Class
+End Namespace
diff --git a/RKSV_DE/My Project/Application.myapp b/RKSV_DE/My Project/Application.myapp
new file mode 100644
index 0000000..90e0fd2
--- /dev/null
+++ b/RKSV_DE/My Project/Application.myapp
@@ -0,0 +1,10 @@
+
+
+ true
+ frmRKSV
+ false
+ 0
+ true
+ 0
+ true
+
\ No newline at end of file
diff --git a/RKSV_DE/My Project/AssemblyInfo.vb b/RKSV_DE/My Project/AssemblyInfo.vb
new file mode 100644
index 0000000..ac9b313
--- /dev/null
+++ b/RKSV_DE/My Project/AssemblyInfo.vb
@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+
+
+
+
+
+
+
+
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+
+
+' 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:
+'
+
+
+
diff --git a/RKSV_DE/My Project/Resources.Designer.vb b/RKSV_DE/My Project/Resources.Designer.vb
new file mode 100644
index 0000000..7993969
--- /dev/null
+++ b/RKSV_DE/My Project/Resources.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+'
+' 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.
+'
+'------------------------------------------------------------------------------
+
+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.
+ '''
+ ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+ '''
+ _
+ Friend Module Resources
+
+ Private resourceMan As Global.System.Resources.ResourceManager
+
+ Private resourceCulture As Global.System.Globalization.CultureInfo
+
+ '''
+ ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+ '''
+ _
+ 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("RKSV_DE.Resources", GetType(Resources).Assembly)
+ resourceMan = temp
+ End If
+ Return resourceMan
+ End Get
+ End Property
+
+ '''
+ ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+ ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+ '''
+ _
+ Friend Property Culture() As Global.System.Globalization.CultureInfo
+ Get
+ Return resourceCulture
+ End Get
+ Set
+ resourceCulture = value
+ End Set
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+ '''
+ Friend ReadOnly Property rksv_de() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("rksv_de", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/RKSV_DE/My Project/Resources.resx b/RKSV_DE/My Project/Resources.resx
new file mode 100644
index 0000000..43d4e00
--- /dev/null
+++ b/RKSV_DE/My Project/Resources.resx
@@ -0,0 +1,124 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+
+ ..\Resources\rksv_de.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
\ No newline at end of file
diff --git a/RKSV_DE/My Project/Settings.Designer.vb b/RKSV_DE/My Project/Settings.Designer.vb
new file mode 100644
index 0000000..b2f37ed
--- /dev/null
+++ b/RKSV_DE/My Project/Settings.Designer.vb
@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+'
+' 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.
+'
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+ _
+ 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
+
+ _
+ 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
+
+ _
+ Friend Module MySettingsProperty
+
+ _
+ Friend ReadOnly Property Settings() As Global.RKSV_DE.My.MySettings
+ Get
+ Return Global.RKSV_DE.My.MySettings.Default
+ End Get
+ End Property
+ End Module
+End Namespace
diff --git a/RKSV_DE/My Project/Settings.settings b/RKSV_DE/My Project/Settings.settings
new file mode 100644
index 0000000..85b890b
--- /dev/null
+++ b/RKSV_DE/My Project/Settings.settings
@@ -0,0 +1,7 @@
+
+
+
+
+
+
+
diff --git a/RKSV_DE/RKSV_DE.vbproj b/RKSV_DE/RKSV_DE.vbproj
new file mode 100644
index 0000000..d0a4757
--- /dev/null
+++ b/RKSV_DE/RKSV_DE.vbproj
@@ -0,0 +1,130 @@
+
+
+
+
+ Debug
+ AnyCPU
+ {173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}
+ WinExe
+ RKSV_DE.My.MyApplication
+ RKSV_DE
+ RKSV_DE
+ 512
+ WindowsForms
+ v4.7
+ true
+ true
+
+
+ AnyCPU
+ true
+ full
+ true
+ true
+ bin\Debug\
+ RKSV_DE.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+
+
+ AnyCPU
+ pdbonly
+ false
+ true
+ true
+ bin\Release\
+ RKSV_DE.xml
+ 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+
+
+ On
+
+
+ Binary
+
+
+ Off
+
+
+ On
+
+
+
+ ..\..\..\..\RKSV DE\KsVCom.dll
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Form
+
+
+ frmRKSV.vb
+ Form
+
+
+
+ True
+ Application.myapp
+
+
+ True
+ True
+ Resources.resx
+
+
+ True
+ Settings.settings
+ True
+
+
+
+
+ frmRKSV.vb
+
+
+ VbMyResourcesResXFileCodeGenerator
+ Resources.Designer.vb
+ My.Resources
+ Designer
+
+
+
+
+ MyApplicationCodeGenerator
+ Application.Designer.vb
+
+
+ SettingsSingleFileGenerator
+ My
+ Settings.Designer.vb
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/RKSV_DE/Resources/rksv_de.jpg b/RKSV_DE/Resources/rksv_de.jpg
new file mode 100644
index 0000000..861ee88
Binary files /dev/null and b/RKSV_DE/Resources/rksv_de.jpg differ
diff --git a/RKSV_DE/cRKSV_DE.vb b/RKSV_DE/cRKSV_DE.vb
new file mode 100644
index 0000000..4df7845
--- /dev/null
+++ b/RKSV_DE/cRKSV_DE.vb
@@ -0,0 +1,121 @@
+Imports ItgKsV
+Public Class cRKSV_DE
+
+ Private Function SurroundingSub()
+
+
+ ' COM-Objekt anlegen
+
+ Dim licenseKey As String = "MEUCIQDg2GSwFrgOMHLzKBO7Sac+D3xBh9Ct+QRBXarDFPtdNgIgQyvotBil11sRfqQgdY+spD3aUve/HZS9cF7MS0D720w="
+ Dim m_ksv As ItgKsV.KsVCom = New ItgKsV.KsVCom()
+ Dim result As Integer = m_ksv.InitialiseLibrary("F:", "SwissbitDemo", "12345", licenseKey)
+
+ If result <> &H0 Then
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ Return False
+ End If
+
+
+
+ ' Setup bei erstmaliger Verwendung der Swissbit-TSE !!!
+
+ result = m_ksv.SetupTSEForFirstUse("123456", "12345", "98765", "SwissbitDemo")
+
+ If result <> &H0 Then
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ Else
+ MessageBox.Show("TSE setup succeeded.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
+ End If
+
+
+
+ ' BeginTransaction: für jede neue Rechnung wird eine Transaktion gestartet
+
+ Dim transactionNumber As Long = 0
+ result = m_ksv.StartTransaction(transactionNumber)
+
+ If result <> &H0 Then
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ Return False
+ End If
+
+
+
+ ' UpdateTransaction: processData bleibt leer
+
+ result = m_ksv.UpdateTransaction(transactionNumber, "", "KassenBeleg-V1")
+
+ If result <> &H0 Then
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ End If
+
+
+
+ ' FinishTransaction: Abschluss einer Rechnung, processData nach vorgegebenem Format
+
+ result = m_ksv.FinishTransaction(transactionNumber, "Beleg^19.99_0.00_0.00_0.00_0.00^19.99:Bar", "KassenBeleg-V1")
+
+ If result <> &H0 Then
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ End If
+
+
+
+ ' QR-Code und weitere Werte, die auf der Rechnung angedruckt werden müssen
+
+ ' QR-Code wird als base64 kodiertes bitmap geliefert
+
+ Dim qrCode As String = String.Empty
+
+ ' QR-Code Inhalt für die Ablage in der Datenbank, falls eine Rechnung nochmals gedruckt werden muss
+
+ Dim qrCodeContent As String = String.Empty
+ m_ksv.GetLastReceiptQrCode(qrCode)
+ m_ksv.GetLastReceiptQrCodeContent(qrCodeContent)
+ Dim sTransactionNumber As String = String.Empty
+ Dim serialNumber As String = String.Empty
+ Dim signature As String = String.Empty
+ Dim sigCounter As String = String.Empty
+ Dim dtStartTransaction As Date = Date.MinValue
+ Dim dtFinishTransaction As Date = Date.MinValue
+ m_ksv.GetLastReceiptValues(sTransactionNumber, serialNumber, signature, dtStartTransaction, dtFinishTransaction, sigCounter)
+
+
+ ' Anzeige der gestarteten/noch möglichen Transaktionen
+
+ Dim maxTransactions As Integer = 0
+ Dim openTransactions As Integer = 0
+ m_ksv.GetMaxStartedTransactions(maxTransactions)
+ m_ksv.GetStartedTransactions(openTransactions)
+ Dim startedTransactions As Integer() = Nothing
+ result = m_ksv.GetStartedTransactionNumbers(startedTransactions)
+
+ If result <> &H0 Then
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ End If
+
+
+
+ ' Export der TSE-Daten im TAR-Format
+
+ result = m_ksv.ExportAsTarFile("d:\export.tar")
+
+ If result <> 0 Then
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ End If
+
+
+
+ ' Bibliothek aufräumen, andernfalls wird ein power-cycle der TSE erforderlich um sie wieder einsetzen zu können
+
+ 'result = CSharpImpl.__Assign(,, m_ksv.CleanupLibrary())
+ result = m_ksv.CleanupLibrary()
+
+ If result <> 0 Then
+ MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
+ End If
+ Return True
+ End Function
+
+
+End Class
diff --git a/RKSV_DE/frmRKSV.Designer.vb b/RKSV_DE/frmRKSV.Designer.vb
new file mode 100644
index 0000000..7d528d6
--- /dev/null
+++ b/RKSV_DE/frmRKSV.Designer.vb
@@ -0,0 +1,284 @@
+
+Partial Class frmRKSV
+ Inherits System.Windows.Forms.Form
+
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+
+ 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.
+
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRKSV))
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.txtLog = New System.Windows.Forms.TextBox()
+ Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
+ Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.cbxAMBAR = New System.Windows.Forms.CheckBox()
+ Me.Label5 = New System.Windows.Forms.Label()
+ Me.txtFSSATLAS = New System.Windows.Forms.Label()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.Label6 = New System.Windows.Forms.Label()
+ Me.txtInitAufschubStatus = New System.Windows.Forms.Label()
+ Me.cbxVERAG_DE = New System.Windows.Forms.CheckBox()
+ Me.Button1 = New System.Windows.Forms.Button()
+ Me.Button3 = New System.Windows.Forms.Button()
+ Me.Button2 = New System.Windows.Forms.Button()
+ Me.Panel1 = New System.Windows.Forms.Panel()
+ Me.pic = New System.Windows.Forms.PictureBox()
+ CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SplitContainer1.Panel1.SuspendLayout()
+ Me.SplitContainer1.Panel2.SuspendLayout()
+ Me.SplitContainer1.SuspendLayout()
+ Me.Panel1.SuspendLayout()
+ CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ 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(5, 5)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(28, 13)
+ Me.Label1.TabIndex = 1
+ Me.Label1.Text = "Log"
+ '
+ 'txtLog
+ '
+ Me.txtLog.BackColor = System.Drawing.Color.White
+ Me.txtLog.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.txtLog.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtLog.Location = New System.Drawing.Point(0, 24)
+ Me.txtLog.Multiline = True
+ Me.txtLog.Name = "txtLog"
+ Me.txtLog.ReadOnly = True
+ Me.txtLog.Size = New System.Drawing.Size(485, 318)
+ Me.txtLog.TabIndex = 3
+ '
+ 'LinkLabel1
+ '
+ Me.LinkLabel1.AutoSize = True
+ Me.LinkLabel1.Location = New System.Drawing.Point(359, 85)
+ Me.LinkLabel1.Name = "LinkLabel1"
+ Me.LinkLabel1.Size = New System.Drawing.Size(105, 13)
+ Me.LinkLabel1.TabIndex = 8
+ Me.LinkLabel1.TabStop = True
+ Me.LinkLabel1.Text = "Log ein-/ausblenden"
+ '
+ 'SplitContainer1
+ '
+ Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+ Me.SplitContainer1.IsSplitterFixed = True
+ Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
+ Me.SplitContainer1.Name = "SplitContainer1"
+ Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
+ '
+ 'SplitContainer1.Panel1
+ '
+ Me.SplitContainer1.Panel1.Controls.Add(Me.pic)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.LinkLabel1)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.Label2)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.cbxAMBAR)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.Label5)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.txtFSSATLAS)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.Label3)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.Label6)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.txtInitAufschubStatus)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.cbxVERAG_DE)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.Button1)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.Button3)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.Button2)
+ Me.SplitContainer1.Panel1MinSize = 100
+ '
+ 'SplitContainer1.Panel2
+ '
+ Me.SplitContainer1.Panel2.Controls.Add(Me.txtLog)
+ Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1)
+ Me.SplitContainer1.Panel2MinSize = 50
+ Me.SplitContainer1.Size = New System.Drawing.Size(485, 446)
+ Me.SplitContainer1.SplitterDistance = 100
+ Me.SplitContainer1.TabIndex = 9
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ 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(5, 16)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(50, 13)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Dienste"
+ '
+ 'cbxAMBAR
+ '
+ Me.cbxAMBAR.AutoSize = True
+ Me.cbxAMBAR.Location = New System.Drawing.Point(8, 63)
+ Me.cbxAMBAR.Name = "cbxAMBAR"
+ Me.cbxAMBAR.Size = New System.Drawing.Size(15, 14)
+ Me.cbxAMBAR.TabIndex = 7
+ Me.cbxAMBAR.UseVisualStyleBackColor = True
+ '
+ 'Label5
+ '
+ Me.Label5.AutoSize = True
+ Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ 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(206, 16)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(43, 13)
+ Me.Label5.TabIndex = 1
+ Me.Label5.Text = "Status"
+ '
+ 'txtFSSATLAS
+ '
+ Me.txtFSSATLAS.AutoSize = True
+ Me.txtFSSATLAS.Location = New System.Drawing.Point(206, 63)
+ Me.txtFSSATLAS.Name = "txtFSSATLAS"
+ Me.txtFSSATLAS.Size = New System.Drawing.Size(74, 13)
+ Me.txtFSSATLAS.TabIndex = 5
+ Me.txtFSSATLAS.Text = "nicht gestartet"
+ '
+ 'Label3
+ '
+ Me.Label3.AutoSize = True
+ Me.Label3.Location = New System.Drawing.Point(29, 40)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(94, 13)
+ Me.Label3.TabIndex = 1
+ Me.Label3.Text = "Kasse VERAG DE"
+ '
+ 'Label6
+ '
+ Me.Label6.AutoSize = True
+ Me.Label6.Location = New System.Drawing.Point(29, 63)
+ Me.Label6.Name = "Label6"
+ Me.Label6.Size = New System.Drawing.Size(77, 13)
+ Me.Label6.TabIndex = 6
+ Me.Label6.Text = "Kasse AMBAR"
+ '
+ 'txtInitAufschubStatus
+ '
+ Me.txtInitAufschubStatus.AutoSize = True
+ Me.txtInitAufschubStatus.Location = New System.Drawing.Point(206, 40)
+ Me.txtInitAufschubStatus.Name = "txtInitAufschubStatus"
+ Me.txtInitAufschubStatus.Size = New System.Drawing.Size(74, 13)
+ Me.txtInitAufschubStatus.TabIndex = 1
+ Me.txtInitAufschubStatus.Text = "nicht gestartet"
+ '
+ 'cbxVERAG_DE
+ '
+ Me.cbxVERAG_DE.AutoSize = True
+ Me.cbxVERAG_DE.Location = New System.Drawing.Point(8, 40)
+ Me.cbxVERAG_DE.Name = "cbxVERAG_DE"
+ Me.cbxVERAG_DE.Size = New System.Drawing.Size(15, 14)
+ Me.cbxVERAG_DE.TabIndex = 4
+ Me.cbxVERAG_DE.UseVisualStyleBackColor = True
+ '
+ 'Button1
+ '
+ Me.Button1.Location = New System.Drawing.Point(277, 11)
+ Me.Button1.Name = "Button1"
+ Me.Button1.Size = New System.Drawing.Size(45, 23)
+ Me.Button1.TabIndex = 2
+ Me.Button1.Text = "start"
+ Me.Button1.UseVisualStyleBackColor = True
+ Me.Button1.Visible = False
+ '
+ 'Button3
+ '
+ Me.Button3.Location = New System.Drawing.Point(319, 40)
+ Me.Button3.Name = "Button3"
+ Me.Button3.Size = New System.Drawing.Size(54, 23)
+ Me.Button3.TabIndex = 2
+ Me.Button3.Text = "restart"
+ Me.Button3.UseVisualStyleBackColor = True
+ Me.Button3.Visible = False
+ '
+ 'Button2
+ '
+ Me.Button2.Location = New System.Drawing.Point(328, 12)
+ Me.Button2.Name = "Button2"
+ Me.Button2.Size = New System.Drawing.Size(45, 23)
+ Me.Button2.TabIndex = 2
+ Me.Button2.Text = "stop"
+ Me.Button2.UseVisualStyleBackColor = True
+ Me.Button2.Visible = False
+ '
+ 'Panel1
+ '
+ Me.Panel1.Controls.Add(Me.Label1)
+ 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(485, 24)
+ Me.Panel1.TabIndex = 4
+ '
+ 'pic
+ '
+ Me.pic.BackgroundImage = Global.RKSV_DE.My.Resources.Resources.rksv_de
+ Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+ Me.pic.Location = New System.Drawing.Point(380, 11)
+ Me.pic.Name = "pic"
+ Me.pic.Size = New System.Drawing.Size(100, 66)
+ Me.pic.TabIndex = 9
+ Me.pic.TabStop = False
+ '
+ 'frmRKSV
+ '
+ 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(485, 446)
+ Me.Controls.Add(Me.SplitContainer1)
+ Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+ Me.Name = "frmRKSV"
+ Me.Text = "RKSV Deutschland"
+ Me.SplitContainer1.Panel1.ResumeLayout(False)
+ Me.SplitContainer1.Panel1.PerformLayout()
+ Me.SplitContainer1.Panel2.ResumeLayout(False)
+ Me.SplitContainer1.Panel2.PerformLayout()
+ CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.SplitContainer1.ResumeLayout(False)
+ Me.Panel1.ResumeLayout(False)
+ Me.Panel1.PerformLayout()
+ CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+
+ Friend WithEvents Label1 As Label
+ Friend WithEvents txtLog As TextBox
+ Friend WithEvents LinkLabel1 As LinkLabel
+ Friend WithEvents SplitContainer1 As SplitContainer
+ Friend WithEvents Label2 As Label
+ Friend WithEvents cbxAMBAR As CheckBox
+ Friend WithEvents Label5 As Label
+ Friend WithEvents txtFSSATLAS As Label
+ Friend WithEvents Label3 As Label
+ Friend WithEvents Label6 As Label
+ Friend WithEvents txtInitAufschubStatus As Label
+ Friend WithEvents cbxVERAG_DE As CheckBox
+ Friend WithEvents Button1 As Button
+ Friend WithEvents Button3 As Button
+ Friend WithEvents Button2 As Button
+ Friend WithEvents Panel1 As Panel
+ Friend WithEvents pic As PictureBox
+End Class
diff --git a/RKSV_DE/frmRKSV.resx b/RKSV_DE/frmRKSV.resx
new file mode 100644
index 0000000..227ecf4
--- /dev/null
+++ b/RKSV_DE/frmRKSV.resx
@@ -0,0 +1,980 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+
+
+ 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/////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ///////////////////////////////////////////////////////////////////////p6ferq+Kr
+ q+Krq+Krq+Krq+Krq+LFxer/////////////////////////////////////////////////////////
+ //////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP/////////////////////////////////////////
+ //////////////////////////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP/////////////////////
+ //////////////////////+rq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Kr
+ q+Krq+K4uOb////////////////////////////////Fxeqrq+Krq+Krq+Krq+Krq+Krq+Lp6ff/////
+ ////////////////////////////////////////////////////////////////////////////////
+ ///////////////////////d3fMDA70DA70DA70DA70DA70DA71ZWcv/////////////////////////
+ ///////////////////////////////R0e9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA72dnd30
+ 9Pv////////////////////////////////////////////////R0e9sbNADA70DA70DA70DA70DA70D
+ A70DA70DA70DA72dnd309Pv///////////////////////////////8pKcIDA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////////+4uOZsbNADA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA72dnd3p6ff/////////////////////////////////////////
+ //////////////////////////////////////////////////////////8pKcIDA70DA70DA70DA70D
+ A70DA73///////////////////////////////////////////////////+dnd0DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////////////////////////+d
+ nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb/////////////////////
+ //////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv/
+ ///////p6fdZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////
+ ////////////////////////////////////////////////////////////////////////////////
+ //////////9sbNADA70DA70DA70DA70DA70DA73d3fP/////////////////////////////////////
+ //////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////
+ //////////////////////////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA72rq+L///////////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA73d3fP////p6fcpKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA72dnd3/////////////////////////////////////////////////
+ //////////////////////////////////////////+dnd0DA70DA70DA70DA70DA70DA73Fxer/////
+ //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA72rq+L///////////////////////+rq+IDA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////+rq+IDA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///9ZWcsDA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer/////////////
+ //////////////////////////////////////////////////////////////////////////+rq+ID
+ A70DA70DA70DA70DA70DA72dnd3////////////////////////////////////p6fcDA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP/////////////
+ ///p6fcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A73d3fP////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA72rq+K4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA71ZWcv/////////////////////////////////////////////////////////////
+ ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT/////////////////////
+ //////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R0e9+ftQDA70DA70DA70D
+ A70DA70DA70DA71sbND///////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R
+ 0e9+ftQDA70DA70DA70DA70DA70DA70DA71sbND////////////////09PsDA70DA70DA70DA70DA70D
+ A71ZWcv///////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA72d
+ nd3d3fP////////d3fN+ftQDA70DA70DA70DA70DA70DA70DA73d3fP/////////////////////////
+ ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D
+ A70DA71ERMf///////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA72rq+L/
+ //////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer///////////9ZWcsDA70DA70D
+ A70DA70DA70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer/////
+ //////////8pKcIDA70DA70DA70DA70DA70DA73////////////////////////////////////09PsD
+ A70DA70DA70DA70DA70DA70DA73d3fP///////////////////////9sbNADA70DA70DA70DA70DA70D
+ A73Fxer/////////////////////////////////////////////////////////////////////////
+ //////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////09PsD
+ A70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsDA70DA70DA70DA70DA70D
+ A71sbND////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsD
+ A70DA70DA70DA70DA70DA71sbND///////////////9+ftQDA70DA70DA70DA70DA70DA73d3fP/////
+ ///////////////////////////09Purq+Krq+Krq+JsbNADA70DA72Ojtn/////////////////////
+ //////9ZWcsDA70DA70DA70DA70DA70DA724uOb/////////////////////////////////////////
+ //////////////////////////////////////////////9+ftQDA70DA70DA70DA70DA70DA73R0e//
+ ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT/////////////////////
+ //////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv////d3fMDA70DA70DA70DA70DA70DA71+ftT/
+ //////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv///////////+dnd0D
+ A70DA70DA70DA70DA70DA73Fxer/////////////////////////////////////////////////////
+ ///////////////////////////d3fOrq+IpKcIDA70DA70DA70DA70DA70DA70DA73Fxer/////////
+ //////////////////////////////////////////////////////////////////////////////+r
+ q+IDA70DA70DA70DA70DA70DA72rq+L////////////////////////////R0e8DA70DA70DA70DA70D
+ A70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA73Fxer////R
+ 0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70D
+ A70DA70DA73Fxer///////////+4uOYDA70DA70DA70DA70DA70DA72rq+L/////////////////////
+ //////////////////////////////////////////////+4uOarq+IDA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA7309Pv/////////////////////////////////////////////////////////
+ ///////////////////////////////FxeoDA70DA70DA70DA70DA70DA72dnd3/////////////////
+ ///////////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////9+ftQD
+ A70DA70DA70DA70DA70DA72rq+L////R0e8DA70DA70DA70DA70DA70DA72Ojtn/////////////////
+ //////////////9+ftQDA70DA70DA70DA70DA70DA72rq+L////////////d3fMDA70DA70DA70DA70D
+ A70DA71+ftT////////////////////////////////////////////////////////p6fednd0DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/////////////////////////////
+ ///////////////////////////////////////////////////////////////p6fcDA70DA70DA70D
+ A70DA70DA71ZWcv////////////////////////////p6fcDA70DA70DA70DA70DA70DA71ZWcv/////
+ //////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn////p6fcDA70DA70DA70D
+ A70DA70DA71ZWcv///////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn/
+ ///////////09PsDA70DA70DA70DA70DA70DA71ERMf/////////////////////////////////////
+ ///////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcLp
+ 6ff/////////////////////////////////////////////////////////////////////////////
+ //////////////////8pKcIDA70DA70DA70DA70DA70pKcL////////////////////////////09PsD
+ A70DA70DA70DA70DA70DA70pKcL////////////////////////////////d3fMDA70DA70DA70DA70D
+ A70DA71sbND////09PsDA70DA70DA70DA70DA70DA70pKcL////////////////////////////////d
+ 3fMDA70DA70DA70DA70DA70DA71sbND///////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv/
+ ///////////////////////////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA71ERMfd3fP/////////////////////////////////////////////////
+ //////////////////////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA73d
+ 3fP///////////////////////////8pKcIDA70DA70DA70DA70DA70DA73R0e//////////////////
+ ///////////p6fcDA70DA70DA70DA70DA70DA71sbND///////8pKcIDA70DA70DA70DA70DA70DA73R
+ 0e/////////////////////////////p6fcDA70DA70DA70DA70DA70DA71sbND///////////////9+
+ ftQDA70DA70DA70DA70DA70DA73d3fP////////////////////////////////////////09PspKcID
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcurq+L/////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ //+dnd0DA70DA70DA70DA70DA70DA73Fxer///////////////////////////9+ftQDA70DA70DA70D
+ A70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70DA70DA70DA71+ftT/////
+ //9+ftQDA70DA70DA70DA70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70D
+ A70DA70DA71+ftT///////////////+rq+IDA70DA70DA70DA70DA70DA724uOb/////////////////
+ ///////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbNCrq+Lp6ff/
+ ////////////////////////////////////////////////////////////////////////////////
+ //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L/////////////
+ ///////////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff////////////////////////FxeoD
+ A70DA70DA70DA70DA70DA72Ojtn////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff/////////
+ ///////////////FxeoDA70DA70DA70DA70DA70DA72Ojtn////////////////FxeoDA70DA70DA70D
+ A70DA70DA72dnd3///////////////////////////////////////+rq+IDA70DA70DA70DA70DA70D
+ A70DA72Ojtm4uOb/////////////////////////////////////////////////////////////////
+ ///////////////////////////////////////////////////////////////////d3fMDA70DA70D
+ A70DA70DA70DA71+ftT///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA71+
+ ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L///////////8pKcIDA70D
+ A70DA70DA70DA70DA71+ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L/
+ ///////////////d3fMDA70DA70DA70DA70DA70DA71sbND/////////////////////////////////
+ //////+rq+IDA70DA70DA70DA70DA70DA73d3fP////////////////////p6ferq+Krq+L09Pv/////
+ ////////////////////////////////////////////////////////////////////////////////
+ ///////////////////09PsDA70DA70DA70DA70DA70DA71ERMf/////////////////////////////
+ //+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYDA70DA70DA70DA70DA70D
+ A70DA73d3fP///////////+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYD
+ A70DA70DA70DA70DA70DA70DA73d3fP///////////////////8pKcIDA70DA70DA70DA70DA70pKcL/
+ //////////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA724uOb/////////
+ ///////09PtZWcsDA70DA70DA70DA71sbNCrq+L09Pv/////////////////////////////////////
+ ///////////////////////////09Purq+Krq+Krq+Krq+Krq+Krq+IpKcIDA70DA70DA70DA70DA70D
+ A72rq+Krq+Krq+Krq+Krq+Krq+LR0e////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA72rq+Kr
+ q+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////9ERMcDA70DA70DA70DA70D
+ A70DA70DA70DA72rq+Krq+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv/////////////////////
+ //9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////////////R0e8DA70D
+ A70DA70DA70DA70DA70DA71ZWcurq+Krq+J+ftQDA70DA70DA70DA70DA70DA70DA70pKcL09Pv/////
+ ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn////////d3fMDA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73R0e//////////
+ ///////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA73R0e////////////////////////+OjtkDA70DA70DA70DA70DA70DA73R0e//////////////
+ //////////////////////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA72rq+L/////////////////////////////////////////////////////////
+ //////////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA71ZWcv///////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA72dnd3///////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////+rq+IDA70DA70D
+ A70DA70DA70DA72rq+L////////////////////////////////////////d3fMDA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv/////////////////////////////
+ //////////////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////+4uOYDA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT/////////////////////////////////
+ //+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT/////////////
+ ///////////////////R0e8DA70DA70DA70DA70DA70DA72Ojtn/////////////////////////////
+ //////////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcvp
+ 6ff///////////////////////////////////////////////////////////////////////////+d
+ nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p
+ 6ff////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb/////
+ ///////////////////////////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA724uOb////////////////////////////////////09PsDA70DA70DA70DA70DA70DA71Z
+ Wcv////////////////////////////////////////////////R0e9ERMcDA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA72Ojtn/////////////////////////////////////////////////////
+ //////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
+ A70DA70DA70DA70DA70DA70DA70DA73R0e/////////////////////////R0e+rq+IpKcIDA70DA70D
+ A70DA70DA72Ojtmrq+L////////////////////////////////////////////////////////////R
+ 0e+rq+IpKcIDA70DA70DA70DA70DA72Ojtmrq+L/////////////////////////////////////////
+ //////8pKcIDA70DA70DA70DA70DA70DA73/////////////////////////////////////////////
+ //////////+4uOarq+IDA70DA70DA70DA70DA70DA71+ftSrq+L09Pv/////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ ////////////////////////////////////////////////////////////////////////////////
+ //////////////////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==
+
+
+
\ No newline at end of file
diff --git a/RKSV_DE/frmRKSV.vb b/RKSV_DE/frmRKSV.vb
new file mode 100644
index 0000000..9885fbe
--- /dev/null
+++ b/RKSV_DE/frmRKSV.vb
@@ -0,0 +1,414 @@
+Imports System.Net, System.Net.Sockets
+Imports System.Text
+Imports System.Threading
+
+Public Class frmRKSV
+ Dim serverSocket As Socket
+ Dim clientSocket As Socket
+ Dim byteData(1023) As Byte
+
+ Public Shared boolInitAufschub As Boolean = False
+ Public Shared boolFSSAtlas As Boolean = False
+ Public Shared boolDatenserver As Boolean = False
+
+ Dim splitPanelDefaultHeight As Integer = 0
+
+ Private Sub frmServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+ splitPanelDefaultHeight = SplitContainer1.Panel2.Height
+
+ Dim computername As String = System.Environment.MachineName.ToUpper
+
+ If computername = "YLPS023046" Then 'DEVELOPER ANDREAS
+ cbxVERAG_DE.Checked = True
+ cbxAMBAR.Checked = True
+ End If
+
+ If computername = "DEVELOPER" Then 'DEVELOPER SERVER
+ cbxVERAG_DE.Checked = True
+ cbxAMBAR.Checked = True
+ cbxAMBAR.Enabled = True
+ End If
+
+ If True Or computername = "RKSV.........1" Then 'RKSV 1 SERVER,2
+ cbxVERAG_DE.Checked = True
+ cbxAMBAR.Checked = True
+ cbxAMBAR.Enabled = True
+
+ End If
+
+ ' cbxInitAufschub.Checked = True
+ cbxVERAG_DE.Focus()
+ DIENST_InitSocket() 'initialisieren
+ End Sub
+
+ Sub DIENST_InitSocket()
+ serverSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
+ Dim IpEndPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8800)
+ serverSocket.Bind(IpEndPoint)
+ serverSocket.Listen(5)
+ serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
+ End Sub
+
+ Private Sub OnAccept(ByVal ar As IAsyncResult)
+ clientSocket = serverSocket.EndAccept(ar)
+ serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
+ AddClient(clientSocket)
+ End Sub
+
+ Delegate Sub _AddClient(ByVal client As Socket)
+ Private Sub AddClient(ByVal client As Socket) ' Neunen Client hinzufügen
+ If InvokeRequired Then
+ Invoke(New _AddClient(AddressOf AddClient), client)
+ Exit Sub
+ End If
+ writeToFrmLog(client, "", "Verbindungsaufbau.. ")
+ Send("ConSuccess", client) ' Der Client bekommt die Nachricht, dass die Verbindung steht...
+ '... jetzt kann der Client senden, der Server horcht...
+ clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None,
+ New AsyncCallback(AddressOf OnRecieve), clientSocket)
+ End Sub
+
+ Private Sub Send(ByVal msg As String, ByVal client As Socket) 'An den Client senden
+ Dim sendBytes As Byte() = Encoding.BigEndianUnicode.GetBytes(msg)
+ client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client)
+ End Sub
+ Private Sub OnSend(ByVal ar As IAsyncResult)
+ Dim client As Socket = ar.AsyncState
+ client.EndSend(ar)
+ End Sub
+
+ Private Sub OnRecieve(ByVal ar As IAsyncResult) ' Wenn ein Task-Befehl vom Client empfangen wurde
+ Dim client As Socket = ar.AsyncState
+ Try
+ client.EndReceive(ar)
+ Dim bytesRec As Byte() = byteData
+ Dim message As String = Encoding.BigEndianUnicode.GetString(bytesRec) '.Replace(Convert.ToChar(0), "")
+ Dim s As String = Read(message, client)
+ If s <> "" Then Send(s, client) ' Die Aufgabe wird abgearbeitet, der Client bekommt bei Fehler eine Antwort...
+ Catch ex As Exception
+ client.Shutdown(SocketShutdown.Both)
+ client.Close()
+ End Try
+ End Sub
+ Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Delegate Function _Read(ByVal msg As String, client As Socket, messageFile() As Byte, fileName As String)
+ Private Function Read(ByVal msg As String, client As Socket, Optional messageFile() As Byte = Nothing, Optional fileName As String = "") As String
+ If InvokeRequired Then
+ Invoke(New _Read(AddressOf Read), msg, client, messageFile, fileName)
+ Return ""
+ End If
+
+ ' writeToFrmLog(client, "testDS", msg)
+
+ msg = msg.Replace(Convert.ToChar(0), "")
+ ' MsgBox(msg)
+ If True Then 'msg.Contains("|||") Then ''!!!!!!!!!!!!! NICHT FERTIG
+ Dim split() As String = msg.Split("|||")
+ Select Case split(0)
+ Case "RKSV_DE" 'der Task für die RKSV Signierung wird aufgerufen
+ 'If Not boolDatenserver Then Me.writeToFrmLog(client, "DATENSERVER", "Abgebrochen - Task nicht aktiv " & msg) : Return "Task inactive"
+
+ If split.Length > 1 Then
+ Select Case split(1)
+ Case "VERAG_DE"
+ writeToFrmLog(client, "testDS", "VERAG_DE")
+
+ '' die eigentliche Funktion wird in einem Tread aufgrufen
+ 'Dim thread As New Thread(AddressOf SignRKSV)
+ 'thread.IsBackground = True
+ 'thread.Start(client)
+
+ ''Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
+ 'Dim st As New Thread(AddressOf stopThread)
+ 'st.IsBackground = True
+ 'Dim param_obj(3) As Object
+ ''Übergabeparameter des 2. Threads
+ 'param_obj(0) = thread
+ 'param_obj(1) = client
+ 'param_obj(2) = 110 'SEKUNDEN
+ 'st.Start(param_obj)
+
+ ' Return "Task successful"
+ Send("Task successful", client) 'Client-Mittelung
+
+ Case "AMBAR"
+
+ writeToFrmLog(client, "testDS", "AMBAR")
+
+ ' die eigentliche Funktion wird in einem Tread aufgrufen
+ Dim thread As New Thread(AddressOf SignRKSV_AMBAR)
+ thread.IsBackground = True
+ thread.Start(client)
+
+ 'Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
+ Dim st As New Thread(AddressOf stopThread)
+ st.IsBackground = True
+ Dim param_obj(3) As Object
+ 'Übergabeparameter des 2. Threads
+ param_obj(0) = thread
+ param_obj(1) = client
+ param_obj(2) = 110 'SEKUNDEN
+ st.Start(param_obj)
+
+ ' Return "Task successful"
+ Send("Task successful", client) 'Client-Mittelung
+ End Select
+ End If
+
+
+
+
+ Return ""
+ End Select
+ 'Else
+ ' Select Case msg
+ ' Case "test" 'nur ein Test, des Ergbnis ist immer Positiv
+ ' writeToFrmLog(client, "test", "test ")
+ ' ' Return "Task successful"
+ ' Send("Task successful", client) 'Client-Mittelung
+ ' Case "initAufschubkonten" 'der Task initAufschubkonten wird aufgerufen
+ ' ' MsgBox("initAufschubkonten")
+ ' If Not boolInitAufschub Then Me.writeToFrmLog(client, "initAufschubkonten", "Abgebrochen - Task nicht aktiv " & msg) : Return "Task inactive"
+
+ ' ' die eigentliche Funktion wird in einem Tread aufgrufen
+ ' Dim thread As New Thread(AddressOf startInitAufschubkonten)
+ ' thread.IsBackground = True
+ ' thread.Start(client)
+
+ ' 'Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
+ ' Dim st As New Thread(AddressOf stopThread)
+ ' st.IsBackground = True
+ ' Dim param_obj(3) As Object
+ ' 'Übergabeparameter des 2. Threads
+ ' param_obj(0) = thread
+ ' param_obj(1) = client
+ ' param_obj(2) = 60
+ ' st.Start(param_obj)
+
+ ' Return ""
+ ' Case "FSSAtlasStart" 'der Task initAufschubkonten wird aufgerufen
+ ' ' MsgBox("initAufschubkonten")
+ ' If Not boolFSSAtlas Then Me.writeToFrmLog(client, "KASSE_AMBAR", "Abgebrochen - Task nicht aktiv " & msg) : Return "Task inactive"
+
+ ' ' die eigentliche Funktion wird in einem Tread aufgrufen
+ ' Dim thread As New Thread(AddressOf startFSSAtlas)
+ ' thread.IsBackground = True
+ ' thread.Start(client)
+
+ ' 'Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf.
+ ' Dim st As New Thread(AddressOf stopThread)
+ ' st.IsBackground = True
+ ' Dim param_obj(3) As Object
+ ' 'Übergabeparameter des 2. Threads
+ ' param_obj(0) = thread
+ ' param_obj(1) = client
+ ' param_obj(2) = 110 'SEKUNDEN
+ ' st.Start(param_obj)
+
+ ' Return ""
+
+ ' End Select
+ End If
+ Return "Task not found"
+ Me.writeToFrmLog(client, "", "ERROR: Undefinierter Task: " & msg)
+
+ End Function
+
+
+ Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Übergabeparameter: Object { Tread, clientSocket, SekundenToTimeout }
+ Thread.Sleep(param_obj(2) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Übergabeparametern definiert wurde.
+ If param_obj(0).IsAlive Then
+ param_obj(0).Abort() ' Wenn der Hauptthread noch immer läuft, wird er jetzt beendet.
+ Else
+ Exit Sub
+ End If
+ Send("Task timeout", param_obj(1)) 'Client-Mittelung
+ Me.writeToFrmLog(param_obj(1), "ERROR: Task wurde aufgrund eines Timeouts abgebrochen.") 'Log-Mittelung
+ End Sub
+
+
+
+ Function SignRKSV(client As Socket) As Boolean
+ Me.writeToFrmLog(client, "KASSE_VERAG_DE", "Signierung gestartet...")
+
+ Try
+ 'SIGNIERUNG"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+ Me.writeToFrmLog(client, "KASSE_VERAG_DE", "Signierung beendet (Success)")
+ Send("Task successful", client)
+ Return True
+ Catch ex As Exception
+ Me.writeToFrmLog(client, "KASSE_VERAG_DE", "ERROR: Fehler Signierung: " & ex.Message)
+ Send("Task error", client)
+ Return False
+ End Try
+ End Function
+
+
+ Function SignRKSV_AMBAR(client As Socket) As Boolean
+ Me.writeToFrmLog(client, "KASSE_AMBAR", "Signierung gestartet...")
+
+ Try
+ 'SIGNIERUNG"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+ Me.writeToFrmLog(client, "KASSE_AMBAR", "Signierung beendet (Success)")
+ Send("Task successful", client)
+ Return True
+ Catch ex As Exception
+ Me.writeToFrmLog(client, "KASSE_AMBAR", "ERROR: Fehler Signierung: " & ex.Message)
+ Send("Task error", client)
+ Return False
+ End Try
+ End Function
+
+
+ 'Threadsichere Funktion zum schreiben in die TextBox:
+ Delegate Sub writeToFrmLogCallback(ByVal client As Socket, ByVal nameTask As String, ByVal text As String)
+ Public Sub writeToFrmLog(ByVal client As Socket, ByVal nameTask As String, ByVal text As String)
+
+ ' InvokeRequired required compares the thread ID of the
+ ' calling thread to the thread ID of the creating thread.
+ ' If these threads are different, it returns true.
+ If Me.txtLog.InvokeRequired Then
+ Dim d As New writeToFrmLogCallback(AddressOf writeToFrmLog)
+ Me.Invoke(d, New Object() {client, nameTask, text})
+ Else
+ Dim remoteIpEndPoint As IPEndPoint = client.RemoteEndPoint
+ Me.txtLog.Text &= Now.ToString("dd.MM.yyyy HH:mm ") & nameTask & " (" & remoteIpEndPoint.Address.ToString & "): " & text & vbNewLine
+ If Me.txtLog.Lines.Count > 35 Then
+ Dim arr As String() = Me.txtLog.Lines
+ Me.txtLog.Text = ""
+ For i = arr.Count - 35 To arr.Count - 1
+ Me.txtLog.Text &= arr(i) & vbNewLine
+ Next i
+ End If
+ End If
+ Me.txtLog.SelectionLength = 0
+ End Sub
+
+ Public Sub writeToFrmLog(ByVal nameTask As String, ByVal text As String)
+ Me.txtLog.Text &= Now.ToString("dd.MM.yyyy HH:mm ") & nameTask & ": " & text & vbNewLine
+ If Me.txtLog.Lines.Count > 35 Then
+ Dim arr As String() = Me.txtLog.Lines
+ Me.txtLog.Text = ""
+ For i = arr.Count - 35 To arr.Count - 1
+ Me.txtLog.Text &= arr(i) & vbNewLine
+ Next i
+ End If
+ End Sub
+
+ Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVERAG_DE.CheckedChanged
+ boolInitAufschub = cbxVERAG_DE.Checked
+ If cbxVERAG_DE.Checked Then
+ txtInitAufschubStatus.Text = "läuft"
+ writeToFrmLog("KASSE_VERAG_DE", "läuft ...")
+ txtInitAufschubStatus.ForeColor = Color.DarkGreen
+ Else
+ txtInitAufschubStatus.Text = "läuft nicht"
+ writeToFrmLog("KASSE_VERAG_DE", "läuft nicht ...")
+ txtInitAufschubStatus.ForeColor = Color.DarkRed
+ End If
+
+
+
+ End Sub
+
+ Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAMBAR.CheckedChanged
+
+
+ boolFSSAtlas = cbxAMBAR.Checked
+ If cbxAMBAR.Checked Then
+ txtFSSATLAS.Text = "läuft"
+ writeToFrmLog("KASSE_AMBAR", "läuft ...")
+ txtFSSATLAS.ForeColor = Color.DarkGreen
+ Else
+ txtFSSATLAS.Text = "läuft nicht"
+ writeToFrmLog("KASSE_AMBAR", "läuft nicht ...")
+ txtFSSATLAS.ForeColor = Color.DarkRed
+ End If
+
+
+ End Sub
+ Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+ DIENST_InitSocket()
+ End Sub
+
+ Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'geht nicht
+ clientSocket.Close()
+
+ If clientSocket.Connected Then
+ clientSocket.Shutdown(SocketShutdown.Both)
+ clientSocket.Close()
+ End If
+ clientSocket.Disconnect(True)
+
+ txtInitAufschubStatus.Text = "angehalten"
+ txtInitAufschubStatus.ForeColor = Color.DarkRed
+ End Sub
+
+ Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+ clientSocket.Shutdown(SocketShutdown.Both)
+ clientSocket.Close()
+ serverSocket.Shutdown(SocketShutdown.Both)
+ serverSocket.Close()
+ DIENST_InitSocket()
+ End Sub
+
+
+
+
+
+ Private Result As Object = Nothing 'Store the worked result of abc()
+ Private Sub Worker(ByVal state As Object)
+ Dim are As AutoResetEvent = DirectCast(state, AutoResetEvent)
+ ' do anything you want here:
+
+
+
+
+
+ Dim result As Integer = 0
+ 'result = abc(input_val);
+
+ SyncLock Me.Result
+ Me.Result = result
+ End SyncLock
+ are.[Set]()
+ End Sub
+ Private Sub method()
+
+ Const TimeOut As Int32 = 5000
+ Dim [handles] As WaitHandle() = New WaitHandle() {New AutoResetEvent(False)}
+
+ ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf Worker), [handles](0))
+ Dim finished As Boolean = WaitHandle.WaitAll([handles], TimeOut, True)
+ 'ThreadPool.RegisterWaitForSingleObject ()
+
+ If finished Then
+ ' step 2
+ MessageBox.Show("Worker function finished sucessfully, go to Step2")
+ Else
+ ' step 3
+ MessageBox.Show([String].Format("Worker function time out({0})!, go to Step3", TimeOut))
+ End If
+ End Sub
+
+
+ Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
+ SplitContainer1.Panel2Collapsed = Not SplitContainer1.Panel2Collapsed
+ If SplitContainer1.Panel2Collapsed Then
+ Me.Height = 150
+ Else
+ Me.Height = 620
+ End If
+ End Sub
+
+
+
+ Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
+
+ End Sub
+End Class
\ No newline at end of file
diff --git a/UID/ADMIN.vbproj b/UID/ADMIN.vbproj
index a7464c5..01e7a40 100644
--- a/UID/ADMIN.vbproj
+++ b/UID/ADMIN.vbproj
@@ -831,6 +831,8 @@
+
+
diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
index 7149b0f..caae9a7 100644
--- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
+++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
@@ -1149,6 +1149,7 @@ Partial Class frmMitarbDetails
'
'picFoto
'
+ Me.picFoto.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picFoto.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.picFoto.Cursor = System.Windows.Forms.Cursors.Hand
Me.picFoto.Location = New System.Drawing.Point(523, 12)
diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb
index 9cf6b33..4196bc5 100644
--- a/UID/Mitarbeiter/frmMitarbDetails.vb
+++ b/UID/Mitarbeiter/frmMitarbDetails.vb
@@ -57,6 +57,7 @@
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
+ cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERIMEX", "VERIMEX"))
cboDPFirma2.Items.Clear()
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
@@ -66,6 +67,7 @@
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
+ cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERIMEX", "VERIMEX"))
cboALIASDomain.Items.Clear()
@@ -95,6 +97,7 @@
cboFirma.Items.Add("UNISPED")
cboFirma.Items.Add("AMBAR")
cboFirma.Items.Add("FRONTOFFICE")
+ cboFirma.Items.Add("VERIMEX")
cboFirma.Items.Add("ALLE")
@@ -105,6 +108,7 @@
cboFirmaHaupt.Items.Add("UNISPED")
cboFirmaHaupt.Items.Add("AMBAR")
cboFirmaHaupt.Items.Add("FRONTOFFICE")
+ cboFirmaHaupt.Items.Add("VERIMEX")
ZOLLDATENBEARB = False
@@ -283,10 +287,15 @@
Else
cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = mitarbeiter.mit_einstiegsdatum
End If
- If mitarbeiter.mit_kuendigungsdatum = "" Then
- cbxGekuendigt.Checked = False
+
+
+ If mitarbeiter.mit_gekuendigt Then
+ cbxGekuendigt.Checked = True
+ If mitarbeiter.mit_kuendigungsdatum <> "" Then
+ datGekuendigtAm.Text = mitarbeiter.mit_kuendigungsdatum
+ End If
Else
- cbxGekuendigt.Checked = True : datGekuendigtAm.Text = mitarbeiter.mit_kuendigungsdatum
+ cbxGekuendigt.Checked = False
End If
If mitarbeiter.mit_FMZollPersID > 0 Then
@@ -313,10 +322,23 @@
cbxTestaccount.Checked = If(mitarbeiter.mit_TESTonly, False)
- picFoto.ImageLocation = mitarbeiter.mit_foto
+ initFoto()
+ ' picFoto.ImageLocation = mitarbeiter.mit_foto
End Sub
-
+ Sub initFoto()
+ If mitarbeiter.mit_foto_DocId IsNot Nothing Then
+ Try
+ picFoto.BackgroundImage = Image.FromFile(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(mitarbeiter.mit_foto_DocId))
+ Catch ex As Exception
+ picFoto.BackgroundImage = My.Resources.personGray_m
+ End Try
+ ElseIf mitarbeiter.mit_geschlecht = "w" Then
+ picFoto.BackgroundImage = My.Resources.personGray_w
+ Else
+ picFoto.BackgroundImage = My.Resources.personGray_m
+ End If
+ End Sub
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
@@ -560,7 +582,8 @@
If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = ""
mitarbeiter.mit_gekuendigt = cbxGekuendigt.Checked
If cbxGekuendigt.Checked Then mitarbeiter.mit_kuendigungsdatum = datGekuendigtAm.Text Else mitarbeiter.mit_kuendigungsdatum = ""
- If picFoto.ImageLocation <> "" Then mitarbeiter.mit_foto = picFoto.ImageLocation
+ 'If picFoto.ImageLocation <> "" Then mitarbeiter.mit_foto = picFoto.ImageLocation
+ initFoto()
mitarbeiter.mit_TESTonly = cbxTestaccount.Checked
End Sub
@@ -570,6 +593,31 @@
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles picFoto.Click
+ Dim fd2 As Windows.Forms.OpenFileDialog = New Windows.Forms.OpenFileDialog()
+
+ fd2.Title = "Bild auswählen"
+ ' fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\"
+ fd2.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
+ fd2.FilterIndex = 2
+ fd2.RestoreDirectory = True
+
+ If fd2.ShowDialog() = DialogResult.OK AndAlso fd2.FileName <> "" Then
+
+ Dim Extension = New IO.FileInfo(fd2.FileName).Extension
+ Dim docId = -1
+ If saveToDS(Extension, fd2.FileName, docId) Then
+
+ mitarbeiter.mit_foto_DocId = docId
+ Try
+ picFoto.BackgroundImage = Image.FromFile(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(mitarbeiter.mit_foto_DocId))
+ Catch ex As Exception
+ MsgBox(ex.Message & ex.StackTrace)
+ End Try
+ End If
+ End If
+ Exit Sub
+
+
Dim fd As OpenFileDialog = New OpenFileDialog()
Dim strFileName As String
@@ -600,6 +648,24 @@
End If
End Sub
+ Public Function saveToDS(Extension, sourcePath, Optional ByRef da_id = -1) As Boolean
+
+ Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
+ If da_id > 0 Then
+ DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(da_id)
+ Else
+ DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", mitarbeiter.mit_nname & "_" & mitarbeiter.mit_id & Extension, -1, False)
+ End If
+
+ ' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id, -1, False)
+ ' MsgBox(DS.da_id)
+ If Not DS.uploadDataToDATENSERVER(sourcePath,,, False,, False) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
+ If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
+ da_id = DS.da_id
+ ' destPath = DS.GET_TOP1_PATH
+ Return True
+ End Function
+
Private Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function
While file.Contains("\")
file = file.Remove(0, 1)
diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb
index f17ccee..e7e3eb4 100644
--- a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb
+++ b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb
@@ -39,6 +39,8 @@ Partial Class usrCntlMitarbeiter
Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+ Me.TabPage6 = New System.Windows.Forms.TabPage()
+ Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.txtSuche = New System.Windows.Forms.TextBox()
@@ -46,8 +48,8 @@ Partial Class usrCntlMitarbeiter
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
- Me.TabPage6 = New System.Windows.Forms.TabPage()
- Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+ Me.TabPage7 = New System.Windows.Forms.TabPage()
+ Me.dgvVERIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel2.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -60,10 +62,12 @@ Partial Class usrCntlMitarbeiter
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage5.SuspendLayout()
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit()
- Me.Panel1.SuspendLayout()
- Me.Panel3.SuspendLayout()
Me.TabPage6.SuspendLayout()
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.Panel1.SuspendLayout()
+ Me.Panel3.SuspendLayout()
+ Me.TabPage7.SuspendLayout()
+ CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button6
@@ -131,6 +135,7 @@ Partial Class usrCntlMitarbeiter
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Controls.Add(Me.TabPage5)
Me.TabControl1.Controls.Add(Me.TabPage6)
+ Me.TabControl1.Controls.Add(Me.TabPage7)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
@@ -243,6 +248,27 @@ Partial Class usrCntlMitarbeiter
Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616)
Me.dgvAMBAR.TabIndex = 25
'
+ 'TabPage6
+ '
+ Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE)
+ Me.TabPage6.Location = New System.Drawing.Point(4, 22)
+ Me.TabPage6.Name = "TabPage6"
+ Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
+ Me.TabPage6.Size = New System.Drawing.Size(881, 622)
+ Me.TabPage6.TabIndex = 5
+ Me.TabPage6.Text = "FRONT-OFFICE"
+ Me.TabPage6.UseVisualStyleBackColor = True
+ '
+ 'dgvFRONTOFFICE
+ '
+ Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1
+ Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3)
+ Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE"
+ Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616)
+ Me.dgvFRONTOFFICE.TabIndex = 26
+ '
'Panel1
'
Me.Panel1.Controls.Add(Me.cbx)
@@ -310,26 +336,26 @@ Partial Class usrCntlMitarbeiter
Me.Panel3.Size = New System.Drawing.Size(889, 648)
Me.Panel3.TabIndex = 27
'
- 'TabPage6
+ 'TabPage7
'
- Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE)
- Me.TabPage6.Location = New System.Drawing.Point(4, 22)
- Me.TabPage6.Name = "TabPage6"
- Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
- Me.TabPage6.Size = New System.Drawing.Size(881, 622)
- Me.TabPage6.TabIndex = 5
- Me.TabPage6.Text = "FRONT-OFFICE"
- Me.TabPage6.UseVisualStyleBackColor = True
+ Me.TabPage7.Controls.Add(Me.dgvVERIMEX)
+ Me.TabPage7.Location = New System.Drawing.Point(4, 22)
+ Me.TabPage7.Name = "TabPage7"
+ Me.TabPage7.Padding = New System.Windows.Forms.Padding(3)
+ Me.TabPage7.Size = New System.Drawing.Size(881, 622)
+ Me.TabPage7.TabIndex = 6
+ Me.TabPage7.Text = "VERIMEX"
+ Me.TabPage7.UseVisualStyleBackColor = True
'
- 'dgvFRONTOFFICE
+ 'dgvVERIMEX
'
- Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1
- Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
- Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill
- Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3)
- Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE"
- Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616)
- Me.dgvFRONTOFFICE.TabIndex = 26
+ Me.dgvVERIMEX.AKTUALISIERUNGS_INTERVALL = -1
+ Me.dgvVERIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.dgvVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.dgvVERIMEX.Location = New System.Drawing.Point(3, 3)
+ Me.dgvVERIMEX.Name = "dgvVERIMEX"
+ Me.dgvVERIMEX.Size = New System.Drawing.Size(875, 616)
+ Me.dgvVERIMEX.TabIndex = 27
'
'usrCntlMitarbeiter
'
@@ -353,11 +379,13 @@ Partial Class usrCntlMitarbeiter
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage5.ResumeLayout(False)
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TabPage6.ResumeLayout(False)
+ CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel3.ResumeLayout(False)
- Me.TabPage6.ResumeLayout(False)
- CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.TabPage7.ResumeLayout(False)
+ CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -386,4 +414,6 @@ Partial Class usrCntlMitarbeiter
Friend WithEvents dgvAMBAR As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents TabPage6 As TabPage
Friend WithEvents dgvFRONTOFFICE As VERAG_PROG_ALLGEMEIN.MyDatagridview
+ Friend WithEvents TabPage7 As TabPage
+ Friend WithEvents dgvVERIMEX As VERAG_PROG_ALLGEMEIN.MyDatagridview
End Class
diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.vb
index ab4d8e3..d18cf05 100644
--- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb
+++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb
@@ -39,6 +39,8 @@ Public Class usrCntlMitarbeiter
showVERAGATILLA("AMBAR")
ElseIf TabControl1.SelectedIndex = 5 Then
showVERAGATILLA("FRONTOFFICE")
+ ElseIf TabControl1.SelectedIndex = 6 Then
+ showVERAGATILLA("VERIMEX")
End If
End Sub
@@ -147,14 +149,31 @@ Public Class usrCntlMitarbeiter
dgvFRONTOFFICE.DataSource = Nothing
Else
sortDGV(dgvFRONTOFFICE)
- 'Eintraege_festlegen()
- 'AL: Sortierung nach Ausfahrt (Zeit)
- dgvFRONTOFFICE.Sort(dgvFRONTOFFICE.Columns(3), ListSortDirection.Ascending)
+ 'Eintraege_festlegen()
+ 'AL: Sortierung nach Ausfahrt (Zeit)
+ dgvFRONTOFFICE.Sort(dgvFRONTOFFICE.Columns(3), ListSortDirection.Ascending)
+
+ End If
+
+
+ ElseIf firma = "VERIMEX" Then
+ ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
+
+ dgvVERIMEX.SET_SQL(sql, "ADMIN")
+ dgvVERIMEX.LOAD()
+
+ 'Tabelle Kommt/Geht bereinigen
+ If dgvVERIMEX.RowCount = 0 Then
+ dgvVERIMEX.DataSource = Nothing
+ Else
+ sortDGV(dgvVERIMEX)
+ 'Eintraege_festlegen()
+ 'AL: Sortierung nach Ausfahrt (Zeit)
+ dgvVERIMEX.Sort(dgvVERIMEX.Columns(3), ListSortDirection.Ascending)
End If
End If
-
End Sub
@@ -213,6 +232,7 @@ Public Class usrCntlMitarbeiter
Case 3 : Firma = "UNISPED"
Case 4 : Firma = "AMBAR"
Case 5 : Firma = "FRONTOFFICE"
+ Case 6 : Firma = "VERIMEX"
End Select
Dim frmMitarbDetails As New frmMitarbDetails(Firma)
frmMitarbDetails.Show()
@@ -275,6 +295,14 @@ Public Class usrCntlMitarbeiter
Tabelle_anzeigen()
Case vbNo
+ End Select
+ ElseIf TabControl1.SelectedIndex = 5 Then
+ Select Case MsgBox("Soll der Mitarbeiter '" & dgvVERIMEX.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
+ Case vbYes
+ UID.delData(Convert.ToInt32(dgvVERIMEX.CurrentRow.Cells(0).Value))
+ Tabelle_anzeigen()
+ Case vbNo
+
End Select
End If
@@ -295,7 +323,7 @@ Public Class usrCntlMitarbeiter
- Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick
+ Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick, dgvVERIMEX.CellDoubleClick
Me.Cursor = Cursors.WaitCursor
Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value
@@ -324,6 +352,7 @@ Public Class usrCntlMitarbeiter
Case 3 : dgv = dgvUNISPED
Case 4 : dgv = dgvAMBAR
Case 5 : dgv = dgvFRONTOFFICE
+ Case 6 : dgv = dgvVERIMEX
End Select
If e.KeyCode = Keys.Return Then
diff --git a/UID/My Project/Resources.Designer.vb b/UID/My Project/Resources.Designer.vb
index fabdff5..4efb6d1 100644
--- a/UID/My Project/Resources.Designer.vb
+++ b/UID/My Project/Resources.Designer.vb
@@ -414,6 +414,26 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+ '''
+ Friend ReadOnly Property personGray_m() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("personGray_m", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
+ '''
+ ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+ '''
+ Friend ReadOnly Property personGray_w() As System.Drawing.Bitmap
+ Get
+ Dim obj As Object = ResourceManager.GetObject("personGray_w", resourceCulture)
+ Return CType(obj,System.Drawing.Bitmap)
+ End Get
+ End Property
+
'''
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''
diff --git a/UID/My Project/Resources.resx b/UID/My Project/Resources.resx
index 6e15519..7766c67 100644
--- a/UID/My Project/Resources.resx
+++ b/UID/My Project/Resources.resx
@@ -301,4 +301,10 @@
+
+ ..\Resources\personGray_m.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
+
+ ..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a
+
\ No newline at end of file
diff --git a/UID/Programme/frmProgDetails.vb b/UID/Programme/frmProgDetails.vb
index cef47f5..f52f879 100644
--- a/UID/Programme/frmProgDetails.vb
+++ b/UID/Programme/frmProgDetails.vb
@@ -24,6 +24,7 @@ Public Class frmProgDetails
If codename = "ROUTINE_MANAGER" Then picIcon.Image = My.Resources.admin_monitoring
If codename = "MAIL_SENDER" Then picIcon.Image = My.Resources.admin_monitoring
If codename = "DOKU" Then picIcon.Image = My.Resources.doku_sym
+ If codename = "RKSV_DE" Then picIcon.Image = My.Resources.admin_monitoring
diff --git a/UID/Programme/usrCntlProgramme.Designer.vb b/UID/Programme/usrCntlProgramme.Designer.vb
index 34caec6..cf2222d 100644
--- a/UID/Programme/usrCntlProgramme.Designer.vb
+++ b/UID/Programme/usrCntlProgramme.Designer.vb
@@ -97,6 +97,9 @@ Partial Class usrCntlProgramme
Me.Label15 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.PictureBox13 = New System.Windows.Forms.PictureBox()
+ Me.Button11 = New System.Windows.Forms.Button()
+ Me.Label17 = New System.Windows.Forms.Label()
+ Me.PictureBox14 = New System.Windows.Forms.PictureBox()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -110,6 +113,7 @@ Partial Class usrCntlProgramme
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
@@ -782,11 +786,43 @@ Partial Class usrCntlProgramme
Me.PictureBox13.TabIndex = 100
Me.PictureBox13.TabStop = False
'
+ 'Button11
+ '
+ Me.Button11.Location = New System.Drawing.Point(754, 604)
+ Me.Button11.Name = "Button11"
+ Me.Button11.Size = New System.Drawing.Size(100, 39)
+ Me.Button11.TabIndex = 108
+ Me.Button11.Text = "Details"
+ Me.Button11.UseVisualStyleBackColor = True
+ '
+ 'Label17
+ '
+ Me.Label17.AutoSize = True
+ Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label17.Location = New System.Drawing.Point(775, 587)
+ Me.Label17.Name = "Label17"
+ Me.Label17.Size = New System.Drawing.Size(61, 13)
+ Me.Label17.TabIndex = 107
+ Me.Label17.Text = "RKSV DE"
+ '
+ 'PictureBox14
+ '
+ Me.PictureBox14.Image = Global.ADMIN.My.Resources.Resources.admin_monitoring
+ Me.PictureBox14.Location = New System.Drawing.Point(789, 551)
+ Me.PictureBox14.Name = "PictureBox14"
+ Me.PictureBox14.Size = New System.Drawing.Size(34, 33)
+ Me.PictureBox14.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+ Me.PictureBox14.TabIndex = 106
+ Me.PictureBox14.TabStop = False
+ '
'usrCntlProgramme
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.Controls.Add(Me.Button11)
+ Me.Controls.Add(Me.Label17)
+ Me.Controls.Add(Me.PictureBox14)
Me.Controls.Add(Me.txtDokuVersionAkt)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button10)
@@ -876,6 +912,7 @@ Partial Class usrCntlProgramme
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -954,5 +991,7 @@ Partial Class usrCntlProgramme
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents PictureBox13 As System.Windows.Forms.PictureBox
-
+ Friend WithEvents Button11 As Button
+ Friend WithEvents Label17 As Label
+ Friend WithEvents PictureBox14 As PictureBox
End Class
diff --git a/UID/Programme/usrCntlProgramme.vb b/UID/Programme/usrCntlProgramme.vb
index 878bc64..6b6b3b1 100644
--- a/UID/Programme/usrCntlProgramme.vb
+++ b/UID/Programme/usrCntlProgramme.vb
@@ -200,4 +200,9 @@
ADMIN.setProgrammVersion("DOKU", txtDokuVersionAkt.Text)
init()
End Sub
+
+ Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
+ frmProgDetails.codename = "RKSV_DE"
+ frmProgDetails.Show()
+ End Sub
End Class
diff --git a/UID/Resources/personGray_m.jpg b/UID/Resources/personGray_m.jpg
new file mode 100644
index 0000000..6733e6e
Binary files /dev/null and b/UID/Resources/personGray_m.jpg differ
diff --git a/UID/Resources/personGray_w.png b/UID/Resources/personGray_w.png
new file mode 100644
index 0000000..0b2aace
Binary files /dev/null and b/UID/Resources/personGray_w.png differ
diff --git a/cNCTSPartnerWorker/cNCTS_TR.vb b/cNCTSPartnerWorker/cNCTS_TR.vb
index dd919d3..9ab1f86 100644
--- a/cNCTSPartnerWorker/cNCTS_TR.vb
+++ b/cNCTSPartnerWorker/cNCTS_TR.vb
@@ -5,7 +5,7 @@ Public Class cNCTS_TR
Property ncts_Id As Integer
Property ncts_Partnersystem As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00
- Property ncts_Status As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00
+ Property ncts_Status As Object = Nothing ' DAKOSY_Worker.cDY_Statusliste.S_00
Property ncts_Status_KEWILL_Equivalent As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00
Property ncts_dyaArt As String = ""
Property ncts_dyaAnmID As Integer
@@ -163,6 +163,7 @@ Public Class cNCTS_TR
Property ncts_Eroeffnung As Object = Nothing
Property ncts_Ankunft As Object = Nothing
Property ncts_Erledigung As Object = Nothing
+ Property ncts_AVISO_einarbeitet As Boolean = False
Property ncts_SICHERHEITSANGABEN As New List(Of cNCTS_TR_Sicherheitsangaben)
Property ncts_WARENPOS As New List(Of cNCTS_TR_Warenposition)
@@ -361,6 +362,7 @@ Public Class cNCTS_TR
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet))
Return list
End Function
@@ -682,6 +684,23 @@ Public Class cNCTS_TR
End Function
+ Public Function UPDATE_AVISO_Einarbeitet(ncts_AVISO_einarbeitet As Boolean) As String
+ If ncts_Id > 0 Then
+ Try
+
+ Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True))
+ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet))
+ ncts_AVISO_einarbeitet = ncts_AVISO_einarbeitet
+ Return SQL.doSQLVarList(" UPDATE [tblNCTS_TR] SET ncts_AVISO_einarbeitet=@ncts_AVISO_einarbeitet WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list)
+
+ Catch ex As Exception
+ MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+ End Try
+ End If
+ Return ""
+ End Function
+
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb
index 56c2ef4..72bb5dd 100644
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -24,6 +24,9 @@ Partial Class frmStartOptions
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel()
+ Me.Button3 = New System.Windows.Forms.Button()
+ Me.CheckBox4 = New System.Windows.Forms.CheckBox()
+ Me.Label13 = New System.Windows.Forms.Label()
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
@@ -66,8 +69,6 @@ Partial Class frmStartOptions
Me.Label9 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label10 = New System.Windows.Forms.Label()
- Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxISett_IMEX = New System.Windows.Forms.CheckBox()
Me.cbxISett_VERAG = New System.Windows.Forms.CheckBox()
Me.cbxISett_TEST = New System.Windows.Forms.CheckBox()
@@ -80,8 +81,6 @@ Partial Class frmStartOptions
Me.Label7 = New System.Windows.Forms.Label()
Me.LinkLabel27 = New System.Windows.Forms.LinkLabel()
Me.Label6 = New System.Windows.Forms.Label()
- Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
- Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.LinkLabel31 = New System.Windows.Forms.LinkLabel()
Me.Label12 = New System.Windows.Forms.Label()
@@ -95,7 +94,6 @@ Partial Class frmStartOptions
Me.cbxKd = New System.Windows.Forms.CheckBox()
Me.Button9 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
- Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox12 = New System.Windows.Forms.PictureBox()
Me.LinkLabel20 = New System.Windows.Forms.LinkLabel()
Me.PictureBox11 = New System.Windows.Forms.PictureBox()
@@ -111,6 +109,14 @@ Partial Class frmStartOptions
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label()
+ Me.CheckBox5 = New System.Windows.Forms.CheckBox()
+ Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+ Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+ Me.Button4 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -138,6 +144,12 @@ Partial Class frmStartOptions
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.pnl.Controls.Add(Me.Button4)
+ Me.pnl.Controls.Add(Me.CheckBox5)
+ Me.pnl.Controls.Add(Me.Button3)
+ Me.pnl.Controls.Add(Me.cboBMDUnispedFirma)
+ Me.pnl.Controls.Add(Me.CheckBox4)
+ Me.pnl.Controls.Add(Me.Label13)
Me.pnl.Controls.Add(Me.CheckBox3)
Me.pnl.Controls.Add(Me.tbcntr)
Me.pnl.Controls.Add(Me.CheckBox2)
@@ -166,9 +178,42 @@ Partial Class frmStartOptions
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(790, 677)
+ Me.pnl.Size = New System.Drawing.Size(790, 720)
Me.pnl.TabIndex = 0
'
+ 'Button3
+ '
+ 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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.Button3.Location = New System.Drawing.Point(302, 228)
+ Me.Button3.Name = "Button3"
+ Me.Button3.Size = New System.Drawing.Size(148, 24)
+ Me.Button3.TabIndex = 40
+ Me.Button3.Text = "Buchungen --> BMD"
+ Me.Button3.UseVisualStyleBackColor = True
+ '
+ 'CheckBox4
+ '
+ Me.CheckBox4.AutoSize = True
+ Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.CheckBox4.Location = New System.Drawing.Point(457, 255)
+ Me.CheckBox4.Name = "CheckBox4"
+ Me.CheckBox4.Size = New System.Drawing.Size(56, 17)
+ Me.CheckBox4.TabIndex = 41
+ Me.CheckBox4.Text = "öffnen"
+ Me.CheckBox4.UseVisualStyleBackColor = True
+ '
+ 'Label13
+ '
+ Me.Label13.AutoSize = True
+ Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label13.Location = New System.Drawing.Point(299, 212)
+ Me.Label13.Name = "Label13"
+ Me.Label13.Size = New System.Drawing.Size(163, 13)
+ Me.Label13.TabIndex = 39
+ Me.Label13.Text = "Routine Manager UNISPED"
+ '
'CheckBox3
'
Me.CheckBox3.AutoSize = True
@@ -185,7 +230,7 @@ Partial Class frmStartOptions
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Controls.Add(Me.TabPage3)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom
- Me.tbcntr.Location = New System.Drawing.Point(0, 254)
+ Me.tbcntr.Location = New System.Drawing.Point(0, 297)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(788, 421)
@@ -600,8 +645,6 @@ Partial Class frmStartOptions
Me.TabPage2.Controls.Add(Me.Label9)
Me.TabPage2.Controls.Add(Me.Button2)
Me.TabPage2.Controls.Add(Me.Label10)
- Me.TabPage2.Controls.Add(Me.MyComboBox2)
- Me.TabPage2.Controls.Add(Me.txtVRGOutEZA_BezugsNr)
Me.TabPage2.Controls.Add(Me.cbxISett_IMEX)
Me.TabPage2.Controls.Add(Me.cbxISett_VERAG)
Me.TabPage2.Controls.Add(Me.cbxISett_TEST)
@@ -614,6 +657,8 @@ Partial Class frmStartOptions
Me.TabPage2.Controls.Add(Me.Label7)
Me.TabPage2.Controls.Add(Me.LinkLabel27)
Me.TabPage2.Controls.Add(Me.Label6)
+ Me.TabPage2.Controls.Add(Me.MyComboBox2)
+ Me.TabPage2.Controls.Add(Me.txtVRGOutEZA_BezugsNr)
Me.TabPage2.Controls.Add(Me.MyComboBox1)
Me.TabPage2.Controls.Add(Me.txtVRGOut_BezugsNr)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
@@ -679,39 +724,6 @@ Partial Class frmStartOptions
Me.Label10.TabIndex = 62
Me.Label10.Text = "VERAG OUT - EZA"
'
- 'MyComboBox2
- '
- Me.MyComboBox2._allowedValuesFreiText = Nothing
- Me.MyComboBox2._allowFreiText = False
- Me.MyComboBox2._value = ""
- Me.MyComboBox2.FormattingEnabled = True
- Me.MyComboBox2.Location = New System.Drawing.Point(298, 230)
- Me.MyComboBox2.Name = "MyComboBox2"
- Me.MyComboBox2.Size = New System.Drawing.Size(62, 21)
- Me.MyComboBox2.TabIndex = 64
- '
- 'txtVRGOutEZA_BezugsNr
- '
- Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False
- Me.txtVRGOutEZA_BezugsNr._numbersOnly = False
- Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = ""
- Me.txtVRGOutEZA_BezugsNr._Prozent = False
- Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False
- Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False
- Me.txtVRGOutEZA_BezugsNr._TimeOnly = False
- Me.txtVRGOutEZA_BezugsNr._value = ""
- Me.txtVRGOutEZA_BezugsNr._Waehrung = False
- Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False
- Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red
- Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 230)
- Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1
- Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = ""
- Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing
- Me.txtVRGOutEZA_BezugsNr.Multiline = True
- Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr"
- Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(119, 21)
- Me.txtVRGOutEZA_BezugsNr.TabIndex = 65
- '
'cbxISett_IMEX
'
Me.cbxISett_IMEX.AutoSize = True
@@ -849,39 +861,6 @@ Partial Class frmStartOptions
Me.Label6.TabIndex = 0
Me.Label6.Text = "VERAG IN"
'
- 'MyComboBox1
- '
- Me.MyComboBox1._allowedValuesFreiText = Nothing
- Me.MyComboBox1._allowFreiText = False
- Me.MyComboBox1._value = ""
- Me.MyComboBox1.FormattingEnabled = True
- Me.MyComboBox1.Location = New System.Drawing.Point(298, 62)
- Me.MyComboBox1.Name = "MyComboBox1"
- Me.MyComboBox1.Size = New System.Drawing.Size(62, 21)
- Me.MyComboBox1.TabIndex = 4
- '
- 'txtVRGOut_BezugsNr
- '
- Me.txtVRGOut_BezugsNr._DateTimeOnly = False
- Me.txtVRGOut_BezugsNr._numbersOnly = False
- Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = ""
- Me.txtVRGOut_BezugsNr._Prozent = False
- Me.txtVRGOut_BezugsNr._ShortDateNew = False
- Me.txtVRGOut_BezugsNr._ShortDateOnly = False
- Me.txtVRGOut_BezugsNr._TimeOnly = False
- Me.txtVRGOut_BezugsNr._value = ""
- Me.txtVRGOut_BezugsNr._Waehrung = False
- Me.txtVRGOut_BezugsNr._WaehrungZeichen = False
- Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red
- Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62)
- Me.txtVRGOut_BezugsNr.MaxLineLength = -1
- Me.txtVRGOut_BezugsNr.MaxLines_Warning = ""
- Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing
- Me.txtVRGOut_BezugsNr.Multiline = True
- Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr"
- Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21)
- Me.txtVRGOut_BezugsNr.TabIndex = 5
- '
'TabPage3
'
Me.TabPage3.Controls.Add(Me.LinkLabel31)
@@ -974,7 +953,7 @@ Partial Class frmStartOptions
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.CheckBox1.Location = New System.Drawing.Point(173, 220)
+ Me.CheckBox1.Location = New System.Drawing.Point(173, 255)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(56, 17)
Me.CheckBox1.TabIndex = 18
@@ -986,7 +965,7 @@ Partial Class frmStartOptions
Me.cbxBu.AutoSize = True
Me.cbxBu.Checked = True
Me.cbxBu.CheckState = System.Windows.Forms.CheckState.Checked
- Me.cbxBu.Location = New System.Drawing.Point(87, 220)
+ Me.cbxBu.Location = New System.Drawing.Point(87, 255)
Me.cbxBu.Name = "cbxBu"
Me.cbxBu.Size = New System.Drawing.Size(81, 17)
Me.cbxBu.TabIndex = 17
@@ -998,7 +977,7 @@ Partial Class frmStartOptions
Me.cbxKd.AutoSize = True
Me.cbxKd.Checked = True
Me.cbxKd.CheckState = System.Windows.Forms.CheckState.Checked
- Me.cbxKd.Location = New System.Drawing.Point(18, 220)
+ Me.cbxKd.Location = New System.Drawing.Point(18, 255)
Me.cbxKd.Name = "cbxKd"
Me.cbxKd.Size = New System.Drawing.Size(63, 17)
Me.cbxKd.TabIndex = 16
@@ -1010,45 +989,23 @@ Partial Class frmStartOptions
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
- Me.Button9.Location = New System.Drawing.Point(18, 193)
+ Me.Button9.Location = New System.Drawing.Point(18, 228)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(211, 24)
Me.Button9.TabIndex = 15
- Me.Button9.Text = "Kunden --> DVO"
+ Me.Button9.Text = "Kunden / Buchungen --> DVO"
Me.Button9.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label3.Location = New System.Drawing.Point(15, 177)
+ Me.Label3.Location = New System.Drawing.Point(15, 212)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(138, 13)
Me.Label3.TabIndex = 14
Me.Label3.Text = "Routine Manager IMEX"
'
- 'MyTextBox1
- '
- Me.MyTextBox1._DateTimeOnly = False
- Me.MyTextBox1._numbersOnly = True
- Me.MyTextBox1._numbersOnlyKommastellen = ""
- Me.MyTextBox1._Prozent = False
- Me.MyTextBox1._ShortDateNew = False
- Me.MyTextBox1._ShortDateOnly = False
- Me.MyTextBox1._TimeOnly = False
- Me.MyTextBox1._value = "10000"
- Me.MyTextBox1._Waehrung = False
- Me.MyTextBox1._WaehrungZeichen = True
- Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
- Me.MyTextBox1.Location = New System.Drawing.Point(111, 132)
- Me.MyTextBox1.MaxLineLength = -1
- Me.MyTextBox1.MaxLines_Warning = ""
- Me.MyTextBox1.MaxLines_Warning_Label = Nothing
- Me.MyTextBox1.Name = "MyTextBox1"
- Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
- Me.MyTextBox1.TabIndex = 11
- Me.MyTextBox1.Text = "10000"
- '
'PictureBox12
'
Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
@@ -1216,12 +1173,136 @@ Partial Class frmStartOptions
Me.lblRoutineManager.TabIndex = 1
Me.lblRoutineManager.Text = "Routine Manager"
'
+ 'CheckBox5
+ '
+ Me.CheckBox5.AutoSize = True
+ Me.CheckBox5.Checked = True
+ Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked
+ Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.CheckBox5.Location = New System.Drawing.Point(519, 255)
+ Me.CheckBox5.Name = "CheckBox5"
+ Me.CheckBox5.Size = New System.Drawing.Size(79, 17)
+ Me.CheckBox5.TabIndex = 43
+ Me.CheckBox5.Text = "Testsystem"
+ Me.CheckBox5.UseVisualStyleBackColor = True
+ '
+ 'cboBMDUnispedFirma
+ '
+ Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing
+ Me.cboBMDUnispedFirma._allowFreiText = False
+ Me.cboBMDUnispedFirma._value = ""
+ Me.cboBMDUnispedFirma.FormattingEnabled = True
+ Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(302, 251)
+ Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
+ Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(148, 21)
+ Me.cboBMDUnispedFirma.TabIndex = 42
+ '
+ 'MyComboBox2
+ '
+ Me.MyComboBox2._allowedValuesFreiText = Nothing
+ Me.MyComboBox2._allowFreiText = False
+ Me.MyComboBox2._value = ""
+ Me.MyComboBox2.FormattingEnabled = True
+ Me.MyComboBox2.Location = New System.Drawing.Point(298, 230)
+ Me.MyComboBox2.Name = "MyComboBox2"
+ Me.MyComboBox2.Size = New System.Drawing.Size(62, 21)
+ Me.MyComboBox2.TabIndex = 64
+ '
+ 'txtVRGOutEZA_BezugsNr
+ '
+ Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False
+ Me.txtVRGOutEZA_BezugsNr._numbersOnly = False
+ Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = ""
+ Me.txtVRGOutEZA_BezugsNr._Prozent = False
+ Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False
+ Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False
+ Me.txtVRGOutEZA_BezugsNr._TimeOnly = False
+ Me.txtVRGOutEZA_BezugsNr._value = ""
+ Me.txtVRGOutEZA_BezugsNr._Waehrung = False
+ Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False
+ Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red
+ Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 230)
+ Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1
+ Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = ""
+ Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing
+ Me.txtVRGOutEZA_BezugsNr.Multiline = True
+ Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr"
+ Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(119, 21)
+ Me.txtVRGOutEZA_BezugsNr.TabIndex = 65
+ '
+ 'MyComboBox1
+ '
+ Me.MyComboBox1._allowedValuesFreiText = Nothing
+ Me.MyComboBox1._allowFreiText = False
+ Me.MyComboBox1._value = ""
+ Me.MyComboBox1.FormattingEnabled = True
+ Me.MyComboBox1.Location = New System.Drawing.Point(298, 62)
+ Me.MyComboBox1.Name = "MyComboBox1"
+ Me.MyComboBox1.Size = New System.Drawing.Size(62, 21)
+ Me.MyComboBox1.TabIndex = 4
+ '
+ 'txtVRGOut_BezugsNr
+ '
+ Me.txtVRGOut_BezugsNr._DateTimeOnly = False
+ Me.txtVRGOut_BezugsNr._numbersOnly = False
+ Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = ""
+ Me.txtVRGOut_BezugsNr._Prozent = False
+ Me.txtVRGOut_BezugsNr._ShortDateNew = False
+ Me.txtVRGOut_BezugsNr._ShortDateOnly = False
+ Me.txtVRGOut_BezugsNr._TimeOnly = False
+ Me.txtVRGOut_BezugsNr._value = ""
+ Me.txtVRGOut_BezugsNr._Waehrung = False
+ Me.txtVRGOut_BezugsNr._WaehrungZeichen = False
+ Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red
+ Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62)
+ Me.txtVRGOut_BezugsNr.MaxLineLength = -1
+ Me.txtVRGOut_BezugsNr.MaxLines_Warning = ""
+ Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing
+ Me.txtVRGOut_BezugsNr.Multiline = True
+ Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr"
+ Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21)
+ Me.txtVRGOut_BezugsNr.TabIndex = 5
+ '
+ 'MyTextBox1
+ '
+ Me.MyTextBox1._DateTimeOnly = False
+ Me.MyTextBox1._numbersOnly = True
+ Me.MyTextBox1._numbersOnlyKommastellen = ""
+ Me.MyTextBox1._Prozent = False
+ Me.MyTextBox1._ShortDateNew = False
+ Me.MyTextBox1._ShortDateOnly = False
+ Me.MyTextBox1._TimeOnly = False
+ Me.MyTextBox1._value = "10000"
+ Me.MyTextBox1._Waehrung = False
+ Me.MyTextBox1._WaehrungZeichen = True
+ Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
+ Me.MyTextBox1.Location = New System.Drawing.Point(111, 132)
+ Me.MyTextBox1.MaxLineLength = -1
+ Me.MyTextBox1.MaxLines_Warning = ""
+ Me.MyTextBox1.MaxLines_Warning_Label = Nothing
+ Me.MyTextBox1.Name = "MyTextBox1"
+ Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
+ Me.MyTextBox1.TabIndex = 11
+ Me.MyTextBox1.Text = "10000"
+ '
+ 'Button4
+ '
+ 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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+ Me.Button4.Location = New System.Drawing.Point(449, 228)
+ Me.Button4.Name = "Button4"
+ Me.Button4.Size = New System.Drawing.Size(149, 24)
+ Me.Button4.TabIndex = 44
+ Me.Button4.Text = "Stammdaten --> BMD"
+ Me.Button4.UseVisualStyleBackColor = True
+ '
'frmStartOptions
'
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(790, 677)
+ Me.ClientSize = New System.Drawing.Size(790, 720)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -1345,4 +1426,10 @@ Partial Class frmStartOptions
Friend WithEvents CheckBox3 As CheckBox
Friend WithEvents LinkLabel31 As LinkLabel
Friend WithEvents Label12 As Label
+ Friend WithEvents CheckBox4 As CheckBox
+ Friend WithEvents Button3 As Button
+ Friend WithEvents Label13 As Label
+ Friend WithEvents cboBMDUnispedFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+ Friend WithEvents CheckBox5 As CheckBox
+ Friend WithEvents Button4 As Button
End Class
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index ff03cf8..cd3c555 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -51,6 +51,13 @@ Public Class frmStartOptions
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC"))
MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF"))
+ cboBMDUnispedFirma.Items.Clear()
+ cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+ cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Österreich", "21"))
+ cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland", "22"))
+ cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice (AT)", "23"))
+ cboBMDUnispedFirma.changeItem("")
+
Dim PARAM = ""
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de r Pfad zum programm ist
@@ -112,6 +119,12 @@ Public Class frmStartOptions
AddHandler f.FormClosed, AddressOf closeMe
+ Case "MDM_EINARBEITUNG"
+ VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+ Dim f As New frmMDMNachrichtenVerarbeitung(True)
+ Me.Visible = False
+ f.Show()
+ AddHandler f.FormClosed, AddressOf closeMe
Case "TC_EINARBEITUNG"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim f As New frmTCNachrichtenVerarbeitung(True)
@@ -612,7 +625,7 @@ Public Class frmStartOptions
getEZB_Waehrungskurse = True
Next
End If
-
+ VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.UPDATE_Waehrungstabelle(datum) ' Waehrungstabelle befüllen
End If
@@ -1218,4 +1231,18 @@ Public Class frmStartOptions
f.ShowDialog()
Me.Visible = True
End Sub
+
+ Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+ VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False
+ If cboBMDUnispedFirma._value = "" Then
+ VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked, False)
+ Else
+ VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_Buchungen(cboBMDUnispedFirma._value, CheckBox4.Checked)
+ End If
+ End Sub
+
+ Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+ VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False
+ VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked,, False)
+ End Sub
End Class
\ No newline at end of file