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

Upload 01

Browse Source
This commit is contained in:
ms
2019-08-08 09:51:41 +02:00
parent d91112720f
commit 1d0e64548d
66 changed files with 225423 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
FTPUpload/App.config Normal file
View File

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

123
FTPUpload/FTPUpload.vbproj Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{28749B78-1D40-49C1-BF48-2276627EB108}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>FTPUpload.My.MyApplication</StartupObject>
<RootNamespace>FTPUpload</RootNamespace>
<AssemblyName>FTPUpload</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>FTPUpload.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>FTPUpload.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

62
FTPUpload/Form1.Designer.vb generated Normal file
View File

@@ -0,0 +1,62 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btnUpload = New System.Windows.Forms.Button()
Me.bntUploadAndClose = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'btnUpload
'
Me.btnUpload.Location = New System.Drawing.Point(405, 317)
Me.btnUpload.Name = "btnUpload"
Me.btnUpload.Size = New System.Drawing.Size(75, 23)
Me.btnUpload.TabIndex = 0
Me.btnUpload.Text = "Do it !"
Me.btnUpload.UseVisualStyleBackColor = True
'
'bntUploadAndClose
'
Me.bntUploadAndClose.Location = New System.Drawing.Point(501, 317)
Me.bntUploadAndClose.Name = "bntUploadAndClose"
Me.bntUploadAndClose.Size = New System.Drawing.Size(108, 23)
Me.bntUploadAndClose.TabIndex = 1
Me.bntUploadAndClose.Text = "Do it and Close !"
Me.bntUploadAndClose.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.bntUploadAndClose)
Me.Controls.Add(Me.btnUpload)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnUpload As Button
Friend WithEvents bntUploadAndClose As Button
End Class

120
FTPUpload/Form1.resx Normal file
View File

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

155
FTPUpload/Form1.vb Normal file
View File

@@ -0,0 +1,155 @@
Imports System.IO.File
Imports System.Net.Mail
Public Class Form1
Public sAppPath As String = Application.StartupPath
Public parameter As String() = Environment.GetCommandLineArgs.ToArray()
Public PDFUploadPath As String = ""
Public DatumNextMonday As String
Public Silent As Boolean = False
Public Shared HighwayFTPUser As String = "u78672691"
Public Shared HighwayFTPPwd As String = "verag#2"
Public Shared HighwayFTPSrv As String = "ftp://home546285429.1and1-data.host"
Private Function LoadParameters()
Try
Dim lines = IO.File.ReadAllLines(sAppPath.Substring(0, sAppPath.Length - 10) & "\start.ini")
Dim colCount = lines.First.Split(";"c).Length
For Each line In lines
Dim objFields = From field In line.Split(";"c)
Select Case objFields(0).ToString
Case "PDFUploadPath"
PDFUploadPath = objFields(1).ToString
End Select
Next
Catch ex As Exception
MsgBox("FTPUpload: start.ini nicht gefunden!")
End Try
End Function
Public Function Upload()
If Silent = True Then
DoUpload()
Else
If MsgBox("Achtung! Mit Bestätigen dieser Meldung wird das aktuelle Mittagsmenü auf der Homepage ÜBERSCHRIEBEN!", MsgBoxStyle.OkCancel, "Upload") = MsgBoxResult.Ok Then
DoUpload()
Else
Exit Function
End If
End If
End Function
Function DoUpload()
Dim anhang, anhangdateiname As String
If Exists(PDFUploadPath & DatumNextMonday & ".pdf") Then
anhang = PDFUploadPath & DatumNextMonday & ".pdf"
anhangdateiname = DatumNextMonday & ".pdf"
Else
If Silent = False Then
MsgBox("Datei nicht gefunden. Bitte erst erstellen.") : Exit Function
Else
sendMail("FTP Upload fehlgeschlagen!", "Der automatische Upload wurde nicht ausgeführt. Datei: " & PDFUploadPath & DatumNextMonday & ".pdf wurde nicht gefunden.") : Exit Function
End If
End If
Upload2FTP(HighwayFTPSrv & "/speisekarte/Mittagsmenue.pdf", HighwayFTPUser, HighwayFTPPwd, anhang)
End Function
Public Function GetNextMonday()
Dim datum As Date = Now.Date.AddDays(7)
For i = 0 To 10
If datum.DayOfWeek = 1 Then
Exit For
Else
datum = datum.AddDays(-1)
End If
Next
DatumNextMonday = datum.Date.ToString.Substring(0, 10)
Return (DatumNextMonday)
End Function
Public Function Upload2FTP(server As String, user As String, pwd As String, file As String)
Dim clsRequest As System.Net.FtpWebRequest =
DirectCast(System.Net.WebRequest.Create(server), System.Net.FtpWebRequest)
clsRequest.Credentials = New System.Net.NetworkCredential(user, pwd)
clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
' read in file...
Dim bFile() As Byte = System.IO.File.ReadAllBytes(file)
' upload file...
Dim clsStream As System.IO.Stream =
clsRequest.GetRequestStream()
clsStream.Write(bFile, 0, bFile.Length)
clsStream.Close()
clsStream.Dispose()
If Silent = False Then MsgBox("Ok, erledigt.")
sendMail("FTP Upload ausgeführt", "Der automatische Upload wurde ausgeführt. Datei: " & PDFUploadPath & DatumNextMonday & ".pdf")
End Function
Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
GetNextMonday()
Upload()
End Sub
Private Sub bntUploadAndClose_Click(sender As Object, e As EventArgs) Handles bntUploadAndClose.Click
GetNextMonday()
Upload()
Close()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
LoadParameters()
For i = 0 To parameter.Length - 1
Select Case parameter(i).ToString
Case "/auto"
' MsgBox("p")
Silent = True
bntUploadAndClose.PerformClick()
End Select
Next
End Sub
Public Function sendMail(subject As String, body As String)
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("monitoring@verag.com", "Ju18WA10")
Smtp_Server.Port = 25
Smtp_Server.EnableSsl = False
Smtp_Server.Host = "owa.verag.ag"
e_mail = New MailMessage()
e_mail.From = New MailAddress("monitoring@verag.com")
e_mail.To.Add("monitoring@verag.com")
' e_mail.Subject = "FTP Upload ausgeführt"
e_mail.Subject = subject
e_mail.IsBodyHtml = False
'e_mail.Body = "Der automatische Upload wurde ausgeführt. Datei: " & PDFUploadPath & DatumNextMonday & ".pdf"
e_mail.Body = body
Smtp_Server.Send(e_mail)
If Silent = False Then MsgBox("Mail Sent")
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Function
End Class

38
FTPUpload/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.FTPUpload.Form1
End Sub
End Class
End Namespace

11
FTPUpload/My Project/Application.myapp Normal file
View File

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

35
FTPUpload/My Project/AssemblyInfo.vb Normal file
View File

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

62
FTPUpload/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("FTPUpload.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
FTPUpload/My Project/Resources.resx Normal file
View File

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

73
FTPUpload/My Project/Settings.Designer.vb generated Normal file
View File

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

7
FTPUpload/My Project/Settings.settings Normal file
View File

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

6
Gastro.sln
View File

@@ -5,6 +5,8 @@ VisualStudioVersion = 15.0.28307.539
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gastro", "Gastro\Gastro.vbproj", "{16C34998-6FC9-42AF-A84E-FEBE93CCE003}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "FTPUpload", "FTPUpload\FTPUpload.vbproj", "{28749B78-1D40-49C1-BF48-2276627EB108}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
@@ -15,6 +17,10 @@ Global
{16C34998-6FC9-42AF-A84E-FEBE93CCE003}.Debug|Any CPU.Build.0 = Debug|Any CPU
{16C34998-6FC9-42AF-A84E-FEBE93CCE003}.Release|Any CPU.ActiveCfg = Release|Any CPU
{16C34998-6FC9-42AF-A84E-FEBE93CCE003}.Release|Any CPU.Build.0 = Release|Any CPU
{28749B78-1D40-49C1-BF48-2276627EB108}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{28749B78-1D40-49C1-BF48-2276627EB108}.Debug|Any CPU.Build.0 = Debug|Any CPU
{28749B78-1D40-49C1-BF48-2276627EB108}.Release|Any CPU.ActiveCfg = Release|Any CPU
{28749B78-1D40-49C1-BF48-2276627EB108}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE

35
Gastro/Form1.Designer.vb generated
View File

@@ -22,10 +22,41 @@ Partial Class Form1
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(341, 346)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(462, 346)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Button2"
Me.Button2.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.ClientSize = New System.Drawing.Size(814, 650)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
End Class

120
Gastro/Form1.resx Normal file
View File

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

24
Gastro/Form1.vb
View File

@@ -1,3 +1,27 @@
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim mahl As New cEssen
mahl.EssenCreateDate = Now
mahl.EssenLastUsage = Now.Date
mahl.EssenName = "Yummy yummy yummy"
mahl.saveAsNew()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim ding As New cMenu
ding.MenuTitel = "Test"
ding.MenuDateVon = Now.Date.AddDays(-2)
ding.MenuDateVon = Now.Date.AddDays(1)
ding.MenuDetail1 = "jupp, detail 1"
Dim mahl As New cEssen
mahl.EssenCreateDate = Now
mahl.EssenLastUsage = Now.Date
mahl.EssenName = "Yummy yummy yummy"
ding.MenuEssenMo = mahl.EssenName
ding.MenuID = Now & Now.AddDays(-2)
ding.saveAsNew()
End Sub
End Class

118
Gastro/Gastro.vbproj
View File

@@ -47,11 +47,30 @@
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>gastro.ico</ApplicationIcon>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="GrapeCity.ActiveReports.ArsClient.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Chart.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Diagnostics.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Export.Image.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Extensibility.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="Microsoft.Office.Interop.Outlook, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Security" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
@@ -73,6 +92,8 @@
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="cListe.vb" />
<Compile Include="cSQL.vb" />
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
@@ -80,6 +101,19 @@
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="cClasses.vb" />
<Compile Include="frmMain.Designer.vb">
<DependentUpon>frmMain.vb</DependentUpon>
</Compile>
<Compile Include="frmMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMenu.Designer.vb">
<DependentUpon>frmMenu.vb</DependentUpon>
</Compile>
<Compile Include="frmMenu.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
@@ -95,14 +129,72 @@
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="rptMittagsMenue.Designer.vb">
<DependentUpon>rptMittagsMenue.vb</DependentUpon>
</Compile>
<Compile Include="rptMittagsMenue.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="usrcntlMittagsmenues.Designer.vb">
<DependentUpon>usrcntlMittagsmenues.vb</DependentUpon>
</Compile>
<Compile Include="usrcntlMittagsmenues.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrcntlPrint.Designer.vb">
<DependentUpon>usrcntlPrint.vb</DependentUpon>
</Compile>
<Compile Include="usrcntlPrint.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrcntlSpeisen.Designer.vb">
<DependentUpon>usrcntlSpeisen.vb</DependentUpon>
</Compile>
<Compile Include="usrcntlSpeisen.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrcntlVerteiler.Designer.vb">
<DependentUpon>usrcntlVerteiler.vb</DependentUpon>
</Compile>
<Compile Include="usrcntlVerteiler.vb">
<SubType>UserControl</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMenu.resx">
<DependentUpon>frmMenu.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="rptMittagsMenue.de-AT.resx">
<DependentUpon>rptMittagsMenue.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="rptMittagsMenue.resx">
<DependentUpon>rptMittagsMenue.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrcntlMittagsmenues.resx">
<DependentUpon>usrcntlMittagsmenues.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrcntlPrint.resx">
<DependentUpon>usrcntlPrint.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrcntlSpeisen.resx">
<DependentUpon>usrcntlSpeisen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrcntlVerteiler.resx">
<DependentUpon>usrcntlVerteiler.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
@@ -116,5 +208,31 @@
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\gastro.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\saveas.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\saveas20.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\links20.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\del.png" />
</ItemGroup>
<ItemGroup>
<Content Include="gastro.ico" />
<None Include="Resources\mail20.png" />
<None Include="Resources\mail201.png" />
<None Include="Resources\LogOff20.bmp" />
<Content Include="Resources\pdf512.ico" />
<None Include="Resources\Print20x20.png" />
<None Include="Resources\stift20.png" />
<None Include="Resources\stift.png" />
<None Include="Resources\pdf5121.ico" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

28
Gastro/My Project/Application.Designer.vb generated
View File

@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
@@ -13,15 +13,15 @@ Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
@@ -29,10 +29,10 @@ Namespace My
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Gastro.Form1
Me.MainForm = Global.Gastro.frmMain
End Sub
End Class
End Namespace

5
Gastro/My Project/Application.myapp
View File

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

169
Gastro/My Project/Resources.Designer.vb generated
View File

@@ -1,40 +1,41 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
@@ -44,19 +45,139 @@ Namespace My.Resources
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property del() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("del", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property gastro() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("gastro", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property links20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("links20", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property LogOff20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("LogOff20", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property mail20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("mail20", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property mail201() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("mail201", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property pdf512() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("pdf512", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Print20x20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Print20x20", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property saveas() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("saveas", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property saveas20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("saveas20", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property stift() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("stift", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property stift20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("stift20", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

50
Gastro/My Project/Resources.resx
View File

@@ -46,7 +46,7 @@
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
@@ -60,6 +60,7 @@
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
@@ -68,9 +69,10 @@
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
@@ -85,9 +87,10 @@
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
@@ -109,9 +112,46 @@
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="links20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\links20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mail201" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mail201.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mail20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Print20x20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf512" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf5121.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="saveas20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\saveas20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="saveas" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\saveas.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="gastro" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gastro.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LogOff20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LogOff20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

5
Gastro/My Project/licenses.licx Normal file
View File

@@ -0,0 +1,5 @@
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff

BIN
Gastro/Resources/Banner_BOTTOM_Speisekarte_Mittagsmenue.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.0 MiB

BIN
Gastro/Resources/Banner_TOP_Speisekarte_Mittagsmenu.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.2 MiB

BIN
Gastro/Resources/Banner_TOP_Speisekarte_Schmal.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.3 MiB

BIN
Gastro/Resources/LogOff20.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

BIN
Gastro/Resources/Print20x20.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.3 KiB

BIN
Gastro/Resources/del.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.4 KiB

BIN
Gastro/Resources/gastro.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 13 KiB

BIN
Gastro/Resources/links20.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 394 B

BIN
Gastro/Resources/mail20.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 460 B

BIN
Gastro/Resources/mail201.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.7 KiB

BIN
Gastro/Resources/pdf512.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

BIN
Gastro/Resources/pdf5121.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

BIN
Gastro/Resources/saveas.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.7 KiB

BIN
Gastro/Resources/saveas20.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.3 KiB

BIN
Gastro/Resources/stift.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 197 KiB

BIN
Gastro/Resources/stift20.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 753 B

284
Gastro/cClasses.vb Normal file
View File

@@ -0,0 +1,284 @@
Imports System.Reflection
Public Class cClasses
End Class
Public Class cEssen
Property EssenName As String = ""
Property EssenType As String = ""
Property EssenLastUsage As Date = Now
Property EssenCreateDate As Date = Now
Function getparameterlist() As List(Of SQLVariable)
Dim list As New List(Of SQLVariable)
list.Add(New SQLVariable("EssenName", EssenName))
list.Add(New SQLVariable("EssenLastUsage", EssenLastUsage))
list.Add(New SQLVariable("EssenCreateDate", EssenCreateDate))
list.Add(New SQLVariable("EssenType", EssenType))
Return list
End Function
Function getEssenByName(FutterName As String)
Dim ds As New DataSet
cSQL.SQL2DS("SELECT * FROM GEssen WHERE EssenName = '" & FutterName & "'", ds)
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then
If Not IsDBNull(c.Table.Rows(0).Item(c)) Then
propInfo.SetValue(Me, c.Table.Rows(0).Item(c))
End If
End If
Next
End Function
Function getEssenByCreateDate(EssenCreateDate As String)
Dim ds As New DataSet
cSQL.SQL2DS("SELECT * FROM GEssen WHERE EssenCreateDate = '" & EssenCreateDate & "'", ds)
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then
If Not IsDBNull(c.Table.Rows(0).Item(c)) Then
propInfo.SetValue(Me, c.Table.Rows(0).Item(c))
End If
End If
Next
End Function
Function update()
Dim UpdateString As String = ""
Dim WhereString As String = ""
Dim list As List(Of SQLVariable) = getparameterlist()
For Each i In list
If Not i.SQLText = "EssenCreateDate" Then UpdateString &= "[" & i.SQLText & "]='" & i.SQLValue & "',"
Next
UpdateString = UpdateString.Substring(0, UpdateString.Length - 1) 'wg. ','
cSQL.UpdateSQL("GEssen", UpdateString, "EssenCreateDate = '" & Me.EssenCreateDate & "'")
End Function
Function saveAsNew()
'' (Spalten, Spalten, ...) VALUES (Werte, Werte, ...)
Dim Spalten As String = ""
Dim Werte As String = ""
Dim InsertString As String = ""
Dim List As List(Of SQLVariable) = getparameterlist()
For Each i In List
Spalten &= i.SQLText & ","
Werte &= "'" & i.SQLValue & "',"
Next
Spalten = Spalten.Substring(0, Spalten.Length - 1)
Werte = Werte.Substring(0, Werte.Length - 1)
cSQL.InsertSQL("GEssen", "(" & Spalten & ") VALUES (" & Werte & ")")
End Function
Function Delete()
If MsgBox("Sicher, dass die Speise " & vbCrLf & "'" & Me.EssenName & "'" & vbCrLf & "gelöscht werden soll?", MsgBoxStyle.OkCancel, "Speise löschen?") = MsgBoxResult.Ok Then
cSQL.DeleteFromSQL("GEssen", "EssenCreateDate = '" & Me.EssenCreateDate & "'")
Else
End If
End Function
End Class
Public Class cMenu
Property MenuTitel As String = "Wochenkarte KW "
Property MenuPrint As Boolean = False
Property MenuDateVon As Date = Now.Date
Property MenuDateBis As Date = Now.Date
Property MenuDetail1 As String = cTools.LoadParametersFromInI("MenuDetail1") '"Tagesgericht: 6,50 EUR"
Property MenuDetail2 As String = cTools.LoadParametersFromInI("MenuDetail2")
Property MenuDetail3 As String = cTools.LoadParametersFromInI("MenuDetail3")
Property MenuSuppe As String = ""
Property MenuPrintSuppe As Boolean = False
Property MenuEssenMo As String = ""
Property MenuEssenDi As String = ""
Property MenuEssenMi As String = ""
Property MenuEssenDo As String = ""
Property MenuEssenFr As String = ""
Property MenuEssenMoDate As Date = Nothing
Property MenuEssenDiDate As Date = Nothing
Property MenuEssenMiDate As Date = Nothing
Property MenuEssenDoDate As Date = Nothing
Property MenuEssenFrDate As Date = Nothing
Property MenuSuppeDate As Date = Nothing
Property MenuID As String = ""
Property MenuArt As String = ""
Function getparameterlist() As List(Of SQLVariable)
Dim list As New List(Of SQLVariable)
list.Add(New SQLVariable("MenuTitel", MenuTitel))
list.Add(New SQLVariable("MenuPrint", MenuPrint))
list.Add(New SQLVariable("MenuDateVon", MenuDateVon))
list.Add(New SQLVariable("MenuDateBis", MenuDateBis))
list.Add(New SQLVariable("MenuDetail1", MenuDetail1))
list.Add(New SQLVariable("MenuDetail2", MenuDetail2))
list.Add(New SQLVariable("MenuDetail3", MenuDetail3))
list.Add(New SQLVariable("MenuSuppe", MenuSuppe))
list.Add(New SQLVariable("MenuPrintSuppe", MenuPrintSuppe))
list.Add(New SQLVariable("MenuEssenMo", MenuEssenMo))
list.Add(New SQLVariable("MenuEssenDi", MenuEssenDi))
list.Add(New SQLVariable("MenuEssenMi", MenuEssenMi))
list.Add(New SQLVariable("MenuEssenDo", MenuEssenDo))
list.Add(New SQLVariable("MenuEssenFr", MenuEssenFr))
list.Add(New SQLVariable("MenuEssenMoDate", MenuEssenMoDate))
list.Add(New SQLVariable("MenuEssenDiDate", MenuEssenDiDate))
list.Add(New SQLVariable("MenuEssenMiDate", MenuEssenMiDate))
list.Add(New SQLVariable("MenuEssenDoDate", MenuEssenDoDate))
list.Add(New SQLVariable("MenuEssenFrDate", MenuEssenFrDate))
list.Add(New SQLVariable("MenuSuppeDate", MenuSuppeDate))
list.Add(New SQLVariable("MenuID", MenuID))
list.Add(New SQLVariable("MenuArt", MenuArt))
Return list
End Function
Function update()
Dim UpdateString As String = ""
Dim WhereString As String = ""
Dim list As List(Of SQLVariable) = getparameterlist()
For Each i In list
If Not i.SQLText = "MenuID" Then UpdateString &= i.SQLText & " ='" & i.SQLValue & "',"
Next
UpdateString = UpdateString.Substring(0, UpdateString.Length - 1) 'wg. ','
cSQL.UpdateSQL("GMenu", UpdateString, "MenuID = '" & Me.MenuID & "'")
End Function
Function saveAsNew()
'' (Spalten, Spalten, ...) VALUES (Werte, Werte, ...)
Dim Spalten As String = ""
Dim Werte As String = ""
Dim InsertString As String = ""
Dim List As List(Of SQLVariable) = getparameterlist()
For Each i In List
Spalten &= i.SQLText & ","
Werte &= "'" & i.SQLValue & "',"
Next
Spalten = Spalten.Substring(0, Spalten.Length - 1)
Werte = Werte.Substring(0, Werte.Length - 1)
cSQL.InsertSQL("GMenu", "(" & Spalten & ") VALUES (" & Werte & ")")
End Function
Function loadMenu(_menuid As String)
Dim ds As New DataSet
Dim test As String = ""
cSQL.SQL2DS("select * from GMenu where MenuID = '" & _menuid & "'", ds)
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then
If Not IsDBNull(c.Table.Rows(0).Item(c)) Then
propInfo.SetValue(Me, c.Table.Rows(0).Item(c))
End If
End If
Next
End Function
Function loadMenuToDT(_menuid As String)
Dim ds As New DataSet
Dim dt As New DataTable
Dim test As String = ""
cSQL.SQL2DS("select * from GMenu where MenuID = '" & _menuid & "'", ds)
dt = ds.Tables(0)
Return dt
End Function
Function CheckExist()
Dim ds As New DataSet
cSQL.SQL2DS("SELECT * FROM GMenu WHERE MenuID = '" & Me.MenuID & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
Return True
Else
Return False
End If
End Function
Function Delete()
If MsgBox("Sicher, dass das Menü gelöscht werden soll?", MsgBoxStyle.OkCancel, "Menü löschen?") = MsgBoxResult.Ok Then
cSQL.DeleteFromSQL("GMenu", "MenuID = '" & Me.MenuID & "'")
Else
End If
End Function
End Class
Public Class cEmpfaenger
Property EmpfName As String = ""
Property EmpfEMail As String = ""
Property EmpfID As String = ""
Function getparameterlist() As List(Of SQLVariable)
Dim list As New List(Of SQLVariable)
list.Add(New SQLVariable("EmpfName", EmpfName))
list.Add(New SQLVariable("EmpfEMail", EmpfEMail))
list.Add(New SQLVariable("EmpfID", EmpfID))
Return list
End Function
Function update()
Dim UpdateString As String = ""
Dim WhereString As String = ""
Dim list As List(Of SQLVariable) = getparameterlist()
For Each i In list
If Not i.SQLText = "EmpfID" Then UpdateString &= i.SQLText & " ='" & i.SQLValue & "',"
Next
UpdateString = UpdateString.Substring(0, UpdateString.Length - 1) 'wg. ','
cSQL.UpdateSQL("GVerteilerListe", UpdateString, "EmpfID = '" & Me.EmpfID & "'")
End Function
Function saveAsNew()
'' (Spalten, Spalten, ...) VALUES (Werte, Werte, ...)
Dim Spalten As String = ""
Dim Werte As String = ""
Dim InsertString As String = ""
Dim List As List(Of SQLVariable) = getparameterlist()
For Each i In List
Spalten &= i.SQLText & ","
Werte &= "'" & i.SQLValue & "',"
Next
Spalten = Spalten.Substring(0, Spalten.Length - 1)
Werte = Werte.Substring(0, Werte.Length - 1)
cSQL.InsertSQL("GVerteilerListe", "(" & Spalten & ") VALUES (" & Werte & ")")
End Function
Function loadME(_EmpfID As String)
Dim ds As New DataSet
Dim test As String = ""
cSQL.SQL2DS("select * from GVerteilerListe where EmpfID = '" & _EmpfID & "'", ds)
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then
If Not IsDBNull(c.Table.Rows(0).Item(c)) Then
propInfo.SetValue(Me, c.Table.Rows(0).Item(c))
End If
End If
Next
End Function
Function Delete()
If SQLTools.CheckIfExist("SELECT * FROM GVerteilerListe WHERE EmpfID = '" & Me.EmpfID & "'") Then
If MsgBox("Sicher, dass der Eintrag gelöscht werden soll?", MsgBoxStyle.OkCancel, "Eintrag löschen?") = MsgBoxResult.Ok Then
cSQL.DeleteFromSQL("GVerteilerListe", "EmpfID = '" & Me.EmpfID & "'")
Return True
End If
Else
MsgBox("Nicht gefunden")
End If
End Function
End Class

105
Gastro/cListe.vb Normal file
View File

@@ -0,0 +1,105 @@
Public Class cListe
Public Shared DBConnectionString As String = ""
Public Shared PDFUploadPath As String = ""
Public Shared HighwayFTPUser As String = "u78672691"
Public Shared HighwayFTPPwd As String = "verag#2"
Public Shared HighwayFTPSrv As String = "ftp://home546285429.1and1-data.host"
Public Shared Debug As Boolean = False
Public Shared Function selectDBConnection(connection As String)
Select Case connection
Case "Debug"
DBConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Gastro;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Debug = True
Case "Highway"
DBConnectionString = "Server=YM5T001348;Initial Catalog=Gastro;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
End Select
End Function
End Class
Public Class cFTP
Public Shared Function Upload2FTP(server As String, user As String, pwd As String, file As String)
Dim clsRequest As System.Net.FtpWebRequest =
DirectCast(System.Net.WebRequest.Create(server), System.Net.FtpWebRequest)
clsRequest.Credentials = New System.Net.NetworkCredential(user, pwd)
clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
' read in file...
Dim bFile() As Byte = System.IO.File.ReadAllBytes(file)
' upload file...
Dim clsStream As System.IO.Stream =
clsRequest.GetRequestStream()
clsStream.Write(bFile, 0, bFile.Length)
clsStream.Close()
clsStream.Dispose()
End Function
End Class
Public Class cTools
Public Shared Function ReturnKW(ByVal Datum As Date)
Dim KW As Integer = DatePart(DateInterval.WeekOfYear, Datum, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
If KW = 53 Then
Return 1
Else
Return KW
End If
End Function
Public Shared Function DateToWeek(ByVal dDate As Date) As String
' Startdatum der ersten Kalenderwoche des Jahres und Folgejahres berechnen
Dim dThisYear As Date = CalendarWeek(1, dDate.Year)
Dim dNextYear As Date = CalendarWeek(1, dDate.Year + 1)
' Prüfen, ob Datum zur ersten Woche des Folgejahres gehört
If dDate >= dNextYear Then
' Rückgabe: KW 1 des Folgejahres
Return "1"
ElseIf dDate < dThisYear Then
' Falls das Datum noch zu einer KW aus dem letzten Jahr zählt
Return DatePart(DateInterval.WeekOfYear, New Date(dDate.Year - 1, 12, 28), FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
Else
' KW = Differenz zum ersten Tag der ersten Woche
Return Format$(dDate.Subtract(dThisYear).Days \ 7 + 1, "00")
End If
End Function
Public Shared Function CalendarWeek(ByVal nWeek As Integer, ByVal nYear As Integer) As Date
' Wochentag des 4. Januar des Jahres ermitteln
Dim dStart As New Date(nYear, 1, 4)
Dim nDay As Integer = (dStart.DayOfWeek + 6) Mod 7 + 1
' Beginn der 1. KW des Jahres
Dim dFirst As Date = dStart.AddDays(1 - nDay)
' Gesuchte KW ermitteln
Return dFirst.AddDays((nWeek - 1) * 7)
End Function
Public Shared Function LoadParametersFromInI(Spalte As String)
Dim lines = IO.File.ReadAllLines(Application.StartupPath & "\start.ini")
Dim colCount = lines.First.Split(";"c).Length
Dim read As Boolean = False
For Each line In lines
Dim objFields = From field In line.Split(";"c)
Select Case objFields(0).ToString
Case Spalte
Return objFields(1).ToString
read = True
End Select
Next
If read = False Then Return ""
End Function
End Class

120
Gastro/cSQL.vb Normal file
View File

@@ -0,0 +1,120 @@
Imports System.Data.SqlClient
Public Class cSQL
Public Shared Sub SQL2DS(ByRef selector As String, ByRef ds As DataSet)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = cListe.DBConnectionString
cmd.Connection = con
Dim dataadapter As New SqlDataAdapter(selector, con)
con.Open()
dataadapter.Fill(ds)
con.Close()
End Sub
Public Shared Sub UpdateSQL(ByRef table As String, ByRef values As String, ByRef where As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = cListe.DBConnectionString
cmd.Connection = con
con.Open()
cmd.CommandText = "UPDATE " & table & " SET " & values & " WHERE " & where & ""
cmd.ExecuteNonQuery()
con.Close()
End Sub
Public Shared Sub InsertSQL(ByRef table As String, ByRef insert As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = cListe.DBConnectionString
cmd.Connection = con
con.Open()
cmd.CommandText = "INSERT INTO " & table & " " & insert & ""
cmd.ExecuteNonQuery()
con.Close()
End Sub
Public Shared Sub DeleteFromSQL(ByRef table As String, ByRef where As String)
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = cListe.DBConnectionString
cmd.Connection = con
con.Open()
cmd.CommandText = "DELETE " & table & " WHERE " & where & ""
cmd.ExecuteNonQuery()
con.Close()
End Sub
End Class
Public Class SQLTools
Public Shared Function hochkomma(textin As String)
Dim textout As String = textin.Replace("'", "''")
Return (textout)
End Function
Public Shared Function DBNull2emptyString(totest As Object)
If IsDBNull(totest) Then
Return ""
Else
Return totest
End If
End Function
Public Shared Function CheckIfExist(sqlstring As String)
Dim ds As New DataSet
cSQL.SQL2DS(sqlstring, ds)
If ds.Tables(0).Rows.Count > 0 Then
Return True
Else
Return False
End If
End Function
Public Shared Function auf49kuerzen(Str As String)
If Str.Length >= 50 Then
Return Str.Substring(0, 49)
Else
Return Str
End If
End Function
End Class
Public Class SQLVariable
Private Text, Value As String
Private prim As Boolean
Public Sub New(ByVal btext As String, ByVal bvalue As String, Optional bprim As Boolean = False)
Me.Value = bvalue
Me.Text = btext
End Sub
Public ReadOnly Property SQLText() As String
Get
Return Text
End Get
End Property
Public ReadOnly Property SQLValue() As Object
Get
Return Value
End Get
End Property
End Class

108
Gastro/frmMain.Designer.vb generated Normal file
View File

@@ -0,0 +1,108 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMain
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnEmpfaenger = New System.Windows.Forms.Button()
Me.btnMenu = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PanMain = New System.Windows.Forms.Panel()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.Controls.Add(Me.btnEmpfaenger)
Me.Panel1.Controls.Add(Me.btnMenu)
Me.Panel1.Controls.Add(Me.PictureBox1)
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(560, 105)
Me.Panel1.TabIndex = 0
'
'btnEmpfaenger
'
Me.btnEmpfaenger.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnEmpfaenger.Location = New System.Drawing.Point(328, 75)
Me.btnEmpfaenger.Name = "btnEmpfaenger"
Me.btnEmpfaenger.Size = New System.Drawing.Size(75, 23)
Me.btnEmpfaenger.TabIndex = 16
Me.btnEmpfaenger.Text = "Verteiler"
Me.btnEmpfaenger.UseVisualStyleBackColor = True
'
'btnMenu
'
Me.btnMenu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMenu.Location = New System.Drawing.Point(247, 75)
Me.btnMenu.Name = "btnMenu"
Me.btnMenu.Size = New System.Drawing.Size(75, 23)
Me.btnMenu.TabIndex = 15
Me.btnMenu.Text = "Menüs"
Me.btnMenu.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.ErrorImage = Global.Gastro.My.Resources.Resources.gastro
Me.PictureBox1.Image = Global.Gastro.My.Resources.Resources.gastro
Me.PictureBox1.InitialImage = Global.Gastro.My.Resources.Resources.gastro
Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(310, 57)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 14
Me.PictureBox1.TabStop = False
'
'PanMain
'
Me.PanMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.PanMain.Location = New System.Drawing.Point(0, 105)
Me.PanMain.Name = "PanMain"
Me.PanMain.Size = New System.Drawing.Size(560, 659)
Me.PanMain.TabIndex = 1
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.ClientSize = New System.Drawing.Size(560, 764)
Me.Controls.Add(Me.PanMain)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMain"
Me.Text = "GASTRO"
Me.Panel1.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents PanMain As Panel
Private WithEvents btnEmpfaenger As Button
Friend WithEvents btnMenu As Button
End Class

980
Gastro/frmMain.resx Normal file
View File

@@ -0,0 +1,980 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/
///////////////////Bs6q3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCtmo3Bs6r////////////////////Bs6q3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwB0SSb///////////////////////////////////////////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5zu6+n////////////////////Lv7i3p5x0SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3u6+n///////////////////////////////////////+tmo1mMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3u6+n/////////////////////////////////////
//+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
//////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwCjjH339fT/////////////////////
///////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////////
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
///////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwC3
p5z////////////////////////////////////////////////////////m4N10SSZmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwD/
//////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////////+3p5xmMwBmMwBmMwCtmo3u6+n////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwCtmo3u6+n////////////////d1tFm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////Uy8WYfWtmMwBmMwBmMwCtmo3u6+n/
///////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwCAXULu6+n/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+tmo1mMwBmMwBmMwBm
MwBmMwCAXULu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
///Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////+AXUJmMwBmMwBmMwBmMwBmMwCMblj/////
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////+AXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwD39fT///////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwB0SSa3p5y3p5zd1tH////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwCtmo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////B
s6pmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwB0SSa3p5zu6+n///////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDBs6r////////////////m4N1mMwBmMwBmMwBmMwBmMwC3p5z////////////////u6+lm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5y3p5z////////////////////////////////u6+lmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwD39fT///////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////90SSZmMwBmMwBm
MwBmMwCtmo3////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////39fRmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X/////////////////////////////
//////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
//////////////////+MblhmMwBmMwBmMwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBm
MwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
//////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////+tmo1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////+YfWtmMwBmMwBmMwBmMwB0SSb/////
//////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////+YfWtmMwBm
MwBmMwBmMwBmMwBmMwBmMwD39fT///////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////////////d1tG3p5yAXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCjjH3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDUy8X////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////
//+AXUJmMwBmMwBmMwBmMwBmMwDUy8X////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwD///////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////m4N23
p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+YfWtmMwBmMwBmMwBm
MwBmMwBmMwCMblj////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDd1tH///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwDu6+nd1tG3p5y3p5xmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT///////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/
///////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwDLv7j////////////////Lv7hmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwDLv7j/////////////
///Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////39fRmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+MblhmMwBmMwBmMwBmMwBmMwC3
p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////+3p5xmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3////////////////u6+mjjH1mMwBmMwB0SSbLv7j/////
///////////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3////////////////u6+mjjH1m
MwBmMwB0SSbLv7j////////////////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////
//////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////
///////u6+mjjH1mMwBmMwB0SSbBs6r///////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCYfWv/////////////////////////////
//////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwB0SSbm4N3///////////////////////////////////////////////////+YfWtmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwD39fT////////////////////////////////////////////////////////////Uy8VmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////////m4N2MblhmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////
///////m4N2MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////
///////////////////////u6+mYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X/////////
///////39fS3p5yYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5zUy8X////////////////39fS3p5yYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwC3p5zUy8X///////////////////+3p5ytmo1mMwBmMwBmMwBmMwBmMwBmMwBm
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/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////p6fer
q+Krq+Krq+Krq+Krq+L///////////+4uOarq+Krq+Lp6ff09Purq+Krq+Krq+Krq+Krq+LR0e//////
//////////////////////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP////////////////////////R
0e+rq+Krq+Krq+Krq+Krq+K4uOb///////////////////////////////////////+rq+Krq+Krq+Kr
q+Krq+Krq+L////////////////////////////Fxeqrq+Krq+Krq+Krq+Krq+L/////////////////
///////p6ferq+Krq+Krq+Krq+Krq+LFxer///////////////////////////////////+rq+Krq+Kr
q+Krq+Krq+LFxer/////////////////////////////////////////////////////////////////
///////////////////R0e9ZWcsDA70DA70DA70DA70DA70DA70DA72Ojtn09PtERMcDA70DA72rq+L0
9PtZWcsDA70DA70DA70DA71ERMf///////////////////////////////9ZWcsDA70DA70DA70DA70D
A73Fxer////////////09Pudnd0DA70DA70DA70DA70DA70DA70DA70DA70DA71sbNDR0e//////////
//////////////////8pKcIDA70DA70DA70DA70DA73///////////////////////////+dnd0DA70D
A70DA70DA70DA7309Pv///////////////////+rq+IDA70DA70DA70DA70DA72rq+L/////////////
///////////d3fNsbNADA70DA70DA70DA70DA70DA70DA70DA72Ojtn09Pv/////////////////////
//////////////////////////////////////////////+dnd0DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA71ERMcDA70DA70DA72Ojtn////R0e8DA70DA70DA70DA70DA724uOb/////////////////
//////////8DA70DA70DA70DA70DA70DA7309Pv////////R0e8pKcIDA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA72rq+L///////////////////////9+ftQDA70DA70DA70DA70DA73d3fP/
//////////////////////+4uOYDA70DA70DA70DA70DA73R0e////////////////////9ZWcsDA70D
A70DA70DA70DA73d3fP///////////////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70pKcLR0e////////////////////////////////////////////////////////////+rq+ID
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////9sbNADA70D
A70DA70DA71ZWcv////////////////////////p6fcDA70DA70DA70DA70DA71ERMf////////d3fMD
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////////////////
//+rq+IDA70DA70DA70DA70DA73Fxer////////////////////////d3fMDA70DA70DA70DA70DA72r
q+L////////////////09PsDA70DA70DA70DA70DA71ZWcv////////////////////FxeoDA70DA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73R0e//////////////////////////////
///////////////////////p6fcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA7309Pv////R0e8DA70DA70DA70DA70DA72dnd2rq+Krq+Krq+Krq+Krq+KOjtkDA70D
A70DA70DA70DA71+ftT///////9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70pKcL09Pv////////////////FxeoDA70DA70DA70DA70DA72dnd3/////////////////
///////09PsDA70DA70DA70DA70DA72dnd3////////////////FxeoDA70DA70DA70DA70DA72dnd3/
///////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70p
KcLp6ff///////////////////////////////////////////////+dnd0DA70DA70DA70DA70DA70D
A72Ojtn09Pv///////+OjtkDA70DA70DA70DA70DA70DA73d3fP///////9sbNADA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3////d3fMDA70DA70DA70DA70DA70D
A71+ftTd3fP///////+rq+IpKcIDA70DA70DA70DA70DA73Fxer////////////////p6fcDA70DA70D
A70DA70DA71+ftT///////////////////////////9ZWcsDA70DA70DA70DA71ZWcv/////////////
//9+ftQDA70DA70DA70DA70DA73R0e////////////////+rq+IDA70DA70DA70DA70DA70pKcK4uOb/
//////+rq+IDA70DA70DA70DA70DA70DA71+ftT/////////////////////////////////////////
//////9ZWcsDA70DA70DA70DA70DA72dnd3///////////////////+OjtkDA70DA70DA70DA70DA72r
q+L////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724
uOb///+dnd0DA70DA70DA70DA70DA72dnd3///////////////////+rq+IDA70DA70DA70DA70DA72r
q+L///////////////////8pKcIDA70DA70DA70DA70pKcL///////////////////////////9+ftQD
A70DA70DA70DA70pKcL///////////////8pKcIDA70DA70DA70DA70pKcL///////////////////9+
ftQDA70DA70DA70DA70DA73Fxer////////////////FxeoDA70DA70DA70DA70DA70DA73R0e//////
//////////////////////////////////////8DA70DA70DA70DA70DA70DA73p6ff////p6ferq+Kr
q+Krq+KOjtkDA70DA70DA70DA70DA72Ojtn///////////9sbNADA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA73d3fP////Fxeqrq+Krq+IpKcIDA70DA7309Pv/////////////
///d3fNsbNADA70DA70DA70DA70DA72rq+L///////////////////9ZWcsDA70DA70DA70DA70DA730
9Pv///////////////////////+rq+IDA70DA70DA70DA70DA73p6ff////////d3fMDA70DA70DA70D
A70DA71+ftT///////////////////8pKcIDA70DA70DA70DA70pKcL///////////////////////9+
ftQDA70DA70DA70DA70DA72Ojtn///////////////////////////////////////////8DA70DA70D
A70DA70DA70pKcL////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv////////////R
0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73/////////////////
///////////////////////R0e+rq+JERMcDA70DA70DA70DA70DA70DA70DA72rq+L/////////////
//////+dnd0DA70DA70DA70DA70DA73R0e/////////////////////////FxeoDA70DA70DA70DA70D
A72Ojtmrq+Krq+J+ftQDA70DA70DA70DA70DA73Fxer///////////////////8DA70DA70DA70DA70D
A71sbND////////////////////////R0e8DA70DA70DA70DA70DA70pKcL/////////////////////
//////////////////////8DA70DA70DA70DA70DA70DA73///////////8DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA7309Pv///////////9sbNADA70DA70DA70DA72Ojtn////////09PsDA70DA70D
A70DA70DA71ZWcv////////////////////////////d3fOdnd0DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA73p6ff///////////////////+rq+IDA70DA70DA70DA70DA72rq+L/////////////
///////////p6fcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3p6ff/
//////////////8DA70DA70DA70DA70DA71ZWcv///////////////////////////8pKcIDA70DA70D
A70DA70DA73p6ff///////////////////////////////////////8DA70DA70DA70DA70DA70DA73d
3fP///////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP////////////R0e8DA70DA70D
A70DA70DA73p6ff////d3fMDA70DA70DA70DA70DA71+ftT///////////////////////+dnd0DA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3////////////////////////R0e8DA70D
A70DA70DA70DA72Ojtn///////////////////////////8pKcIDA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA72dnd3///////////8DA70DA70DA70DA70DA70pKcL/////////
//////////////////9+ftQDA70DA70DA70DA70DA73R0e//////////////////////////////////
//////9ERMcDA70DA70DA70DA70DA72rq+L///////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70D
A72rq+L///////////////9sbNADA70DA70DA70DA72rq+L////FxeoDA70DA70DA70DA70DA72rq+L/
//////////////////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////
///////////////////////09PsDA70DA70DA70DA70DA71ZWcv///////////////////////////9Z
WcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////9E
RMcDA70DA70DA70DA70DA73d3fP///////////////////////+rq+IDA70DA70DA70DA70DA73Fxer/
//////////////////////////////////////9+ftQDA70DA70DA70DA70DA71+ftT/////////////
///////////////////////////////////////////////////////R0e8DA70DA70DA70DA70pKcL0
9Purq+IDA70DA70DA70DA70DA73Fxer////////////////09PsDA70DA70DA70DA70DA70DA70DA70D
A70DA70DA71ERMerq+L09Pv///////////////////////////////////9ERMcDA70DA70DA70DA70p
KcL///////////////////////////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA73p6ff///9+ftQDA70DA70DA70DA70DA72rq+L/////////////////////
//+4uOYDA70DA70DA70DA70DA724uOb///////////////////////////////////////+rq+IDA70D
A70DA70DA70DA70DA73p6ff///////////////////////+rq+Krq+LFxer/////////////////////
//////////9sbNADA70DA70DA70DA72rq+KOjtkDA70DA70DA70DA70DA73p6ff////////////////F
xeoDA70DA70DA70DA70DA70DA70DA72Ojtmrq+L09Pv/////////////////////////////////////
//////////9+ftQDA70DA70DA70DA70DA73d3fP///////////////////////+rq+IDA70DA70DA70D
A70DA73d3fP///////////////+rq+IpKcIDA70DA70DA70DA70DA72dnd3///+rq+IDA70DA70DA70D
A70DA71ERMf///////////////////////+rq+IDA70DA70DA70DA70DA73R0e//////////////////
///////////////////////09PsDA70DA70DA70DA70DA70DA71+ftT////////////////////R0e8D
A70DA70DA70DA70DA72rq+L////////////////////R0e8DA70DA70DA70DA70pKcJZWcsDA70DA70D
A70DA70pKcL///////////////////+4uOYDA70DA70DA70DA70DA72dnd3////////////////p6fer
q+Krq+L///////////////////////////////////+rq+IDA70DA70DA70DA70DA73Fxer/////////
///////////////R0e8DA70DA70DA70DA70DA73Fxer////////////////////R0e8DA70DA70DA70D
A70DA71+ftT////09PsDA70DA70DA70DA70DA70DA724uOb///////////////////9sbNADA70DA70D
A70DA70DA73d3fP///////////////////////////////////////////+dnd0DA70DA70DA70DA70D
A70DA72dnd3////////////09PtZWcsDA70DA70DA70DA70DA73Fxer///////////////////////9s
bNADA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////+4uOYDA70DA70DA70D
A70DA73Fxer///////////////9sbNADA70DA70DA70DA71+ftT09Pv////////////////////FxeoD
A70DA70DA70DA70DA72dnd3////////////////////////09PsDA70DA70DA70DA70DA72rq+L/////
//////////////+rq+IDA70DA70DA70DA70DA71+ftT///////+OjtkDA70DA70DA70DA70DA70pKcLR
0e////////////+4uOYDA70DA70DA70DA70DA70pKcL/////////////////////////////////////
///////////09PtERMcDA70DA70DA70DA70DA70DA71ERMerq+Krq+IDA70DA70DA70DA70DA70DA70p
KcL09Pv////////////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn/////
///////////////p6fcDA70DA70DA70DA70DA70DA71+ftSrq+Krq+IDA70DA70DA70DA70DA70DA71E
RMf09PvR0e+rq+Krq+Krq+Krq+KOjtkDA70DA70DA70DA70DA71ZWcurq+Krq+Krq+Krq+Krq+L09Pv/
//9ERMcDA70DA70DA70DA71ZWcurq+Krq+Krq+Krq+JsbNADA70DA70DA70DA70DA70DA72dnd3/////
///09PspKcIDA70DA70DA70DA70DA70DA71+ftSrq+J+ftQDA70DA70DA70DA70DA70DA72rq+L/////
///////////////////////////////////////////////d3fMDA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////////////////9sbNADA70DA70D
A70DA70DA70DA70DA70DA72rq+L///////////////////////9+ftQDA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA724uOb///+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA73R0e////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA73R0e/////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA71ERMf09Pv/////////////////////////////////////////////////////
///R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/////////////////
///////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA73R0e//////////////////////
///p6fdERMcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT////////d3fMDA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///+dnd0DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////////////////+4uOYD
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP/////////////////////////
///////////////////////////////////////p6fdsbNADA70DA70DA70DA70DA70DA70DA70DA70D
A70DA72Ojtn///////////////////////////////////////////9sbNADA70DA70DA70DA70DA70D
A70DA7309Pv////////////////////////////p6fdZWcsDA70DA70DA70DA70DA70DA70DA70DA70D
A70DA72rq+L////////////09PsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA72Ojtn///+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71s
bND////////////////////////////R0e9ERMcDA70DA70DA70DA70DA70DA70DA70DA70DA71ERMfd
3fP////////////////////////////////////////////////////////////////////////////R
0e+rq+IpKcIDA70DA70DA70DA71ERMerq+Ld3fP/////////////////////////////////////////
///////R0e8DA70DA70DA70DA70DA70DA70pKcL////////////////////////////////////////F
xeqdnd0DA70DA70DA70DA70DA71ZWcurq+Lp6ff///////////////////9ERMcDA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND////d3fMDA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70pKcKrq+LFxer///////////////////////////////////////+rq+KOjtkD
A70DA70DA70DA70DA72Ojtm4uOb/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

46
Gastro/frmMain.vb Normal file
View File

@@ -0,0 +1,46 @@
Public Class frmMain
Public sAppPath As String = Application.StartupPath
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
LoadParameters()
btnMenu.PerformClick()
End Sub
Private Sub btnMenu_Click(sender As Object, e As EventArgs) Handles btnMenu.Click, btnEmpfaenger.Click
btnMenu.BackColor = Color.White
btnEmpfaenger.BackColor = Color.White
Dim bigbut As Button = sender
bigbut.BackColor = Color.LightBlue
PanMain.Controls.Clear()
Select Case sender.name
Case "btnMenu"
Dim usrcntrl As New usrcntlMittagsmenues : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
Case "btnEmpfaenger"
Dim usrcntrl As New usrcntlVerteiler : usrcntrl.Dock = DockStyle.Fill : PanMain.Controls.Add(usrcntrl)
End Select
End Sub
Private Function LoadParameters()
Dim lines = IO.File.ReadAllLines(sAppPath & "\start.ini")
Dim colCount = lines.First.Split(";"c).Length
For Each line In lines
Dim objFields = From field In line.Split(";"c)
Select Case objFields(0).ToString
Case "DBConnection"
cListe.selectDBConnection(objFields(1).ToString)
Case "PDFUploadPath"
cListe.PDFUploadPath = objFields(1).ToString
End Select
Next
End Function
End Class

648
Gastro/frmMenu.Designer.vb generated Normal file
View File

@@ -0,0 +1,648 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMenu
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMenu))
Me.Label1 = New System.Windows.Forms.Label()
Me.txtMenuTitel = New System.Windows.Forms.TextBox()
Me.chkPrint = New System.Windows.Forms.CheckBox()
Me.dtpVon = New System.Windows.Forms.DateTimePicker()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.dtpbis = New System.Windows.Forms.DateTimePicker()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtDetail1 = New System.Windows.Forms.TextBox()
Me.txtDetail3 = New System.Windows.Forms.TextBox()
Me.txtDetail2 = New System.Windows.Forms.TextBox()
Me.btnLaufendeWoche = New System.Windows.Forms.Button()
Me.btnNaechsteWoche = New System.Windows.Forms.Button()
Me.btnWochePlus = New System.Windows.Forms.Button()
Me.btnWocheMinus = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PanSuppe = New System.Windows.Forms.Panel()
Me.chkPrintSuppe = New System.Windows.Forms.CheckBox()
Me.txtSuppe = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.txtMontag = New System.Windows.Forms.TextBox()
Me.lblMontag = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.txtDienstag = New System.Windows.Forms.TextBox()
Me.lblDienstag = New System.Windows.Forms.Label()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.txtMittwoch = New System.Windows.Forms.TextBox()
Me.lblMittwoch = New System.Windows.Forms.Label()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.txtDonnerstag = New System.Windows.Forms.TextBox()
Me.lblDonnerstag = New System.Windows.Forms.Label()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.txtFreitag = New System.Windows.Forms.TextBox()
Me.lblFreitag = New System.Windows.Forms.Label()
Me.btnSpeichern = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.PanSpeise = New System.Windows.Forms.Panel()
Me.btnTest = New System.Windows.Forms.Button()
Me.coboMenuArt = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.panDebug = New System.Windows.Forms.Panel()
Me.PanLeft = New System.Windows.Forms.Panel()
Me.btnFTP = New System.Windows.Forms.Button()
Me.btnMail = New System.Windows.Forms.Button()
Me.btnMake = New System.Windows.Forms.Button()
Me.Panel1.SuspendLayout()
Me.PanSuppe.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.Panel5.SuspendLayout()
Me.Panel6.SuspendLayout()
Me.panDebug.SuspendLayout()
Me.PanLeft.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 8)
Me.Label1.Margin = New System.Windows.Forms.Padding(3, 8, 3, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(27, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Titel"
'
'txtMenuTitel
'
Me.txtMenuTitel.Location = New System.Drawing.Point(15, 24)
Me.txtMenuTitel.Name = "txtMenuTitel"
Me.txtMenuTitel.Size = New System.Drawing.Size(400, 20)
Me.txtMenuTitel.TabIndex = 1
Me.txtMenuTitel.Text = "Mittagsmenü"
'
'chkPrint
'
Me.chkPrint.AutoSize = True
Me.chkPrint.Location = New System.Drawing.Point(421, 27)
Me.chkPrint.Name = "chkPrint"
Me.chkPrint.Size = New System.Drawing.Size(94, 17)
Me.chkPrint.TabIndex = 2
Me.chkPrint.Text = "Titel drucken?"
Me.chkPrint.UseVisualStyleBackColor = True
'
'dtpVon
'
Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpVon.Location = New System.Drawing.Point(15, 71)
Me.dtpVon.Name = "dtpVon"
Me.dtpVon.Size = New System.Drawing.Size(100, 20)
Me.dtpVon.TabIndex = 3
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 55)
Me.Label2.Margin = New System.Windows.Forms.Padding(3, 8, 3, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(29, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Von:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(118, 55)
Me.Label3.Margin = New System.Windows.Forms.Padding(3, 8, 3, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(24, 13)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Bis:"
'
'dtpbis
'
Me.dtpbis.Enabled = False
Me.dtpbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpbis.Location = New System.Drawing.Point(121, 71)
Me.dtpbis.Name = "dtpbis"
Me.dtpbis.Size = New System.Drawing.Size(100, 20)
Me.dtpbis.TabIndex = 5
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(244, 55)
Me.Label4.Margin = New System.Windows.Forms.Padding(3, 8, 3, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(42, 13)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Details:"
'
'txtDetail1
'
Me.txtDetail1.Location = New System.Drawing.Point(247, 71)
Me.txtDetail1.Name = "txtDetail1"
Me.txtDetail1.Size = New System.Drawing.Size(268, 20)
Me.txtDetail1.TabIndex = 4
'
'txtDetail3
'
Me.txtDetail3.Location = New System.Drawing.Point(247, 123)
Me.txtDetail3.Name = "txtDetail3"
Me.txtDetail3.Size = New System.Drawing.Size(268, 20)
Me.txtDetail3.TabIndex = 6
'
'txtDetail2
'
Me.txtDetail2.Location = New System.Drawing.Point(247, 97)
Me.txtDetail2.Name = "txtDetail2"
Me.txtDetail2.Size = New System.Drawing.Size(268, 20)
Me.txtDetail2.TabIndex = 5
'
'btnLaufendeWoche
'
Me.btnLaufendeWoche.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnLaufendeWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLaufendeWoche.Location = New System.Drawing.Point(40, 97)
Me.btnLaufendeWoche.Name = "btnLaufendeWoche"
Me.btnLaufendeWoche.Size = New System.Drawing.Size(75, 23)
Me.btnLaufendeWoche.TabIndex = 11
Me.btnLaufendeWoche.Text = "laufend"
Me.btnLaufendeWoche.UseVisualStyleBackColor = False
'
'btnNaechsteWoche
'
Me.btnNaechsteWoche.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnNaechsteWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNaechsteWoche.Location = New System.Drawing.Point(121, 97)
Me.btnNaechsteWoche.Name = "btnNaechsteWoche"
Me.btnNaechsteWoche.Size = New System.Drawing.Size(75, 23)
Me.btnNaechsteWoche.TabIndex = 12
Me.btnNaechsteWoche.Text = "nächste"
Me.btnNaechsteWoche.UseVisualStyleBackColor = False
'
'btnWochePlus
'
Me.btnWochePlus.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnWochePlus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWochePlus.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnWochePlus.Location = New System.Drawing.Point(198, 97)
Me.btnWochePlus.Name = "btnWochePlus"
Me.btnWochePlus.Size = New System.Drawing.Size(23, 23)
Me.btnWochePlus.TabIndex = 13
Me.btnWochePlus.Text = "+"
Me.btnWochePlus.UseVisualStyleBackColor = False
'
'btnWocheMinus
'
Me.btnWocheMinus.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnWocheMinus.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWocheMinus.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnWocheMinus.Location = New System.Drawing.Point(15, 97)
Me.btnWocheMinus.Name = "btnWocheMinus"
Me.btnWocheMinus.Size = New System.Drawing.Size(23, 23)
Me.btnWocheMinus.TabIndex = 14
Me.btnWocheMinus.Text = "-"
Me.btnWocheMinus.UseVisualStyleBackColor = False
'
'Panel1
'
Me.Panel1.Controls.Add(Me.txtMenuTitel)
Me.Panel1.Controls.Add(Me.btnWocheMinus)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.btnWochePlus)
Me.Panel1.Controls.Add(Me.chkPrint)
Me.Panel1.Controls.Add(Me.btnNaechsteWoche)
Me.Panel1.Controls.Add(Me.dtpVon)
Me.Panel1.Controls.Add(Me.btnLaufendeWoche)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.txtDetail2)
Me.Panel1.Controls.Add(Me.dtpbis)
Me.Panel1.Controls.Add(Me.txtDetail3)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.txtDetail1)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Location = New System.Drawing.Point(3, 12)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(533, 151)
Me.Panel1.TabIndex = 15
'
'PanSuppe
'
Me.PanSuppe.Controls.Add(Me.chkPrintSuppe)
Me.PanSuppe.Controls.Add(Me.txtSuppe)
Me.PanSuppe.Controls.Add(Me.Label5)
Me.PanSuppe.Location = New System.Drawing.Point(3, 169)
Me.PanSuppe.Name = "PanSuppe"
Me.PanSuppe.Size = New System.Drawing.Size(533, 100)
Me.PanSuppe.TabIndex = 16
'
'chkPrintSuppe
'
Me.chkPrintSuppe.AutoSize = True
Me.chkPrintSuppe.Location = New System.Drawing.Point(121, 6)
Me.chkPrintSuppe.Name = "chkPrintSuppe"
Me.chkPrintSuppe.Size = New System.Drawing.Size(105, 17)
Me.chkPrintSuppe.TabIndex = 500
Me.chkPrintSuppe.Text = "Suppe drucken?"
Me.chkPrintSuppe.UseVisualStyleBackColor = True
'
'txtSuppe
'
Me.txtSuppe.Location = New System.Drawing.Point(40, 25)
Me.txtSuppe.Multiline = True
Me.txtSuppe.Name = "txtSuppe"
Me.txtSuppe.Size = New System.Drawing.Size(475, 55)
Me.txtSuppe.TabIndex = 7
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(37, 5)
Me.Label5.Margin = New System.Windows.Forms.Padding(3, 5, 3, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(54, 17)
Me.Label5.TabIndex = 0
Me.Label5.Text = "Suppe"
'
'Panel2
'
Me.Panel2.Controls.Add(Me.txtMontag)
Me.Panel2.Controls.Add(Me.lblMontag)
Me.Panel2.Location = New System.Drawing.Point(3, 275)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(533, 85)
Me.Panel2.TabIndex = 17
'
'txtMontag
'
Me.txtMontag.Location = New System.Drawing.Point(40, 25)
Me.txtMontag.Multiline = True
Me.txtMontag.Name = "txtMontag"
Me.txtMontag.Size = New System.Drawing.Size(475, 55)
Me.txtMontag.TabIndex = 8
'
'lblMontag
'
Me.lblMontag.AutoSize = True
Me.lblMontag.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMontag.Location = New System.Drawing.Point(37, 5)
Me.lblMontag.Margin = New System.Windows.Forms.Padding(3, 5, 3, 0)
Me.lblMontag.Name = "lblMontag"
Me.lblMontag.Size = New System.Drawing.Size(61, 17)
Me.lblMontag.TabIndex = 0
Me.lblMontag.Text = "Montag"
'
'Panel3
'
Me.Panel3.Controls.Add(Me.txtDienstag)
Me.Panel3.Controls.Add(Me.lblDienstag)
Me.Panel3.Location = New System.Drawing.Point(3, 366)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(533, 85)
Me.Panel3.TabIndex = 18
'
'txtDienstag
'
Me.txtDienstag.Location = New System.Drawing.Point(40, 22)
Me.txtDienstag.Multiline = True
Me.txtDienstag.Name = "txtDienstag"
Me.txtDienstag.Size = New System.Drawing.Size(475, 55)
Me.txtDienstag.TabIndex = 9
'
'lblDienstag
'
Me.lblDienstag.AutoSize = True
Me.lblDienstag.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDienstag.Location = New System.Drawing.Point(37, 2)
Me.lblDienstag.Margin = New System.Windows.Forms.Padding(3, 5, 3, 0)
Me.lblDienstag.Name = "lblDienstag"
Me.lblDienstag.Size = New System.Drawing.Size(72, 17)
Me.lblDienstag.TabIndex = 0
Me.lblDienstag.Text = "Dienstag"
'
'Panel4
'
Me.Panel4.Controls.Add(Me.txtMittwoch)
Me.Panel4.Controls.Add(Me.lblMittwoch)
Me.Panel4.Location = New System.Drawing.Point(3, 457)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(533, 85)
Me.Panel4.TabIndex = 18
'
'txtMittwoch
'
Me.txtMittwoch.Location = New System.Drawing.Point(40, 25)
Me.txtMittwoch.Multiline = True
Me.txtMittwoch.Name = "txtMittwoch"
Me.txtMittwoch.Size = New System.Drawing.Size(475, 55)
Me.txtMittwoch.TabIndex = 10
'
'lblMittwoch
'
Me.lblMittwoch.AutoSize = True
Me.lblMittwoch.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMittwoch.Location = New System.Drawing.Point(37, 5)
Me.lblMittwoch.Margin = New System.Windows.Forms.Padding(3, 5, 3, 0)
Me.lblMittwoch.Name = "lblMittwoch"
Me.lblMittwoch.Size = New System.Drawing.Size(70, 17)
Me.lblMittwoch.TabIndex = 0
Me.lblMittwoch.Text = "Mittwoch"
'
'Panel5
'
Me.Panel5.Controls.Add(Me.txtDonnerstag)
Me.Panel5.Controls.Add(Me.lblDonnerstag)
Me.Panel5.Location = New System.Drawing.Point(3, 548)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(533, 85)
Me.Panel5.TabIndex = 18
'
'txtDonnerstag
'
Me.txtDonnerstag.Location = New System.Drawing.Point(40, 25)
Me.txtDonnerstag.Multiline = True
Me.txtDonnerstag.Name = "txtDonnerstag"
Me.txtDonnerstag.Size = New System.Drawing.Size(475, 55)
Me.txtDonnerstag.TabIndex = 11
'
'lblDonnerstag
'
Me.lblDonnerstag.AutoSize = True
Me.lblDonnerstag.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDonnerstag.Location = New System.Drawing.Point(37, 5)
Me.lblDonnerstag.Margin = New System.Windows.Forms.Padding(3, 5, 3, 0)
Me.lblDonnerstag.Name = "lblDonnerstag"
Me.lblDonnerstag.Size = New System.Drawing.Size(92, 17)
Me.lblDonnerstag.TabIndex = 0
Me.lblDonnerstag.Text = "Donnerstag"
'
'Panel6
'
Me.Panel6.Controls.Add(Me.txtFreitag)
Me.Panel6.Controls.Add(Me.lblFreitag)
Me.Panel6.Location = New System.Drawing.Point(3, 639)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(533, 85)
Me.Panel6.TabIndex = 18
'
'txtFreitag
'
Me.txtFreitag.Location = New System.Drawing.Point(40, 25)
Me.txtFreitag.Multiline = True
Me.txtFreitag.Name = "txtFreitag"
Me.txtFreitag.Size = New System.Drawing.Size(475, 55)
Me.txtFreitag.TabIndex = 12
'
'lblFreitag
'
Me.lblFreitag.AutoSize = True
Me.lblFreitag.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFreitag.Location = New System.Drawing.Point(37, 5)
Me.lblFreitag.Margin = New System.Windows.Forms.Padding(3, 5, 3, 0)
Me.lblFreitag.Name = "lblFreitag"
Me.lblFreitag.Size = New System.Drawing.Size(59, 17)
Me.lblFreitag.TabIndex = 0
Me.lblFreitag.Text = "Freitag"
'
'btnSpeichern
'
Me.btnSpeichern.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSpeichern.Location = New System.Drawing.Point(43, 735)
Me.btnSpeichern.Margin = New System.Windows.Forms.Padding(8)
Me.btnSpeichern.Name = "btnSpeichern"
Me.btnSpeichern.Size = New System.Drawing.Size(85, 37)
Me.btnSpeichern.TabIndex = 13
Me.btnSpeichern.Text = "Speichern"
Me.btnSpeichern.UseVisualStyleBackColor = False
'
'btnCancel
'
Me.btnCancel.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCancel.Location = New System.Drawing.Point(43, 788)
Me.btnCancel.Margin = New System.Windows.Forms.Padding(8)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(85, 37)
Me.btnCancel.TabIndex = 16
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = False
'
'PanSpeise
'
Me.PanSpeise.AutoSize = True
Me.PanSpeise.Dock = System.Windows.Forms.DockStyle.Fill
Me.PanSpeise.Location = New System.Drawing.Point(552, 0)
Me.PanSpeise.Margin = New System.Windows.Forms.Padding(3, 3, 8, 3)
Me.PanSpeise.Name = "PanSpeise"
Me.PanSpeise.Size = New System.Drawing.Size(683, 849)
Me.PanSpeise.TabIndex = 501
'
'btnTest
'
Me.btnTest.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnTest.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnTest.Location = New System.Drawing.Point(13, 17)
Me.btnTest.Name = "btnTest"
Me.btnTest.Size = New System.Drawing.Size(75, 23)
Me.btnTest.TabIndex = 24
Me.btnTest.Text = "Test"
Me.btnTest.UseVisualStyleBackColor = False
'
'coboMenuArt
'
Me.coboMenuArt.FormattingEnabled = True
Me.coboMenuArt.Items.AddRange(New Object() {"Standard", "Weihnachten", "Ostern", "Frühling", "Sommer", "Herbst", "Winter"})
Me.coboMenuArt.Location = New System.Drawing.Point(151, 751)
Me.coboMenuArt.Name = "coboMenuArt"
Me.coboMenuArt.Size = New System.Drawing.Size(104, 21)
Me.coboMenuArt.TabIndex = 502
Me.coboMenuArt.Text = "Standard"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(150, 735)
Me.Label6.Margin = New System.Windows.Forms.Padding(3, 8, 3, 0)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(49, 13)
Me.Label6.TabIndex = 15
Me.Label6.Text = "Menuart:"
'
'panDebug
'
Me.panDebug.Controls.Add(Me.btnTest)
Me.panDebug.Location = New System.Drawing.Point(201, 783)
Me.panDebug.Name = "panDebug"
Me.panDebug.Size = New System.Drawing.Size(138, 59)
Me.panDebug.TabIndex = 503
'
'PanLeft
'
Me.PanLeft.Controls.Add(Me.Label6)
Me.PanLeft.Controls.Add(Me.Panel1)
Me.PanLeft.Controls.Add(Me.panDebug)
Me.PanLeft.Controls.Add(Me.coboMenuArt)
Me.PanLeft.Controls.Add(Me.PanSuppe)
Me.PanLeft.Controls.Add(Me.btnFTP)
Me.PanLeft.Controls.Add(Me.Panel2)
Me.PanLeft.Controls.Add(Me.btnMail)
Me.PanLeft.Controls.Add(Me.Panel3)
Me.PanLeft.Controls.Add(Me.btnMake)
Me.PanLeft.Controls.Add(Me.Panel4)
Me.PanLeft.Controls.Add(Me.Panel5)
Me.PanLeft.Controls.Add(Me.btnCancel)
Me.PanLeft.Controls.Add(Me.Panel6)
Me.PanLeft.Controls.Add(Me.btnSpeichern)
Me.PanLeft.Dock = System.Windows.Forms.DockStyle.Left
Me.PanLeft.Location = New System.Drawing.Point(0, 0)
Me.PanLeft.Margin = New System.Windows.Forms.Padding(3, 3, 8, 3)
Me.PanLeft.Name = "PanLeft"
Me.PanLeft.Size = New System.Drawing.Size(552, 849)
Me.PanLeft.TabIndex = 502
'
'btnFTP
'
Me.btnFTP.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.btnFTP.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.btnFTP.Image = Global.Gastro.My.Resources.Resources.LogOff20
Me.btnFTP.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFTP.Location = New System.Drawing.Point(433, 788)
Me.btnFTP.Margin = New System.Windows.Forms.Padding(8)
Me.btnFTP.Name = "btnFTP"
Me.btnFTP.Size = New System.Drawing.Size(85, 37)
Me.btnFTP.TabIndex = 17
Me.btnFTP.Text = "Homepage"
Me.btnFTP.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFTP.UseVisualStyleBackColor = False
'
'btnMail
'
Me.btnMail.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.btnMail.Image = Global.Gastro.My.Resources.Resources.mail201
Me.btnMail.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnMail.Location = New System.Drawing.Point(433, 735)
Me.btnMail.Margin = New System.Windows.Forms.Padding(8)
Me.btnMail.Name = "btnMail"
Me.btnMail.Size = New System.Drawing.Size(85, 37)
Me.btnMail.TabIndex = 15
Me.btnMail.Text = "Mail"
Me.btnMail.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMail.UseVisualStyleBackColor = False
'
'btnMake
'
Me.btnMake.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.btnMake.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.btnMake.Image = Global.Gastro.My.Resources.Resources.Print20x20
Me.btnMake.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnMake.Location = New System.Drawing.Point(332, 735)
Me.btnMake.Margin = New System.Windows.Forms.Padding(8)
Me.btnMake.Name = "btnMake"
Me.btnMake.Size = New System.Drawing.Size(85, 37)
Me.btnMake.TabIndex = 14
Me.btnMake.Text = "Erstellen"
Me.btnMake.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMake.UseVisualStyleBackColor = False
'
'frmMenu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.ClientSize = New System.Drawing.Size(1235, 849)
Me.Controls.Add(Me.PanSpeise)
Me.Controls.Add(Me.PanLeft)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMenu"
Me.Text = "Menü"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.PanSuppe.ResumeLayout(False)
Me.PanSuppe.PerformLayout()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
Me.Panel5.ResumeLayout(False)
Me.Panel5.PerformLayout()
Me.Panel6.ResumeLayout(False)
Me.Panel6.PerformLayout()
Me.panDebug.ResumeLayout(False)
Me.PanLeft.ResumeLayout(False)
Me.PanLeft.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents txtMenuTitel As TextBox
Friend WithEvents chkPrint As CheckBox
Friend WithEvents dtpVon As DateTimePicker
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents dtpbis As DateTimePicker
Friend WithEvents Label4 As Label
Friend WithEvents txtDetail1 As TextBox
Friend WithEvents txtDetail3 As TextBox
Friend WithEvents txtDetail2 As TextBox
Friend WithEvents btnLaufendeWoche As Button
Friend WithEvents btnNaechsteWoche As Button
Friend WithEvents btnWochePlus As Button
Friend WithEvents btnWocheMinus As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents PanSuppe As Panel
Friend WithEvents txtSuppe As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents Panel2 As Panel
Friend WithEvents txtMontag As TextBox
Friend WithEvents lblMontag As Label
Friend WithEvents Panel3 As Panel
Friend WithEvents txtDienstag As TextBox
Friend WithEvents lblDienstag As Label
Friend WithEvents Panel4 As Panel
Friend WithEvents txtMittwoch As TextBox
Friend WithEvents lblMittwoch As Label
Friend WithEvents Panel5 As Panel
Friend WithEvents txtDonnerstag As TextBox
Friend WithEvents lblDonnerstag As Label
Friend WithEvents Panel6 As Panel
Friend WithEvents txtFreitag As TextBox
Friend WithEvents lblFreitag As Label
Friend WithEvents btnSpeichern As Button
Friend WithEvents btnCancel As Button
Friend WithEvents PanSpeise As Panel
Friend WithEvents chkPrintSuppe As CheckBox
Friend WithEvents btnMake As Button
Friend WithEvents btnMail As Button
Friend WithEvents btnTest As Button
Friend WithEvents btnFTP As Button
Friend WithEvents coboMenuArt As ComboBox
Friend WithEvents Label6 As Label
Friend WithEvents panDebug As Panel
Friend WithEvents PanLeft As Panel
End Class

980
Gastro/frmMenu.resx Normal file
View File

@@ -0,0 +1,980 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/
///////////////////Bs6q3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCtmo3Bs6r////////////////////Bs6q3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwB0SSb///////////////////////////////////////////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5zu6+n////////////////////Lv7i3p5x0SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3u6+n///////////////////////////////////////+tmo1mMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3u6+n/////////////////////////////////////
//+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
//////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwCjjH339fT/////////////////////
///////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////////
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
///////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwC3
p5z////////////////////////////////////////////////////////m4N10SSZmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwD/
//////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////////+3p5xmMwBmMwBmMwCtmo3u6+n////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwCtmo3u6+n////////////////d1tFm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////Uy8WYfWtmMwBmMwBmMwCtmo3u6+n/
///////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwCAXULu6+n/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+tmo1mMwBmMwBmMwBm
MwBmMwCAXULu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
///Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////+AXUJmMwBmMwBmMwBmMwBmMwCMblj/////
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////+AXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwD39fT///////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwB0SSa3p5y3p5zd1tH////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwCtmo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////B
s6pmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwB0SSa3p5zu6+n///////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDBs6r////////////////m4N1mMwBmMwBmMwBmMwBmMwC3p5z////////////////u6+lm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5y3p5z////////////////////////////////u6+lmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwD39fT///////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////90SSZmMwBmMwBm
MwBmMwCtmo3////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////39fRmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X/////////////////////////////
//////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
//////////////////+MblhmMwBmMwBmMwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBm
MwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
//////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////+tmo1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////+YfWtmMwBmMwBmMwBmMwB0SSb/////
//////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////+YfWtmMwBm
MwBmMwBmMwBmMwBmMwBmMwD39fT///////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////////////d1tG3p5yAXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCjjH3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDUy8X////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////
//+AXUJmMwBmMwBmMwBmMwBmMwDUy8X////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwD///////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////m4N23
p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+YfWtmMwBmMwBmMwBm
MwBmMwBmMwCMblj////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDd1tH///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwDu6+nd1tG3p5y3p5xmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT///////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/
///////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwDLv7j////////////////Lv7hmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwDLv7j/////////////
///Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////39fRmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+MblhmMwBmMwBmMwBmMwBmMwC3
p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////+3p5xmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3////////////////u6+mjjH1mMwBmMwB0SSbLv7j/////
///////////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3////////////////u6+mjjH1m
MwBmMwB0SSbLv7j////////////////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////
//////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////
///////u6+mjjH1mMwBmMwB0SSbBs6r///////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCYfWv/////////////////////////////
//////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwB0SSbm4N3///////////////////////////////////////////////////+YfWtmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwD39fT////////////////////////////////////////////////////////////Uy8VmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////////m4N2MblhmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////
///////m4N2MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////
///////////////////////u6+mYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X/////////
///////39fS3p5yYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5zUy8X////////////////39fS3p5yYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwC3p5zUy8X///////////////////+3p5ytmo1mMwBmMwBmMwBmMwBmMwBmMwBm
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/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////p6fer
q+Krq+Krq+Krq+Krq+L///////////+4uOarq+Krq+Lp6ff09Purq+Krq+Krq+Krq+Krq+LR0e//////
//////////////////////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP////////////////////////R
0e+rq+Krq+Krq+Krq+Krq+K4uOb///////////////////////////////////////+rq+Krq+Krq+Kr
q+Krq+Krq+L////////////////////////////Fxeqrq+Krq+Krq+Krq+Krq+L/////////////////
///////p6ferq+Krq+Krq+Krq+Krq+LFxer///////////////////////////////////+rq+Krq+Kr
q+Krq+Krq+LFxer/////////////////////////////////////////////////////////////////
///////////////////R0e9ZWcsDA70DA70DA70DA70DA70DA70DA72Ojtn09PtERMcDA70DA72rq+L0
9PtZWcsDA70DA70DA70DA71ERMf///////////////////////////////9ZWcsDA70DA70DA70DA70D
A73Fxer////////////09Pudnd0DA70DA70DA70DA70DA70DA70DA70DA70DA71sbNDR0e//////////
//////////////////8pKcIDA70DA70DA70DA70DA73///////////////////////////+dnd0DA70D
A70DA70DA70DA7309Pv///////////////////+rq+IDA70DA70DA70DA70DA72rq+L/////////////
///////////d3fNsbNADA70DA70DA70DA70DA70DA70DA70DA72Ojtn09Pv/////////////////////
//////////////////////////////////////////////+dnd0DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA71ERMcDA70DA70DA72Ojtn////R0e8DA70DA70DA70DA70DA724uOb/////////////////
//////////8DA70DA70DA70DA70DA70DA7309Pv////////R0e8pKcIDA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA72rq+L///////////////////////9+ftQDA70DA70DA70DA70DA73d3fP/
//////////////////////+4uOYDA70DA70DA70DA70DA73R0e////////////////////9ZWcsDA70D
A70DA70DA70DA73d3fP///////////////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70pKcLR0e////////////////////////////////////////////////////////////+rq+ID
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////9sbNADA70D
A70DA70DA71ZWcv////////////////////////p6fcDA70DA70DA70DA70DA71ERMf////////d3fMD
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////////////////
//+rq+IDA70DA70DA70DA70DA73Fxer////////////////////////d3fMDA70DA70DA70DA70DA72r
q+L////////////////09PsDA70DA70DA70DA70DA71ZWcv////////////////////FxeoDA70DA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73R0e//////////////////////////////
///////////////////////p6fcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA7309Pv////R0e8DA70DA70DA70DA70DA72dnd2rq+Krq+Krq+Krq+Krq+KOjtkDA70D
A70DA70DA70DA71+ftT///////9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70pKcL09Pv////////////////FxeoDA70DA70DA70DA70DA72dnd3/////////////////
///////09PsDA70DA70DA70DA70DA72dnd3////////////////FxeoDA70DA70DA70DA70DA72dnd3/
///////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70p
KcLp6ff///////////////////////////////////////////////+dnd0DA70DA70DA70DA70DA70D
A72Ojtn09Pv///////+OjtkDA70DA70DA70DA70DA70DA73d3fP///////9sbNADA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3////d3fMDA70DA70DA70DA70DA70D
A71+ftTd3fP///////+rq+IpKcIDA70DA70DA70DA70DA73Fxer////////////////p6fcDA70DA70D
A70DA70DA71+ftT///////////////////////////9ZWcsDA70DA70DA70DA71ZWcv/////////////
//9+ftQDA70DA70DA70DA70DA73R0e////////////////+rq+IDA70DA70DA70DA70DA70pKcK4uOb/
//////+rq+IDA70DA70DA70DA70DA70DA71+ftT/////////////////////////////////////////
//////9ZWcsDA70DA70DA70DA70DA72dnd3///////////////////+OjtkDA70DA70DA70DA70DA72r
q+L////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724
uOb///+dnd0DA70DA70DA70DA70DA72dnd3///////////////////+rq+IDA70DA70DA70DA70DA72r
q+L///////////////////8pKcIDA70DA70DA70DA70pKcL///////////////////////////9+ftQD
A70DA70DA70DA70pKcL///////////////8pKcIDA70DA70DA70DA70pKcL///////////////////9+
ftQDA70DA70DA70DA70DA73Fxer////////////////FxeoDA70DA70DA70DA70DA70DA73R0e//////
//////////////////////////////////////8DA70DA70DA70DA70DA70DA73p6ff////p6ferq+Kr
q+Krq+KOjtkDA70DA70DA70DA70DA72Ojtn///////////9sbNADA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA73d3fP////Fxeqrq+Krq+IpKcIDA70DA7309Pv/////////////
///d3fNsbNADA70DA70DA70DA70DA72rq+L///////////////////9ZWcsDA70DA70DA70DA70DA730
9Pv///////////////////////+rq+IDA70DA70DA70DA70DA73p6ff////////d3fMDA70DA70DA70D
A70DA71+ftT///////////////////8pKcIDA70DA70DA70DA70pKcL///////////////////////9+
ftQDA70DA70DA70DA70DA72Ojtn///////////////////////////////////////////8DA70DA70D
A70DA70DA70pKcL////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv////////////R
0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73/////////////////
///////////////////////R0e+rq+JERMcDA70DA70DA70DA70DA70DA70DA72rq+L/////////////
//////+dnd0DA70DA70DA70DA70DA73R0e/////////////////////////FxeoDA70DA70DA70DA70D
A72Ojtmrq+Krq+J+ftQDA70DA70DA70DA70DA73Fxer///////////////////8DA70DA70DA70DA70D
A71sbND////////////////////////R0e8DA70DA70DA70DA70DA70pKcL/////////////////////
//////////////////////8DA70DA70DA70DA70DA70DA73///////////8DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA7309Pv///////////9sbNADA70DA70DA70DA72Ojtn////////09PsDA70DA70D
A70DA70DA71ZWcv////////////////////////////d3fOdnd0DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA73p6ff///////////////////+rq+IDA70DA70DA70DA70DA72rq+L/////////////
///////////p6fcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3p6ff/
//////////////8DA70DA70DA70DA70DA71ZWcv///////////////////////////8pKcIDA70DA70D
A70DA70DA73p6ff///////////////////////////////////////8DA70DA70DA70DA70DA70DA73d
3fP///////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP////////////R0e8DA70DA70D
A70DA70DA73p6ff////d3fMDA70DA70DA70DA70DA71+ftT///////////////////////+dnd0DA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3////////////////////////R0e8DA70D
A70DA70DA70DA72Ojtn///////////////////////////8pKcIDA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA72dnd3///////////8DA70DA70DA70DA70DA70pKcL/////////
//////////////////9+ftQDA70DA70DA70DA70DA73R0e//////////////////////////////////
//////9ERMcDA70DA70DA70DA70DA72rq+L///////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70D
A72rq+L///////////////9sbNADA70DA70DA70DA72rq+L////FxeoDA70DA70DA70DA70DA72rq+L/
//////////////////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L/////
///////////////////////09PsDA70DA70DA70DA70DA71ZWcv///////////////////////////9Z
WcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////9E
RMcDA70DA70DA70DA70DA73d3fP///////////////////////+rq+IDA70DA70DA70DA70DA73Fxer/
//////////////////////////////////////9+ftQDA70DA70DA70DA70DA71+ftT/////////////
///////////////////////////////////////////////////////R0e8DA70DA70DA70DA70pKcL0
9Purq+IDA70DA70DA70DA70DA73Fxer////////////////09PsDA70DA70DA70DA70DA70DA70DA70D
A70DA70DA71ERMerq+L09Pv///////////////////////////////////9ERMcDA70DA70DA70DA70p
KcL///////////////////////////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA73p6ff///9+ftQDA70DA70DA70DA70DA72rq+L/////////////////////
//+4uOYDA70DA70DA70DA70DA724uOb///////////////////////////////////////+rq+IDA70D
A70DA70DA70DA70DA73p6ff///////////////////////+rq+Krq+LFxer/////////////////////
//////////9sbNADA70DA70DA70DA72rq+KOjtkDA70DA70DA70DA70DA73p6ff////////////////F
xeoDA70DA70DA70DA70DA70DA70DA72Ojtmrq+L09Pv/////////////////////////////////////
//////////9+ftQDA70DA70DA70DA70DA73d3fP///////////////////////+rq+IDA70DA70DA70D
A70DA73d3fP///////////////+rq+IpKcIDA70DA70DA70DA70DA72dnd3///+rq+IDA70DA70DA70D
A70DA71ERMf///////////////////////+rq+IDA70DA70DA70DA70DA73R0e//////////////////
///////////////////////09PsDA70DA70DA70DA70DA70DA71+ftT////////////////////R0e8D
A70DA70DA70DA70DA72rq+L////////////////////R0e8DA70DA70DA70DA70pKcJZWcsDA70DA70D
A70DA70pKcL///////////////////+4uOYDA70DA70DA70DA70DA72dnd3////////////////p6fer
q+Krq+L///////////////////////////////////+rq+IDA70DA70DA70DA70DA73Fxer/////////
///////////////R0e8DA70DA70DA70DA70DA73Fxer////////////////////R0e8DA70DA70DA70D
A70DA71+ftT////09PsDA70DA70DA70DA70DA70DA724uOb///////////////////9sbNADA70DA70D
A70DA70DA73d3fP///////////////////////////////////////////+dnd0DA70DA70DA70DA70D
A70DA72dnd3////////////09PtZWcsDA70DA70DA70DA70DA73Fxer///////////////////////9s
bNADA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////+4uOYDA70DA70DA70D
A70DA73Fxer///////////////9sbNADA70DA70DA70DA71+ftT09Pv////////////////////FxeoD
A70DA70DA70DA70DA72dnd3////////////////////////09PsDA70DA70DA70DA70DA72rq+L/////
//////////////+rq+IDA70DA70DA70DA70DA71+ftT///////+OjtkDA70DA70DA70DA70DA70pKcLR
0e////////////+4uOYDA70DA70DA70DA70DA70pKcL/////////////////////////////////////
///////////09PtERMcDA70DA70DA70DA70DA70DA71ERMerq+Krq+IDA70DA70DA70DA70DA70DA70p
KcL09Pv////////////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn/////
///////////////p6fcDA70DA70DA70DA70DA70DA71+ftSrq+Krq+IDA70DA70DA70DA70DA70DA71E
RMf09PvR0e+rq+Krq+Krq+Krq+KOjtkDA70DA70DA70DA70DA71ZWcurq+Krq+Krq+Krq+Krq+L09Pv/
//9ERMcDA70DA70DA70DA71ZWcurq+Krq+Krq+Krq+JsbNADA70DA70DA70DA70DA70DA72dnd3/////
///09PspKcIDA70DA70DA70DA70DA70DA71+ftSrq+J+ftQDA70DA70DA70DA70DA70DA72rq+L/////
///////////////////////////////////////////////d3fMDA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////////////////9sbNADA70DA70D
A70DA70DA70DA70DA70DA72rq+L///////////////////////9+ftQDA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA724uOb///+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA73R0e////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70DA73R0e/////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA71ERMf09Pv/////////////////////////////////////////////////////
///R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/////////////////
///////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA73R0e//////////////////////
///p6fdERMcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT////////d3fMDA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///+dnd0DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////////////////+4uOYD
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP/////////////////////////
///////////////////////////////////////p6fdsbNADA70DA70DA70DA70DA70DA70DA70DA70D
A70DA72Ojtn///////////////////////////////////////////9sbNADA70DA70DA70DA70DA70D
A70DA7309Pv////////////////////////////p6fdZWcsDA70DA70DA70DA70DA70DA70DA70DA70D
A70DA72rq+L////////////09PsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D
A70DA70DA72Ojtn///+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71s
bND////////////////////////////R0e9ERMcDA70DA70DA70DA70DA70DA70DA70DA70DA71ERMfd
3fP////////////////////////////////////////////////////////////////////////////R
0e+rq+IpKcIDA70DA70DA70DA71ERMerq+Ld3fP/////////////////////////////////////////
///////R0e8DA70DA70DA70DA70DA70DA70pKcL////////////////////////////////////////F
xeqdnd0DA70DA70DA70DA70DA71ZWcurq+Lp6ff///////////////////9ERMcDA70DA70DA70DA70D
A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND////d3fMDA70DA70DA70DA70DA70DA70D
A70DA70DA70DA70DA70pKcKrq+LFxer///////////////////////////////////////+rq+KOjtkD
A70DA70DA70DA70DA72Ojtm4uOb/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

320
Gastro/frmMenu.vb Normal file
View File

@@ -0,0 +1,320 @@
Imports System.Reflection
Imports System.IO.File
Imports Microsoft.Office.Interop.Outlook
Public Class frmMenu
Public menu As cMenu = Nothing
Private Sub frmMenu_Load(sender As Object, e As EventArgs) Handles Me.Load
' If menu IsNot Nothing Then FillBoxes()
panDebug.Visible = cListe.Debug
FillBoxes()
Dim usrcntrl As New usrcntlSpeisen : usrcntrl.Dock = DockStyle.Fill : PanSpeise.Controls.Add(usrcntrl)
End Sub
Function FillBoxes(Optional ByVal FillDate As Boolean = True)
txtMenuTitel.Text = menu.MenuTitel
If FillDate = False Then txtMenuTitel.Text &= cTools.DateToWeek(dtpbis.Value)
chkPrint.Checked = menu.MenuPrint
If FillDate = True Then dtpVon.Value = menu.MenuDateVon : dtpbis.Value = menu.MenuDateBis
txtDetail1.Text = menu.MenuDetail1
txtDetail2.Text = menu.MenuDetail2
txtDetail3.Text = menu.MenuDetail3
txtSuppe.Text = menu.MenuSuppe
chkPrintSuppe.Checked = menu.MenuPrintSuppe
txtMontag.Text = menu.MenuEssenMo
txtDienstag.Text = menu.MenuEssenDi
txtMittwoch.Text = menu.MenuEssenMi
txtDonnerstag.Text = menu.MenuEssenDo
txtFreitag.Text = menu.MenuEssenFr
coboMenuArt.SelectedItem = menu.MenuArt
End Function
Function FillMenu()
menu.MenuTitel = SQLTools.hochkomma(txtMenuTitel.Text)
menu.MenuPrint = chkPrint.Checked
menu.MenuDateVon = dtpVon.Value
menu.MenuDateBis = dtpbis.Value
menu.MenuDetail1 = SQLTools.hochkomma(txtDetail1.Text)
menu.MenuDetail2 = SQLTools.hochkomma(txtDetail2.Text)
menu.MenuDetail3 = SQLTools.hochkomma(txtDetail3.Text)
menu.MenuSuppe = SQLTools.hochkomma(txtSuppe.Text)
menu.MenuPrintSuppe = chkPrintSuppe.Checked
menu.MenuEssenMo = SQLTools.hochkomma(txtMontag.Text)
menu.MenuEssenDi = SQLTools.hochkomma(txtDienstag.Text)
menu.MenuEssenMi = SQLTools.hochkomma(txtMittwoch.Text)
menu.MenuEssenDo = SQLTools.hochkomma(txtDonnerstag.Text)
menu.MenuEssenFr = SQLTools.hochkomma(txtFreitag.Text)
menu.MenuArt = coboMenuArt.SelectedItem
End Function
Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
save()
End Sub
Private Function save()
FillMenu()
If menu.CheckExist Then
menu.update()
Else
menu.saveAsNew()
End If
UpdateLastUsage(menu.MenuEssenMo, menu.MenuEssenMoDate)
UpdateLastUsage(menu.MenuEssenDi, menu.MenuEssenDiDate)
UpdateLastUsage(menu.MenuEssenMi, menu.MenuEssenMiDate)
UpdateLastUsage(menu.MenuEssenDo, menu.MenuEssenDoDate)
UpdateLastUsage(menu.MenuEssenFr, menu.MenuEssenFrDate)
UpdateLastUsage(menu.MenuSuppe, menu.MenuSuppeDate)
End Function
Private Sub txtSuppe_klickeliklick(sender As Object, e As EventArgs) Handles txtSuppe.MouseClick, txtMontag.MouseClick, txtDienstag.MouseClick, txtMittwoch.MouseClick, txtDonnerstag.MouseClick, txtFreitag.MouseClick
PanSpeise.Controls.Clear()
deselectAllControls()
'PanSuppe.BackColor = Color.Red
sender.parent.backcolor = Color.Red
Dim test As TextBox = sender
Dim usrcntrl As New usrcntlSpeisen
usrcntrl.senderbox.Text = sender.Text
If sender.name = "txtSuppe" Then
usrcntrl.SqlSpeiseArt &= " AND EssenType = 'Suppe'"
usrcntrl.comSpeiseart.SelectedItem = "Suppe"
Else
usrcntrl.SqlSpeiseArt &= " AND EssenType = 'Hauptspeise'"
usrcntrl.comSpeiseart.SelectedItem = "Hauptspeise"
End If
usrcntrl.Dock = DockStyle.Fill : PanSpeise.Controls.Add(usrcntrl)
AddHandler usrcntrl.btnUebernehmen.Click, Function()
sender.text = usrcntrl.senderbox.Text
End Function
AddHandler usrcntrl.dgvSpeise.CellDoubleClick, Function()
sender.text = usrcntrl.senderbox.Text
End Function
End Sub
Function deselectAllControls()
Dim contr As Control
For Each contr In PanLeft.Controls 'Me.Controls
If contr.GetType() Is GetType(Panel) Then
contr.BackColor = Color.White
End If
Next
End Function
Private Sub dtpVon_ValueChanged_1(sender As Object, e As EventArgs) Handles dtpVon.ValueChanged
'MsgBox(dtpVon.Value.DayOfWeek)
For i = 0 To 10
If dtpVon.Value.DayOfWeek = 1 Then
Exit For
Else
dtpVon.Value = dtpVon.Value.AddDays(-1)
End If
Next
dtpbis.Value = dtpVon.Value.AddDays(4)
lblMontag.Text = "Montag, den " & dtpVon.Value
lblDienstag.Text = "Dienstag, den " & dtpVon.Value.AddDays(1)
lblMittwoch.Text = "Mittwoch, den " & dtpVon.Value.AddDays(2)
lblDonnerstag.Text = "Donnerstag, den " & dtpVon.Value.AddDays(3)
lblFreitag.Text = "Freitag, den " & dtpVon.Value.AddDays(4)
NewOrLoad()
End Sub
Private Sub btnLaufendeWoche_Click(sender As Object, e As EventArgs) Handles btnLaufendeWoche.Click
dtpVon.Value = Now.Date
NewOrLoad()
End Sub
Private Sub btnNaechsteWoche_Click(sender As Object, e As EventArgs) Handles btnNaechsteWoche.Click
dtpVon.Value = Now.Date.AddDays(7)
NewOrLoad()
End Sub
Private Sub btnWochePlus_Click(sender As Object, e As EventArgs) Handles btnWochePlus.Click
dtpVon.Value = dtpVon.Value.AddDays(7)
NewOrLoad()
End Sub
Private Sub btnWocheMinus_Click(sender As Object, e As EventArgs) Handles btnWocheMinus.Click
dtpVon.Value = dtpVon.Value.AddDays(-7)
NewOrLoad()
End Sub
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Close()
End Sub
Function NewOrLoad()
menu = New cMenu
menu.MenuID = dtpVon.Value & dtpbis.Value
If menu.CheckExist Then
menu.loadMenu(menu.MenuID)
FillBoxes()
Else
FillBoxes(False)
End If
Dim usrcntrl As New usrcntlSpeisen : usrcntrl.Dock = DockStyle.Fill : PanSpeise.Controls.Clear() : PanSpeise.Controls.Add(usrcntrl)
menu.MenuSuppeDate = dtpVon.Value
menu.MenuEssenMoDate = dtpVon.Value
menu.MenuEssenDiDate = dtpVon.Value.AddDays(1)
menu.MenuEssenMiDate = dtpVon.Value.AddDays(2)
menu.MenuEssenDoDate = dtpVon.Value.AddDays(3)
menu.MenuEssenFrDate = dtpVon.Value.AddDays(4)
End Function
Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnMake.Click
save()
deselectAllControls()
Dim dt As DataTable = menu.loadMenuToDT(menu.MenuID)
PanSpeise.Controls.Clear()
Dim usrcntrl As New usrcntlPrint
usrcntrl.Printvorlage = "Mittagsmenue"
usrcntrl.dt = dt
usrcntrl.Dock = DockStyle.Fill
PanSpeise.Controls.Add(usrcntrl)
End Sub
Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
End Sub
Private Sub setEmailSend(sSubject As String, sBody As String,
sTo As String, sCC As String,
sFilename As String, sDisplayname As String,
Optional sBCC As String = "")
Try
Dim oApp As Microsoft.Office.Interop.Outlook.Application 'Interop.Outlook._Application
oApp = New Microsoft.Office.Interop.Outlook.Application 'Interop.Outlook.Application
Dim oMsg As Microsoft.Office.Interop.Outlook.MailItem 'Interop.Outlook._MailItem
oMsg = oApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
oMsg.Subject = sSubject
'oMsg.Body = sBody
oMsg.To = sTo
oMsg.CC = sCC
oMsg.BCC = sBCC
Dim strS As String = sFilename
Dim strN As String = sDisplayname
If sFilename <> "" Then
Dim sBodyLen As Integer = Int(sBody.Length)
Dim oAttachs As Microsoft.Office.Interop.Outlook.Attachments = oMsg.Attachments
Dim oAttach As Microsoft.Office.Interop.Outlook.Attachment
oAttach = oAttachs.Add(strS, , sBodyLen, strN)
End If
'''
Clipboard.SetText(IO.File.ReadAllText(frmMain.sAppPath & "\Mail\Highway.htm", System.Text.Encoding.Default))
Dim myData As IDataObject = Clipboard.GetDataObject()
oMsg.HTMLBody = CType(myData.GetData(GetType(String)), String)
'''
oMsg.Display()
Catch exc As system.Exception
MsgBox(exc.message)
End Try
'oMsg.Send()
'oMsg.Save()
' oMsg.Move(objFolder)
' MessageBox.Show("Email Send", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Sub
Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click
Dim subject As String = ""
Dim body As String = "1" ' wird nicht verwendet, da hmtl Vorlage
Dim empfaenger As String = ""
Dim Anhang As String = ""
Dim Anhangdateiname As String = ""
Dim cc As String = ""
Dim bcc As String = ""
'setEmailSend("Testsubject", "TestBody", "ms@verag.ag", "", "C:\tmp\27.05.2019.pdf", "Mittagsmenue", "veragsped@gmail.com")
'''Subject
subject = "Mittagsmenü " & menu.MenuDateVon & " bis " & menu.MenuDateBis
'''Anhang
If Exists("C:\Gastro\Menues\" & menu.MenuDateVon.ToString.Substring(0, 10) & ".pdf") Then
Anhang = "C:\Gastro\Menues\" & menu.MenuDateVon.ToString.Substring(0, 10) & ".pdf"
Anhangdateiname = menu.MenuDateVon.ToString.Substring(0, 10) & ".pdf"
Else
MsgBox("Datei nicht gefunden. Bitte erst erstellen.")
Exit Sub
End If
'''BCC
Dim ds As New DataSet
cSQL.SQL2DS("SELECT * FROM GVerteilerListe", ds)
For Each row As DataRow In ds.Tables(0).Rows
bcc &= row.Item("EmpfEMail").ToString & "; "
Next
bcc = bcc.Substring(0, bcc.Length - 2)
' MsgBox(bcc)
setEmailSend(subject, body, empfaenger, cc, Anhang, Anhangdateiname, bcc)
End Sub
Function UpdateLastUsage(Speise As String, Datum As Date)
If SQLTools.CheckIfExist("select essenname from gessen where essenname = '" & Speise & "'") Then
Dim _essen As New cEssen
_essen.getEssenByName(Speise)
If Datum > _essen.EssenLastUsage Then
_essen.EssenLastUsage = Datum
End If
_essen.update()
End If
End Function
Private Sub btnFTP_Click(sender As Object, e As EventArgs) Handles btnFTP.Click
If MsgBox("Achtung! Mit Bestätigen dieser Meldung wird das aktuelle Mittagsmenü auf der Homepage ÜBERSCHRIEBEN!", MsgBoxStyle.OkCancel, "Upload") = MsgBoxResult.Ok Then
Dim anhang, anhangdateiname As String
If Exists("C:\Gastro\Menues\" & menu.MenuDateVon.ToString.Substring(0, 10) & ".pdf") Then
anhang = "C:\Gastro\Menues\" & menu.MenuDateVon.ToString.Substring(0, 10) & ".pdf"
anhangdateiname = menu.MenuDateVon.ToString.Substring(0, 10) & ".pdf"
Else
MsgBox("Datei nicht gefunden. Bitte erst erstellen.")
Exit Sub
End If
cFTP.Upload2FTP(cListe.HighwayFTPSrv & "/speisekarte/Mittagsmenue.pdf", cListe.HighwayFTPUser, cListe.HighwayFTPPwd, anhang)
Else
Exit Sub
End If
End Sub
End Class

BIN
Gastro/gastro.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 50 KiB

BIN
Gastro/pdf512.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 21 KiB

361
Gastro/rptMittagsMenue.Designer.vb generated Normal file
View File

@@ -0,0 +1,361 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptMittagsMenue
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptMittagsMenue))
Me.txtTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTitelSuppe = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSuppe = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTitelMontag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMontag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTitelDienstag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDienstag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTitelMittwoch = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMittwoch = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTitelDonnerstag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDonnerstag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTitelFreitag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFreitag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtDetails = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Picture2 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitelSuppe, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSuppe, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitelMontag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMontag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitelDienstag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDienstag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitelMittwoch, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMittwoch, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitelDonnerstag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDonnerstag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTitelFreitag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFreitag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'txtTitel
'
Me.txtTitel.Calendar = "Gregorian"
Me.txtTitel.CanGrow = False
Me.txtTitel.Height = 0.4602363!
Me.txtTitel.Left = 0!
Me.txtTitel.Name = "txtTitel"
Me.txtTitel.Style = "color: DarkRed; font-family: Lucida Calligraphy; font-size: 26.25pt; font-weight:" &
" bold; text-align: center; vertical-align: middle; ddo-char-set: 0"
Me.txtTitel.Text = "Mittagsmenü"
Me.txtTitel.Top = 0.4480315!
Me.txtTitel.Width = 8.267716!
'
'txtTitelSuppe
'
Me.txtTitelSuppe.CanGrow = False
Me.txtTitelSuppe.Height = 0.2830709!
Me.txtTitelSuppe.Left = 0.9062987!
Me.txtTitelSuppe.Name = "txtTitelSuppe"
Me.txtTitelSuppe.Style = "font-family: Arial; font-size: 12pt; font-weight: bold; ddo-char-set: 0"
Me.txtTitelSuppe.Text = "Suppe der Woche:"
Me.txtTitelSuppe.Top = 1.368504!
Me.txtTitelSuppe.Width = 1.5!
'
'txtSuppe
'
Me.txtSuppe.CanGrow = False
Me.txtSuppe.Height = 0.2830709!
Me.txtSuppe.Left = 2.406299!
Me.txtSuppe.Name = "txtSuppe"
Me.txtSuppe.Style = "font-family: Arial; font-size: 12pt; font-weight: normal; ddo-char-set: 0"
Me.txtSuppe.Text = "Suppe"
Me.txtSuppe.Top = 1.368504!
Me.txtSuppe.Width = 3.177166!
'
'txtTitelMontag
'
Me.txtTitelMontag.CanGrow = False
Me.txtTitelMontag.Height = 0.2830709!
Me.txtTitelMontag.Left = 2.755906!
Me.txtTitelMontag.Name = "txtTitelMontag"
Me.txtTitelMontag.Style = "color: DarkRed; font-family: Arial Rounded MT Bold; font-size: 15pt; font-style: " &
"normal; font-weight: normal; text-align: center; text-decoration: underline; ddo" &
"-char-set: 0"
Me.txtTitelMontag.Text = "Montag, 20.05.2019"
Me.txtTitelMontag.Top = 1.863779!
Me.txtTitelMontag.Width = 2.755906!
'
'txtMontag
'
Me.txtMontag.CanGrow = False
Me.txtMontag.Height = 0.5543308!
Me.txtMontag.Left = 0.984252!
Me.txtMontag.Name = "txtMontag"
Me.txtMontag.Style = "font-family: Arial; font-size: 14.25pt; font-weight: bold; text-align: center; dd" &
"o-char-set: 0"
Me.txtMontag.Text = "Speise Zeile 1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Speise Zeile 2"
Me.txtMontag.Top = 2.146851!
Me.txtMontag.Width = 6.299212!
'
'txtTitelDienstag
'
Me.txtTitelDienstag.CanGrow = False
Me.txtTitelDienstag.Height = 0.2830709!
Me.txtTitelDienstag.Left = 2.755906!
Me.txtTitelDienstag.Name = "txtTitelDienstag"
Me.txtTitelDienstag.Style = "color: DarkRed; font-family: Arial Rounded MT Bold; font-size: 15pt; font-style: " &
"normal; font-weight: normal; text-align: center; text-decoration: underline; ddo" &
"-char-set: 0"
Me.txtTitelDienstag.Text = "Montag, 20.05.2019"
Me.txtTitelDienstag.Top = 2.701181!
Me.txtTitelDienstag.Width = 2.755906!
'
'txtDienstag
'
Me.txtDienstag.CanGrow = False
Me.txtDienstag.Height = 0.5543308!
Me.txtDienstag.Left = 0.984252!
Me.txtDienstag.Name = "txtDienstag"
Me.txtDienstag.Style = "font-family: Arial; font-size: 14.25pt; font-weight: bold; text-align: center; dd" &
"o-char-set: 0"
Me.txtDienstag.Text = "Speise Zeile 1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Speise Zeile 2"
Me.txtDienstag.Top = 2.984252!
Me.txtDienstag.Width = 6.299212!
'
'txtTitelMittwoch
'
Me.txtTitelMittwoch.CanGrow = False
Me.txtTitelMittwoch.Height = 0.2830709!
Me.txtTitelMittwoch.Left = 2.755906!
Me.txtTitelMittwoch.Name = "txtTitelMittwoch"
Me.txtTitelMittwoch.Style = "color: DarkRed; font-family: Arial Rounded MT Bold; font-size: 15pt; font-style: " &
"normal; font-weight: normal; text-align: center; text-decoration: underline; ddo" &
"-char-set: 0"
Me.txtTitelMittwoch.Text = "Montag, 20.05.2019"
Me.txtTitelMittwoch.Top = 3.538582!
Me.txtTitelMittwoch.Width = 2.755906!
'
'txtMittwoch
'
Me.txtMittwoch.CanGrow = False
Me.txtMittwoch.Height = 0.5543308!
Me.txtMittwoch.Left = 0.9842523!
Me.txtMittwoch.Name = "txtMittwoch"
Me.txtMittwoch.Style = "font-family: Arial; font-size: 14.25pt; font-weight: bold; text-align: center; dd" &
"o-char-set: 0"
Me.txtMittwoch.Text = "Speise Zeile 1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Speise Zeile 2"
Me.txtMittwoch.Top = 3.821654!
Me.txtMittwoch.Width = 6.299212!
'
'txtTitelDonnerstag
'
Me.txtTitelDonnerstag.CanGrow = False
Me.txtTitelDonnerstag.Height = 0.2830709!
Me.txtTitelDonnerstag.Left = 2.755906!
Me.txtTitelDonnerstag.Name = "txtTitelDonnerstag"
Me.txtTitelDonnerstag.Style = "color: DarkRed; font-family: Arial Rounded MT Bold; font-size: 15pt; font-style: " &
"normal; font-weight: normal; text-align: center; text-decoration: underline; ddo" &
"-char-set: 0"
Me.txtTitelDonnerstag.Text = "Montag, 20.05.2019"
Me.txtTitelDonnerstag.Top = 4.375985!
Me.txtTitelDonnerstag.Width = 2.755906!
'
'txtDonnerstag
'
Me.txtDonnerstag.CanGrow = False
Me.txtDonnerstag.Height = 0.5543308!
Me.txtDonnerstag.Left = 0.9842523!
Me.txtDonnerstag.Name = "txtDonnerstag"
Me.txtDonnerstag.Style = "font-family: Arial; font-size: 14.25pt; font-weight: bold; text-align: center; dd" &
"o-char-set: 0"
Me.txtDonnerstag.Text = "Speise Zeile 1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Speise Zeile 2"
Me.txtDonnerstag.Top = 4.659056!
Me.txtDonnerstag.Width = 6.299212!
'
'txtTitelFreitag
'
Me.txtTitelFreitag.CanGrow = False
Me.txtTitelFreitag.Height = 0.2830709!
Me.txtTitelFreitag.Left = 2.755906!
Me.txtTitelFreitag.Name = "txtTitelFreitag"
Me.txtTitelFreitag.Style = "color: DarkRed; font-family: Arial Rounded MT Bold; font-size: 15pt; font-style: " &
"normal; font-weight: normal; text-align: center; text-decoration: underline; ddo" &
"-char-set: 0"
Me.txtTitelFreitag.Text = "Montag, 20.05.2019"
Me.txtTitelFreitag.Top = 5.213386!
Me.txtTitelFreitag.Width = 2.755906!
'
'txtFreitag
'
Me.txtFreitag.CanGrow = False
Me.txtFreitag.Height = 0.5543308!
Me.txtFreitag.Left = 0.9842523!
Me.txtFreitag.Name = "txtFreitag"
Me.txtFreitag.Style = "font-family: Arial; font-size: 14.25pt; font-weight: bold; text-align: center; dd" &
"o-char-set: 0"
Me.txtFreitag.Text = "Speise Zeile 1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Speise Zeile 2"
Me.txtFreitag.Top = 5.496457!
Me.txtFreitag.Width = 6.299212!
'
'TextBox9
'
Me.TextBox9.CanGrow = False
Me.TextBox9.Height = 0.5543308!
Me.TextBox9.Left = 0.984252!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Style = "color: DarkRed; font-family: Lucida Calligraphy; font-size: 15.75pt; font-weight:" &
" normal; text-align: center; vertical-align: middle; ddo-char-set: 0"
Me.TextBox9.Text = "Wir wünschen guten Appetit!"
Me.TextBox9.Top = 6.310236!
Me.TextBox9.Width = 6.299212!
'
'txtDatum
'
Me.txtDatum.CanGrow = False
Me.txtDatum.Height = 0.2519684!
Me.txtDatum.Left = 0.984252!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "color: DarkRed; font-family: Arial; font-size: 11.25pt; text-align: center; ddo-c" &
"har-set: 0"
Me.txtDatum.Text = "TextBox1"
Me.txtDatum.Top = 0.9082678!
Me.txtDatum.Width = 6.299212!
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1})
Me.PageHeader.Height = 1.866142!
Me.PageHeader.Name = "PageHeader"
'
'Picture1
'
Me.Picture1.Height = 1.866142!
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.Left = 0!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture1.Top = 0!
Me.Picture1.Width = 8.267716!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtTitel, Me.txtDetails, Me.txtTitelSuppe, Me.txtSuppe, Me.txtTitelMontag, Me.txtMontag, Me.txtTitelDienstag, Me.txtDienstag, Me.txtTitelMittwoch, Me.txtMittwoch, Me.txtTitelDonnerstag, Me.txtDonnerstag, Me.txtTitelFreitag, Me.txtFreitag, Me.TextBox9, Me.txtDatum})
Me.Detail.Height = 7.283465!
Me.Detail.Name = "Detail"
'
'txtDetails
'
Me.txtDetails.CanGrow = False
Me.txtDetails.Height = 0.6480315!
Me.txtDetails.Left = 5.583465!
Me.txtDetails.Name = "txtDetails"
Me.txtDetails.Style = "font-family: Arial; font-size: 9.75pt; font-weight: bold; ddo-char-set: 0"
Me.txtDetails.Text = "Detail1 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Detail2" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Detail3"
Me.txtDetails.Top = 1.368504!
Me.txtDetails.Width = 2.684252!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture2})
Me.PageFooter.Height = 2.444882!
Me.PageFooter.Name = "PageFooter"
'
'Picture2
'
Me.Picture2.Height = 2.444882!
Me.Picture2.ImageData = CType(resources.GetObject("Picture2.ImageData"), System.IO.Stream)
Me.Picture2.Left = 0!
Me.Picture2.Name = "Picture2"
Me.Picture2.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.Picture2.Top = 0!
Me.Picture2.Width = 8.267716!
'
'rptMittagsMenue
'
Me.MasterReport = False
Me.PageSettings.DefaultPaperSize = False
Me.PageSettings.DefaultPaperSource = False
Me.PageSettings.Duplex = System.Drawing.Printing.Duplex.Simplex
Me.PageSettings.Margins.Bottom = 0!
Me.PageSettings.Margins.Left = 0!
Me.PageSettings.Margins.Right = 0!
Me.PageSettings.Margins.Top = 0!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 11.69291!
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4
Me.PageSettings.PaperSource = System.Drawing.Printing.PaperSourceKind.FormSource
Me.PageSettings.PaperWidth = 8.267716!
Me.PrintWidth = 8.267716!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
Me.WatermarkPrintOnPages = "1"
CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitelSuppe, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSuppe, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitelMontag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMontag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitelDienstag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDienstag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitelMittwoch, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMittwoch, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitelDonnerstag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDonnerstag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTitelFreitag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFreitag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtTitelSuppe As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtSuppe As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtTitelMontag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMontag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtTitelDienstag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDienstag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtTitelMittwoch As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtMittwoch As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtTitelDonnerstag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDonnerstag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtTitelFreitag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFreitag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Picture2 As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDetails As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

109236
Gastro/rptMittagsMenue.de-AT.resx Normal file
View File

File diff suppressed because it is too large Load Diff

109242
Gastro/rptMittagsMenue.resx Normal file
View File

File diff suppressed because it is too large Load Diff

84
Gastro/rptMittagsMenue.vb Normal file
View File

@@ -0,0 +1,84 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptMittagsMenue
Public dt As DataTable
Private Sub rptMittagsMenue_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = dt
Select Case SQLTools.DBNull2emptyString(Fields.Item("MenuArt").Value)
Case ""
Case "Frühling"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackFrühling.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
Case "Sommer"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackSommer.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
Case "Herbst"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackHerbst.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
Case "Winter"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackWinter.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
Case "Ostern"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackOstern.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
Case "Weihnachten"
Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackWeihnachten.jpg")
Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
End Select
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Fields.Item("MenuPrint").Value = True Then
txtTitel.Text = SQLTools.DBNull2emptyString(Fields.Item("MenuTitel").Value)
txtDatum.Text = "vom " & SQLTools.DBNull2emptyString(Fields.Item("MenuDateVon").Value) & " bis " & SQLTools.DBNull2emptyString(Fields.Item("MenuDateBis").Value)
Else
txtTitel.Text = "Wochenkarte"
txtDatum.Text = "vom " & SQLTools.DBNull2emptyString(Fields.Item("MenuDateVon").Value) & " bis " & SQLTools.DBNull2emptyString(Fields.Item("MenuDateBis").Value)
End If
If (Fields.Item("MenuPrintSuppe").Value) = True Then
txtSuppe.Text = SQLTools.DBNull2emptyString(Fields.Item("MenuSuppe").Value)
Else
txtSuppe.Visible = False
txtTitelSuppe.Visible = False
End If
txtDetails.Text = SQLTools.DBNull2emptyString(Fields.Item("MenuDetail1").Value) & vbCrLf & SQLTools.DBNull2emptyString(Fields.Item("MenuDetail2").Value) & vbCrLf & SQLTools.DBNull2emptyString(Fields.Item("MenuDetail3").Value)
Dim Datum As Date = Fields.Item("MenuDateVon").Value
txtTitelMontag.Text = "Montag, " & Datum
txtMontag.Text = SQLTools.DBNull2emptyString(Fields.Item("MenuEssenMo").Value)
txtTitelDienstag.Text = "Dienstag, " & Datum.AddDays(1)
txtDienstag.Text = SQLTools.DBNull2emptyString(Fields.Item("MenuEssenDi").Value)
txtTitelMittwoch.Text = "Mittwoch, " & Datum.AddDays(2)
txtMittwoch.Text = SQLTools.DBNull2emptyString(Fields.Item("MenuEssenMi").Value)
txtTitelDonnerstag.Text = "Donnerstag, " & Datum.AddDays(3)
txtDonnerstag.Text = SQLTools.DBNull2emptyString(Fields.Item("MenuEssenDo").Value)
txtTitelFreitag.Text = "Freitag, " & Datum.AddDays(4)
txtFreitag.Text = SQLTools.DBNull2emptyString(Fields.Item("MenuEssenFr").Value)
End Sub
End Class

132
Gastro/usrcntlMittagsmenues.Designer.vb generated Normal file
View File

@@ -0,0 +1,132 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrcntlMittagsmenues
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlMittagsmenues))
Me.PanMenuLinks = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnChange = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.btnNew = New System.Windows.Forms.Button()
Me.dgvMittagsmenu = New System.Windows.Forms.DataGridView()
Me.PanMenuLinks.SuspendLayout()
CType(Me.dgvMittagsmenu, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PanMenuLinks
'
Me.PanMenuLinks.Controls.Add(Me.Button1)
Me.PanMenuLinks.Controls.Add(Me.btnChange)
Me.PanMenuLinks.Controls.Add(Me.btnDel)
Me.PanMenuLinks.Controls.Add(Me.btnNew)
Me.PanMenuLinks.Dock = System.Windows.Forms.DockStyle.Left
Me.PanMenuLinks.Location = New System.Drawing.Point(0, 0)
Me.PanMenuLinks.Name = "PanMenuLinks"
Me.PanMenuLinks.Size = New System.Drawing.Size(95, 774)
Me.PanMenuLinks.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(8, 688)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 20
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'btnChange
'
Me.btnChange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnChange.Image = CType(resources.GetObject("btnChange.Image"), System.Drawing.Image)
Me.btnChange.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnChange.Location = New System.Drawing.Point(8, 57)
Me.btnChange.Margin = New System.Windows.Forms.Padding(8)
Me.btnChange.Name = "btnChange"
Me.btnChange.Size = New System.Drawing.Size(75, 33)
Me.btnChange.TabIndex = 18
Me.btnChange.Text = "Ändern"
Me.btnChange.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnChange.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Image = CType(resources.GetObject("btnDel.Image"), System.Drawing.Image)
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDel.Location = New System.Drawing.Point(8, 106)
Me.btnDel.Margin = New System.Windows.Forms.Padding(8)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(75, 33)
Me.btnDel.TabIndex = 19
Me.btnDel.Text = "Löschen"
Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDel.UseVisualStyleBackColor = True
'
'btnNew
'
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNew.Image = CType(resources.GetObject("btnNew.Image"), System.Drawing.Image)
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNew.Location = New System.Drawing.Point(8, 8)
Me.btnNew.Margin = New System.Windows.Forms.Padding(8)
Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(75, 33)
Me.btnNew.TabIndex = 16
Me.btnNew.Text = "Neu"
Me.btnNew.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNew.UseVisualStyleBackColor = True
'
'dgvMittagsmenu
'
Me.dgvMittagsmenu.AllowUserToAddRows = False
Me.dgvMittagsmenu.AllowUserToDeleteRows = False
Me.dgvMittagsmenu.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvMittagsmenu.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvMittagsmenu.Location = New System.Drawing.Point(95, 0)
Me.dgvMittagsmenu.Name = "dgvMittagsmenu"
Me.dgvMittagsmenu.ReadOnly = True
Me.dgvMittagsmenu.Size = New System.Drawing.Size(355, 774)
Me.dgvMittagsmenu.TabIndex = 1
'
'usrcntlMittagsmenues
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Controls.Add(Me.dgvMittagsmenu)
Me.Controls.Add(Me.PanMenuLinks)
Me.Name = "usrcntlMittagsmenues"
Me.Size = New System.Drawing.Size(450, 774)
Me.PanMenuLinks.ResumeLayout(False)
CType(Me.dgvMittagsmenu, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents PanMenuLinks As Panel
Friend WithEvents dgvMittagsmenu As DataGridView
Friend WithEvents btnChange As Button
Friend WithEvents btnDel As Button
Friend WithEvents btnNew As Button
Friend WithEvents Button1 As Button
End Class

155
Gastro/usrcntlMittagsmenues.resx Normal file
View File

@@ -0,0 +1,155 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnChange.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l
kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU
WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD
oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF
LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk
sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz
ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7
sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnDel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAd5JREFUOE+l
lM0rRGEUxkVkNIOUpCallD9iNpSNBcU/YOm7FBvkKyErFGZjSjGMz+yVtSwUsxw75Bquz5kxM9y5nlP3
1fs1E1n86r7nPOe5933fc26ebdsC6auIEvsLSiDa3lr05l8ukeO/RVjEQlult/W1M+AwFgoW8zke5MtI
p8v9PMCsAKJZkAApsApTFy92dC7kesCL0eDbwxFV8/mfBwgOwCvIABuQ6SG//Tf/ihuxefAELPBpNPp2
M5mMahhtbxmB4AWQGU8gfnRQlgpfus3erm6s41KePuBEMSTMoQEqkE2TYA1MAMqxHfD5Ba0hffp9W0uf
VECQybMUI+hY6GWlWkPGY28nHfqDU5SLJVxcOV8rGDGsRLwQpqMokLfHMMCU0dxU8WU+CrXCguFcQAeK
shme46JqdLVKAK2Rj4JJEAXZDNMgoJsoYYGmLYKwH5hOYS7oZcpECYYQ0Lm9OwUy+0C+KGWiZENdn1Fs
ERfgdW5fzpPpsdbwrsE3jeQHJ6az8qfCFx6mwURRn/LNT/odlhcM05GIG6bjjpAaeQ7b8cqtwU1UDKyD
KpYThARNCwSDIGhZlpJnGmeiNt63Nz3anwPP582163lsuJIX6oCmLnl2KsSExf+x874B9Xn4eDkYSsEA
AAAASUVORK5CYII=
</value>
</data>
<data name="btnNew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAGtJREFUOE9j
+P//P1Uxw4NP/xnSDuDFM7BgbOoY7n8EGnjmFZCYhhf/x4KxqWM4/RJIjxqIDQ+8gUZADjZNJGOggcYj
1ECsAYyEsWnGpm40YePGA2wgqIBN3Y8Xz8SCsamDFLDYinHy8X8GALtYeStuE/GUAAAAAElFTkSuQmCC
</value>
</data>
</root>

71
Gastro/usrcntlMittagsmenues.vb Normal file
View File

@@ -0,0 +1,71 @@
Public Class usrcntlMittagsmenues
Private Sub usrcntlMittagsmenues_Load(sender As Object, e As EventArgs) Handles Me.Load
LoadDGV()
End Sub
Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click, dgvMittagsmenu.CellDoubleClick
Dim menu As New cMenu
menu.loadMenu(dgvMittagsmenu.CurrentRow.Cells("MenuID").Value)
Dim rowindex As Integer = dgvMittagsmenu.CurrentRow.Index
Dim bearbeiten As New frmMenu
bearbeiten.menu = menu
AddHandler bearbeiten.FormClosing, Function()
LoadDGV()
dgvMittagsmenu.Rows(rowindex).Selected = True
BringToFront()
End Function
bearbeiten.ShowDialog()
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
Dim menutodelete As New cMenu
menutodelete.MenuID = dgvMittagsmenu.CurrentRow.Cells("MenuID").Value
menutodelete.Delete()
LoadDGV()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim debug As New Form1
debug.Show()
End Sub
Function LoadDGV()
Dim ds As New DataSet
cSQL.SQL2DS("SELECT MenuDateVon, MenuDateBis, MenuTitel, MenuID FROM GMenu ORDER BY MenuDateVon DESC", ds)
With dgvMittagsmenu
.MultiSelect = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.DataSource = ds.Tables(0)
.Columns("MenuDateVon").HeaderText = "Von"
.Columns("MenuDateVon").Width = 65
.Columns("MenuDateBis").HeaderText = "Bis"
.Columns("MenuDateBis").Width = 65
.Columns("MenuTitel").HeaderText = "Titel"
.Columns("MenuTitel").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("MenuID").Visible = False
End With
End Function
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
Dim NeuesMenu As New frmMenu
NeuesMenu.menu = New cMenu
AddHandler NeuesMenu.FormClosing, Function()
LoadDGV()
' dgvMittagsmenu.Rows(dgvMittagsmenu.CurrentRow.Index).Selected = True
End Function
NeuesMenu.Show()
End Sub
End Class

84
Gastro/usrcntlPrint.Designer.vb generated Normal file
View File

@@ -0,0 +1,84 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrcntlPrint
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Viewer = New GrapeCity.ActiveReports.Viewer.Win.Viewer()
Me.SuspendLayout()
'
'Viewer
'
Me.Viewer.AutoSize = True
Me.Viewer.CurrentPage = 0
Me.Viewer.Dock = System.Windows.Forms.DockStyle.Fill
Me.Viewer.Location = New System.Drawing.Point(0, 0)
Me.Viewer.Name = "Viewer"
Me.Viewer.PreviewPages = 0
'
'
'
'
'
'
Me.Viewer.Sidebar.ParametersPanel.ContextMenu = Nothing
Me.Viewer.Sidebar.ParametersPanel.Text = "Parameters"
Me.Viewer.Sidebar.ParametersPanel.Width = 200
'
'
'
Me.Viewer.Sidebar.SearchPanel.ContextMenu = Nothing
Me.Viewer.Sidebar.SearchPanel.Text = "Search results"
Me.Viewer.Sidebar.SearchPanel.Width = 200
'
'
'
Me.Viewer.Sidebar.ThumbnailsPanel.ContextMenu = Nothing
Me.Viewer.Sidebar.ThumbnailsPanel.Text = "Page thumbnails"
Me.Viewer.Sidebar.ThumbnailsPanel.Width = 200
Me.Viewer.Sidebar.ThumbnailsPanel.Zoom = 0.1R
'
'
'
Me.Viewer.Sidebar.TocPanel.ContextMenu = Nothing
Me.Viewer.Sidebar.TocPanel.Expanded = True
Me.Viewer.Sidebar.TocPanel.Text = "Document map"
Me.Viewer.Sidebar.TocPanel.Width = 200
Me.Viewer.Sidebar.Width = 200
Me.Viewer.Size = New System.Drawing.Size(916, 749)
Me.Viewer.TabIndex = 0
Me.Viewer.Zoom = -2.0!
'
'usrcntlPrint
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.Controls.Add(Me.Viewer)
Me.Name = "usrcntlPrint"
Me.Size = New System.Drawing.Size(916, 749)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Viewer As GrapeCity.ActiveReports.Viewer.Win.Viewer
End Class

120
Gastro/usrcntlPrint.resx Normal file
View File

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

104
Gastro/usrcntlPrint.vb Normal file
View File

@@ -0,0 +1,104 @@
Imports GrapeCity.ActiveReports
Public Class usrcntlPrint
Public Printvorlage As String = ""
Public dt As DataTable
Public meh As Boolean = True
Private Sub usrcntlPrint_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim tsbPDF As New ToolStripButton("PDF")
tsbPDF.Image = My.Resources.pdf512
Viewer.Toolbar.MainBar.Items.Insert(5, tsbPDF)
AddHandler tsbPDF.Click, AddressOf tsbPDF_Click
' Viewer.Toolbar.MainBar.Items.RemoveAt(0)
Print()
End Sub
Private Sub Print()
Select Case Printvorlage
Case "Mittagsmenue"
Dim report As New rptMittagsMenue
report.dt = dt
Viewer.LoadDocument(report)
Dim tempreport As New rptMittagsMenue
tempreport.dt = dt
' Dim tempviewer As New GrapeCity.ActiveReports.Viewer.Win.Viewer
'tempviewer.LoadDocument(tempreport)
AddHandler report.ReportEnd, Function()
exportPDF()
Export(Viewer.Document, "C:\Gastro\Menues\")
End Function
Case "Test"
Dim report As New rptMittagsMenue
report.dt = dt
Viewer.LoadDocument(report)
End Select
End Sub
Function exportPDF()
Dim filename As String = "C:\Gastro\Menues\" & dt.Rows.Item(0).Item("MenuDateVon").ToString.Substring(0, 10) & ".pdf"
Dim filename2 As String = cListe.PDFUploadPath & dt.Rows.Item(0).Item("MenuDateVon").ToString.Substring(0, 10) & ".pdf"
Dim pdfe As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
pdfe.Export(Viewer.Document, filename)
pdfe.Export(Viewer.Document, filename2)
End Function
Function exportJPG()
Dim filename As String = "C:\Gastro\Menues\" & dt.Rows.Item(0).Item("MenuDateVon").ToString.Substring(0, 10) & ".jpg"
Dim jpge As New Export.Image.Tiff.Section.TiffExport
jpge.export(Viewer.Document, filename)
End Function
Public Sub Export(ByVal ReportDocument As GrapeCity.ActiveReports.Document.SectionDocument, ByVal folderSavePath As String)
' Dim pageindex As Integer = 0
For Each _pg As GrapeCity.ActiveReports.Document.Section.Page In ReportDocument.Pages
_pg.Units = GrapeCity.ActiveReports.Document.Section.Units.Pixels
Dim bmp As Bitmap = New Bitmap(CInt(_pg.Width), CInt(_pg.Height))
Dim g As Graphics = Graphics.FromImage(bmp)
g.FillRectangle(New SolidBrush(Color.White), 0, 0, bmp.Width, bmp.Height)
_pg.Draw(g, New RectangleF(0, 0, _pg.Width, _pg.Height))
bmp.Save(folderSavePath & dt.Rows.Item(0).Item("MenuDateVon").ToString.Substring(0, 10) & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
'pageindex += 1
_pg.Units = GrapeCity.ActiveReports.Document.Section.Units.Inches
Next
End Sub
Private Sub tsbPDF_Click(sender As Object, e As EventArgs)
'Dim Dateiname As String
Dim savefiledialog As New SaveFileDialog
savefiledialog.Filter = "PDF files (*.pdf)|*.PDF"
savefiledialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
savefiledialog.ShowDialog()
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
If savefiledialog.FileName <> "" Then p.Export(Viewer.Document, savefiledialog.FileName)
If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
End Sub
End Class

214
Gastro/usrcntlSpeisen.Designer.vb generated Normal file
View File

@@ -0,0 +1,214 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrcntlSpeisen
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.PanTop = New System.Windows.Forms.Panel()
Me.btnSave = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtSpeise = New System.Windows.Forms.TextBox()
Me.comSpeiseart = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnNew = New System.Windows.Forms.Button()
Me.txtSuche = New System.Windows.Forms.TextBox()
Me.dgvSpeise = New System.Windows.Forms.DataGridView()
Me.PanArsch = New System.Windows.Forms.Panel()
Me.btnDelete = New System.Windows.Forms.Button()
Me.btnUebernehmen = New System.Windows.Forms.Button()
Me.PanTop.SuspendLayout()
CType(Me.dgvSpeise, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanArsch.SuspendLayout()
Me.SuspendLayout()
'
'PanTop
'
Me.PanTop.Controls.Add(Me.btnSave)
Me.PanTop.Controls.Add(Me.Label2)
Me.PanTop.Controls.Add(Me.txtSpeise)
Me.PanTop.Controls.Add(Me.comSpeiseart)
Me.PanTop.Controls.Add(Me.Label1)
Me.PanTop.Controls.Add(Me.btnNew)
Me.PanTop.Controls.Add(Me.txtSuche)
Me.PanTop.Dock = System.Windows.Forms.DockStyle.Top
Me.PanTop.Location = New System.Drawing.Point(8, 8)
Me.PanTop.Name = "PanTop"
Me.PanTop.Size = New System.Drawing.Size(575, 176)
Me.PanTop.TabIndex = 0
'
'btnSave
'
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.btnSave.Image = Global.Gastro.My.Resources.Resources.saveas20
Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSave.Location = New System.Drawing.Point(377, 123)
Me.btnSave.Margin = New System.Windows.Forms.Padding(8)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(85, 33)
Me.btnSave.TabIndex = 21
Me.btnSave.Text = "Speichern"
Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSave.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(12, 52)
Me.Label2.Margin = New System.Windows.Forms.Padding(12)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 16)
Me.Label2.TabIndex = 20
Me.Label2.Text = "Speise:"
'
'txtSpeise
'
Me.txtSpeise.Enabled = False
Me.txtSpeise.Location = New System.Drawing.Point(77, 47)
Me.txtSpeise.Multiline = True
Me.txtSpeise.Name = "txtSpeise"
Me.txtSpeise.Size = New System.Drawing.Size(486, 64)
Me.txtSpeise.TabIndex = 19
'
'comSpeiseart
'
Me.comSpeiseart.FormattingEnabled = True
Me.comSpeiseart.Items.AddRange(New Object() {"Suppe", "Hauptspeise"})
Me.comSpeiseart.Location = New System.Drawing.Point(77, 135)
Me.comSpeiseart.Name = "comSpeiseart"
Me.comSpeiseart.Size = New System.Drawing.Size(121, 21)
Me.comSpeiseart.TabIndex = 18
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(12, 12)
Me.Label1.Margin = New System.Windows.Forms.Padding(12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(55, 16)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Suche:"
'
'btnNew
'
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNew.Image = Global.Gastro.My.Resources.Resources.stift20
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNew.Location = New System.Drawing.Point(478, 123)
Me.btnNew.Margin = New System.Windows.Forms.Padding(8)
Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(85, 33)
Me.btnNew.TabIndex = 17
Me.btnNew.Text = "Neu"
Me.btnNew.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNew.UseVisualStyleBackColor = True
'
'txtSuche
'
Me.txtSuche.Location = New System.Drawing.Point(77, 12)
Me.txtSuche.Margin = New System.Windows.Forms.Padding(12)
Me.txtSuche.Name = "txtSuche"
Me.txtSuche.Size = New System.Drawing.Size(486, 20)
Me.txtSuche.TabIndex = 0
'
'dgvSpeise
'
Me.dgvSpeise.AllowUserToAddRows = False
Me.dgvSpeise.AllowUserToDeleteRows = False
Me.dgvSpeise.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvSpeise.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvSpeise.Location = New System.Drawing.Point(8, 184)
Me.dgvSpeise.Name = "dgvSpeise"
Me.dgvSpeise.ReadOnly = True
Me.dgvSpeise.Size = New System.Drawing.Size(575, 460)
Me.dgvSpeise.TabIndex = 1
'
'PanArsch
'
Me.PanArsch.Controls.Add(Me.btnDelete)
Me.PanArsch.Controls.Add(Me.btnUebernehmen)
Me.PanArsch.Dock = System.Windows.Forms.DockStyle.Bottom
Me.PanArsch.Location = New System.Drawing.Point(8, 644)
Me.PanArsch.Name = "PanArsch"
Me.PanArsch.Size = New System.Drawing.Size(575, 54)
Me.PanArsch.TabIndex = 2
'
'btnDelete
'
Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.btnDelete.Image = Global.Gastro.My.Resources.Resources.del
Me.btnDelete.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDelete.Location = New System.Drawing.Point(377, 11)
Me.btnDelete.Margin = New System.Windows.Forms.Padding(8)
Me.btnDelete.Name = "btnDelete"
Me.btnDelete.Size = New System.Drawing.Size(85, 33)
Me.btnDelete.TabIndex = 22
Me.btnDelete.Text = "Löschen"
Me.btnDelete.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDelete.UseVisualStyleBackColor = True
'
'btnUebernehmen
'
Me.btnUebernehmen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUebernehmen.Image = Global.Gastro.My.Resources.Resources.links20
Me.btnUebernehmen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnUebernehmen.Location = New System.Drawing.Point(8, 11)
Me.btnUebernehmen.Margin = New System.Windows.Forms.Padding(8)
Me.btnUebernehmen.Name = "btnUebernehmen"
Me.btnUebernehmen.Size = New System.Drawing.Size(105, 33)
Me.btnUebernehmen.TabIndex = 18
Me.btnUebernehmen.Text = "Übernehmen"
Me.btnUebernehmen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnUebernehmen.UseVisualStyleBackColor = True
'
'usrcntlSpeisen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Controls.Add(Me.dgvSpeise)
Me.Controls.Add(Me.PanArsch)
Me.Controls.Add(Me.PanTop)
Me.Name = "usrcntlSpeisen"
Me.Padding = New System.Windows.Forms.Padding(8)
Me.Size = New System.Drawing.Size(591, 706)
Me.PanTop.ResumeLayout(False)
Me.PanTop.PerformLayout()
CType(Me.dgvSpeise, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanArsch.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents PanTop As Panel
Friend WithEvents dgvSpeise As DataGridView
Friend WithEvents PanArsch As Panel
Friend WithEvents btnUebernehmen As Button
Friend WithEvents btnNew As Button
Friend WithEvents Label1 As Label
Friend WithEvents txtSuche As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents txtSpeise As TextBox
Friend WithEvents comSpeiseart As ComboBox
Friend WithEvents btnSave As Button
Friend WithEvents btnDelete As Button
End Class

120
Gastro/usrcntlSpeisen.resx Normal file
View File

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

104
Gastro/usrcntlSpeisen.vb Normal file
View File

@@ -0,0 +1,104 @@
Public Class usrcntlSpeisen
Public sqlselect As String = "SELECT EssenName, EssenLastUsage, EssenCreateDate, EssenType FROM GEssen"
Public SqlSpeiseArt As String = ""
Public senderbox As New TextBox
Public newMenu As Boolean = False
Public Speise As New cEssen
Private Sub usrcntlSpeisen_Load(sender As Object, e As EventArgs) Handles Me.Load
LoadDGV()
End Sub
Function LoadDGV()
Dim ds As New DataSet
cSQL.SQL2DS(sqlselect & " WHERE EssenName LIKE '%" & txtSuche.Text & "%' " & SqlSpeiseArt & "ORDER BY EssenName", ds)
With dgvSpeise
.MultiSelect = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.DataSource = ds.Tables(0)
.Columns("EssenName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("EssenCreateDate").Visible = False
.Columns("EssenType").Visible = False
End With
End Function
Private Sub dgvSpeise_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSpeise.CellContentClick, dgvSpeise.CellClick
Speise = New cEssen
txtSpeise.Enabled = True
senderbox.Text = dgvSpeise.CurrentRow.Cells("Essenname").Value
txtSpeise.Text = dgvSpeise.CurrentRow.Cells("Essenname").Value
comSpeiseart.SelectedItem = dgvSpeise.CurrentRow.Cells("Essentype").Value
Speise.EssenName = dgvSpeise.CurrentRow.Cells("Essenname").Value
Speise.EssenType = dgvSpeise.CurrentRow.Cells("EssenType").Value
Speise.EssenCreateDate = dgvSpeise.CurrentRow.Cells("EssenCreateDate").Value
Speise.EssenLastUsage = dgvSpeise.CurrentRow.Cells("EssenLastUsage").Value
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
LoadDGV()
End Sub
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
newMenu = True
Speise = New cEssen
txtSpeise.Enabled = True
txtSpeise.Text = ""
txtSuche.Text = ""
txtSpeise.BackColor = Color.Khaki
'Dim ding As New cMenu
'ding.MenuTitel = "Test"
'ding.MenuDateVon = Now.Date.AddDays(-2)
'ding.MenuDateVon = Now.Date.AddDays(1)
'ding.MenuDetail1 = "jupp, detail 1"
'Dim mahl As New cEssen
'mahl.EssenCreateDate = Now
'mahl.EssenLastUsage = Now.Date
'mahl.EssenName = "Yummy yummy yummy"
'ding.MenuEssenMo = mahl.EssenName
'ding.MenuID = Now & Now.AddDays(-2)
'ding.saveAsNew()
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Speise.EssenName = txtSpeise.Text
Speise.EssenType = comSpeiseart.SelectedItem
If newMenu = True Then
Speise.EssenCreateDate = Now
Speise.EssenLastUsage = Now
Speise.saveAsNew()
newMenu = False
txtSpeise.BackColor = Color.White
Else
Speise.update()
End If
LoadDGV()
End Sub
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
Dim Speise2Delete As New cEssen
Speise2Delete.getEssenByCreateDate(dgvSpeise.CurrentRow.Cells("EssenCreateDate").Value)
Speise2Delete.Delete()
LoadDGV()
End Sub
End Class

241
Gastro/usrcntlVerteiler.Designer.vb generated Normal file
View File

@@ -0,0 +1,241 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrcntlVerteiler
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlVerteiler))
Me.PanMenuLinks = New System.Windows.Forms.Panel()
Me.btnSave = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnChange = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.btnNew = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtEMail = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtName = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtSuche = New System.Windows.Forms.TextBox()
Me.dgv = New System.Windows.Forms.DataGridView()
Me.PanMenuLinks.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.dgv, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PanMenuLinks
'
Me.PanMenuLinks.Controls.Add(Me.btnSave)
Me.PanMenuLinks.Controls.Add(Me.Button1)
Me.PanMenuLinks.Controls.Add(Me.btnChange)
Me.PanMenuLinks.Controls.Add(Me.btnDel)
Me.PanMenuLinks.Controls.Add(Me.btnNew)
Me.PanMenuLinks.Dock = System.Windows.Forms.DockStyle.Left
Me.PanMenuLinks.Location = New System.Drawing.Point(0, 0)
Me.PanMenuLinks.Name = "PanMenuLinks"
Me.PanMenuLinks.Size = New System.Drawing.Size(95, 774)
Me.PanMenuLinks.TabIndex = 1
'
'btnSave
'
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.btnSave.Image = Global.Gastro.My.Resources.Resources.saveas20
Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSave.Location = New System.Drawing.Point(8, 106)
Me.btnSave.Margin = New System.Windows.Forms.Padding(8)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 33)
Me.btnSave.TabIndex = 22
Me.btnSave.Text = "Speich."
Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSave.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(8, 460)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 20
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
Me.Button1.Visible = False
'
'btnChange
'
Me.btnChange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnChange.Image = CType(resources.GetObject("btnChange.Image"), System.Drawing.Image)
Me.btnChange.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnChange.Location = New System.Drawing.Point(8, 57)
Me.btnChange.Margin = New System.Windows.Forms.Padding(8)
Me.btnChange.Name = "btnChange"
Me.btnChange.Size = New System.Drawing.Size(75, 33)
Me.btnChange.TabIndex = 18
Me.btnChange.Text = "Ändern"
Me.btnChange.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnChange.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Image = CType(resources.GetObject("btnDel.Image"), System.Drawing.Image)
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDel.Location = New System.Drawing.Point(8, 223)
Me.btnDel.Margin = New System.Windows.Forms.Padding(8)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(75, 33)
Me.btnDel.TabIndex = 19
Me.btnDel.Text = "Löschen"
Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDel.UseVisualStyleBackColor = True
'
'btnNew
'
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNew.Image = CType(resources.GetObject("btnNew.Image"), System.Drawing.Image)
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNew.Location = New System.Drawing.Point(8, 8)
Me.btnNew.Margin = New System.Windows.Forms.Padding(8)
Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(75, 33)
Me.btnNew.TabIndex = 16
Me.btnNew.Text = "Neu"
Me.btnNew.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNew.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.txtEMail)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.txtName)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.txtSuche)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(95, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(355, 127)
Me.Panel1.TabIndex = 2
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(15, 93)
Me.Label3.Margin = New System.Windows.Forms.Padding(12)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(51, 16)
Me.Label3.TabIndex = 7
Me.Label3.Text = "EMail:"
'
'txtEMail
'
Me.txtEMail.Enabled = False
Me.txtEMail.Location = New System.Drawing.Point(94, 92)
Me.txtEMail.Margin = New System.Windows.Forms.Padding(12)
Me.txtEMail.Name = "txtEMail"
Me.txtEMail.Size = New System.Drawing.Size(249, 20)
Me.txtEMail.TabIndex = 6
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(15, 65)
Me.Label2.Margin = New System.Windows.Forms.Padding(12)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(53, 16)
Me.Label2.TabIndex = 5
Me.Label2.Text = "Name:"
'
'txtName
'
Me.txtName.Enabled = False
Me.txtName.Location = New System.Drawing.Point(94, 64)
Me.txtName.Margin = New System.Windows.Forms.Padding(12)
Me.txtName.Name = "txtName"
Me.txtName.Size = New System.Drawing.Size(249, 20)
Me.txtName.TabIndex = 4
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(15, 12)
Me.Label1.Margin = New System.Windows.Forms.Padding(12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(55, 16)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Suche:"
'
'txtSuche
'
Me.txtSuche.Location = New System.Drawing.Point(94, 11)
Me.txtSuche.Margin = New System.Windows.Forms.Padding(12)
Me.txtSuche.Name = "txtSuche"
Me.txtSuche.Size = New System.Drawing.Size(249, 20)
Me.txtSuche.TabIndex = 2
'
'dgv
'
Me.dgv.AllowUserToAddRows = False
Me.dgv.AllowUserToDeleteRows = False
Me.dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgv.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgv.Location = New System.Drawing.Point(95, 127)
Me.dgv.Name = "dgv"
Me.dgv.ReadOnly = True
Me.dgv.Size = New System.Drawing.Size(355, 647)
Me.dgv.TabIndex = 3
'
'usrcntlVerteiler
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Controls.Add(Me.dgv)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.PanMenuLinks)
Me.Name = "usrcntlVerteiler"
Me.Size = New System.Drawing.Size(450, 774)
Me.PanMenuLinks.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.dgv, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents PanMenuLinks As Panel
Friend WithEvents Button1 As Button
Friend WithEvents btnChange As Button
Friend WithEvents btnDel As Button
Friend WithEvents btnNew As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents Label1 As Label
Friend WithEvents txtSuche As TextBox
Friend WithEvents dgv As DataGridView
Friend WithEvents Label3 As Label
Friend WithEvents txtEMail As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents txtName As TextBox
Friend WithEvents btnSave As Button
End Class

155
Gastro/usrcntlVerteiler.resx Normal file
View File

@@ -0,0 +1,155 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnChange.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l
kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU
WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD
oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF
LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk
sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz
ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7
sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF
TkSuQmCC
</value>
</data>
<data name="btnDel.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAd5JREFUOE+l
lM0rRGEUxkVkNIOUpCallD9iNpSNBcU/YOm7FBvkKyErFGZjSjGMz+yVtSwUsxw75Bquz5kxM9y5nlP3
1fs1E1n86r7nPOe5933fc26ebdsC6auIEvsLSiDa3lr05l8ukeO/RVjEQlult/W1M+AwFgoW8zke5MtI
p8v9PMCsAKJZkAApsApTFy92dC7kesCL0eDbwxFV8/mfBwgOwCvIABuQ6SG//Tf/ihuxefAELPBpNPp2
M5mMahhtbxmB4AWQGU8gfnRQlgpfus3erm6s41KePuBEMSTMoQEqkE2TYA1MAMqxHfD5Ba0hffp9W0uf
VECQybMUI+hY6GWlWkPGY28nHfqDU5SLJVxcOV8rGDGsRLwQpqMokLfHMMCU0dxU8WU+CrXCguFcQAeK
shme46JqdLVKAK2Rj4JJEAXZDNMgoJsoYYGmLYKwH5hOYS7oZcpECYYQ0Lm9OwUy+0C+KGWiZENdn1Fs
ERfgdW5fzpPpsdbwrsE3jeQHJ6az8qfCFx6mwURRn/LNT/odlhcM05GIG6bjjpAaeQ7b8cqtwU1UDKyD
KpYThARNCwSDIGhZlpJnGmeiNt63Nz3anwPP582163lsuJIX6oCmLnl2KsSExf+x874B9Xn4eDkYSsEA
AAAASUVORK5CYII=
</value>
</data>
<data name="btnNew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAGtJREFUOE9j
+P//P1Uxw4NP/xnSDuDFM7BgbOoY7n8EGnjmFZCYhhf/x4KxqWM4/RJIjxqIDQ+8gUZADjZNJGOggcYj
1ECsAYyEsWnGpm40YePGA2wgqIBN3Y8Xz8SCsamDFLDYinHy8X8GALtYeStuE/GUAAAAAElFTkSuQmCC
</value>
</data>
</root>

88
Gastro/usrcntlVerteiler.vb Normal file
View File

@@ -0,0 +1,88 @@
Public Class usrcntlVerteiler
Dim NeuerEintrag As Boolean = False
Dim Reci As New cEmpfaenger
Private Sub usrcntlVerteiler_Load(sender As Object, e As EventArgs) Handles Me.Load
LoadDGV()
End Sub
Function LoadDGV()
Dim ds As New DataSet
cSQL.SQL2DS("SELECT EmpfName, EmpfEMail, EmpfID FROM GVerteilerListe WHERE EmpfName LIKE '%" & txtSuche.Text & "%' OR EmpfEMail LIKE '%" & txtSuche.Text & "%' ORDER BY EmpfName", ds)
With dgv
.MultiSelect = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.DataSource = ds.Tables(0)
.Columns("EmpfEMail").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("EmpfID").Visible = False
End With
End Function
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
LoadReci()
If NeuerEintrag = True And SQLTools.CheckIfExist("SELECT * FROM GVerteilerListe WHERE EmpfEMail LIKE '%" & txtEMail.Text & "%' ") Then
MsgBox("Diese EMail Adresse ist bereits registriert!") : Exit Sub
ElseIf NeuerEintrag = True And SQLTools.CheckIfExist("SELECT * FROM GVerteilerListe WHERE EmpfEMail LIKE '%" & txtEMail.Text & "%' ") = False Then
'Reci.EmpfID = Now
Reci.saveAsNew()
NeuerEintrag = False
txtEMail.BackColor = Color.White : txtName.BackColor = Color.White
LoadDGV()
Else
Reci.update()
LoadDGV()
End If
End Sub
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
txtName.Enabled = True : txtEMail.Enabled = True
NeuerEintrag = True
Reci = New cEmpfaenger
txtName.Text = "" : txtEMail.Text = ""
txtName.BackColor = Color.Beige : txtEMail.BackColor = Color.Beige
End Sub
Function LoadReci()
Reci.EmpfName = txtName.Text
Reci.EmpfEMail = txtEMail.Text
If NeuerEintrag = True Then Reci.EmpfID = Now
End Function
Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
LoadDGV()
End Sub
Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click, dgv.CellDoubleClick
txtName.Enabled = True : txtEMail.Enabled = True
Reci = New cEmpfaenger
Reci.loadME(dgv.CurrentRow.Cells("EmpfID").Value)
txtEMail.Text = Reci.EmpfEMail
txtName.Text = Reci.EmpfName
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
If Reci.Delete() Then
LoadDGV()
txtName.Text = "" : txtEMail.Text = ""
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim lines = IO.File.ReadAllLines("C:\Gastro\reci.csv")
Dim colCount = lines.First.Split(";"c).Length
For Each line In lines
Dim objFields = From field In line.Split(";"c)
Dim verteiler As New cEmpfaenger
verteiler.EmpfName = SQLTools.auf49kuerzen(objFields(0).ToString)
verteiler.EmpfEMail = objFields(1)
verteiler.EmpfID = SQLTools.auf49kuerzen(Now & objFields(1).ToString)
'verteiler.saveAsNew()
Next
End Sub
End Class

BIN
Speisekarte Bilder Vorlagen etc.lnk Normal file
View File

Binary file not shown.