Revert "commit"

This commit is contained in:
2024-10-02 08:59:41 +00:00
parent 298156bc8d
commit a39d888c67
2987 changed files with 174 additions and 13775 deletions

File diff suppressed because one or more lines are too long

View File

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

View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptASFINAG_Anhang
End Class

View File

@@ -0,0 +1,518 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSDLBestellungEintrag
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(frmSDLBestellungEintrag))
Me.dgvPositionen = New System.Windows.Forms.DataGridView()
Me.KfzKennzeichen = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.SDLNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.KarteBoxBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.KartenNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.PIN = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.lblSBErfassung = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.lblErrSprache = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblLieferdatumVon = New System.Windows.Forms.Label()
Me.datBis = New System.Windows.Forms.DateTimePicker()
Me.datVon = New System.Windows.Forms.DateTimePicker()
Me.btnFaxDrucken = New System.Windows.Forms.Button()
Me.btnFax = New System.Windows.Forms.Button()
Me.btnSDLLaden = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cboAnTabelleAnfuegen = New System.Windows.Forms.CheckBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.cboSDLNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.lbl_ErrKunde = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.KdFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.txtVermerkErfassung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'dgvPositionen
'
Me.dgvPositionen.AllowUserToAddRows = False
Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KfzKennzeichen, Me.SDLNr, Me.KarteBoxBezeichnung, Me.KartenNr, Me.PIN})
Me.dgvPositionen.Location = New System.Drawing.Point(15, 89)
Me.dgvPositionen.Name = "dgvPositionen"
Me.dgvPositionen.Size = New System.Drawing.Size(866, 330)
Me.dgvPositionen.TabIndex = 1
'
'KfzKennzeichen
'
Me.KfzKennzeichen.HeaderText = "KfzKennzeichen"
Me.KfzKennzeichen.Name = "KfzKennzeichen"
Me.KfzKennzeichen.Width = 150
'
'SDLNr
'
Me.SDLNr.HeaderText = "SDLNr"
Me.SDLNr.Name = "SDLNr"
'
'KarteBoxBezeichnung
'
Me.KarteBoxBezeichnung.HeaderText = "KarteBoxBezeichnung"
Me.KarteBoxBezeichnung.Name = "KarteBoxBezeichnung"
Me.KarteBoxBezeichnung.Width = 150
'
'KartenNr
'
Me.KartenNr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.KartenNr.HeaderText = "KartenNr"
Me.KartenNr.Name = "KartenNr"
'
'PIN
'
Me.PIN.HeaderText = "PIN"
Me.PIN.Name = "PIN"
Me.PIN.Visible = False
Me.PIN.Width = 80
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(13, 13)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(63, 13)
Me.Label4.TabIndex = 4
Me.Label4.Text = "Erfassung"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(13, 73)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(70, 13)
Me.Label10.TabIndex = 5
Me.Label10.Text = "Positionen:"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(13, 43)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(35, 13)
Me.Label12.TabIndex = 9
Me.Label12.Text = "Firma:"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(83, 211)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(49, 13)
Me.Label13.TabIndex = 9
Me.Label13.Text = "Vermerk:"
Me.Label13.Visible = False
'
'lblSBErfassung
'
Me.lblSBErfassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSBErfassung.Location = New System.Drawing.Point(495, 5)
Me.lblSBErfassung.Name = "lblSBErfassung"
Me.lblSBErfassung.Size = New System.Drawing.Size(132, 13)
Me.lblSBErfassung.TabIndex = 10
Me.lblSBErfassung.Text = "ABC"
Me.lblSBErfassung.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(428, 5)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(82, 13)
Me.Label17.TabIndex = 12
Me.Label17.Text = "Sachbearbeiter:"
'
'lblErrSprache
'
Me.lblErrSprache.AutoSize = True
Me.lblErrSprache.ForeColor = System.Drawing.Color.Red
Me.lblErrSprache.Location = New System.Drawing.Point(221, 482)
Me.lblErrSprache.Name = "lblErrSprache"
Me.lblErrSprache.Size = New System.Drawing.Size(147, 13)
Me.lblErrSprache.TabIndex = 37
Me.lblErrSprache.Text = "Diese Sprache ist nicht gültig!"
Me.lblErrSprache.Visible = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(375, 482)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(50, 13)
Me.Label3.TabIndex = 33
Me.Label3.Text = "Sprache:"
Me.Label3.Visible = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(103, 23)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(23, 13)
Me.Label2.TabIndex = 30
Me.Label2.Text = "bis:"
'
'lblLieferdatumVon
'
Me.lblLieferdatumVon.AutoSize = True
Me.lblLieferdatumVon.Location = New System.Drawing.Point(2, 22)
Me.lblLieferdatumVon.Name = "lblLieferdatumVon"
Me.lblLieferdatumVon.Size = New System.Drawing.Size(91, 13)
Me.lblLieferdatumVon.TabIndex = 31
Me.lblLieferdatumVon.Text = "Bestelldatum von:"
'
'datBis
'
Me.datBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datBis.Location = New System.Drawing.Point(106, 38)
Me.datBis.Name = "datBis"
Me.datBis.Size = New System.Drawing.Size(95, 20)
Me.datBis.TabIndex = 29
'
'datVon
'
Me.datVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datVon.Location = New System.Drawing.Point(5, 38)
Me.datVon.Name = "datVon"
Me.datVon.Size = New System.Drawing.Size(95, 20)
Me.datVon.TabIndex = 28
'
'btnFaxDrucken
'
Me.btnFaxDrucken.BackgroundImage = Global.SDL.My.Resources.printer21
Me.btnFaxDrucken.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnFaxDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFaxDrucken.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFaxDrucken.Location = New System.Drawing.Point(831, 425)
Me.btnFaxDrucken.Name = "btnFaxDrucken"
Me.btnFaxDrucken.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.btnFaxDrucken.Size = New System.Drawing.Size(50, 55)
Me.btnFaxDrucken.TabIndex = 40
Me.btnFaxDrucken.UseVisualStyleBackColor = True
'
'btnFax
'
Me.btnFax.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFax.Image = Global.SDL.My.Resources.list1
Me.btnFax.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFax.Location = New System.Drawing.Point(637, 425)
Me.btnFax.Name = "btnFax"
Me.btnFax.Size = New System.Drawing.Size(146, 55)
Me.btnFax.TabIndex = 39
Me.btnFax.Text = " Formular Fax" & Global.Microsoft.VisualBasic.ChrW(10) & " öffnen"
Me.btnFax.UseVisualStyleBackColor = True
'
'btnSDLLaden
'
Me.btnSDLLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDLLaden.Location = New System.Drawing.Point(340, 26)
Me.btnSDLLaden.Name = "btnSDLLaden"
Me.btnSDLLaden.Size = New System.Drawing.Size(115, 32)
Me.btnSDLLaden.TabIndex = 41
Me.btnSDLLaden.Text = "Laden"
Me.btnSDLLaden.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.cboAnTabelleAnfuegen)
Me.Panel1.Controls.Add(Me.Label15)
Me.Panel1.Controls.Add(Me.cboSDLNr)
Me.Panel1.Controls.Add(Me.datVon)
Me.Panel1.Controls.Add(Me.btnSDLLaden)
Me.Panel1.Controls.Add(Me.datBis)
Me.Panel1.Controls.Add(Me.lblLieferdatumVon)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.Label14)
Me.Panel1.Location = New System.Drawing.Point(425, 24)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(470, 66)
Me.Panel1.TabIndex = 41
'
'cboAnTabelleAnfuegen
'
Me.cboAnTabelleAnfuegen.AutoSize = True
Me.cboAnTabelleAnfuegen.Location = New System.Drawing.Point(340, 5)
Me.cboAnTabelleAnfuegen.Name = "cboAnTabelleAnfuegen"
Me.cboAnTabelleAnfuegen.Size = New System.Drawing.Size(118, 17)
Me.cboAnTabelleAnfuegen.TabIndex = 43
Me.cboAnTabelleAnfuegen.Text = "an Tabelle anfügen"
Me.cboAnTabelleAnfuegen.UseVisualStyleBackColor = True
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(204, 22)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(74, 13)
Me.Label15.TabIndex = 42
Me.Label15.Text = "SDL-Leistung:"
'
'cboSDLNr
'
Me.cboSDLNr._allowedValuesFreiText = Nothing
Me.cboSDLNr._allowFreiText = False
Me.cboSDLNr._value = ""
Me.cboSDLNr.DropDownWidth = 200
Me.cboSDLNr.FormattingEnabled = True
Me.cboSDLNr.Location = New System.Drawing.Point(207, 37)
Me.cboSDLNr.Name = "cboSDLNr"
Me.cboSDLNr.Size = New System.Drawing.Size(127, 21)
Me.cboSDLNr.TabIndex = 41
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(2, 6)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(108, 13)
Me.Label14.TabIndex = 4
Me.Label14.Text = "Leistungen laden:"
'
'lbl_ErrKunde
'
Me.lbl_ErrKunde.AutoSize = True
Me.lbl_ErrKunde.ForeColor = System.Drawing.Color.Red
Me.lbl_ErrKunde.Location = New System.Drawing.Point(282, 24)
Me.lbl_ErrKunde.Name = "lbl_ErrKunde"
Me.lbl_ErrKunde.Size = New System.Drawing.Size(122, 13)
Me.lbl_ErrKunde.TabIndex = 42
Me.lbl_ErrKunde.Text = "Kein Kunde angegeben!"
Me.lbl_ErrKunde.Visible = False
'
'Button3
'
Me.Button3.BackgroundImage = Global.SDL.My.Resources.email_big1
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(782, 425)
Me.Button3.Name = "Button3"
Me.Button3.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.Button3.Size = New System.Drawing.Size(50, 55)
Me.Button3.TabIndex = 43
Me.Button3.UseVisualStyleBackColor = True
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "KfzKennzeichen"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Width = 150
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.HeaderText = "SDLNr"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "KarteBoxBezeichnung"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 150
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn4.HeaderText = "KartenNr"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
'
'DataGridViewTextBoxColumn5
'
Me.DataGridViewTextBoxColumn5.HeaderText = "PIN"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
Me.DataGridViewTextBoxColumn5.Visible = False
Me.DataGridViewTextBoxColumn5.Width = 80
'
'cboSprache
'
Me.cboSprache._allowedValuesFreiText = Nothing
Me.cboSprache._allowFreiText = False
Me.cboSprache._value = ""
Me.cboSprache.DropDownHeight = 350
Me.cboSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboSprache.DropDownWidth = 250
Me.cboSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboSprache.FormattingEnabled = True
Me.cboSprache.IntegralHeight = False
Me.cboSprache.Location = New System.Drawing.Point(431, 477)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(191, 24)
Me.cboSprache.TabIndex = 32
Me.cboSprache.Visible = False
'
'KdFirma
'
Me.KdFirma._AllowSetValue = True
Me.KdFirma._autoSizeGross = False
Me.KdFirma._display_Name1 = False
Me.KdFirma._displayAVISO_Email = False
Me.KdFirma._displayFullName = False
Me.KdFirma._displayWoelflKd = False
Me.KdFirma._hideIfListEmpty = True
Me.KdFirma._loadKdData = True
Me.KdFirma._ValueKdAndName = True
Me.KdFirma.dgvpos = "LEFT"
Me.KdFirma.KdName = ""
Me.KdFirma.KdNr = "-1"
Me.KdFirma.kdNrField = Nothing
Me.KdFirma.KdNrNullInt = Nothing
Me.KdFirma.Location = New System.Drawing.Point(78, 40)
Me.KdFirma.Name = "KdFirma"
Me.KdFirma.nurAktive = True
Me.KdFirma.searchActive = True
Me.KdFirma.Size = New System.Drawing.Size(325, 20)
Me.KdFirma.TabIndex = 7
Me.KdFirma.usrcntl = Nothing
'
'txtVermerkErfassung
'
Me.txtVermerkErfassung.Location = New System.Drawing.Point(152, 208)
Me.txtVermerkErfassung.MaxLineLength = -1
Me.txtVermerkErfassung.MaxLines_Warning = ""
Me.txtVermerkErfassung.MaxLines_Warning_Label = Nothing
Me.txtVermerkErfassung.Name = "txtVermerkErfassung"
Me.txtVermerkErfassung.Size = New System.Drawing.Size(324, 62)
Me.txtVermerkErfassung.TabIndex = 6
Me.txtVermerkErfassung.Text = ""
Me.txtVermerkErfassung.Visible = False
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(15, 469)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(115, 32)
Me.Button1.TabIndex = 44
Me.Button1.Text = "Schließen"
Me.Button1.UseVisualStyleBackColor = True
'
'cboPrinter
'
Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = ""
Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(637, 480)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(244, 21)
Me.cboPrinter.TabIndex = 45
'
'frmSDLBestellungEintrag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(892, 510)
Me.Controls.Add(Me.cboPrinter)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.lbl_ErrKunde)
Me.Controls.Add(Me.btnFaxDrucken)
Me.Controls.Add(Me.btnFax)
Me.Controls.Add(Me.lblErrSprache)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.lblSBErfassung)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.KdFirma)
Me.Controls.Add(Me.txtVermerkErfassung)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.dgvPositionen)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSDLBestellungEintrag"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "SDL Abholung"
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents dgvPositionen As System.Windows.Forms.DataGridView
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents KdFirma As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents txtVermerkErfassung As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents lblSBErfassung As System.Windows.Forms.Label
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents lblErrSprache As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents lblLieferdatumVon As System.Windows.Forms.Label
Friend WithEvents datBis As System.Windows.Forms.DateTimePicker
Friend WithEvents datVon As System.Windows.Forms.DateTimePicker
Friend WithEvents btnFaxDrucken As System.Windows.Forms.Button
Friend WithEvents btnFax As System.Windows.Forms.Button
Friend WithEvents btnSDLLaden As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents cboSDLNr As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lbl_ErrKunde As System.Windows.Forms.Label
Friend WithEvents cboAnTabelleAnfuegen As System.Windows.Forms.CheckBox
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents KfzKennzeichen As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents SDLNr As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents KarteBoxBezeichnung As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents KartenNr As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents PIN As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

View File

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

View File

@@ -0,0 +1,355 @@
Imports Microsoft.Office.Interop
Imports System.Drawing.Printing
Public Class frmSDLBestellungEintrag
Dim TMP_KdNr As Integer
Dim TMP_SDLNr As Integer
Dim saveInProgress = False
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(KdNr As Integer, SDLNr As Integer)
InitializeComponent()
TMP_KdNr = KdNr
TMP_SDLNr = SDLNr
End Sub
Private Sub frmSDLAbholungEintrag_Load(sender As Object, e As EventArgs) Handles Me.Load
KdFirma.initKdBox(Me)
cboSDLNr.fillWithSQL("SELECT [SDLNr],cast([SDLNr] as varchar(3)) + ' ' + [SDLBez] FROM [Speditionsdienstleistungen] WHERE SDLTypNr<=2 and SDLNr IN(500) ORDER BY SDLBez", False, "SDL", True)
initDrucker()
lblSBErfassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
If TMP_KdNr > 0 Then KdFirma.KdNr = TMP_KdNr
If TMP_SDLNr > 0 Then cboSDLNr.changeItem(TMP_SDLNr) : btnSDLLaden.PerformClick()
cboSprache.Items.Clear()
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DEUTSCH", "DE"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SERBISCH", "YU"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TÜRKISCH", "TR"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RUMÄNISCH", "RO"))
If KdFirma.KdNr <> "" Then
Select Case KdFirma.KdNr.ToString.Substring(0, 1)
Case "1" : cboSprache.changeItem("TR")
Case "2" : cboSprache.changeItem("RO")
Case "3" : cboSprache.changeItem("YU")
Case "4" : cboSprache.changeItem("YU")
Case Else : cboSprache.changeItem("DE")
End Select
End If
End Sub
Sub initDrucker()
' alle installierten Drucker ermitteln und
' in in ein ArrayList-Objekt speichern
Dim sPrinters As New ArrayList
For Each sPrinter As String In PrinterSettings.InstalledPrinters
sPrinters.Add(sPrinter)
Next
' Array sortieren
sPrinters.Sort()
' jetzt alle Drucker in sortierter Reihenfolge in einer
' ComboBox zur Auswahl anbieten
Dim oPS As New System.Drawing.Printing.PrinterSettings
For i As Integer = 0 To sPrinters.Count - 1
cboPrinter.Items.Add(sPrinters(i))
Next
If sPrinters.Count > 0 Then
cboPrinter.SelectedIndex = 0
For Each i In cboPrinter.Items
If i.ToString = oPS.PrinterName Then
cboPrinter.SelectedItem = i
Exit For
End If
Next
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSDLLaden.Click
initdgv()
End Sub
Sub initdgv()
Dim kundenSQL As New kundenSQL
Dim sqlStr As String = ""
Dim sdlnr As Integer = If(IsNumeric(cboSDLNr._value), cboSDLNr._value, -1)
sqlStr = " SELECT [KfzKennzeichen] ,SDLNr, " &
" cast(CASE [SDLNr] " &
" WHEN '207' THEN 'FREJUS' " &
" WHEN '100' THEN 'IDS'" &
" WHEN '101' THEN 'WÖLFL'" &
" WHEN '202' THEN 'IT' " &
" WHEN '208' THEN 'MSE' " &
" WHEN '211' THEN 'MULTI-BOX' " &
" WHEN '210' THEN 'SI' " &
" WHEN '212' THEN 'UTA' " &
" WHEN '213' THEN 'HUGO' " &
" WHEN '203' THEN 'CZ' " &
" WHEN '209' THEN 'PL' " &
" WHEN '500' THEN 'ABGASPLAKETTE' " &
" Else '-' " &
" END as VARCHAR(30)) AS KARTEBOX, " &
" cast(CASE [SDLNr] " &
" WHEN '207' THEN cast([FREJUS-CARD-Nr] as VARCHAR(200)) " &
" WHEN '100' THEN cast(KartenNr as VARCHAR(200))" &
" WHEN '101' THEN cast([KartenSchlüsselNr] as VARCHAR(200))" &
" WHEN '202' THEN cast([TELEPASS-Nr] as VARCHAR(200)) " &
" WHEN '208' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '211' THEN cast([PAN-Nr] as VARCHAR(200)) " &
" WHEN '210' THEN cast([SERIE-Nr] as VARCHAR(200)) " &
" WHEN '212' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '213' THEN cast(OBUID as VARCHAR(200)) " &
" WHEN '203' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '209' THEN cast([MSE-Kd-Nr] as VARCHAR(200)) " &
" WHEN '500' THEN '-' " &
" Else '-' " &
" END as VARCHAR(200)) AS KARTEBOX_NR, " &
" [PIN] " &
" FROM [SDL] " &
" WHERE KundenNr = " & KdFirma.KdNr_value
If sdlnr > 0 Then : sqlStr &= " AND SDLNr=" & sdlnr
Else : sqlStr &= " AND SDLNr IN (500)"
End If
sqlStr &= " AND Bestelldatum between '" & datVon.Value.ToShortDateString & "' and '" & datBis.Value.ToShortDateString & "' "
Dim order As String = " ORDER BY KfzKennzeichen,SDLNr, Bestelldatum, BestellNr,Ausstellungsdatum,KartenNr,OBUID"
Dim dt = kundenSQL.loadSQLDataAdapterBySqlWithoutReadonlyProblem(sqlStr & order, "SDL")
If Not cboAnTabelleAnfuegen.Checked Then dgvPositionen.Rows.Clear()
If dt IsNot Nothing Then
For Each r In dt.Rows
dgvPositionen.Rows.Add(r("KfzKennzeichen"), r("SDLNr"), r("KARTEBOX"), r("KARTEBOX_NR"), r("PIN"))
Next
End If
FilterKZ()
Exit Sub
With dgvPositionen
.DataSource = kundenSQL.loadSQLDataAdapterBySqlWithoutReadonlyProblem(sqlStr & order, "SDL")
.Columns("KfzKennzeichen").HeaderText = "KENNZEICHEN"
.Columns("KfzKennzeichen").Width = 200
.Columns("KfzKennzeichen").ReadOnly = True
.Columns("SDLNr").ReadOnly = True
.Columns("SDLNr").Visible = False
'.Columns("MSE-Kd-Nr").Visible = False
'.Columns("MSE-Kd-Nr").HeaderText = "MSE-Kd-Nr"
'.Columns("MSE-Kd-Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("PIN").Visible = False
'.Columns("KartenNr").Visible = False
' .Columns("KartenNr").Visible = False
.Columns("KARTEBOX_NR").Width = 300
.Columns("KARTEBOX_NR").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("PIN").HeaderText = "PIN"
.Columns("PIN").Width = 200
Select Case sdlnr
Case -1, 100
.Columns("PIN").Visible = True
Case 203, 209
.Columns("MSE-Kd-Nr").Visible = True
Case Else
.Columns("PIN").Visible = True
.Columns("PIN").Visible = True
End Select
.Sort(.Columns("KfzKennzeichen"), System.ComponentModel.ListSortDirection.Ascending)
End With
'CreateTableForGridView()
End Sub
Sub FilterKZ()
'FahrerAbholAuftrag
dgvPositionen.Sort(dgvPositionen.Columns("KfzKennzeichen"), System.ComponentModel.ListSortDirection.Ascending)
End Sub
Function genFormular(sender As Button, Optional ByRef WordPath As String = "") As Microsoft.Office.Interop.Word.Document
Me.Cursor = Cursors.WaitCursor
FilterKZ()
Dim SDLNr As Integer = -1 ' If(IsNumeric(cboSDLNr._value), cboSDLNr._value, -1)
If dgvPositionen.Rows.Count > 0 Then
SDLNr = 999 'PL+CZ
For Each r As DataGridViewRow In dgvPositionen.Rows
If r.Cells("SDLNr").Value IsNot DBNull.Value Then
If r.Cells("SDLNr").Value <> 209 And r.Cells("SDLNr").Value <> 203 Then
SDLNr = -1 : Exit For
End If
End If
Next
End If
If SDLNr < 0 Then
For Each r As DataGridViewRow In dgvPositionen.Rows
If r.Cells("SDLNr").Value IsNot DBNull.Value Then
If SDLNr <= 0 Then
SDLNr = r.Cells("SDLNr").Value
Else
If SDLNr <> r.Cells("SDLNr").Value Then
SDLNr = -1
Exit For
'Verschiedene Leistungen --> SDLNR=-1 --> richtige .docx
End If
End If
End If
Next
End If
Dim KdNr As Integer = KdFirma.KdNr_value
Dim TMPvisible = True
If sender Is Button3 Then TMPvisible = False
Dim print = False
Dim printername = cboPrinter.Text
lblErrSprache.Visible = False
Dim cGenWord As New cGenWord
Dim sprache = cboSprache._value ' DirectCast(cboSprache.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value
If SDLNr = 500 Then 'Spezialfall PL+CZ
genFormular = cGenWord.genBestellung_MAN(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, print, printername, WordPath, TMPvisible)
End If
Me.Cursor = Cursors.Default
End Function
Private Sub btnFax_Click(sender As Object, e As EventArgs) Handles btnFax.Click
genFormular(sender)
End Sub
Private Sub btnFaxDrucken_Click(sender As Object, e As EventArgs) Handles btnFaxDrucken.Click
genFormular(sender)
End Sub
Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSprache.SelectedIndexChanged
lblErrSprache.Visible = False
End Sub
Private Sub KdFirma_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles KdFirma.PropertyChanged
If KdFirma.KdNr_value > 0 Then
lbl_ErrKunde.Visible = False
End If
If Not saveInProgress Then
If KdFirma.KdNr <> "" Then
Select Case KdFirma.KdNr.ToString.Substring(0, 1)
Case "1" : cboSprache.changeItem("TR")
Case "2" : cboSprache.changeItem("RO")
Case "3" : cboSprache.changeItem("YU")
Case "4" : cboSprache.changeItem("YU")
Case Else : cboSprache.changeItem("DE")
End Select
End If
End If
End Sub
Private Sub KdFirma_TextChanged(sender As Object, e As EventArgs) Handles KdFirma.TextChanged
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim WordPath = ""
Dim oWORD As Microsoft.Office.Interop.Word.Document = genFormular(sender, WordPath)
If oWORD IsNot Nothing AndAlso WordPath <> "" Then
oWORD.SaveAs(WordPath.Replace(".docx", "") & ".pdf", Word.WdSaveFormat.wdFormatPDF)
openMail(WordPath.Replace(".docx", "") & ".pdf")
oWORD.Close()
End If
End Sub
Sub openMail(dest_path)
Try
Dim outl As New Outlook.Application
Dim Mail As Object 'Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
' Mail.To = If(KdFirma.KdData_ADRESSEN IsNot Nothing, KdFirma.KdData_ADRESSEN.E_Mail, "")
Mail.Display()
Dim signature = Mail.HTMLBody
Select Case If(IsNumeric(cboSDLNr._value), cboSDLNr._value, -1)
Case 500
Mail.To = If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "al@verag.ag", "umweltplakette@mtruck.at") '"david.reisinger@mtruck.at") 'office@mtruck.at
Mail.HTMLBody = "<span style='font-size:11.0pt;font-family:""Arial""'>"
Mail.HTMLBody &= "Sehr geehrte Damen und Herren,"
Mail.HTMLBody &= "<br/>"
Mail.HTMLBody &= "<br/>"
Mail.HTMLBody &= "bitte um Bestellung von Abgasplaketten lt. angefügter Liste."
Mail.HTMLBody &= "<br/>"
' Mail.Body &= vbNewLine
' Mail.Body &= "Mit freundlichen Grüßen"
' Mail.Body &= vbNewLine
' Mail.Body &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
' Mail.Body &= vbNewLine
' Mail.Body &= "ABTEILUNG Maut u. Diesel"
Mail.HTMLBody &= signature
Mail.HTMLBody &= "</span>"
Mail.Subject &= "Abgasplakette"
Case Else
Select Case KdFirma.KdNr.ToString.Substring(0, 1)
Case "1" : Mail.To = "maut.tr@verag.ag"
Case "2" : Mail.To = "ma@verag.ag" : Mail.CC = "maut.ro@verag.ag"
Case "3" : Mail.To = "z.batinic@verag.ag"
Case "4" : Mail.To = "z.batinic@verag.ag"
Case Else
End Select
End Select
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
Catch ex As Exception
MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message)
End Try
End Sub
End Class

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,328 @@
Public Class frmBesuchsberichte
Public KdNr As Integer = -1
Public bb_id As Integer = -1
Dim BB As New VERAG_PROG_ALLGEMEIN.cBesuchsbericht
Sub New(bb_id, Optional kdNr = -1)
InitializeComponent()
Me.bb_id = bb_id
Me.KdNr = kdNr
End Sub
Private Sub KdSearchBox1_TextChanged(sender As Object, e As EventArgs) Handles kdFirma.TextChanged
If kdFirma.KdNr_value > 0 AndAlso kdFirma.KdNr IsNot Nothing Then
Dim AD = kdFirma.KdData_ADRESSEN
Dim KD = kdFirma.KdData_KUNDE
txtFirma.Enabled = True
BB.bb_KundenNr = kdFirma.KdNr_value
txtFirma.Text = If(AD.Name_1, "") & If(AD.Name_2, "")
txtFirma.Text &= vbNewLine & If(AD.Straße, "")
txtFirma.Text &= vbNewLine & If(AD.LandKz, "") & If(AD.PLZ, "") & If(AD.Ort, "")
BB.bb_Kunde = If(txtFirma.Text, "-")
txtFirma.Enabled = False
Else
txtFirma.Enabled = True
End If
End Sub
Private Sub frmBesuchsberichte_Load(sender As Object, e As EventArgs) Handles Me.Load
kdFirma.initKdBox(Me)
cboKontaktart.Items.Clear()
cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Persönlich", "PERSON"))
cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Telefonisch", "TELEFON"))
cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Videomeeting", "VIDEO"))
cboKontaktart.changeItem("")
cboZufrieden.Items.Clear()
cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "True"))
cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "False"))
cboZufrieden.changeItem("")
If KdNr > 0 Then
Me.kdFirma.KdNr = KdNr
kdFirma.Enabled = False
txtFirma.ReadOnly = True
Else
kdFirma.Enabled = True
txtFirma.ReadOnly = False
End If
If bb_id > 0 Then
BB = New VERAG_PROG_ALLGEMEIN.cBesuchsbericht(bb_id)
setvalues(BB)
UsrcntlPDFScanList1.Enabled = True
'UsrcntlPDFScanList1.INIT(-1, "BESUCHSBERICHTE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, bb_id)
UsrcntlPDFScanList1.INIT(BB.bb_KundenNr, "BESUCHSBERICHTE", bb_id)
Else
UsrcntlPDFScanList1.Enabled = False
End If
End Sub
Sub setvalues(BB As VERAG_PROG_ALLGEMEIN.cBesuchsbericht)
kdFirma.Enabled = BB.bb_KundenNr <= 0
kdFirma.KdNr = BB.bb_KundenNr
datBesuchtAm._value = BB.bb_DatumBesuch
txtTeilgenommen.Text = If(BB.bb_Teilnehmer, "")
cboKontaktart.changeItem(If(BB.bb_Kontaktart, ""))
If If(BB.bb_KundenNr, -1) <= 0 Then
txtFirma.Text = If(BB.bb_Kunde, "")
End If
txtGF.Text = If(BB.bb_Geschaeftsfuehrer, "")
txtAnsprechpartner.Text = If(BB.bb_Anpsprechpartner, "")
txtMail.Text = If(BB.bb_Mail, "")
txtTel.Text = If(BB.bb_Telefon, "")
txtUmsatz._value = If(BB.bb_Umsatz, "")
txtFuhrparkEigene.Text = If(BB.bb_FuhrparkEigentum, "")
txtFuhrparkLeasing.Text = If(BB.bb_FuhrparkLeasing, "")
cbxPlane.Checked = BB.bb_LKW_Plane
cbxKuehltransporte.Checked = BB.bb_LKW_Kuehltranporte
cbxSondertransporte.Checked = BB.bb_LKW_Sondertransporte
cbxSprinter.Checked = BB.bb_LKW_Sprinter
cbxSiloTank.Checked = BB.bb_LKW_SiloTank
txtAuftraggeber.Text = If(BB.bb_Auftraggeber, "")
txtTransportRoute.Text = If(BB.bb_Route, "")
txtDerzeitigerLieferant.Text = If(BB.bb_DerzeitigerLieferant, "")
cboZufrieden.changeItem(If(BB.bb_Zufrieden.ToString, ""))
txtZufriedenNEIN.Text = If(BB.bb_ZufriedenNEIN, "")
txtGarantie.Text = If(BB.bb_Garantie, "")
txtVermerk.Text = If(BB.bb_Vermerk, "")
cbxZollabfertigung.Checked = BB.bb_Interesse_Zollabfertigung
cbxBrexit.Checked = BB.bb_Interesse_Zollabfertigung
cbxParkplatz.Checked = BB.bb_Interesse_Parkplatz
cbxLagerUmschlag.Checked = BB.bb_Interesse_LagerUmschlag
cbxRola.Checked = BB.bb_Interesse_Rola
cbxYesMonex.Checked = BB.bb_Interesse_YesMoney
cbxFerry.Checked = BB.bb_Interesse_Ferry
End Sub
Function getvalues(ByRef BB As VERAG_PROG_ALLGEMEIN.cBesuchsbericht) As Boolean
If Not checkValid() Then Return False
BB.bb_DatumBesuch = datBesuchtAm._value
BB.bb_Teilnehmer = txtTeilgenommen.Text
BB.bb_Kontaktart = cboKontaktart._value
If If(BB.bb_KundenNr, -1) <= 0 Then
If txtFirma.Text <> "" Then
If txtFirma.Text.Length > 35 Then
BB.bb_Kunde = txtFirma.Text.Substring(0, 35)
Else
BB.bb_Kunde = txtFirma.Text
End If
Else
BB.bb_Kunde = "-" 'diese Fall kann nicht eintreten, wird im Formular abgefangen.
End If
End If
BB.bb_Geschaeftsfuehrer = txtGF.Text
BB.bb_Anpsprechpartner = txtAnsprechpartner.Text
BB.bb_Mail = txtMail.Text
BB.bb_Telefon = txtTel.Text
BB.bb_Umsatz = If(txtUmsatz._value = "" Or Not IsNumeric(txtUmsatz._value), Nothing, CDbl(txtUmsatz._value))
BB.bb_FuhrparkEigentum = txtFuhrparkEigene.Text
BB.bb_FuhrparkLeasing = txtFuhrparkLeasing.Text
BB.bb_LKW_Plane = cbxPlane.Checked
BB.bb_LKW_Kuehltranporte = cbxKuehltransporte.Checked
BB.bb_LKW_Sondertransporte = cbxSondertransporte.Checked
BB.bb_LKW_Sprinter = cbxSprinter.Checked
BB.bb_LKW_SiloTank = cbxSiloTank.Checked
BB.bb_Auftraggeber = txtAuftraggeber.Text
BB.bb_Route = txtTransportRoute.Text
BB.bb_DerzeitigerLieferant = txtDerzeitigerLieferant.Text
BB.bb_Zufrieden = IIf(cboZufrieden._value = "", Nothing, cboZufrieden._value)
BB.bb_ZufriedenNEIN = txtZufriedenNEIN.Text
BB.bb_Garantie = txtGarantie.Text
BB.bb_Vermerk = txtVermerk.Text
BB.bb_Interesse_Zollabfertigung = cbxZollabfertigung.Checked
BB.bb_Interesse_Brexit = cbxBrexit.Checked
BB.bb_Interesse_Parkplatz = cbxParkplatz.Checked
BB.bb_Interesse_LagerUmschlag = cbxLagerUmschlag.Checked
BB.bb_Interesse_Rola = cbxRola.Checked
BB.bb_Interesse_YesMoney = cbxYesMonex.Checked
BB.bb_Interesse_Ferry = cbxFerry.Checked
BB.bb_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
BB.bb_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
BB.bb_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Return BB.SAVE()
End Function
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If getvalues(BB) Then
UsrcntlPDFScanList1.Enabled = True
'UsrcntlPDFScanList1.INIT(-1, "BESUCHSBERICHTE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, bb_id)
UsrcntlPDFScanList1.INIT(BB.bb_KundenNr, "BESUCHSBERICHTE")
End If
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If getvalues(BB) Then
Me.Close()
End If
End Sub
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
Function checkValid() As Boolean
lblErr_BesuchtAm.Visible = False
lblErr_Kontaktart.Visible = False
lblErr_Teilgenommen.Visible = False
lblErr_Firma.Visible = False
If datBesuchtAm._value = "" Then lblErr_BesuchtAm.Visible = True : Return False
If cboKontaktart._value = "" Then lblErr_Kontaktart.Visible = True : Return False
If txtTeilgenommen.Text = "" Then lblErr_Teilgenommen.Visible = True : Return False
If txtFirma.Text = "" Then lblErr_Firma.Visible = True : Return False
Return True
End Function
Private Sub UsrcntlPDFScanList1_Load(sender As Object, e As EventArgs) Handles UsrcntlPDFScanList1.Load
End Sub
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
'Erstellung der BerichtsPDF
btnSave_Click(sender, e)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datum", BB.bb_DatumBesuch.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Teilnehmer", BB.bb_Teilnehmer.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Geschäftsführer", BB.bb_Geschaeftsfuehrer.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ansprechpartner", BB.bb_Anpsprechpartner.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma", txtFirma.Text))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Umatz", BB.bb_Umsatz)) 'ACHTUNG -> im Formular wurde das Feld "Umatz" benannt, nicht korrigieren!
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Telefon", BB.bb_Telefon.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mail", BB.bb_Mail.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKWEigentum", BB.bb_FuhrparkEigentum.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKWLeasing", BB.bb_FuhrparkLeasing.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", BB.bb_Auftraggeber.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TransportRouten", BB.bb_Route.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DerzeitigerAnbieter", BB.bb_DerzeitigerLieferant.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bericht", BB.bb_Vermerk.ToString))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Garentie", BB.bb_Garantie)) 'ACHTUNG -> im Formular wurde das Feld "Garentie" benannt, nicht korrigieren!
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Plane", IIf(BB.bb_LKW_Plane = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kühltransporte", IIf(BB.bb_LKW_Kuehltranporte = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sondertransporte", IIf(BB.bb_LKW_Sondertransporte = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sprinter", IIf(BB.bb_LKW_Sprinter = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SiloTank", IIf(BB.bb_LKW_SiloTank = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollabfertigung", IIf(BB.bb_Interesse_Zollabfertigung = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Brexit", IIf(BB.bb_Interesse_Brexit = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Parkplatz", IIf(BB.bb_Interesse_Parkplatz = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LagerUmladung", IIf(BB.bb_Interesse_LagerUmschlag = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rola", IIf(BB.bb_Interesse_Rola = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YesMoney", IIf(BB.bb_Interesse_YesMoney = True, "On", "Off")))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ferry", IIf(BB.bb_Interesse_Ferry = True, "On", "Off")))
If BB.bb_Zufrieden = "" Or IsNothing(BB.bb_Zufrieden) Then
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "Off"))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "Off"))
ElseIf BB.bb_Zufrieden = True Then
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "On"))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "Off"))
ElseIf BB.bb_Zufrieden = False Then
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "Off"))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "On"))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZufriedenNEIN", IIf(BB.bb_ZufriedenNEIN <> "", BB.bb_ZufriedenNEIN.ToString, "")))
End If
Select Case BB.bb_Kontaktart.ToString
Case "PERSON"
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
Case "TELEFON"
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("telefonisch", "On"))
Case "VIDEO"
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Videomeeting", "On"))
Case Else
End Select
fm.fillPDF("Besuchsbericht_MDM", list, Nothing, , , , , , "VERAG")
End Sub
Private Sub kdFirma_PropertyChanged(sender As Object, e As EventArgs) Handles kdFirma.PropertyChanged
If kdFirma.KdNr_value > 0 AndAlso kdFirma.KdData_ADRESSEN IsNot Nothing AndAlso kdFirma.KdData_KUNDE IsNot Nothing Then
Dim AD = kdFirma.KdData_ADRESSEN
Dim KD = kdFirma.KdData_KUNDE
txtFirma.Text = If(AD.Name_1, "") & If(AD.Name_2, "")
txtFirma.Text &= vbNewLine & If(AD.Straße, "")
txtFirma.Text &= vbNewLine & If(AD.LandKz, "") & If(AD.PLZ, "") & If(AD.Ort, "")
txtFirma.ReadOnly = True
Else
txtFirma.ReadOnly = False
End If
End Sub
Private Sub cboZufrieden_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboZufrieden.SelectedValueChanged
If (cboZufrieden.SelectedIndex = 2) Then
txtZufriedenNEIN.Enabled = True
Else
txtZufriedenNEIN.Enabled = False
txtZufriedenNEIN.Clear()
End If
End Sub
End Class

View File

@@ -0,0 +1,160 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlBesuchsberichte
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.dgvFILTER = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnNew = New System.Windows.Forms.Button()
Me.btnDelete = New System.Windows.Forms.Button()
Me.dgvBesuchsberichte = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.lblEinträge = New System.Windows.Forms.Label()
CType(Me.dgvFILTER, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
CType(Me.dgvBesuchsberichte, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'dgvFILTER
'
Me.dgvFILTER.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvFILTER.AllowUserToAddRows = False
Me.dgvFILTER.AllowUserToDeleteRows = False
Me.dgvFILTER.AllowUserToResizeColumns = False
Me.dgvFILTER.AllowUserToResizeRows = False
Me.dgvFILTER.BackgroundColor = System.Drawing.Color.White
Me.dgvFILTER.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dgvFILTER.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvFILTER.ColumnHeadersVisible = False
Me.dgvFILTER.Location = New System.Drawing.Point(0, 45)
Me.dgvFILTER.Name = "dgvFILTER"
Me.dgvFILTER.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.dgvFILTER.Size = New System.Drawing.Size(1072, 34)
Me.dgvFILTER.TabIndex = 16
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label1.Location = New System.Drawing.Point(3, 6)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(143, 20)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Besuchsberichte"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel1.Controls.Add(Me.lblEinträge)
Me.Panel1.Controls.Add(Me.dgvFILTER)
Me.Panel1.Controls.Add(Me.btnNew)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.btnDelete)
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(1072, 79)
Me.Panel1.TabIndex = 13
'
'btnNew
'
Me.btnNew.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNew.ForeColor = System.Drawing.Color.Black
Me.btnNew.Image = Global.SDL.My.Resources.Resources.plus
Me.btnNew.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNew.Location = New System.Drawing.Point(898, 3)
Me.btnNew.Name = "btnNew"
Me.btnNew.Size = New System.Drawing.Size(75, 39)
Me.btnNew.TabIndex = 18
Me.btnNew.Text = "Neu"
Me.btnNew.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNew.UseVisualStyleBackColor = True
'
'btnDelete
'
Me.btnDelete.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDelete.Enabled = False
Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDelete.ForeColor = System.Drawing.Color.Black
Me.btnDelete.Image = Global.SDL.My.Resources.Resources.del
Me.btnDelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDelete.Location = New System.Drawing.Point(983, 3)
Me.btnDelete.Name = "btnDelete"
Me.btnDelete.Size = New System.Drawing.Size(86, 39)
Me.btnDelete.TabIndex = 19
Me.btnDelete.Text = "Löschen"
Me.btnDelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDelete.UseVisualStyleBackColor = True
'
'dgvBesuchsberichte
'
Me.dgvBesuchsberichte.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvBesuchsberichte.AllowUserToAddRows = False
Me.dgvBesuchsberichte.AllowUserToDeleteRows = False
Me.dgvBesuchsberichte.AllowUserToOrderColumns = True
Me.dgvBesuchsberichte.AllowUserToResizeColumns = False
Me.dgvBesuchsberichte.AllowUserToResizeRows = False
Me.dgvBesuchsberichte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvBesuchsberichte.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvBesuchsberichte.Location = New System.Drawing.Point(0, 79)
Me.dgvBesuchsberichte.Name = "dgvBesuchsberichte"
Me.dgvBesuchsberichte.ReadOnly = True
Me.dgvBesuchsberichte.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvBesuchsberichte.Size = New System.Drawing.Size(1072, 528)
Me.dgvBesuchsberichte.TabIndex = 15
'
'lblEinträge
'
Me.lblEinträge.AutoSize = True
Me.lblEinträge.BackColor = System.Drawing.Color.White
Me.lblEinträge.Location = New System.Drawing.Point(817, 29)
Me.lblEinträge.Name = "lblEinträge"
Me.lblEinträge.Size = New System.Drawing.Size(58, 13)
Me.lblEinträge.TabIndex = 41
Me.lblEinträge.Text = "0 Einträge "
'
'usrCntlBesuchsberichte
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.dgvBesuchsberichte)
Me.Controls.Add(Me.Panel1)
Me.Name = "usrCntlBesuchsberichte"
Me.Size = New System.Drawing.Size(1072, 607)
CType(Me.dgvFILTER, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.dgvBesuchsberichte, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents dgvBesuchsberichte As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnNew As Button
Friend WithEvents btnDelete As Button
Friend WithEvents dgvFILTER As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel1 As Panel
Friend WithEvents lblEinträge As Label
End Class

View File

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

View File

@@ -0,0 +1,271 @@
Imports System.Data.SqlClient
Public Class usrCntlBesuchsberichte
Public kdnr As Integer = -1
Dim SQL As New SQL
Dim dgvInitWait As Boolean = False
Public kdNr_filter As Boolean = False
Dim txtchanged As Boolean = False
Dim fullyPainted = False
Private Sub usrCntlBesuchsberichte_Load(sender As Object, e As EventArgs) Handles Me.Load
initDGV()
End Sub
Sub initDGV(Optional doFilter = False)
Dim SQLCmd = "SELECT TOP (200) [bb_Id],[bb_DatumBesuch],[bb_KundenNr],[bb_Kunde] ,[bb_Anpsprechpartner] ,[bb_Vermerk],[bb_Sachbearbeiter] FROM [VERAG].[dbo].[tblBesuchsberichte] WHERE bb_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " & If(kdnr > 0, " AND bb_KundenNr='" & kdnr & "'", "")
If doFilter Then
newBinding(SQLCmd, doFilter)
Else
initFilter()
With dgvBesuchsberichte
.SET_SQL(SQLCmd, "FMZOLL")
.LOAD()
End With
End If
With dgvBesuchsberichte
If .Columns.Count > 0 Then
.Columns("bb_DatumBesuch").Width = 150
.Columns("bb_DatumBesuch").HeaderText = "Datum"
.Columns("bb_Sachbearbeiter").Width = 150
.Columns("bb_Sachbearbeiter").HeaderText = "Sachbearbeiter"
.Columns("bb_Kunde").Width = 200
.Columns("bb_Kunde").HeaderText = "Firma"
.Columns("bb_KundenNr").Width = 50
.Columns("bb_KundenNr").HeaderText = "KdNr"
.Columns("bb_Anpsprechpartner").Width = 150
.Columns("bb_Anpsprechpartner").HeaderText = "Anpsprechpartner"
.Columns("bb_Vermerk").MinimumWidth = 150
.Columns("bb_Vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("bb_Vermerk").HeaderText = "Vermerk"
.Columns("bb_Id").Visible = False
End If
End With
btnDelete.Enabled = False
lblEinträge.Text = dgvBesuchsberichte.RowCount & " Einträge"
End Sub
Private Sub dgvBesuchsberichteDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvBesuchsberichte.CellDoubleClick
Try
Dim bb_id = dgvBesuchsberichte.Rows(e.RowIndex).Cells("bb_id").Value
Dim f As New frmBesuchsberichte(bb_id)
f.ShowDialog(Me)
initDGV()
Catch ex As Exception
MsgBox(ex.Message)
'MsgBox(ex.StackTrace)
End Try
End Sub
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
Dim f As New frmBesuchsberichte(-1, kdnr)
f.ShowDialog(Me)
initDGV()
End Sub
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
If dgvBesuchsberichte.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
If VERAG_PROG_ALLGEMEIN.cBesuchsbericht.DELETE(dgvBesuchsberichte.SelectedRows(0).Cells("bb_id").Value) Then
initDGV()
End If
End If
End If
End Sub
Private Sub dgvBesuchsberichte_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvBesuchsberichte.CellClick
If dgvBesuchsberichte.SelectedRows.Count > 0 Then
btnDelete.Enabled = True
End If
End Sub
Private Sub dgvBesuchsberichte_SelectionChanged(sender As Object, e As EventArgs) Handles dgvBesuchsberichte.SelectionChanged
End Sub
Private Sub dgvFILTER_SelectionChanged(sender As Object, e As EventArgs) Handles dgvFILTER.SelectionChanged
dgvFILTER.ClearSelection()
End Sub
Private Sub dgvFILTER_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFILTER.CellContentClick
If dgvFILTER.Columns(e.ColumnIndex).GetType Is GetType(DataGridViewCheckBoxColumn) Then
dgvBesuchsberichte.Focus()
End If
End Sub
Private Sub dgvFILTER_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFILTER.CellValueChanged
initDGV(True)
End Sub
Sub initFilter()
dgvInitWait = True
dgvFILTER.RowTemplate.Height = dgvFILTER.Height
If Not Me.fullyPainted Then Exit Sub ' nur wenn die usrcntl komplett gelden wurde...
Try
dgvFILTER.Columns.Clear()
Catch ex As Exception
End Try
For Each c As DataGridViewColumn In dgvBesuchsberichte.Columns
Dim cNew As DataGridViewColumn = c.Clone
'MsgBox("Create Filter Column " & cNew.HeaderText)
cNew.MinimumWidth = c.Width
dgvFILTER.Columns.Add(cNew)
If cNew.GetType Is GetType(DataGridViewCheckBoxColumn) Then
DirectCast(cNew, DataGridViewCheckBoxColumn).ThreeState = True
DirectCast(cNew, DataGridViewCheckBoxColumn).DefaultCellStyle.NullValue = CheckState.Indeterminate
End If
Next
If dgvFILTER IsNot Nothing AndAlso dgvFILTER.ColumnCount > 0 Then
dgvFILTER.Rows.Add()
dgvFILTER.Width = dgvBesuchsberichte.Width
End If
dgvInitWait = False
End Sub
Function getSqlText(t) As String
Try
Return t.Replace("'", "")
Catch ex As Exception
Return ""
End Try
End Function
Function getFilter() As String
Dim filter As String = ""
Dim andstr As String = ""
If dgvFILTER.RowCount > 0 Then
For Each c As DataGridViewCell In dgvFILTER.Rows(0).Cells
If c.Value IsNot DBNull.Value Then
If c.GetType Is GetType(DataGridViewTextBoxCell) Then
If c.Value IsNot Nothing AndAlso c.Value <> "" Then
Dim srchstr = getSqlText(c.Value.ToString.Trim)
If c.OwningColumn.Name.Contains("SDLNr") Then
filter &= andstr & " SDL.[" & c.OwningColumn.Name & "] LIKE '%" & srchstr & "%' "
ElseIf c.OwningColumn.Name.Contains("IDS-KdNr") Then
filter &= andstr & " (SELECT TOP 1 [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE [KdNrVERAG]=KundenNr AND KdNrAlt =0 ORDER BY Zeitstempel DESC) LIKE '%" & srchstr & "%' "
ElseIf IsDate(srchstr) Then
If srchstr.ToLower = "ist null" Then
filter &= andstr & "( [" & c.OwningColumn.Name & "] is null ) "
Else
filter &= andstr & " convert(varchar,[" & c.OwningColumn.Name & "] ,104) LIKE '%" & srchstr & "%' "
End If
Else
If srchstr.ToLower = "ist null" Then
filter &= andstr & "( [" & c.OwningColumn.Name & "] LIKE '' OR [" & c.OwningColumn.Name & "] is null ) "
Else
filter &= andstr & " [" & c.OwningColumn.Name & "] LIKE '%" & srchstr & "%' "
End If
End If
andstr = " AND "
End If
ElseIf c.GetType Is GetType(DataGridViewCheckBoxCell) Then
If c.Value IsNot Nothing AndAlso c.Value.ToString <> "" Then
If c.Value = CheckState.Checked Then
filter &= andstr & " SDL.[" & c.OwningColumn.Name & "] =1 "
andstr = " AND "
ElseIf c.Value = CheckState.Unchecked Then
filter &= andstr & " SDL.[" & c.OwningColumn.Name & "] =0 "
andstr = " AND "
End If
End If
End If
End If
Next
End If
Return filter
End Function
Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)
If m.Msg = 15 AndAlso Not fullyPainted Then
fullyPainted = True
initDGV()
initFilter()
End If
End Sub
Sub newBinding(ByVal sql As String, doFilter As Boolean)
dgvInitWait = True
' bindingSDL = Nothing
dgvBesuchsberichte.Columns.Clear()
dgvBesuchsberichte.VirtualMode = True
txtchanged = True
dgvInitWait = True
If doFilter Then
Dim filter As String = getFilter()
If filter <> "" Then sql &= " AND " & filter
' sql &= " ORDER BY sdl.[Erfassungsdatum] ASC"
Else
' clearFilter()
End If
If kdNr_filter And kdnr > 0 Then sql &= " AND KundenNr=" & kdnr
'Sortierung der tabl-DS
'sql &= " ORDER BY sdl.[Bestelldatum] , sdl.[Erfassungsdatum] ASC ,sdl.ts"
'dgvBesuchsberichte.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
' dgvSDL.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing '; //or even better .DisableResizing. Most time consumption enum is DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders
'dgvBesuchsberichte.SET_SQL(sql, "SDL", , {"KundenNr", "KfzKennzeichen", "SDLNr", "History"})
dgvBesuchsberichte.SET_SQL(sql, "FMZOLL")
dgvBesuchsberichte.LOAD()
dgvInitWait = False
txtchanged = False
dgvInitWait = False
dgvBesuchsberichte.ClearSelection()
If dgvBesuchsberichte.RowCount > 0 Then dgvBesuchsberichte.Rows(0).Cells(0).Selected = True
dgvBesuchsberichte_SelectionChanged(Me, New EventArgs)
End Sub
End Class

View File

@@ -0,0 +1,703 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptIDS_Transaktionen
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 PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptIDS_Transaktionen))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblStation = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblStationCode = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblStationGrpCod = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblVolumen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblWaehrung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblListenpreis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblPlattspreis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRate = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKassenbuchNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGeschaeftsjahr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMandantNiederlassung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblVolumenSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblListenpreisAvg = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblPlattspreisAVG = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRateAVG = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetragSUM = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahlGes = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStationCode, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStationGrpCod, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVolumen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblWaehrung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblListenpreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblPlattspreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRate, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKassenbuchNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGeschaeftsjahr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVolumenSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblListenpreisAvg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblPlattspreisAVG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRateAVG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetragSUM, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahlGes, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label2, Me.Label4, Me.Label7, Me.Label10, Me.Label11, Me.Label12, Me.Label13, Me.Label14, Me.Label8, Me.Line4})
Me.PageHeader.Height = 0.1795277!
Me.PageHeader.Name = "PageHeader"
'
'Label2
'
Me.Label2.Height = 0.1795276!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.8019685!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label2.Text = "Land"
Me.Label2.Top = 0.00000008940697!
Me.Label2.Width = 0.8173229!
'
'Label4
'
Me.Label4.Height = 0.1795276!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 1.619291!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; vertical" &
"-align: middle; ddo-char-set: 1"
Me.Label4.Text = "Station"
Me.Label4.Top = 0.00000008940697!
Me.Label4.Width = 2.308267!
'
'Label7
'
Me.Label7.Height = 0.1795276!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 3.92756!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label7.Text = "Volumen"
Me.Label7.Top = 0!
Me.Label7.Width = 0.605118!
'
'Label10
'
Me.Label10.Height = 0.1795276!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 4.532677!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 8pt; font-weight: bold; text-align: center; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label10.Text = "W<EFBFBD>hr."
Me.Label10.Top = 0.00000008940697!
Me.Label10.Width = 0.3484254!
'
'Label11
'
Me.Label11.Height = 0.1795276!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 4.86614!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label11.Text = "Listen-Preis"
Me.Label11.Top = 0.00000008940697!
Me.Label11.Width = 0.7086611!
'
'Label12
'
Me.Label12.Height = 0.1795276!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 5.574803!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label12.Text = "Platts-Preis"
Me.Label12.Top = 0.00000008940697!
Me.Label12.Width = 0.7086611!
'
'Label13
'
Me.Label13.Height = 0.1795276!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 6.295276!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label13.Text = "Rate"
Me.Label13.Top = 0.00000008940697!
Me.Label13.Width = 0.5940946!
'
'Label14
'
Me.Label14.Height = 0.1795276!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 6.88937!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label14.Text = "Betrag"
Me.Label14.Top = 0.00000008940697!
Me.Label14.Width = 0.9795278!
'
'Label8
'
Me.Label8.Height = 0.1795276!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.005117893!
Me.Label8.Name = "Label8"
Me.Label8.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.Label8.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label8.Text = "Produkt"
Me.Label8.Top = 0.00000008940697!
Me.Label8.Width = 0.7968507!
'
'Line4
'
Me.Line4.Height = 0.0000001043081!
Me.Line4.Left = 0!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0.1795276!
Me.Line4.Width = 7.874014!
Me.Line4.X1 = 0!
Me.Line4.X2 = 7.874014!
Me.Line4.Y1 = 0.1795276!
Me.Line4.Y2 = 0.1795277!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLand, Me.lblStation, Me.lblStationCode, Me.lblStationGrpCod, Me.lblVolumen, Me.lblWaehrung, Me.lblListenpreis, Me.lblPlattspreis, Me.lblRate, Me.lblBetrag, Me.Line3, Me.lblProdukt})
Me.Detail.Height = 0.1486768!
Me.Detail.Name = "Detail"
'
'lblLand
'
Me.lblLand.Height = 0.1417323!
Me.lblLand.HyperLink = Nothing
Me.lblLand.Left = 0.8070866!
Me.lblLand.Name = "lblLand"
Me.lblLand.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblLand.Text = "-"
Me.lblLand.Top = 0!
Me.lblLand.Width = 0.8173229!
'
'lblStation
'
Me.lblStation.Height = 0.1417323!
Me.lblStation.HyperLink = Nothing
Me.lblStation.Left = 1.921654!
Me.lblStation.Name = "lblStation"
Me.lblStation.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" &
"ar-set: 1"
Me.lblStation.Text = "Abfertigungsart"
Me.lblStation.Top = 0!
Me.lblStation.Width = 1.812992!
'
'lblStationCode
'
Me.lblStationCode.Height = 0.1417323!
Me.lblStationCode.HyperLink = Nothing
Me.lblStationCode.Left = 1.62441!
Me.lblStationCode.Name = "lblStationCode"
Me.lblStationCode.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1"
Me.lblStationCode.Text = "9999"
Me.lblStationCode.Top = 0!
Me.lblStationCode.Width = 0.2972441!
'
'lblStationGrpCod
'
Me.lblStationGrpCod.Height = 0.1417323!
Me.lblStationGrpCod.HyperLink = Nothing
Me.lblStationGrpCod.Left = 3.734646!
Me.lblStationGrpCod.Name = "lblStationGrpCod"
Me.lblStationGrpCod.Style = "font-size: 8pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" &
"har-set: 1"
Me.lblStationGrpCod.Text = "A"
Me.lblStationGrpCod.Top = 0!
Me.lblStationGrpCod.Width = 0.1980312!
'
'lblVolumen
'
Me.lblVolumen.Height = 0.1417323!
Me.lblVolumen.HyperLink = Nothing
Me.lblVolumen.Left = 3.932678!
Me.lblVolumen.Name = "lblVolumen"
Me.lblVolumen.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblVolumen.Text = "Volumen"
Me.lblVolumen.Top = 0!
Me.lblVolumen.Width = 0.605118!
'
'lblWaehrung
'
Me.lblWaehrung.Height = 0.1417323!
Me.lblWaehrung.HyperLink = Nothing
Me.lblWaehrung.Left = 4.537796!
Me.lblWaehrung.Name = "lblWaehrung"
Me.lblWaehrung.Style = "font-size: 8pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.lblWaehrung.Text = "W<EFBFBD>hr."
Me.lblWaehrung.Top = 0!
Me.lblWaehrung.Width = 0.3484259!
'
'lblListenpreis
'
Me.lblListenpreis.Height = 0.1417323!
Me.lblListenpreis.HyperLink = Nothing
Me.lblListenpreis.Left = 4.871261!
Me.lblListenpreis.Name = "lblListenpreis"
Me.lblListenpreis.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblListenpreis.Text = "Listen-Preis"
Me.lblListenpreis.Top = 0!
Me.lblListenpreis.Width = 0.7086611!
'
'lblPlattspreis
'
Me.lblPlattspreis.Height = 0.1417323!
Me.lblPlattspreis.HyperLink = Nothing
Me.lblPlattspreis.Left = 5.579922!
Me.lblPlattspreis.Name = "lblPlattspreis"
Me.lblPlattspreis.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblPlattspreis.Text = "Platts-Preis"
Me.lblPlattspreis.Top = 0!
Me.lblPlattspreis.Width = 0.7086611!
'
'lblRate
'
Me.lblRate.Height = 0.1417323!
Me.lblRate.HyperLink = Nothing
Me.lblRate.Left = 6.300394!
Me.lblRate.Name = "lblRate"
Me.lblRate.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblRate.Text = "Rate"
Me.lblRate.Top = 0!
Me.lblRate.Width = 0.5940943!
'
'lblBetrag
'
Me.lblBetrag.Height = 0.1417323!
Me.lblBetrag.HyperLink = Nothing
Me.lblBetrag.Left = 6.894489!
Me.lblBetrag.Name = "lblBetrag"
Me.lblBetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBetrag.Text = "Betrag"
Me.lblBetrag.Top = 0!
Me.lblBetrag.Width = 0.9795275!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0!
Me.Line3.LineColor = System.Drawing.Color.Gray
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.1417323!
Me.Line3.Width = 7.874014!
Me.Line3.X1 = 0!
Me.Line3.X2 = 7.874014!
Me.Line3.Y1 = 0.1417323!
Me.Line3.Y2 = 0.1417323!
'
'lblProdukt
'
Me.lblProdukt.Height = 0.1417323!
Me.lblProdukt.HyperLink = Nothing
Me.lblProdukt.Left = 0.01023622!
Me.lblProdukt.Name = "lblProdukt"
Me.lblProdukt.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblProdukt.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblProdukt.Text = "Produkt"
Me.lblProdukt.Top = 0!
Me.lblProdukt.Width = 0.7968507!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
Me.PageFooter.Name = "PageFooter"
'
'Label28
'
Me.Label28.Height = 0.1330709!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.13937!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG 360 GMBH"
Me.Label28.Top = 0.08622044!
Me.Label28.Width = 2.649606!
'
'Line2
'
Me.Line2.Height = 0.00000001862645!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070864!
Me.Line2.Width = 7.874016!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.874016!
Me.Line2.Y1 = 0.03070864!
Me.Line2.Y2 = 0.03070866!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.04252!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622046!
Me.ReportInfo2.Width = 2.831496!
'
'lblDat
'
Me.lblDat.Height = 0.1330708!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044!
Me.lblDat.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.lblSachbearbeiter, Me.lblKassenbuchNr, Me.lblGeschaeftsjahr, Me.lblMandantNiederlassung})
Me.ReportHeader1.Height = 0.6968505!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 5.736221!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.137795!
'
'Label3
'
Me.Label3.Height = 0.1377953!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 1.421085E-14!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Sachbearbeiter:"
Me.Label3.Top = 0.3830709!
Me.Label3.Width = 2.607087!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0.01023622!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "IDS Transaktionen 01.10.2016 bis 31.10.2016"
Me.lblUeberschrift.Top = 0.1338583!
Me.lblUeberschrift.Width = 5.032284!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.1759843!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: left" &
""
Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)"
Me.lblSachbearbeiter.Top = 0.5208663!
Me.lblSachbearbeiter.Width = 2.607087!
'
'lblKassenbuchNr
'
Me.lblKassenbuchNr.Height = 0.1759843!
Me.lblKassenbuchNr.HyperLink = Nothing
Me.lblKassenbuchNr.Left = 2.607087!
Me.lblKassenbuchNr.Name = "lblKassenbuchNr"
Me.lblKassenbuchNr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
"er"
Me.lblKassenbuchNr.Text = ""
Me.lblKassenbuchNr.Top = 0.5208663!
Me.lblKassenbuchNr.Width = 1.212598!
'
'lblGeschaeftsjahr
'
Me.lblGeschaeftsjahr.Height = 0.1759843!
Me.lblGeschaeftsjahr.HyperLink = Nothing
Me.lblGeschaeftsjahr.Left = 3.819686!
Me.lblGeschaeftsjahr.Name = "lblGeschaeftsjahr"
Me.lblGeschaeftsjahr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
"er"
Me.lblGeschaeftsjahr.Text = ""
Me.lblGeschaeftsjahr.Top = 0.5208663!
Me.lblGeschaeftsjahr.Width = 1.212598!
'
'lblMandantNiederlassung
'
Me.lblMandantNiederlassung.Height = 0.1759843!
Me.lblMandantNiederlassung.HyperLink = Nothing
Me.lblMandantNiederlassung.Left = 5.032284!
Me.lblMandantNiederlassung.Name = "lblMandantNiederlassung"
Me.lblMandantNiederlassung.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: righ" &
"t"
Me.lblMandantNiederlassung.Text = ""
Me.lblMandantNiederlassung.Top = 0.5208663!
Me.lblMandantNiederlassung.Width = 2.841733!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblVolumenSum, Me.lblListenpreisAvg, Me.lblPlattspreisAVG, Me.lblRateAVG, Me.lblBetragSUM, Me.lblAnzahlGes})
Me.GroupFooter1.Height = 0.21875!
Me.GroupFooter1.Name = "GroupFooter1"
'
'lblVolumenSum
'
Me.lblVolumenSum.Height = 0.1417323!
Me.lblVolumenSum.HyperLink = Nothing
Me.lblVolumenSum.Left = 3.734646!
Me.lblVolumenSum.Name = "lblVolumenSum"
Me.lblVolumenSum.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblVolumenSum.Text = "Volumen"
Me.lblVolumenSum.Top = 0!
Me.lblVolumenSum.Width = 0.8031535!
'
'lblListenpreisAvg
'
Me.lblListenpreisAvg.Height = 0.1417323!
Me.lblListenpreisAvg.HyperLink = Nothing
Me.lblListenpreisAvg.Left = 4.537796!
Me.lblListenpreisAvg.Name = "lblListenpreisAvg"
Me.lblListenpreisAvg.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblListenpreisAvg.Text = "Listen-Preis"
Me.lblListenpreisAvg.Top = 0!
Me.lblListenpreisAvg.Width = 1.04213!
'
'lblPlattspreisAVG
'
Me.lblPlattspreisAVG.Height = 0.1417323!
Me.lblPlattspreisAVG.HyperLink = Nothing
Me.lblPlattspreisAVG.Left = 5.579926!
Me.lblPlattspreisAVG.Name = "lblPlattspreisAVG"
Me.lblPlattspreisAVG.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblPlattspreisAVG.Text = "Platts-Preis"
Me.lblPlattspreisAVG.Top = 0!
Me.lblPlattspreisAVG.Width = 0.7086611!
'
'lblRateAVG
'
Me.lblRateAVG.Height = 0.1417323!
Me.lblRateAVG.HyperLink = Nothing
Me.lblRateAVG.Left = 6.288584!
Me.lblRateAVG.Name = "lblRateAVG"
Me.lblRateAVG.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblRateAVG.Text = "Rate"
Me.lblRateAVG.Top = 0!
Me.lblRateAVG.Width = 0.6059052!
'
'lblBetragSUM
'
Me.lblBetragSUM.Height = 0.1417323!
Me.lblBetragSUM.HyperLink = Nothing
Me.lblBetragSUM.Left = 6.894488!
Me.lblBetragSUM.Name = "lblBetragSUM"
Me.lblBetragSUM.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBetragSUM.Text = "Betrag"
Me.lblBetragSUM.Top = 0!
Me.lblBetragSUM.Width = 0.9795278!
'
'lblAnzahlGes
'
Me.lblAnzahlGes.Height = 0.1417323!
Me.lblAnzahlGes.HyperLink = Nothing
Me.lblAnzahlGes.Left = 0!
Me.lblAnzahlGes.Name = "lblAnzahlGes"
Me.lblAnzahlGes.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
"har-set: 1"
Me.lblAnzahlGes.Text = "0"
Me.lblAnzahlGes.Top = 0!
Me.lblAnzahlGes.Width = 1.790945!
'
'rptIDS_Transaktionen
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.874016!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStation, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStationCode, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStationGrpCod, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVolumen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblWaehrung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblListenpreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPlattspreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRate, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKassenbuchNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGeschaeftsjahr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVolumenSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblListenpreisAvg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPlattspreisAVG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRateAVG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetragSUM, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahlGes, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKassenbuchNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGeschaeftsjahr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMandantNiederlassung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents lblLand As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblStation As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblStationCode As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblStationGrpCod As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblVolumen As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblProdukt As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblWaehrung As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblListenpreis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblPlattspreis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRate As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBetrag As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents lblVolumenSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblListenpreisAvg As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblPlattspreisAVG As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRateAVG As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBetragSUM As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzahlGes As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptIDS_Transaktionen
'SOU_DESCR OUT_COD OUT_DESCR OUT_GRP_COD TOT_QTY PROD_DESCR SOU_CURR ORIG_LIST_PRICE PLATTS_PRICE SC_BC_RATE EUR_IV_BC_AMNT
End Class

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptIDS_TransaktionenSumary
'SOU_DESCR OUT_COD OUT_DESCR OUT_GRP_COD TOT_QTY PROD_DESCR SOU_CURR ORIG_LIST_PRICE PLATTS_PRICE SC_BC_RATE EUR_IV_BC_AMNT
End Class

View File

@@ -0,0 +1,98 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPLOSE_ProductCodes
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPLOSE_ProductCodes))
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.dgvLeistungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.lblPLOSELeistungen = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.dgvLeistungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnl.Controls.Add(Me.lblPLOSELeistungen)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(800, 48)
Me.pnl.TabIndex = 0
'
'Panel1
'
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 360)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(800, 90)
Me.Panel1.TabIndex = 1
'
'dgvLeistungen
'
Me.dgvLeistungen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvLeistungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLeistungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvLeistungen.Location = New System.Drawing.Point(0, 48)
Me.dgvLeistungen.Name = "dgvLeistungen"
Me.dgvLeistungen.Size = New System.Drawing.Size(800, 312)
Me.dgvLeistungen.TabIndex = 2
'
'lblPLOSELeistungen
'
Me.lblPLOSELeistungen.AutoSize = True
Me.lblPLOSELeistungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblPLOSELeistungen.ForeColor = System.Drawing.Color.White
Me.lblPLOSELeistungen.Location = New System.Drawing.Point(12, 14)
Me.lblPLOSELeistungen.Name = "lblPLOSELeistungen"
Me.lblPLOSELeistungen.Size = New System.Drawing.Size(172, 20)
Me.lblPLOSELeistungen.TabIndex = 0
Me.lblPLOSELeistungen.Text = "PLOSE - Leistungen"
'
'frmPLOSE_ProductCodes
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.dgvLeistungen)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnl)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmPLOSE_ProductCodes"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "PLOSE ProductCodes"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.dgvLeistungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Panel1 As Panel
Friend WithEvents dgvLeistungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents lblPLOSELeistungen As Label
End Class

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
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
////////////////////////////////////////////////////////////////////////////////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
XUL/////////////////////////////////////////////////////////////////////////////
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
///////////////////////////////////////////////////////////////////////////d1tFm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////Uy8XB
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
v7j/////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////+Mblhm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
////////////////////////////////////////////////////////////////////////////////
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3/////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////39fRmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////L
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
//////////////////////////////////////////////////////////////////////////////+A
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@@ -0,0 +1,9 @@
Public Class frmPLOSE_ProductCodes
Sub initdgvLeistungen()
With dgvLeistungen
' .SET_SQL("")
End With
End Sub
End Class

1036
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb generated Normal file

File diff suppressed because one or more lines are too long

View File

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

View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptPLOSE_Anhang
End Class

File diff suppressed because one or more lines are too long

View File

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

View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptPLOSE_CustomerConsortio
'SOU_DESCR OUT_COD OUT_DESCR OUT_GRP_COD TOT_QTY PROD_DESCR SOU_CURR ORIG_LIST_PRICE PLATTS_PRICE SC_BC_RATE EUR_IV_BC_AMNT
End Class

View File

@@ -0,0 +1,631 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptPLOSE_Konsortium
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 PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptPLOSE_Konsortium))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKdNR = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEU = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblOrt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBruttoAlleLeistungen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblLandFooter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSumBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumMwst = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumBruttoAlleLeistungen = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKdNR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEU, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBruttoAlleLeistungen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumBruttoAlleLeistungen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label7, Me.Label5, Me.Label6, Me.Label8, Me.Label14, Me.Line4, Me.Label1, Me.Label2, Me.Label4, Me.Label9})
Me.PageHeader.Height = 0.1969654!
Me.PageHeader.Name = "PageHeader"
'
'Label7
'
Me.Label7.Height = 0.1795276!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 4.359843!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: bold; text-align: center; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label7.Text = "EU"
Me.Label7.Top = 0!
Me.Label7.Width = 0.3645668!
'
'Label5
'
Me.Label5.Height = 0.1795276!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 2.927559!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label5.Text = "Ort"
Me.Label5.Top = 0!
Me.Label5.Width = 1.432283!
'
'Label6
'
Me.Label6.Height = 0.1795276!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 2.37441!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label6.Text = "Land"
Me.Label6.Top = 0!
Me.Label6.Width = 0.5531494!
'
'Label8
'
Me.Label8.Height = 0.1795276!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.5877953!
Me.Label8.Name = "Label8"
Me.Label8.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.Label8.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label8.Text = "Firma"
Me.Label8.Top = 0!
Me.Label8.Width = 1.786614!
'
'Label14
'
Me.Label14.Height = 0.1795276!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 6.299213!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label14.Text = "Brutto"
Me.Label14.Top = 0!
Me.Label14.Width = 0.7874016!
'
'Line4
'
Me.Line4.Height = 0.0000001043081!
Me.Line4.Left = 0!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0.1795276!
Me.Line4.Width = 7.874014!
Me.Line4.X1 = 0!
Me.Line4.X2 = 7.874014!
Me.Line4.Y1 = 0.1795276!
Me.Line4.Y2 = 0.1795277!
'
'Label1
'
Me.Label1.Height = 0.1795276!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.01023622!
Me.Label1.Name = "Label1"
Me.Label1.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label1.Text = "KdNr"
Me.Label1.Top = 0.008661418!
Me.Label1.Width = 0.577559!
'
'Label2
'
Me.Label2.Height = 0.1795276!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 5.511811!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label2.Text = "MWST"
Me.Label2.Top = 0!
Me.Label2.Width = 0.7874016!
'
'Label4
'
Me.Label4.Height = 0.1795276!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 4.72441!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label4.Text = "Netto"
Me.Label4.Top = 0!
Me.Label4.Width = 0.7874016!
'
'Label9
'
Me.Label9.Height = 0.1795276!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 7.086615!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label9.Text = "(RG-Brutto)"
Me.Label9.Top = 0!
Me.Label9.Width = 0.7874014!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma, Me.lblKdNR, Me.lblBrutto, Me.Line3, Me.lblNetto, Me.lblMWST, Me.lblEU, Me.lblOrt, Me.lblLand, Me.lblBruttoAlleLeistungen})
Me.Detail.Height = 0.1452756!
Me.Detail.Name = "Detail"
'
'lblFirma
'
Me.lblFirma.Height = 0.1417323!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 0.5877953!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblFirma.Style = "font-size: 8pt; font-weight: normal; text-align: left; white-space: nowrap; ddo-c" &
"har-set: 1; ddo-wrap-mode: nowrap"
Me.lblFirma.Text = "Produkt"
Me.lblFirma.Top = 0!
Me.lblFirma.Width = 1.786614!
'
'lblKdNR
'
Me.lblKdNR.Height = 0.1417323!
Me.lblKdNR.HyperLink = Nothing
Me.lblKdNR.Left = 0.01023622!
Me.lblKdNR.Name = "lblKdNR"
Me.lblKdNR.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKdNR.Text = "-"
Me.lblKdNR.Top = 0!
Me.lblKdNR.Width = 0.5775591!
'
'lblBrutto
'
Me.lblBrutto.Height = 0.1417323!
Me.lblBrutto.HyperLink = Nothing
Me.lblBrutto.Left = 6.299213!
Me.lblBrutto.Name = "lblBrutto"
Me.lblBrutto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBrutto.Text = "-"
Me.lblBrutto.Top = 0.003543307!
Me.lblBrutto.Width = 0.7874016!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0!
Me.Line3.LineColor = System.Drawing.Color.Gray
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.1417323!
Me.Line3.Width = 7.874014!
Me.Line3.X1 = 0!
Me.Line3.X2 = 7.874014!
Me.Line3.Y1 = 0.1417323!
Me.Line3.Y2 = 0.1417323!
'
'lblNetto
'
Me.lblNetto.Height = 0.1417323!
Me.lblNetto.HyperLink = Nothing
Me.lblNetto.Left = 4.72441!
Me.lblNetto.Name = "lblNetto"
Me.lblNetto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblNetto.Text = "-"
Me.lblNetto.Top = 0.003543307!
Me.lblNetto.Width = 0.7874016!
'
'lblMWST
'
Me.lblMWST.Height = 0.1417323!
Me.lblMWST.HyperLink = Nothing
Me.lblMWST.Left = 5.511811!
Me.lblMWST.Name = "lblMWST"
Me.lblMWST.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblMWST.Text = "-"
Me.lblMWST.Top = 0.003543307!
Me.lblMWST.Width = 0.7874016!
'
'lblEU
'
Me.lblEU.Height = 0.1417323!
Me.lblEU.HyperLink = Nothing
Me.lblEU.Left = 4.359843!
Me.lblEU.Name = "lblEU"
Me.lblEU.Style = "font-size: 8pt; font-weight: normal; text-align: center; vertical-align: middle; " &
"ddo-char-set: 1"
Me.lblEU.Text = "EU"
Me.lblEU.Top = 0!
Me.lblEU.Width = 0.3645668!
'
'lblOrt
'
Me.lblOrt.Height = 0.1417323!
Me.lblOrt.HyperLink = Nothing
Me.lblOrt.Left = 2.927559!
Me.lblOrt.Name = "lblOrt"
Me.lblOrt.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; wh" &
"ite-space: nowrap; ddo-char-set: 1; ddo-wrap-mode: nowrap"
Me.lblOrt.Text = "Ort"
Me.lblOrt.Top = 0!
Me.lblOrt.Width = 1.432283!
'
'lblLand
'
Me.lblLand.Height = 0.1417323!
Me.lblLand.HyperLink = Nothing
Me.lblLand.Left = 2.37441!
Me.lblLand.Name = "lblLand"
Me.lblLand.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblLand.Text = "Land"
Me.lblLand.Top = 0!
Me.lblLand.Width = 0.5531495!
'
'lblBruttoAlleLeistungen
'
Me.lblBruttoAlleLeistungen.Height = 0.1417323!
Me.lblBruttoAlleLeistungen.HyperLink = Nothing
Me.lblBruttoAlleLeistungen.Left = 7.086615!
Me.lblBruttoAlleLeistungen.Name = "lblBruttoAlleLeistungen"
Me.lblBruttoAlleLeistungen.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBruttoAlleLeistungen.Text = "-"
Me.lblBruttoAlleLeistungen.Top = 0!
Me.lblBruttoAlleLeistungen.Width = 0.7874014!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
Me.PageFooter.Name = "PageFooter"
'
'Label28
'
Me.Label28.Height = 0.1330709!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.13937!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG 360 GMBH"
Me.Label28.Top = 0.08622044!
Me.Label28.Width = 2.649606!
'
'Line2
'
Me.Line2.Height = 0.00000001862645!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070864!
Me.Line2.Width = 7.874016!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.874016!
Me.Line2.Y1 = 0.03070864!
Me.Line2.Y2 = 0.03070866!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.04252!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622046!
Me.ReportInfo2.Width = 2.831496!
'
'lblDat
'
Me.lblDat.Height = 0.1330708!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044!
Me.lblDat.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.lblSachbearbeiter})
Me.ReportHeader1.Height = 0.6968505!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 5.736221!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.137795!
'
'Label3
'
Me.Label3.Height = 0.1377953!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Sachbearbeiter:"
Me.Label3.Top = 0.4551181!
Me.Label3.Width = 0.9736221!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0.01023622!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "PLOSE Auswertung Konsortium"
Me.lblUeberschrift.Top = 0.1338583!
Me.lblUeberschrift.Width = 4.875985!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.1759843!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0.9736221!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)"
Me.lblSachbearbeiter.Top = 0.4169292!
Me.lblSachbearbeiter.Width = 4.606299!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblLandFooter, Me.Line7, Me.lblSumBrutto, Me.lblSumMwst, Me.lblSumNetto, Me.lblSumBruttoAlleLeistungen})
Me.ReportFooter1.Height = 0.352756!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1295276!
Me.Line1.Width = 7.874016!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.874016!
Me.Line1.Y1 = 0.1295276!
Me.Line1.Y2 = 0.1295276!
'
'lblLandFooter
'
Me.lblLandFooter.Height = 0.1795275!
Me.lblLandFooter.HyperLink = Nothing
Me.lblLandFooter.Left = 0!
Me.lblLandFooter.Name = "lblLandFooter"
Me.lblLandFooter.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblLandFooter.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1"
Me.lblLandFooter.Text = "Gesamtsumme"
Me.lblLandFooter.Top = 0.1732284!
Me.lblLandFooter.Width = 1.790945!
'
'Line7
'
Me.Line7.Height = 0!
Me.Line7.Left = 0.005118111!
Me.Line7.LineWeight = 1.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0.09409449!
Me.Line7.Width = 7.874014!
Me.Line7.X1 = 0.005118111!
Me.Line7.X2 = 7.879132!
Me.Line7.Y1 = 0.09409449!
Me.Line7.Y2 = 0.09409449!
'
'lblSumBrutto
'
Me.lblSumBrutto.Height = 0.1795276!
Me.lblSumBrutto.HyperLink = Nothing
Me.lblSumBrutto.Left = 6.299213!
Me.lblSumBrutto.Name = "lblSumBrutto"
Me.lblSumBrutto.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-decoration: underline;" &
" vertical-align: middle; ddo-char-set: 1"
Me.lblSumBrutto.Text = "Brutto"
Me.lblSumBrutto.Top = 0.1732284!
Me.lblSumBrutto.Width = 0.7874018!
'
'lblSumMwst
'
Me.lblSumMwst.Height = 0.1795276!
Me.lblSumMwst.HyperLink = Nothing
Me.lblSumMwst.Left = 5.511811!
Me.lblSumMwst.Name = "lblSumMwst"
Me.lblSumMwst.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumMwst.Text = "MWST"
Me.lblSumMwst.Top = 0.1732284!
Me.lblSumMwst.Width = 0.7874018!
'
'lblSumNetto
'
Me.lblSumNetto.Height = 0.1795276!
Me.lblSumNetto.HyperLink = Nothing
Me.lblSumNetto.Left = 4.72441!
Me.lblSumNetto.Name = "lblSumNetto"
Me.lblSumNetto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumNetto.Text = "Netto"
Me.lblSumNetto.Top = 0.1732284!
Me.lblSumNetto.Width = 0.7874018!
'
'lblSumBruttoAlleLeistungen
'
Me.lblSumBruttoAlleLeistungen.Height = 0.1795276!
Me.lblSumBruttoAlleLeistungen.HyperLink = Nothing
Me.lblSumBruttoAlleLeistungen.Left = 7.086615!
Me.lblSumBruttoAlleLeistungen.Name = "lblSumBruttoAlleLeistungen"
Me.lblSumBruttoAlleLeistungen.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
"do-char-set: 1"
Me.lblSumBruttoAlleLeistungen.Text = "Brutto"
Me.lblSumBruttoAlleLeistungen.Top = 0.1732284!
Me.lblSumBruttoAlleLeistungen.Width = 0.7874021!
'
'rptPLOSE_Konsortium
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.884252!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKdNR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEU, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBruttoAlleLeistungen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumBruttoAlleLeistungen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblKdNR As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Public WithEvents lblLandFooter As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblMWST As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumMwst As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblEU As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblOrt As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblLand As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBruttoAlleLeistungen As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumBruttoAlleLeistungen As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptPLOSE_Konsortium
'SOU_DESCR OUT_COD OUT_DESCR OUT_GRP_COD TOT_QTY PROD_DESCR SOU_CURR ORIG_LIST_PRICE PLATTS_PRICE SC_BC_RATE EUR_IV_BC_AMNT
End Class

View File

@@ -0,0 +1,486 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptPLOSE_LaenderGesamt
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 PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptPLOSE_LaenderGesamt))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEU = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblLandFooter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSumBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumMwst = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEU, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label7, Me.Label6, Me.Label14, Me.Line4, Me.Label2, Me.Label4})
Me.PageHeader.Height = 0.1969654!
Me.PageHeader.Name = "PageHeader"
'
'Label7
'
Me.Label7.Height = 0.1795276!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 4.359843!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: bold; text-align: center; vertical-align: middle; dd" &
"o-char-set: 1"
Me.Label7.Text = "EU"
Me.Label7.Top = 0!
Me.Label7.Width = 0.3645668!
'
'Label6
'
Me.Label6.Height = 0.1795276!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 2.37441!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label6.Text = "Land"
Me.Label6.Top = 0!
Me.Label6.Width = 1.985433!
'
'Label14
'
Me.Label14.Height = 0.1795276!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 6.299213!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label14.Text = "Brutto"
Me.Label14.Top = 0!
Me.Label14.Width = 0.7874016!
'
'Line4
'
Me.Line4.Height = 0.0000001043081!
Me.Line4.Left = 0!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0.1795276!
Me.Line4.Width = 7.874014!
Me.Line4.X1 = 0!
Me.Line4.X2 = 7.874014!
Me.Line4.Y1 = 0.1795276!
Me.Line4.Y2 = 0.1795277!
'
'Label2
'
Me.Label2.Height = 0.1795276!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 5.511811!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label2.Text = "MWST"
Me.Label2.Top = 0!
Me.Label2.Width = 0.7874016!
'
'Label4
'
Me.Label4.Height = 0.1795276!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 4.72441!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label4.Text = "Netto"
Me.Label4.Top = 0!
Me.Label4.Width = 0.7874016!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBrutto, Me.Line3, Me.lblNetto, Me.lblMWST, Me.lblEU, Me.lblLand})
Me.Detail.Height = 0.1452756!
Me.Detail.Name = "Detail"
'
'lblBrutto
'
Me.lblBrutto.Height = 0.1417323!
Me.lblBrutto.HyperLink = Nothing
Me.lblBrutto.Left = 6.299213!
Me.lblBrutto.Name = "lblBrutto"
Me.lblBrutto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBrutto.Text = "-"
Me.lblBrutto.Top = 0.003543307!
Me.lblBrutto.Width = 0.7874016!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0!
Me.Line3.LineColor = System.Drawing.Color.Gray
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.1417323!
Me.Line3.Width = 7.874014!
Me.Line3.X1 = 0!
Me.Line3.X2 = 7.874014!
Me.Line3.Y1 = 0.1417323!
Me.Line3.Y2 = 0.1417323!
'
'lblNetto
'
Me.lblNetto.Height = 0.1417323!
Me.lblNetto.HyperLink = Nothing
Me.lblNetto.Left = 4.72441!
Me.lblNetto.Name = "lblNetto"
Me.lblNetto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblNetto.Text = "-"
Me.lblNetto.Top = 0.003543307!
Me.lblNetto.Width = 0.7874016!
'
'lblMWST
'
Me.lblMWST.Height = 0.1417323!
Me.lblMWST.HyperLink = Nothing
Me.lblMWST.Left = 5.511811!
Me.lblMWST.Name = "lblMWST"
Me.lblMWST.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblMWST.Text = "-"
Me.lblMWST.Top = 0.003543307!
Me.lblMWST.Width = 0.7874016!
'
'lblEU
'
Me.lblEU.Height = 0.1417323!
Me.lblEU.HyperLink = Nothing
Me.lblEU.Left = 4.359843!
Me.lblEU.Name = "lblEU"
Me.lblEU.Style = "font-size: 8pt; font-weight: normal; text-align: center; vertical-align: middle; " &
"ddo-char-set: 1"
Me.lblEU.Text = "EU"
Me.lblEU.Top = 0!
Me.lblEU.Width = 0.3645668!
'
'lblLand
'
Me.lblLand.Height = 0.1417323!
Me.lblLand.HyperLink = Nothing
Me.lblLand.Left = 2.37441!
Me.lblLand.Name = "lblLand"
Me.lblLand.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblLand.Text = "Land"
Me.lblLand.Top = 0!
Me.lblLand.Width = 1.985433!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
Me.PageFooter.Name = "PageFooter"
'
'Label28
'
Me.Label28.Height = 0.1330709!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.13937!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG 360 GMBH"
Me.Label28.Top = 0.08622044!
Me.Label28.Width = 2.649606!
'
'Line2
'
Me.Line2.Height = 0.00000001862645!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070864!
Me.Line2.Width = 7.874016!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.874016!
Me.Line2.Y1 = 0.03070864!
Me.Line2.Y2 = 0.03070866!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.04252!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622046!
Me.ReportInfo2.Width = 2.831496!
'
'lblDat
'
Me.lblDat.Height = 0.1330708!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044!
Me.lblDat.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.lblSachbearbeiter})
Me.ReportHeader1.Height = 0.6968505!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 5.736221!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.137795!
'
'Label3
'
Me.Label3.Height = 0.1377953!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Sachbearbeiter:"
Me.Label3.Top = 0.4551181!
Me.Label3.Width = 0.9736221!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0.01023622!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "PLOSE L<>nder Gesamt"
Me.lblUeberschrift.Top = 0.1338583!
Me.lblUeberschrift.Width = 4.875985!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.1759843!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0.9736221!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)"
Me.lblSachbearbeiter.Top = 0.4169292!
Me.lblSachbearbeiter.Width = 4.606299!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblLandFooter, Me.Line7, Me.lblSumBrutto, Me.lblSumMwst, Me.lblSumNetto})
Me.ReportFooter1.Height = 0.352756!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1295276!
Me.Line1.Width = 7.874016!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.874016!
Me.Line1.Y1 = 0.1295276!
Me.Line1.Y2 = 0.1295276!
'
'lblLandFooter
'
Me.lblLandFooter.Height = 0.1795275!
Me.lblLandFooter.HyperLink = Nothing
Me.lblLandFooter.Left = 0!
Me.lblLandFooter.Name = "lblLandFooter"
Me.lblLandFooter.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblLandFooter.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1"
Me.lblLandFooter.Text = "Gesamtsumme"
Me.lblLandFooter.Top = 0.1732284!
Me.lblLandFooter.Width = 1.790945!
'
'Line7
'
Me.Line7.Height = 0!
Me.Line7.Left = 0.005118111!
Me.Line7.LineWeight = 1.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0.09409449!
Me.Line7.Width = 7.874014!
Me.Line7.X1 = 0.005118111!
Me.Line7.X2 = 7.879132!
Me.Line7.Y1 = 0.09409449!
Me.Line7.Y2 = 0.09409449!
'
'lblSumBrutto
'
Me.lblSumBrutto.Height = 0.1795276!
Me.lblSumBrutto.HyperLink = Nothing
Me.lblSumBrutto.Left = 6.299213!
Me.lblSumBrutto.Name = "lblSumBrutto"
Me.lblSumBrutto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumBrutto.Text = "Brutto"
Me.lblSumBrutto.Top = 0.1732284!
Me.lblSumBrutto.Width = 0.7874018!
'
'lblSumMwst
'
Me.lblSumMwst.Height = 0.1795276!
Me.lblSumMwst.HyperLink = Nothing
Me.lblSumMwst.Left = 5.511811!
Me.lblSumMwst.Name = "lblSumMwst"
Me.lblSumMwst.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumMwst.Text = "MWST"
Me.lblSumMwst.Top = 0.1732284!
Me.lblSumMwst.Width = 0.7874018!
'
'lblSumNetto
'
Me.lblSumNetto.Height = 0.1795276!
Me.lblSumNetto.HyperLink = Nothing
Me.lblSumNetto.Left = 4.72441!
Me.lblSumNetto.Name = "lblSumNetto"
Me.lblSumNetto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumNetto.Text = "Netto"
Me.lblSumNetto.Top = 0.1732284!
Me.lblSumNetto.Width = 0.7874018!
'
'rptPLOSE_LaenderGesamt
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.884252!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEU, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Public WithEvents lblLandFooter As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblMWST As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumMwst As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblEU As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblLand As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptPLOSE_LaenderGesamt
End Class

View File

@@ -0,0 +1,534 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptPLOSE_TransaktionenSumary
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 PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptPLOSE_TransaktionenSumary))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblMenge = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblLandFooter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSumBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumMwst = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumMenge = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumMenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label8, Me.Label14, Me.Line4, Me.Label1, Me.Label2, Me.Label4, Me.Label6})
Me.PageHeader.Height = 0.1969654!
Me.PageHeader.Name = "PageHeader"
'
'Label8
'
Me.Label8.Height = 0.1795276!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.5877953!
Me.Label8.Name = "Label8"
Me.Label8.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.Label8.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label8.Text = "Produkt"
Me.Label8.Top = 0!
Me.Label8.Width = 1.20315!
'
'Label14
'
Me.Label14.Height = 0.1795276!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 6.957087!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label14.Text = "Brutto"
Me.Label14.Top = 0!
Me.Label14.Width = 0.9169288!
'
'Line4
'
Me.Line4.Height = 0.0000001043081!
Me.Line4.Left = 0!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0.1795276!
Me.Line4.Width = 7.874014!
Me.Line4.X1 = 0!
Me.Line4.X2 = 7.874014!
Me.Line4.Y1 = 0.1795276!
Me.Line4.Y2 = 0.1795277!
'
'Label1
'
Me.Label1.Height = 0.1795276!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.01023622!
Me.Label1.Name = "Label1"
Me.Label1.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label1.Text = "Eintr<EFBFBD>ge"
Me.Label1.Top = 0.008661418!
Me.Label1.Width = 4.32126!
'
'Label2
'
Me.Label2.Height = 0.1795276!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.040158!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label2.Text = "MWST"
Me.Label2.Top = 0.008661418!
Me.Label2.Width = 0.9169284!
'
'Label4
'
Me.Label4.Height = 0.1795276!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 5.123229!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label4.Text = "Netto"
Me.Label4.Top = 0.008661418!
Me.Label4.Width = 0.9169284!
'
'Label6
'
Me.Label6.Height = 0.1795276!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 4.331496!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label6.Text = "Menge"
Me.Label6.Top = 0.008661418!
Me.Label6.Width = 0.7917318!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblProdukt, Me.lblAnzahl, Me.lblBrutto, Me.Line3, Me.lblMenge, Me.lblNetto, Me.lblMWST})
Me.Detail.Height = 0.1452756!
Me.Detail.Name = "Detail"
'
'lblProdukt
'
Me.lblProdukt.Height = 0.1417323!
Me.lblProdukt.HyperLink = Nothing
Me.lblProdukt.Left = 0.5877953!
Me.lblProdukt.Name = "lblProdukt"
Me.lblProdukt.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblProdukt.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblProdukt.Text = "Produkt"
Me.lblProdukt.Top = 0!
Me.lblProdukt.Width = 3.774804!
'
'lblAnzahl
'
Me.lblAnzahl.Height = 0.1417323!
Me.lblAnzahl.HyperLink = Nothing
Me.lblAnzahl.Left = 0.01023622!
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblAnzahl.Text = "-"
Me.lblAnzahl.Top = 0!
Me.lblAnzahl.Width = 0.5775591!
'
'lblBrutto
'
Me.lblBrutto.Height = 0.1417323!
Me.lblBrutto.HyperLink = Nothing
Me.lblBrutto.Left = 6.957087!
Me.lblBrutto.Name = "lblBrutto"
Me.lblBrutto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBrutto.Text = "Betrag"
Me.lblBrutto.Top = 0.003543307!
Me.lblBrutto.Width = 0.9169283!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0!
Me.Line3.LineColor = System.Drawing.Color.Gray
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.1417323!
Me.Line3.Width = 7.874014!
Me.Line3.X1 = 0!
Me.Line3.X2 = 7.874014!
Me.Line3.Y1 = 0.1417323!
Me.Line3.Y2 = 0.1417323!
'
'lblMenge
'
Me.lblMenge.Height = 0.1417323!
Me.lblMenge.HyperLink = Nothing
Me.lblMenge.Left = 4.331496!
Me.lblMenge.Name = "lblMenge"
Me.lblMenge.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblMenge.Text = "Betrag"
Me.lblMenge.Top = 0.003543307!
Me.lblMenge.Width = 0.7917318!
'
'lblNetto
'
Me.lblNetto.Height = 0.1417323!
Me.lblNetto.HyperLink = Nothing
Me.lblNetto.Left = 5.123229!
Me.lblNetto.Name = "lblNetto"
Me.lblNetto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblNetto.Text = "Betrag"
Me.lblNetto.Top = 0.003543307!
Me.lblNetto.Width = 0.9169284!
'
'lblMWST
'
Me.lblMWST.Height = 0.1417323!
Me.lblMWST.HyperLink = Nothing
Me.lblMWST.Left = 6.040158!
Me.lblMWST.Name = "lblMWST"
Me.lblMWST.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblMWST.Text = "Betrag"
Me.lblMWST.Top = 0.003543307!
Me.lblMWST.Width = 0.9169284!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
Me.PageFooter.Name = "PageFooter"
'
'Label28
'
Me.Label28.Height = 0.1330709!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.13937!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG 360 GMBH"
Me.Label28.Top = 0.08622044!
Me.Label28.Width = 2.649606!
'
'Line2
'
Me.Line2.Height = 0.00000001862645!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070864!
Me.Line2.Width = 7.874016!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.874016!
Me.Line2.Y1 = 0.03070864!
Me.Line2.Y2 = 0.03070866!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.04252!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622046!
Me.ReportInfo2.Width = 2.831496!
'
'lblDat
'
Me.lblDat.Height = 0.1330708!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044!
Me.lblDat.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.lblSachbearbeiter})
Me.ReportHeader1.Height = 0.6968505!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 5.736221!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.137795!
'
'Label3
'
Me.Label3.Height = 0.1377953!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Sachbearbeiter:"
Me.Label3.Top = 0.4551181!
Me.Label3.Width = 0.9736221!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0.01023622!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "PLOSE Transaktionen 01.10.2016 bis 31.10.2016"
Me.lblUeberschrift.Top = 0.1338583!
Me.lblUeberschrift.Width = 4.875985!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.1759843!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0.9736221!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)"
Me.lblSachbearbeiter.Top = 0.4169292!
Me.lblSachbearbeiter.Width = 4.606299!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblLandFooter, Me.Line7, Me.lblSumBrutto, Me.lblSumMwst, Me.lblSumNetto, Me.lblSumMenge})
Me.ReportFooter1.Height = 0.3527559!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1295276!
Me.Line1.Width = 7.874016!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.874016!
Me.Line1.Y1 = 0.1295276!
Me.Line1.Y2 = 0.1295276!
'
'lblLandFooter
'
Me.lblLandFooter.Height = 0.1795275!
Me.lblLandFooter.HyperLink = Nothing
Me.lblLandFooter.Left = 0!
Me.lblLandFooter.Name = "lblLandFooter"
Me.lblLandFooter.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblLandFooter.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1"
Me.lblLandFooter.Text = "Gesamtsumme"
Me.lblLandFooter.Top = 0.1732284!
Me.lblLandFooter.Width = 1.790945!
'
'Line7
'
Me.Line7.Height = 0!
Me.Line7.Left = 0.005118111!
Me.Line7.LineWeight = 1.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0.09409449!
Me.Line7.Width = 7.874014!
Me.Line7.X1 = 0.005118111!
Me.Line7.X2 = 7.879132!
Me.Line7.Y1 = 0.09409449!
Me.Line7.Y2 = 0.09409449!
'
'lblSumBrutto
'
Me.lblSumBrutto.Height = 0.1795276!
Me.lblSumBrutto.HyperLink = Nothing
Me.lblSumBrutto.Left = 6.957087!
Me.lblSumBrutto.Name = "lblSumBrutto"
Me.lblSumBrutto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumBrutto.Text = "Brutto"
Me.lblSumBrutto.Top = 0.1732284!
Me.lblSumBrutto.Width = 0.9169284!
'
'lblSumMwst
'
Me.lblSumMwst.Height = 0.1795276!
Me.lblSumMwst.HyperLink = Nothing
Me.lblSumMwst.Left = 6.040157!
Me.lblSumMwst.Name = "lblSumMwst"
Me.lblSumMwst.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumMwst.Text = "MWST"
Me.lblSumMwst.Top = 0.1732284!
Me.lblSumMwst.Width = 0.9169284!
'
'lblSumNetto
'
Me.lblSumNetto.Height = 0.1795276!
Me.lblSumNetto.HyperLink = Nothing
Me.lblSumNetto.Left = 5.123228!
Me.lblSumNetto.Name = "lblSumNetto"
Me.lblSumNetto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumNetto.Text = "Netto"
Me.lblSumNetto.Top = 0.1732284!
Me.lblSumNetto.Width = 0.9169284!
'
'lblSumMenge
'
Me.lblSumMenge.Height = 0.1795276!
Me.lblSumMenge.HyperLink = Nothing
Me.lblSumMenge.Left = 4.331496!
Me.lblSumMenge.Name = "lblSumMenge"
Me.lblSumMenge.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumMenge.Text = "Menge"
Me.lblSumMenge.Top = 0.1732284!
Me.lblSumMenge.Width = 0.7917318!
'
'rptPLOSE_TransaktionenSumary
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.884252!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumMenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblProdukt As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Public WithEvents lblLandFooter As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblMenge As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblMWST As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumMwst As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumMenge As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptPLOSE_TransaktionenSumary
'SOU_DESCR OUT_COD OUT_DESCR OUT_GRP_COD TOT_QTY PROD_DESCR SOU_CURR ORIG_LIST_PRICE PLATTS_PRICE SC_BC_RATE EUR_IV_BC_AMNT
End Class

View File

@@ -0,0 +1 @@


View File

@@ -0,0 +1,53 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSDLAbholung
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(frmSDLAbholung))
Me.UsrCntlSDLAbholung1 = New SDL.usrCntlSDLAbholung()
Me.SuspendLayout()
'
'UsrCntlSDLAbholung1
'
Me.UsrCntlSDLAbholung1.Cursor = System.Windows.Forms.Cursors.Default
Me.UsrCntlSDLAbholung1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlSDLAbholung1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlSDLAbholung1.Name = "UsrCntlSDLAbholung1"
Me.UsrCntlSDLAbholung1.Size = New System.Drawing.Size(1429, 809)
Me.UsrCntlSDLAbholung1.TabIndex = 0
'
'frmSDLAbholung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1429, 809)
Me.Controls.Add(Me.UsrCntlSDLAbholung1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSDLAbholung"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.WindowState = FormWindowState.Maximized
Me.Text = "SDL Abholung"
Me.ResumeLayout(False)
End Sub
Friend WithEvents UsrCntlSDLAbholung1 As SDL.usrCntlSDLAbholung
End Class

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
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
////////////////////////////////////////////////////////////////////////////////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
XUL/////////////////////////////////////////////////////////////////////////////
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
///////////////////////////////////////////////////////////////////////////d1tFm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////Uy8XB
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
v7j/////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////+Mblhm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
////////////////////////////////////////////////////////////////////////////////
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3/////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////39fRmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////L
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
//////////////////////////////////////////////////////////////////////////////+A
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@@ -0,0 +1,24 @@
Public Class frmSDLAbholung
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(FahrerAbholAuftrag As Boolean)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
If FahrerAbholAuftrag Then
Me.UsrCntlSDLAbholung1.cbxFahrerAbholungsAuftrag.Checked = True
Me.UsrCntlSDLAbholung1.cbxFahrerAbholungsAuftrag.Enabled = False
End If
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
End Class

View File

@@ -0,0 +1,996 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSDLAbholungEintrag
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSDLAbholungEintrag))
Me.dgvPositionen = New System.Windows.Forms.DataGridView()
Me.KfzKennzeichen = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.SDLNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.KarteBoxBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.KartenNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.PIN = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.SortClmn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblAholung = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.lblSBAholung = New System.Windows.Forms.Label()
Me.lblSBErfassung = New System.Windows.Forms.Label()
Me.lblErfassung = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.pnl = New System.Windows.Forms.Panel()
Me.btnFahrerDrucken = New System.Windows.Forms.Button()
Me.btnFahrer = New System.Windows.Forms.Button()
Me.txtAbholungAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtHandy = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtLKW = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVermerkAbholung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.cbxFahrerAbholung = New System.Windows.Forms.CheckBox()
Me.cbxAbgeholt = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
Me.Button2 = New System.Windows.Forms.Button()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.lblAuftragsnr = New System.Windows.Forms.Label()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnAbbrechen = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.cbxVerlaengerung = New System.Windows.Forms.CheckBox()
Me.lblErrSprache = New System.Windows.Forms.Label()
Me.lblErrGb = New System.Windows.Forms.Label()
Me.txtGueltigBis = New System.Windows.Forms.TextBox()
Me.lblGb = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblLieferdatumVon = New System.Windows.Forms.Label()
Me.datBis = New System.Windows.Forms.DateTimePicker()
Me.datVon = New System.Windows.Forms.DateTimePicker()
Me.btnFaxDrucken = New System.Windows.Forms.Button()
Me.btnFax = New System.Windows.Forms.Button()
Me.btnSDLLaden = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cboAnTabelleAnfuegen = New System.Windows.Forms.CheckBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.cboSDLNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.lbl_ErrKunde = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.KdFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.txtVermerkErfassung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.lblErr_SaveMDM = New System.Windows.Forms.Label()
Me.cbxAbholungBeiFremddienstleister = New System.Windows.Forms.CheckBox()
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'dgvPositionen
'
Me.dgvPositionen.AllowUserToAddRows = False
Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KfzKennzeichen, Me.SDLNr, Me.KarteBoxBezeichnung, Me.KartenNr, Me.PIN, Me.SortClmn})
Me.dgvPositionen.Location = New System.Drawing.Point(15, 105)
Me.dgvPositionen.Name = "dgvPositionen"
Me.dgvPositionen.Size = New System.Drawing.Size(866, 307)
Me.dgvPositionen.TabIndex = 1
'
'KfzKennzeichen
'
Me.KfzKennzeichen.HeaderText = "KfzKennzeichen"
Me.KfzKennzeichen.Name = "KfzKennzeichen"
Me.KfzKennzeichen.Width = 150
'
'SDLNr
'
Me.SDLNr.HeaderText = "SDLNr"
Me.SDLNr.Name = "SDLNr"
'
'KarteBoxBezeichnung
'
Me.KarteBoxBezeichnung.HeaderText = "KarteBoxBezeichnung"
Me.KarteBoxBezeichnung.Name = "KarteBoxBezeichnung"
Me.KarteBoxBezeichnung.Width = 150
'
'KartenNr
'
Me.KartenNr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.KartenNr.HeaderText = "KartenNr"
Me.KartenNr.Name = "KartenNr"
'
'PIN
'
Me.PIN.HeaderText = "PIN"
Me.PIN.Name = "PIN"
Me.PIN.Width = 80
'
'SortClmn
'
Me.SortClmn.HeaderText = "SortClmn"
Me.SortClmn.Name = "SortClmn"
Me.SortClmn.Visible = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(13, 13)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(63, 13)
Me.Label4.TabIndex = 4
Me.Label4.Text = "Erfassung"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(12, 10)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(52, 13)
Me.Label5.TabIndex = 3
Me.Label5.Text = "LKW Kz.:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(12, 29)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(66, 13)
Me.Label6.TabIndex = 3
Me.Label6.Text = "Fahrername:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(330, 10)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(73, 13)
Me.Label7.TabIndex = 3
Me.Label7.Text = "Handy (SMS):"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(330, 29)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(72, 13)
Me.Label8.TabIndex = 3
Me.Label8.Text = "Abholung am:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(13, 425)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(60, 13)
Me.Label9.TabIndex = 4
Me.Label9.Text = "Abholung"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(13, 89)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(70, 13)
Me.Label10.TabIndex = 5
Me.Label10.Text = "Positionen:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 68)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(49, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Vermerk:"
'
'lblAholung
'
Me.lblAholung.AutoSize = True
Me.lblAholung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAholung.Location = New System.Drawing.Point(110, 580)
Me.lblAholung.Name = "lblAholung"
Me.lblAholung.Size = New System.Drawing.Size(111, 13)
Me.lblAholung.TabIndex = 3
Me.lblAholung.Text = "01.01.2017 10:11 "
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(227, 580)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(82, 13)
Me.Label11.TabIndex = 3
Me.Label11.Text = "Sachbearbeiter:"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(13, 43)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(35, 13)
Me.Label12.TabIndex = 9
Me.Label12.Text = "Firma:"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(83, 211)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(49, 13)
Me.Label13.TabIndex = 9
Me.Label13.Text = "Vermerk:"
Me.Label13.Visible = False
'
'lblSBAholung
'
Me.lblSBAholung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSBAholung.Location = New System.Drawing.Point(288, 579)
Me.lblSBAholung.Name = "lblSBAholung"
Me.lblSBAholung.Size = New System.Drawing.Size(118, 13)
Me.lblSBAholung.TabIndex = 3
Me.lblSBAholung.Text = "ABC"
Me.lblSBAholung.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblSBErfassung
'
Me.lblSBErfassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSBErfassung.Location = New System.Drawing.Point(495, 5)
Me.lblSBErfassung.Name = "lblSBErfassung"
Me.lblSBErfassung.Size = New System.Drawing.Size(132, 13)
Me.lblSBErfassung.TabIndex = 10
Me.lblSBErfassung.Text = "ABC"
Me.lblSBErfassung.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lblErfassung
'
Me.lblErfassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblErfassung.Location = New System.Drawing.Point(498, 21)
Me.lblErfassung.Name = "lblErfassung"
Me.lblErfassung.Size = New System.Drawing.Size(129, 13)
Me.lblErfassung.TabIndex = 11
Me.lblErfassung.Text = "01.01.2017 10:11 "
Me.lblErfassung.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(428, 5)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(82, 13)
Me.Label17.TabIndex = 12
Me.Label17.Text = "Sachbearbeiter:"
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(428, 21)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(42, 13)
Me.Label18.TabIndex = 13
Me.Label18.Text = "Erfasst:"
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.btnFahrerDrucken)
Me.pnl.Controls.Add(Me.btnFahrer)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.txtAbholungAm)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.Label6)
Me.pnl.Controls.Add(Me.Label8)
Me.pnl.Controls.Add(Me.txtHandy)
Me.pnl.Controls.Add(Me.txtFahrer)
Me.pnl.Controls.Add(Me.Label7)
Me.pnl.Controls.Add(Me.txtLKW)
Me.pnl.Controls.Add(Me.txtVermerkAbholung)
Me.pnl.Controls.Add(Me.cbxFahrerAbholung)
Me.pnl.Location = New System.Drawing.Point(0, 451)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(626, 125)
Me.pnl.TabIndex = 14
'
'btnFahrerDrucken
'
Me.btnFahrerDrucken.BackgroundImage = Global.SDL.My.Resources.Resources.printer21
Me.btnFahrerDrucken.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnFahrerDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFahrerDrucken.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFahrerDrucken.Location = New System.Drawing.Point(548, 68)
Me.btnFahrerDrucken.Name = "btnFahrerDrucken"
Me.btnFahrerDrucken.Size = New System.Drawing.Size(57, 54)
Me.btnFahrerDrucken.TabIndex = 40
Me.btnFahrerDrucken.UseVisualStyleBackColor = True
'
'btnFahrer
'
Me.btnFahrer.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFahrer.Image = Global.SDL.My.Resources.Resources.LKW_klein1
Me.btnFahrer.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFahrer.Location = New System.Drawing.Point(411, 68)
Me.btnFahrer.Name = "btnFahrer"
Me.btnFahrer.Size = New System.Drawing.Size(138, 54)
Me.btnFahrer.TabIndex = 39
Me.btnFahrer.Text = " Formular Fahrer" & Global.Microsoft.VisualBasic.ChrW(10) & " öffnen" & Global.Microsoft.VisualBasic.ChrW(10)
Me.btnFahrer.UseVisualStyleBackColor = True
'
'txtAbholungAm
'
Me.txtAbholungAm._DateTimeOnly = False
Me.txtAbholungAm._numbersOnly = False
Me.txtAbholungAm._numbersOnlyKommastellen = ""
Me.txtAbholungAm._Prozent = False
Me.txtAbholungAm._ShortDateNew = True
Me.txtAbholungAm._ShortDateOnly = False
Me.txtAbholungAm._TimeOnly = False
Me.txtAbholungAm._value = ""
Me.txtAbholungAm._Waehrung = False
Me.txtAbholungAm._WaehrungZeichen = True
Me.txtAbholungAm.ForeColor = System.Drawing.Color.Black
Me.txtAbholungAm.Location = New System.Drawing.Point(411, 26)
Me.txtAbholungAm.MaxLength = 10
Me.txtAbholungAm.MaxLineLength = -1
Me.txtAbholungAm.MaxLines_Warning = ""
Me.txtAbholungAm.MaxLines_Warning_Label = Nothing
Me.txtAbholungAm.Name = "txtAbholungAm"
Me.txtAbholungAm.Size = New System.Drawing.Size(194, 20)
Me.txtAbholungAm.TabIndex = 2
'
'txtHandy
'
Me.txtHandy._DateTimeOnly = False
Me.txtHandy._numbersOnly = False
Me.txtHandy._numbersOnlyKommastellen = ""
Me.txtHandy._Prozent = False
Me.txtHandy._ShortDateNew = False
Me.txtHandy._ShortDateOnly = False
Me.txtHandy._TimeOnly = False
Me.txtHandy._value = ""
Me.txtHandy._Waehrung = False
Me.txtHandy._WaehrungZeichen = True
Me.txtHandy.ForeColor = System.Drawing.Color.Black
Me.txtHandy.Location = New System.Drawing.Point(411, 7)
Me.txtHandy.MaxLineLength = -1
Me.txtHandy.MaxLines_Warning = ""
Me.txtHandy.MaxLines_Warning_Label = Nothing
Me.txtHandy.Name = "txtHandy"
Me.txtHandy.Size = New System.Drawing.Size(194, 20)
Me.txtHandy.TabIndex = 2
'
'txtFahrer
'
Me.txtFahrer._DateTimeOnly = False
Me.txtFahrer._numbersOnly = False
Me.txtFahrer._numbersOnlyKommastellen = ""
Me.txtFahrer._Prozent = False
Me.txtFahrer._ShortDateNew = False
Me.txtFahrer._ShortDateOnly = False
Me.txtFahrer._TimeOnly = False
Me.txtFahrer._value = ""
Me.txtFahrer._Waehrung = False
Me.txtFahrer._WaehrungZeichen = True
Me.txtFahrer.ForeColor = System.Drawing.Color.Black
Me.txtFahrer.Location = New System.Drawing.Point(81, 26)
Me.txtFahrer.MaxLength = 10
Me.txtFahrer.MaxLineLength = -1
Me.txtFahrer.MaxLines_Warning = ""
Me.txtFahrer.MaxLines_Warning_Label = Nothing
Me.txtFahrer.Name = "txtFahrer"
Me.txtFahrer.Size = New System.Drawing.Size(196, 20)
Me.txtFahrer.TabIndex = 2
'
'txtLKW
'
Me.txtLKW._DateTimeOnly = False
Me.txtLKW._numbersOnly = False
Me.txtLKW._numbersOnlyKommastellen = ""
Me.txtLKW._Prozent = False
Me.txtLKW._ShortDateNew = False
Me.txtLKW._ShortDateOnly = False
Me.txtLKW._TimeOnly = False
Me.txtLKW._value = ""
Me.txtLKW._Waehrung = False
Me.txtLKW._WaehrungZeichen = True
Me.txtLKW.ForeColor = System.Drawing.Color.Black
Me.txtLKW.Location = New System.Drawing.Point(81, 7)
Me.txtLKW.MaxLineLength = -1
Me.txtLKW.MaxLines_Warning = ""
Me.txtLKW.MaxLines_Warning_Label = Nothing
Me.txtLKW.Name = "txtLKW"
Me.txtLKW.Size = New System.Drawing.Size(196, 20)
Me.txtLKW.TabIndex = 2
'
'txtVermerkAbholung
'
Me.txtVermerkAbholung.Location = New System.Drawing.Point(81, 68)
Me.txtVermerkAbholung.MaxLineLength = -1
Me.txtVermerkAbholung.MaxLines_Warning = ""
Me.txtVermerkAbholung.MaxLines_Warning_Label = Nothing
Me.txtVermerkAbholung.Name = "txtVermerkAbholung"
Me.txtVermerkAbholung.Size = New System.Drawing.Size(324, 55)
Me.txtVermerkAbholung.TabIndex = 8
Me.txtVermerkAbholung.Text = ""
'
'cbxFahrerAbholung
'
Me.cbxFahrerAbholung.AutoSize = True
Me.cbxFahrerAbholung.Checked = True
Me.cbxFahrerAbholung.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxFahrerAbholung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxFahrerAbholung.Location = New System.Drawing.Point(411, 52)
Me.cbxFahrerAbholung.Name = "cbxFahrerAbholung"
Me.cbxFahrerAbholung.Size = New System.Drawing.Size(167, 17)
Me.cbxFahrerAbholung.TabIndex = 45
Me.cbxFahrerAbholung.Text = "wird von Fahrer abgeholt"
Me.cbxFahrerAbholung.ThreeState = True
Me.cbxFahrerAbholung.UseVisualStyleBackColor = True
'
'cbxAbgeholt
'
Me.cbxAbgeholt._value = ""
Me.cbxAbgeholt.AutoSize = True
Me.cbxAbgeholt.Checked_value = False
Me.cbxAbgeholt.CheckedValue = False
Me.cbxAbgeholt.Location = New System.Drawing.Point(16, 579)
Me.cbxAbgeholt.Name = "cbxAbgeholt"
Me.cbxAbgeholt.Size = New System.Drawing.Size(71, 17)
Me.cbxAbgeholt.TabIndex = 11
Me.cbxAbgeholt.Text = "Abgeholt:"
Me.cbxAbgeholt.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(412, 418)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(194, 27)
Me.Button2.TabIndex = 17
Me.Button2.Text = "Auftrag als SMS senden"
Me.Button2.UseVisualStyleBackColor = True
'
'cboPrinter
'
Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = ""
Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(412, 575)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(194, 21)
Me.cboPrinter.TabIndex = 26
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(665, 5)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(66, 13)
Me.Label19.TabIndex = 10
Me.Label19.Text = "Auftrags-Nr.:"
'
'lblAuftragsnr
'
Me.lblAuftragsnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAuftragsnr.Location = New System.Drawing.Point(734, 5)
Me.lblAuftragsnr.Name = "lblAuftragsnr"
Me.lblAuftragsnr.Size = New System.Drawing.Size(147, 18)
Me.lblAuftragsnr.TabIndex = 4
Me.lblAuftragsnr.Text = "-"
Me.lblAuftragsnr.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'btnOK
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(736, 546)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(145, 49)
Me.btnOK.TabIndex = 15
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'btnAbbrechen
'
Me.btnAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbbrechen.Location = New System.Drawing.Point(637, 546)
Me.btnAbbrechen.Name = "btnAbbrechen"
Me.btnAbbrechen.Size = New System.Drawing.Size(100, 49)
Me.btnAbbrechen.TabIndex = 15
Me.btnAbbrechen.Text = "Abbrechen"
Me.btnAbbrechen.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(637, 520)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(244, 27)
Me.Button1.TabIndex = 16
Me.Button1.Text = "Speichern"
Me.Button1.UseVisualStyleBackColor = True
'
'cbxVerlaengerung
'
Me.cbxVerlaengerung.AutoSize = True
Me.cbxVerlaengerung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVerlaengerung.Location = New System.Drawing.Point(78, 66)
Me.cbxVerlaengerung.Name = "cbxVerlaengerung"
Me.cbxVerlaengerung.Size = New System.Drawing.Size(101, 17)
Me.cbxVerlaengerung.TabIndex = 38
Me.cbxVerlaengerung.Text = "Verlängerung"
Me.cbxVerlaengerung.UseVisualStyleBackColor = True
'
'lblErrSprache
'
Me.lblErrSprache.AutoSize = True
Me.lblErrSprache.ForeColor = System.Drawing.Color.Red
Me.lblErrSprache.Location = New System.Drawing.Point(711, 415)
Me.lblErrSprache.Name = "lblErrSprache"
Me.lblErrSprache.Size = New System.Drawing.Size(147, 13)
Me.lblErrSprache.TabIndex = 37
Me.lblErrSprache.Text = "Diese Sprache ist nicht gültig!"
Me.lblErrSprache.Visible = False
'
'lblErrGb
'
Me.lblErrGb.AutoSize = True
Me.lblErrGb.ForeColor = System.Drawing.Color.Red
Me.lblErrGb.Location = New System.Drawing.Point(272, 85)
Me.lblErrGb.Name = "lblErrGb"
Me.lblErrGb.Size = New System.Drawing.Size(132, 13)
Me.lblErrGb.TabIndex = 36
Me.lblErrGb.Text = "Gültig bis Datum angeben!"
Me.lblErrGb.Visible = False
'
'txtGueltigBis
'
Me.txtGueltigBis.Enabled = False
Me.txtGueltigBis.Location = New System.Drawing.Point(259, 64)
Me.txtGueltigBis.Name = "txtGueltigBis"
Me.txtGueltigBis.Size = New System.Drawing.Size(144, 20)
Me.txtGueltigBis.TabIndex = 35
'
'lblGb
'
Me.lblGb.AutoSize = True
Me.lblGb.Location = New System.Drawing.Point(200, 67)
Me.lblGb.Name = "lblGb"
Me.lblGb.Size = New System.Drawing.Size(53, 13)
Me.lblGb.TabIndex = 34
Me.lblGb.Text = "Gültig bis:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(634, 415)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(50, 13)
Me.Label3.TabIndex = 33
Me.Label3.Text = "Sprache:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(103, 23)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(23, 13)
Me.Label2.TabIndex = 30
Me.Label2.Text = "bis:"
'
'lblLieferdatumVon
'
Me.lblLieferdatumVon.AutoSize = True
Me.lblLieferdatumVon.Location = New System.Drawing.Point(2, 22)
Me.lblLieferdatumVon.Name = "lblLieferdatumVon"
Me.lblLieferdatumVon.Size = New System.Drawing.Size(86, 13)
Me.lblLieferdatumVon.TabIndex = 31
Me.lblLieferdatumVon.Text = "Lieferdatum von:"
'
'datBis
'
Me.datBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datBis.Location = New System.Drawing.Point(106, 38)
Me.datBis.Name = "datBis"
Me.datBis.Size = New System.Drawing.Size(95, 20)
Me.datBis.TabIndex = 29
'
'datVon
'
Me.datVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datVon.Location = New System.Drawing.Point(5, 38)
Me.datVon.Name = "datVon"
Me.datVon.Size = New System.Drawing.Size(95, 20)
Me.datVon.TabIndex = 28
'
'btnFaxDrucken
'
Me.btnFaxDrucken.BackgroundImage = Global.SDL.My.Resources.Resources.printer21
Me.btnFaxDrucken.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnFaxDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFaxDrucken.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFaxDrucken.Location = New System.Drawing.Point(831, 454)
Me.btnFaxDrucken.Name = "btnFaxDrucken"
Me.btnFaxDrucken.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.btnFaxDrucken.Size = New System.Drawing.Size(50, 55)
Me.btnFaxDrucken.TabIndex = 40
Me.btnFaxDrucken.UseVisualStyleBackColor = True
'
'btnFax
'
Me.btnFax.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFax.Image = Global.SDL.My.Resources.Resources.list1
Me.btnFax.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFax.Location = New System.Drawing.Point(637, 454)
Me.btnFax.Name = "btnFax"
Me.btnFax.Size = New System.Drawing.Size(146, 55)
Me.btnFax.TabIndex = 39
Me.btnFax.Text = " Formular Fax" & Global.Microsoft.VisualBasic.ChrW(10) & " öffnen"
Me.btnFax.UseVisualStyleBackColor = True
'
'btnSDLLaden
'
Me.btnSDLLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDLLaden.Location = New System.Drawing.Point(340, 26)
Me.btnSDLLaden.Name = "btnSDLLaden"
Me.btnSDLLaden.Size = New System.Drawing.Size(115, 32)
Me.btnSDLLaden.TabIndex = 41
Me.btnSDLLaden.Text = "Laden"
Me.btnSDLLaden.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.cboAnTabelleAnfuegen)
Me.Panel1.Controls.Add(Me.Label15)
Me.Panel1.Controls.Add(Me.cboSDLNr)
Me.Panel1.Controls.Add(Me.datVon)
Me.Panel1.Controls.Add(Me.btnSDLLaden)
Me.Panel1.Controls.Add(Me.datBis)
Me.Panel1.Controls.Add(Me.lblLieferdatumVon)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.Label14)
Me.Panel1.Location = New System.Drawing.Point(425, 40)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(470, 66)
Me.Panel1.TabIndex = 41
'
'cboAnTabelleAnfuegen
'
Me.cboAnTabelleAnfuegen.AutoSize = True
Me.cboAnTabelleAnfuegen.Location = New System.Drawing.Point(340, 5)
Me.cboAnTabelleAnfuegen.Name = "cboAnTabelleAnfuegen"
Me.cboAnTabelleAnfuegen.Size = New System.Drawing.Size(118, 17)
Me.cboAnTabelleAnfuegen.TabIndex = 43
Me.cboAnTabelleAnfuegen.Text = "an Tabelle anfügen"
Me.cboAnTabelleAnfuegen.UseVisualStyleBackColor = True
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(204, 22)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(74, 13)
Me.Label15.TabIndex = 42
Me.Label15.Text = "SDL-Leistung:"
'
'cboSDLNr
'
Me.cboSDLNr._allowedValuesFreiText = Nothing
Me.cboSDLNr._allowFreiText = False
Me.cboSDLNr._value = ""
Me.cboSDLNr.DropDownWidth = 200
Me.cboSDLNr.FormattingEnabled = True
Me.cboSDLNr.Location = New System.Drawing.Point(207, 37)
Me.cboSDLNr.Name = "cboSDLNr"
Me.cboSDLNr.Size = New System.Drawing.Size(127, 21)
Me.cboSDLNr.TabIndex = 41
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(2, 6)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(108, 13)
Me.Label14.TabIndex = 4
Me.Label14.Text = "Leistungen laden:"
'
'lbl_ErrKunde
'
Me.lbl_ErrKunde.AutoSize = True
Me.lbl_ErrKunde.ForeColor = System.Drawing.Color.Red
Me.lbl_ErrKunde.Location = New System.Drawing.Point(282, 24)
Me.lbl_ErrKunde.Name = "lbl_ErrKunde"
Me.lbl_ErrKunde.Size = New System.Drawing.Size(122, 13)
Me.lbl_ErrKunde.TabIndex = 42
Me.lbl_ErrKunde.Text = "Kein Kunde angegeben!"
Me.lbl_ErrKunde.Visible = False
'
'Button3
'
Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.email_big1
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(782, 454)
Me.Button3.Name = "Button3"
Me.Button3.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.Button3.Size = New System.Drawing.Size(50, 55)
Me.Button3.TabIndex = 43
Me.Button3.UseVisualStyleBackColor = True
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "KfzKennzeichen"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Width = 150
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.HeaderText = "SDLNr"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "KarteBoxBezeichnung"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 150
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn4.HeaderText = "KartenNr"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
'
'DataGridViewTextBoxColumn5
'
Me.DataGridViewTextBoxColumn5.HeaderText = "PIN"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
Me.DataGridViewTextBoxColumn5.Visible = False
Me.DataGridViewTextBoxColumn5.Width = 80
'
'cboSprache
'
Me.cboSprache._allowedValuesFreiText = Nothing
Me.cboSprache._allowFreiText = False
Me.cboSprache._value = ""
Me.cboSprache.DropDownHeight = 350
Me.cboSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboSprache.DropDownWidth = 250
Me.cboSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboSprache.FormattingEnabled = True
Me.cboSprache.IntegralHeight = False
Me.cboSprache.Location = New System.Drawing.Point(637, 431)
Me.cboSprache.Name = "cboSprache"
Me.cboSprache.Size = New System.Drawing.Size(244, 24)
Me.cboSprache.TabIndex = 32
'
'KdFirma
'
Me.KdFirma._AlleFirmenCLUSTER = False
Me.KdFirma._AllowSetValue = True
Me.KdFirma._autoSizeGross = False
Me.KdFirma._display_Name1 = False
Me.KdFirma._displayAVISO_Email = False
Me.KdFirma._displayFullName = False
Me.KdFirma._displayWoelflKd = False
Me.KdFirma._hideIfListEmpty = True
Me.KdFirma._loadKdData = True
Me.KdFirma._UseFIRMA = ""
Me.KdFirma._ValueKdAndName = True
Me.KdFirma.dgvpos = "LEFT"
Me.KdFirma.KdName = ""
Me.KdFirma.KdNr = "-1"
Me.KdFirma.kdNrField = Nothing
Me.KdFirma.KdNrNullInt = Nothing
Me.KdFirma.Location = New System.Drawing.Point(78, 40)
Me.KdFirma.Name = "KdFirma"
Me.KdFirma.nurAktive = True
Me.KdFirma.searchActive = True
Me.KdFirma.Size = New System.Drawing.Size(325, 20)
Me.KdFirma.TabIndex = 7
Me.KdFirma.TIMER_SEARCH = True
Me.KdFirma.usrcntl = Nothing
'
'txtVermerkErfassung
'
Me.txtVermerkErfassung.Location = New System.Drawing.Point(152, 208)
Me.txtVermerkErfassung.MaxLineLength = -1
Me.txtVermerkErfassung.MaxLines_Warning = ""
Me.txtVermerkErfassung.MaxLines_Warning_Label = Nothing
Me.txtVermerkErfassung.Name = "txtVermerkErfassung"
Me.txtVermerkErfassung.Size = New System.Drawing.Size(324, 62)
Me.txtVermerkErfassung.TabIndex = 6
Me.txtVermerkErfassung.Text = ""
Me.txtVermerkErfassung.Visible = False
'
'lblErr_SaveMDM
'
Me.lblErr_SaveMDM.AutoSize = True
Me.lblErr_SaveMDM.ForeColor = System.Drawing.Color.Red
Me.lblErr_SaveMDM.Location = New System.Drawing.Point(114, 13)
Me.lblErr_SaveMDM.Name = "lblErr_SaveMDM"
Me.lblErr_SaveMDM.Size = New System.Drawing.Size(290, 13)
Me.lblErr_SaveMDM.TabIndex = 44
Me.lblErr_SaveMDM.Text = "Daten können nur von MDM-Mitarbeitern verändert werden!"
Me.lblErr_SaveMDM.Visible = False
'
'cbxAbholungBeiFremddienstleister
'
Me.cbxAbholungBeiFremddienstleister.AutoSize = True
Me.cbxAbholungBeiFremddienstleister.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAbholungBeiFremddienstleister.Location = New System.Drawing.Point(200, 424)
Me.cbxAbholungBeiFremddienstleister.Name = "cbxAbholungBeiFremddienstleister"
Me.cbxAbholungBeiFremddienstleister.Size = New System.Drawing.Size(206, 17)
Me.cbxAbholungBeiFremddienstleister.TabIndex = 46
Me.cbxAbholungBeiFremddienstleister.Text = "Abholung bei Fremddienstleister"
Me.cbxAbholungBeiFremddienstleister.UseVisualStyleBackColor = True
'
'frmSDLAbholungEintrag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(892, 599)
Me.Controls.Add(Me.cbxAbholungBeiFremddienstleister)
Me.Controls.Add(Me.lblErr_SaveMDM)
Me.Controls.Add(Me.cbxAbgeholt)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.lbl_ErrKunde)
Me.Controls.Add(Me.btnFaxDrucken)
Me.Controls.Add(Me.btnFax)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.cbxVerlaengerung)
Me.Controls.Add(Me.lblSBAholung)
Me.Controls.Add(Me.lblErrSprache)
Me.Controls.Add(Me.lblErrGb)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.lblAholung)
Me.Controls.Add(Me.Label19)
Me.Controls.Add(Me.txtGueltigBis)
Me.Controls.Add(Me.cboPrinter)
Me.Controls.Add(Me.lblGb)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.lblAuftragsnr)
Me.Controls.Add(Me.btnAbbrechen)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.lblSBErfassung)
Me.Controls.Add(Me.lblErfassung)
Me.Controls.Add(Me.Label18)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.KdFirma)
Me.Controls.Add(Me.txtVermerkErfassung)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.dgvPositionen)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmSDLAbholungEintrag"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "SDL Abholung"
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents dgvPositionen As System.Windows.Forms.DataGridView
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtAbholungAm As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtHandy As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtLKW As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtFahrer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents KdFirma As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblAholung As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents txtVermerkErfassung As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents lblSBAholung As System.Windows.Forms.Label
Friend WithEvents lblSBErfassung As System.Windows.Forms.Label
Friend WithEvents lblErfassung As System.Windows.Forms.Label
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents Label18 As System.Windows.Forms.Label
Friend WithEvents txtVermerkAbholung As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents btnAbbrechen As System.Windows.Forms.Button
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents lblAuftragsnr As System.Windows.Forms.Label
Friend WithEvents cbxAbgeholt As VERAG_PROG_ALLGEMEIN.MyCheckbox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents cbxVerlaengerung As System.Windows.Forms.CheckBox
Friend WithEvents lblErrSprache As System.Windows.Forms.Label
Friend WithEvents lblErrGb As System.Windows.Forms.Label
Friend WithEvents txtGueltigBis As System.Windows.Forms.TextBox
Friend WithEvents lblGb As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents lblLieferdatumVon As System.Windows.Forms.Label
Friend WithEvents datBis As System.Windows.Forms.DateTimePicker
Friend WithEvents datVon As System.Windows.Forms.DateTimePicker
Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnFahrerDrucken As System.Windows.Forms.Button
Friend WithEvents btnFahrer As System.Windows.Forms.Button
Friend WithEvents btnFaxDrucken As System.Windows.Forms.Button
Friend WithEvents btnFax As System.Windows.Forms.Button
Friend WithEvents btnSDLLaden As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents cboSDLNr As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lbl_ErrKunde As System.Windows.Forms.Label
Friend WithEvents cboAnTabelleAnfuegen As System.Windows.Forms.CheckBox
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents lblErr_SaveMDM As System.Windows.Forms.Label
Friend WithEvents cbxFahrerAbholung As System.Windows.Forms.CheckBox
Friend WithEvents KfzKennzeichen As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents SDLNr As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents KarteBoxBezeichnung As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents KartenNr As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents PIN As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents SortClmn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents cbxAbholungBeiFremddienstleister As System.Windows.Forms.CheckBox
End Class

View File

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

View File

@@ -0,0 +1,592 @@
Imports Microsoft.Office.Interop
Imports System.Drawing.Printing
Public Class frmSDLAbholungEintrag
Public SDL_ABHOLUNG As cSDLAbholung = Nothing
Dim TMP_KdNr As Integer
Dim TMP_SDLNr As Integer
Dim saveInProgress = False
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(id As Integer)
InitializeComponent()
If id > 0 Then SDL_ABHOLUNG = New cSDLAbholung(id) : setValue()
End Sub
Sub New(KdNr As Integer, SDLNr As Integer)
InitializeComponent()
TMP_KdNr = KdNr
TMP_SDLNr = SDLNr
End Sub
Sub New(SDL_ABHOLUNG As cSDLAbholung)
InitializeComponent()
Me.SDL_ABHOLUNG = SDL_ABHOLUNG
setValue()
End Sub
Private Sub frmSDLAbholungEintrag_Load(sender As Object, e As EventArgs) Handles Me.Load
KdFirma.initKdBox(Me)
cboSDLNr.fillWithSQL("SELECT [SDLNr],cast([SDLNr] as varchar(3)) + ' ' + [SDLBez] FROM [Speditionsdienstleistungen] WHERE SDLTypNr<=2 ORDER BY SDLBez", False, "SDL", True)
initDrucker()
lblSBErfassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
lblErfassung.Text = Now.ToShortDateString
lblSBAholung.Text = ""
lblAholung.Text = ""
If TMP_KdNr > 0 Then KdFirma.KdNr = TMP_KdNr
If TMP_SDLNr > 0 Then cboSDLNr.changeItem(TMP_SDLNr) : btnSDLLaden.PerformClick()
cboSprache.Items.Clear()
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DEUTSCH", "DE"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SERBISCH", "YU"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TÜRKISCH", "TR"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RUMÄNISCH", "RO"))
If KdFirma.KdNr <> "" Then
Select Case KdFirma.KdNr.ToString.Substring(0, 1)
Case "1" : cboSprache.changeItem("TR")
Case "2" : cboSprache.changeItem("RO")
Case "3" : cboSprache.changeItem("YU")
Case "4" : cboSprache.changeItem("YU")
Case Else : cboSprache.changeItem("DE")
End Select
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "MDM" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "EDV" Then
lblErr_SaveMDM.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG <> "MDM" Then
dgvPositionen.Columns("PIN").Visible = False
End If
End Sub
Sub initDrucker()
' alle installierten Drucker ermitteln und
' in in ein ArrayList-Objekt speichern
Dim sPrinters As New ArrayList
For Each sPrinter As String In PrinterSettings.InstalledPrinters
sPrinters.Add(sPrinter)
Next
' Array sortieren
sPrinters.Sort()
' jetzt alle Drucker in sortierter Reihenfolge in einer
' ComboBox zur Auswahl anbieten
Dim oPS As New System.Drawing.Printing.PrinterSettings
For i As Integer = 0 To sPrinters.Count - 1
cboPrinter.Items.Add(sPrinters(i))
Next
If sPrinters.Count > 0 Then
cboPrinter.SelectedIndex = 0
For Each i In cboPrinter.Items
If i.ToString = oPS.PrinterName Then
cboPrinter.SelectedItem = i
Exit For
End If
Next
End If
End Sub
Sub setValue()
If SDL_ABHOLUNG Is Nothing Then Exit Sub
Me.txtLKW.Text = If(SDL_ABHOLUNG.sdlAb_AbholungLKWKz, "")
Me.txtFahrer.Text = If(SDL_ABHOLUNG.sdlAb_AbholungFahrername, "")
If If(SDL_ABHOLUNG.sdlAb_AbholungKdNr, 0) > 0 Then
Me.KdFirma.KdNr = SDL_ABHOLUNG.sdlAb_AbholungKdNr
Else
Me.KdFirma.Text = If(SDL_ABHOLUNG.sdlAb_AbholungFirma, "")
MsgBox(SDL_ABHOLUNG.sdlAb_AbholungFirma)
End If
If SDL_ABHOLUNG.sdlAb_FahrerAbholAuftrag Is Nothing Then
Me.cbxFahrerAbholung.CheckState = CheckState.Indeterminate
ElseIf SDL_ABHOLUNG.sdlAb_FahrerAbholAuftrag Then
Me.cbxFahrerAbholung.CheckState = CheckState.Checked
Else
Me.cbxFahrerAbholung.CheckState = CheckState.Unchecked
End If
Me.lblErfassung.Text = If(SDL_ABHOLUNG.sdlAb_Erfasst IsNot Nothing, CDate(SDL_ABHOLUNG.sdlAb_Erfasst).ToString("dd.MM.yyyy HH:mm"), "")
Me.lblAholung.Text = If(SDL_ABHOLUNG.sdlAb_Abholung IsNot Nothing, CDate(SDL_ABHOLUNG.sdlAb_Abholung).ToString("dd.MM.yyyy HH:mm"), "")
Me.lblSBErfassung.Text = If(SDL_ABHOLUNG.sdlAb_ErfassungSachbearbeiter, "")
Me.lblSBAholung.Text = If(SDL_ABHOLUNG.sdlAb_AbholungSachbearbeiter, "")
Me.txtHandy.Text = If(SDL_ABHOLUNG.sdlAb_AbholungFahrerSMS, "")
Me.txtVermerkAbholung.Text = If(SDL_ABHOLUNG.sdlAb_AbholungVermerk, "")
Me.txtVermerkErfassung.Text = If(SDL_ABHOLUNG.sdlAb_ErfassungVermerk, "")
Me.cbxAbgeholt.CheckedValue = SDL_ABHOLUNG.sdlAb_Abgeholt
Me.cbxAbholungBeiFremddienstleister.Checked = SDL_ABHOLUNG.sdlAb_AbholungFremdDL
dgvPositionen.Rows.Clear()
For Each r In SDL_ABHOLUNG.POS
dgvPositionen.Rows.Add(r.sdlAbp_KfzKennzeichen, r.sdlAbp_SDLNr, r.sdlAbp_KarteBoxBezeichnung, r.sdlAbp_KartenNr, r.sdlAbp_PIN)
Next
If SDL_ABHOLUNG.sdlAb_Id > 0 Then lblAuftragsnr.Text = SDL_ABHOLUNG.sdlAb_Id.ToString("000000.##")
End Sub
Sub getValue()
If SDL_ABHOLUNG Is Nothing Then SDL_ABHOLUNG = New cSDLAbholung(-1)
SDL_ABHOLUNG.sdlAb_AbholungLKWKz = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtLKW.Text)
SDL_ABHOLUNG.sdlAb_AbholungFahrername = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtFahrer.Text)
SDL_ABHOLUNG.sdlAb_AbholungKdNr = Me.KdFirma.KdNrNullInt
SDL_ABHOLUNG.sdlAb_AbholungFirma = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(KdFirma.KdName)
SDL_ABHOLUNG.sdlAb_AbholungFahrerSMS = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtHandy.Text)
SDL_ABHOLUNG.sdlAb_AbholungVermerk = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtVermerkAbholung.Text)
SDL_ABHOLUNG.sdlAb_ErfassungVermerk = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtVermerkErfassung.Text)
SDL_ABHOLUNG.sdlAb_AbholungFremdDL = cbxAbholungBeiFremddienstleister.Checked
If cbxFahrerAbholung.CheckState = CheckState.Indeterminate Then
SDL_ABHOLUNG.sdlAb_FahrerAbholAuftrag = Nothing
Else
SDL_ABHOLUNG.sdlAb_FahrerAbholAuftrag = (cbxFahrerAbholung.CheckState = CheckState.Checked)
End If
If SDL_ABHOLUNG.sdlAb_ErfassungSachbearbeiter Is Nothing Then SDL_ABHOLUNG.sdlAb_ErfassungSachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
If SDL_ABHOLUNG.sdlAb_ErfassungSachbearbeiterId Is Nothing Then SDL_ABHOLUNG.sdlAb_ErfassungSachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
SDL_ABHOLUNG.POS.Clear()
' For i = 0 To DataGridView.RowCount - 1
For Each r As DataGridViewRow In dgvPositionen.Rows
'Dim r As DataGridViewRow = DataGridView.Rows(i)
Dim P As New cSDLAbholungPositionen
P.sdlAbp_KundenNr = Me.KdFirma.KdNrNullInt
P.sdlAbp_KartenNr = r.Cells("KartenNr").Value
P.sdlAbp_KfzKennzeichen = r.Cells("KfzKennzeichen").Value
P.sdlAbp_SDLNr = r.Cells("SDLNr").Value
P.sdlAbp_KarteBoxBezeichnung = r.Cells("KarteBoxBezeichnung").Value
P.sdlAbp_PIN = r.Cells("PIN").Value
SDL_ABHOLUNG.POS.Add(P)
Next
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If cbxFahrerAbholung.CheckState = CheckState.Indeterminate Then
cbxFahrerAbholung.CheckState = CheckState.Unchecked
End If
If saveME() Then
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End If
End Sub
Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click
Me.DialogResult = Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
saveME()
Me.DialogResult = Windows.Forms.DialogResult.None
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If saveME() Then
Dim f As New frmSendSMS(txtHandy.Text, "Sie können die Karten/Boxen mit folgedner Auftragnummer bei VERAG Suben abholen: " & SDL_ABHOLUNG.sdlAb_Id.ToString("000000.##"))
f.ShowDialog(Me)
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnSDLLaden.Click
initdgv()
End Sub
Sub initdgv()
Dim kundenSQL As New kundenSQL
Dim sqlStr As String = ""
Select Case cboSDLNr._value
Case "209", "203" : cbxAbholungBeiFremddienstleister.Checked = True
End Select
Dim sdlnr As Integer = If(IsNumeric(cboSDLNr._value), cboSDLNr._value, -1)
sqlStr = " SELECT [KfzKennzeichen] ,SDLNr, " &
" cast(CASE [SDLNr] " &
" WHEN '207' THEN 'FREJUS' " &
" WHEN '100' THEN 'IDS'" &
" WHEN '101' THEN 'WÖLFL'" &
" WHEN '202' THEN 'IT' " &
" WHEN '208' THEN 'MSE' " &
" WHEN '211' THEN 'MULTI-BOX' " &
" WHEN '210' THEN 'SI' " &
" WHEN '212' THEN 'UTA' " &
" WHEN '213' THEN 'HUGO' " &
" WHEN '214' THEN 'ROADMASTER' " &
" WHEN '215' THEN 'IT' " &
" WHEN '216' THEN 'CZ' " &
" WHEN '217' THEN 'MED PASS' " &
" WHEN '218' THEN 'TRUCK MASTER' " &
" WHEN '203' THEN 'CZ' " &
" WHEN '209' THEN 'PL' " &
" WHEN '500' THEN 'ABGASPLAKETTE' " &
" WHEN '501' THEN 'VERAG-CARD' " &
" WHEN '502' THEN 'VERAG-CARD' " &
" Else '-' " &
" END as VARCHAR(30)) AS KARTEBOX, " &
" cast(CASE [SDLNr] " &
" WHEN '207' THEN cast([FREJUS-CARD-Nr] as VARCHAR(200)) " &
" WHEN '100' THEN cast(KartenNr as VARCHAR(200))" &
" WHEN '101' THEN cast([KartenSchlüsselNr] as VARCHAR(200))" &
" WHEN '202' THEN cast([TELEPASS-Nr] as VARCHAR(200)) " &
" WHEN '208' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '211' THEN cast([PAN-Nr] as VARCHAR(200)) " &
" WHEN '210' THEN cast([SERIE-Nr] as VARCHAR(200)) " &
" WHEN '212' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '213' THEN cast(OBUID as VARCHAR(200)) " &
" WHEN '214' THEN cast(OBUID as VARCHAR(200)) " &
" WHEN '215' THEN cast([TELEPASS-Nr] as VARCHAR(200)) " &
" WHEN '216' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '217' THEN cast(OBUID as VARCHAR(200)) " &
" WHEN '218' THEN cast(OBUID as VARCHAR(200)) " &
" WHEN '203' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '209' THEN cast(KartenNr/*[MSE-Kd-Nr]*/ as VARCHAR(200)) " &
" WHEN '500' THEN '-' " &
" WHEN '501' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '502' THEN cast(KartenNr as VARCHAR(200)) " &
" Else '-' " &
" END as VARCHAR(200)) AS KARTEBOX_NR, " &
" [PIN] " &
" FROM [SDL] " &
" WHERE KundenNr = " & KdFirma.KdNr_value
If sdlnr > 0 Then : sqlStr &= " AND SDLNr=" & sdlnr
Else : sqlStr &= " AND SDLNr IN (100,101,202,207,208,210,211,212,213,214,215,216,217,218,500,501,502)"
End If
sqlStr &= " AND Lieferdatum between '" & datVon.Value.ToShortDateString & "' and '" & datBis.Value.ToShortDateString & "' "
Select Case sdlnr
Case 209, 203
btnFahrer.Enabled = False
btnFahrerDrucken.Enabled = False
End Select
' Select Case sdlnr
' Case 100, 212, 208 : btnFahrer.Enabled = True : btnFahrerDrucken.Enabled = True
'End Select
Dim order As String = " ORDER BY KfzKennzeichen,SDLNr, Bestelldatum, BestellNr,Ausstellungsdatum,KartenNr,OBUID"
Dim dt = kundenSQL.loadSQLDataAdapterBySqlWithoutReadonlyProblem(sqlStr & order, "SDL")
If Not cboAnTabelleAnfuegen.Checked Then dgvPositionen.Rows.Clear()
If dt IsNot Nothing Then
For Each r In dt.Rows
dgvPositionen.Rows.Add(r("KfzKennzeichen"), r("SDLNr"), r("KARTEBOX"), r("KARTEBOX_NR"), r("PIN"), r("KfzKennzeichen") & r("SDLNr"))
Next
End If
FilterKZ()
'CreateTableForGridView()
End Sub
Sub FilterKZ()
'FahrerAbholAuftrag
' MsgBox("1")
For Each r As DataGridViewRow In dgvPositionen.Rows
r.Cells("SortClmn").Value = r.Cells("KfzKennzeichen").Value & r.Cells("SDLNr").Value
Next
' MsgBox("2")
'dgvPositionen.Sort(dgvPositionen.Columns("KfzKennzeichen"), System.ComponentModel.ListSortDirection.Ascending)
dgvPositionen.Sort(dgvPositionen.Columns("SortClmn"), System.ComponentModel.ListSortDirection.Ascending)
End Sub
Function genFormular(sender As Button, Optional ByRef WordPath As String = "") As Microsoft.Office.Interop.Word.Document
Me.Cursor = Cursors.WaitCursor
FilterKZ()
Dim SDLNr As Integer = -1 ' If(IsNumeric(cboSDLNr._value), cboSDLNr._value, -1)
If dgvPositionen.Rows.Count > 0 Then
SDLNr = -1 'PL+CZ
Dim plfound = False
Dim czfound = False
For Each r As DataGridViewRow In dgvPositionen.Rows
If r.Cells("SDLNr").Value IsNot DBNull.Value Then
Select Case r.Cells("SDLNr").Value
Case 209 : plfound = True
Case 203 : czfound = True
Case Else : SDLNr = -1
End Select
End If
Next
If SDLNr > 0 Then
If plfound And czfound Then
SDLNr = 999
ElseIf plfound Then
SDLNr = 209
ElseIf czfound Then
SDLNr = 203
End If
End If
End If
If SDLNr < 0 Then
For Each r As DataGridViewRow In dgvPositionen.Rows
If r.Cells("SDLNr").Value IsNot DBNull.Value Then
If SDLNr <= 0 Then
SDLNr = r.Cells("SDLNr").Value
Else
If SDLNr <> r.Cells("SDLNr").Value Then
SDLNr = -1
Exit For
'Verschiedene Leistungen --> SDLNR=-1 --> richtige .docx
End If
End If
End If
Next
End If
Dim KdNr As Integer = KdFirma.KdNr_value
Dim fahrer = False
If sender Is btnFahrer Or sender Is btnFahrerDrucken Then
fahrer = True
End If
Dim TMPvisible = True
If sender Is Button3 Then TMPvisible = False
Dim print = False
Dim printername = cboPrinter.Text
If sender Is btnFaxDrucken Or sender Is btnFahrerDrucken Then
print = True
End If
lblErrGb.Visible = False
lblErrSprache.Visible = False
Dim cGenWord As New cGenWord
Dim gb = txtGueltigBis.Text
If Not cbxVerlaengerung.Checked Then gb = " - " ' damit gb nicht leer ist
Dim sprache = cboSprache._value ' DirectCast(cboSprache.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value
If Not saveME(fahrer) Then Return Nothing
If cbxVerlaengerung.Checked Then
If fahrer Then
'Dim f As New frmSDLAbholungEintrag(getSDLAbholung())
' If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
genFormular = cGenWord.genUebernahmebestaetigung(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
genFormular = cGenWord.genUebernahmebestaetigungKuvert(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible, sprache)
'End If
Else
' If SDLNr = 209 Then
'If gb = "" Then lblErrGb.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
' If sprache <> "TR" And sprache <> "YU" Then lblErrSprache.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
'genFormular = cGenWord.genAbholbereitPL(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, gb, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
' ElseIf SDLNr = 203 Then
' If gb = "" Then lblErrGb.Visible = True : Me.Cursor = Cursors.Default : Me.Cursor = Cursors.Default : Return Nothing
' genFormular = cGenWord.genAbholbereitCZ(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, gb, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
If SDLNr = 100 Then 'IDS
' If fahrer Then Exit Sub
If gb = "" Then lblErrGb.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
If sprache <> "DE" And sprache <> "RO" And sprache <> "YU" Then lblErrSprache.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
genFormular = cGenWord.genAbholbereitIDS(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, gb, print, cbxVerlaengerung.Checked, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
ElseIf SDLNr = 212 Then 'UTA
' If fahrer Then Exit Sub
If gb = "" Then lblErrGb.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
If sprache <> "DE" And sprache <> "RO" And sprache <> "YU" And sprache <> "TR" Then lblErrSprache.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
genFormular = cGenWord.genAbholbereitUTA(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, gb, print, cbxVerlaengerung.Checked, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
ElseIf SDLNr = 208 Then 'MSE
' If fahrer Then Exit Sub
If gb = "" Then lblErrGb.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
If sprache <> "DE" And sprache <> "RO" And sprache <> "YU" Then lblErrSprache.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
genFormular = cGenWord.genAbholbereitMSE(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, gb, print, cbxVerlaengerung.Checked, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
ElseIf SDLNr = 213 Then
Select Case cboSprache._value
Case "RO", "DE", "YU"
If fahrer Then
' Dim f As New frmSDLAbholungEintrag(getSDLAbholung())
' If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
genFormular = cGenWord.genUebernahmebestaetigung(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
'End If
Else
genFormular = cGenWord.genAbholbereitHUGO(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
End If
Case Else : MsgBox("Diese Sprache ist bei der Leistung '213 HUGO' nicht verfügbar") : Me.Cursor = Cursors.Default : Return Nothing
End Select
Else
MsgBox("Für diese Leistung ist die Funktion 'Verlängerung' nicht verfügbar") : Me.Cursor = Cursors.Default : Return Nothing
End If
End If
Else
If fahrer Then
' Dim f As New frmSDLAbholungEintrag(getSDLAbholung())
'If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
genFormular = cGenWord.genUebernahmebestaetigung(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
genFormular = cGenWord.genUebernahmebestaetigungKuvert(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible, sprache)
'End If
Else
If SDLNr = 999 Then 'Spezialfall PL+CZ
If gb = "" Then lblErrGb.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
If sprache <> "TR" And sprache <> "YU" Then lblErrSprache.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
genFormular = cGenWord.genAbholbereitCZPL(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, gb, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
ElseIf SDLNr = 209 Then
' If fahrer Then Exit Sub
If gb = "" Then lblErrGb.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
If sprache <> "DE" And sprache <> "TR" And sprache <> "YU" Then lblErrSprache.Visible = True : Me.Cursor = Cursors.Default : Return Nothing
genFormular = cGenWord.genAbholbereitPL(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, gb, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
ElseIf SDLNr = 203 Then
' If fahrer Then Exit Sub
If gb = "" Then lblErrGb.Visible = True : Me.Cursor = Cursors.Default : Me.Cursor = Cursors.Default : Return Nothing
genFormular = cGenWord.genAbholbereitCZ(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, gb, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
Else
genFormular = cGenWord.genAbholbereit(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, cboSprache._value, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
End If
End If
End If
Me.Cursor = Cursors.Default
End Function
Function saveME(Optional FahrerAbholAuftrag As Boolean = False) As Boolean
' lblErr_SaveMDM.Visible = False
saveInProgress = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "MDM" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "EDV" Then
lblErr_SaveMDM.Visible = True
Return True
End If
lbl_ErrKunde.Visible = False
If KdFirma.KdNr_value <= 0 Then lbl_ErrKunde.Visible = True : Return False
getValue()
If FahrerAbholAuftrag Then SDL_ABHOLUNG.sdlAb_FahrerAbholAuftrag = (cbxFahrerAbholung.CheckState = CheckState.Checked)
saveME = SDL_ABHOLUNG.SAVE()
setValue()
saveInProgress = False
End Function
Private Sub btnFax_Click(sender As Object, e As EventArgs) Handles btnFax.Click
genFormular(sender)
End Sub
Private Sub btnFaxDrucken_Click(sender As Object, e As EventArgs) Handles btnFaxDrucken.Click
genFormular(sender)
End Sub
Private Sub btnFahrer_Click(sender As Object, e As EventArgs) Handles btnFahrer.Click
If cbxFahrerAbholung.CheckState = CheckState.Indeterminate Then
cbxFahrerAbholung.CheckState = CheckState.Checked
End If
genFormular(sender)
End Sub
Private Sub btnFahrerDrucken_Click(sender As Object, e As EventArgs) Handles btnFahrerDrucken.Click
If cbxFahrerAbholung.CheckState = CheckState.Indeterminate Then
cbxFahrerAbholung.CheckState = CheckState.Checked
End If
genFormular(sender)
End Sub
Private Sub cbxVerlaengerung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVerlaengerung.CheckedChanged
txtGueltigBis.Enabled = sender.checked
End Sub
Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSprache.SelectedIndexChanged, txtGueltigBis.TextChanged
lblErrGb.Visible = False
lblErrSprache.Visible = False
End Sub
Private Sub KdFirma_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles KdFirma.PropertyChanged
If KdFirma.KdNr_value > 0 Then
lbl_ErrKunde.Visible = False
End If
If Not saveInProgress Then
If KdFirma.KdNr <> "" Then
Select Case KdFirma.KdNr.ToString.Substring(0, 1)
Case "1" : cboSprache.changeItem("TR")
Case "2" : cboSprache.changeItem("RO")
Case "3" : cboSprache.changeItem("YU")
Case "4" : cboSprache.changeItem("YU")
Case Else : cboSprache.changeItem("DE")
End Select
End If
End If
End Sub
Private Sub KdFirma_TextChanged(sender As Object, e As EventArgs) Handles KdFirma.TextChanged
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim WordPath = ""
Dim oWORD As Microsoft.Office.Interop.Word.Document = genFormular(sender, WordPath)
If oWORD IsNot Nothing AndAlso WordPath <> "" Then
oWORD.SaveAs(WordPath.Replace(".docx", "").Replace(".dotx", "") & ".pdf", Word.WdSaveFormat.wdFormatPDF)
openMail(WordPath.Replace(".docx", "").Replace(".dotx", "") & ".pdf")
oWORD.Close()
End If
End Sub
Sub openMail(dest_path)
Try
Dim outl As New Outlook.Application
Dim Mail As Object 'Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
' Mail.To = If(KdFirma.KdData_ADRESSEN IsNot Nothing, KdFirma.KdData_ADRESSEN.E_Mail, "")
Select Case KdFirma.KdNr.ToString.Substring(0, 1)
Case "1" : Mail.To = "maut.tr@verag.ag"
Case "2" : Mail.To = "ma@verag.ag" : Mail.CC = "maut.ro@verag.ag;ft@verag.ag"
Case "3" : Mail.To = "z.batinic@verag.ag"
Case "4" : Mail.To = "z.batinic@verag.ag"
Case Else
End Select
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message)
End Try
End Sub
Private Sub cbxAbholungBeiFremddienstleister_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAbholungBeiFremddienstleister.CheckedChanged
pnl.Enabled = Not cbxAbholungBeiFremddienstleister.Checked
If cbxAbholungBeiFremddienstleister.Checked Then cbxFahrerAbholung.Checked = False
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

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

View File

@@ -0,0 +1,583 @@
Imports GrapeCity.ActiveReports.ReportsCore.Tools
Public Class usrCntlSDLAbholung
Dim FahrerAbholAuftrag = False
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
Dim srcTAG As Date = CDate(Now.ToShortDateString)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim JAHR As Date = CDate("01.01." & Now.Year)
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Dim fullyPainted = False
Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)
If m.Msg = 15 AndAlso Not fullyPainted Then
fullyPainted = True
setDGVOptions()
' initAllg()
' initFilter()
End If
End Sub
Sub New(FahrerAbholAuftrag As Boolean)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
If FahrerAbholAuftrag Then
Me.FahrerAbholAuftrag = FahrerAbholAuftrag
cbxFahrerAbholungsAuftrag.Checked = True
cbxFahrerAbholungsAuftrag.Enabled = False
End If
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLAbholung_Load(sender As Object, e As EventArgs) Handles Me.Load
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftragsdatum", "AUFTRAG"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Abholungsdatum", "ABHOLUNG"))
MyComboBox1.changeItem("AUFTRAG")
txtAbfertDat.Text = Now.AddMonths(-6).ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
txtAbfertDatBis.Text = Now.ToShortDateString
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
cboSachbearbeiterErf.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='MDM' AND [mit_gekuendigt]=0 order by name", False, "ADMIN", True)
cboSachbearbeiterAbh.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='ZOLL' AND [mit_gekuendigt]=0 order by name", False, "ADMIN", True)
' btnMonat.PerformClick()
' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "MDM" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "EDV" Then
'cbxFahrerAbholungsAuftrag.
' End If
btnSuche.PerformClick()
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BH_Vorauskasse_buchen", "SDL") Then
'pnlBH.Visible = True
' End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
btnDel.Visible = True
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
Case "ZOLL" : Panel2.Visible = False
' Case "MDM" : pnlBH.Visible = False
Case "MDM" : Button1.Text = "Karten/Boxen" & vbNewLine & "abgeholt/verschickt"
End Select
txtAuftragsnr.Focus()
End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
txtAbfertDat._value = CDate(sender.value).ToShortDateString
End Sub
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
txtAbfertDatBis._value = CDate(sender.value).ToShortDateString
End Sub
Sub initBtns(MonatJahr)
btnMonat.Text = MONAT.ToString("MMMM")
btnJahr.Text = JAHR.Year
Select Case MonatJahr
Case "Monat"
DateTimePicker1.Value = MONAT
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
Case "Jahr"
' If cbxGeschaftsjahr.Checked Then
'DateTimePicker1.Value = JAHR.AddMonths(1)
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
' Else
DateTimePicker1.Value = JAHR
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
'End If
Case "Tag"
' If cbxGeschaftsjahr.Checked Then
'DateTimePicker1.Value = JAHR.AddMonths(1)
' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
' Else
DateTimePicker1.Value = srcTAG
DateTimePicker2.Value = srcTAG
If srcTAG = Now.ToShortDateString Then
Button5.Text = "Heute"
ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
Button5.Text = "Gestern"
ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
Button5.Text = "Vorgestern"
Else
Button5.Text = srcTAG.ToString("dd.MM")
End If
'End If
Case ""
DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
DateTimePicker2.Value = Now
End Select
btnSuche.PerformClick()
End Sub
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
Me.Cursor = Cursors.WaitCursor
Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
Dim sqlstr As String = ""
sqlstr &= " SELECT " & TopMax & " [sdlAb_Id],[sdlAb_Erfasst],[sdlAb_AbholungFirma],[sdlAb_AbholungKdNr],[sdlAb_AbholungVermerk],[sdlAb_AbholungLKWKz],[sdlAb_AbholungFahrername],[sdlAb_AbholungFahrerSMS],[sdlAb_Abholung],[sdlAb_AbholungSachbearbeiter],[sdlAb_AbholungSachbearbeiterId],[sdlAb_Storniert],[sdlAb_ErfassungSachbearbeiter],[sdlAb_FahrerAbholAuftrag],[sdlAb_ErfassungSachbearbeiterId],[sdlAb_Abgeholt] FROM [tblSDLAbholung] WHERE 1=1 "
With MyDatagridview1
' .DataSource = myTable
.SET_SQL(sqlstr & getWhere() & " ORDER BY sdlAb_AbholungFirma asc ", "SDL", getList)
.LOAD()
setDGVOptions()
End With
showDGV()
Me.Cursor = Cursors.Default
End Sub
Function getWhere() As String
Dim sqlstr = ""
If MyComboBox1._value = "AUFTRAG" Then
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([sdlAb_Erfasst] BETWEEN @DatVon AND @DatBis ) "
Else
sqlstr &= " AND ([sdlAb_Erfasst] BETWEEN @DatVon AND @DatVon ) "
End If
End If
Else
If txtAbfertDat.Text <> "" Then
If txtAbfertDatBis.Text <> "" Then
sqlstr &= " AND ([sdlAb_Abholung] BETWEEN @DatVon AND @DatBis ) "
Else
sqlstr &= " AND ([sdlAb_Abholung] BETWEEN @DatVon AND @DatVon ) "
End If
End If
End If
If Not IsNumeric(txtAuftragsnr.Text) Then txtAuftragsnr.Text = ""
If txtAuftragsnr.Text <> "" Then sqlstr &= " AND sdlAb_Id LIKE @AuftrNr "
If cboSachbearbeiterErf._value <> "" Then sqlstr &= " AND sdlAb_ErfassungSachbearbeiterId LIKE @PersonalnummerErf "
If cboSachbearbeiterAbh._value <> "" Then sqlstr &= " AND sdlAb_AbholungSachbearbeiterId LIKE @PersonalnummerAbh "
If txtLKW.Text <> "" Then sqlstr &= " AND sdlAb_AbholungLKWKz LIKE @LKW "
If txtFirma.Text <> "" Then sqlstr &= " AND sdlAb_AbholungFirma LIKE @Firma "
If txtFahrer.Text <> "" Then sqlstr &= " AND sdlAb_AbholungFahrername LIKE @Fahrer "
If cbxAbhegolt.CheckState <> CheckState.Indeterminate Then
sqlstr &= " AND sdlAb_Abgeholt =" & If(cbxAbhegolt.Checked, 1, 0) & " "
End If
If cbxStorno.CheckState <> CheckState.Indeterminate Then
sqlstr &= " AND sdlAb_Storniert =" & If(cbxStorno.Checked, 1, 0) & " "
End If
If cbxFahrerAbholungsAuftrag.CheckState <> CheckState.Indeterminate Then
sqlstr &= " AND sdlAb_FahrerAbholAuftrag =" & If(cbxFahrerAbholungsAuftrag.Checked, 1, 0) & " "
End If
If cbxAbholungFremdDL.CheckState <> CheckState.Indeterminate Then
sqlstr &= " AND sdlAb_AbholungFremdDL =" & If(cbxAbholungFremdDL.Checked, 1, 0) & " "
End If
Return sqlstr
End Function
Function getList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatVon", txtAbfertDat.Text & " 00:00:00"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatBis", txtAbfertDatBis.Text & " 23:59:59"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AuftrNr", txtAuftragsnr.Text.Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerErf", cboSachbearbeiterErf._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbh", cboSachbearbeiterAbh._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", txtLKW.Text & "%".Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", "%" & txtFirma.Text & "%"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fahrer", txtFahrer.Text & "%".Replace("*", "%")))
Return list
End Function
Sub showDGV()
With MyDatagridview1
If .ColumnCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
.RowHeadersVisible = False
.ReadOnly = True
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
' .Columns("sdlAb_Id").Visible = False
.Columns("sdlAb_Id").Width = 80
.Columns("sdlAb_Id").HeaderText = "Auftrags-Nr"
.Columns("sdlAb_Id").DefaultCellStyle.Format = "000000.##"
.Columns("sdlAb_Id").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("sdlAb_Erfasst").Width = 100
.Columns("sdlAb_Erfasst").HeaderText = "Datum"
.Columns("sdlAb_Erfasst").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("sdlAb_ErfassungSachbearbeiter").Width = 100
.Columns("sdlAb_ErfassungSachbearbeiter").HeaderText = "Erfassung SB"
.Columns("sdlAb_AbholungSachbearbeiter").Width = 100
.Columns("sdlAb_AbholungSachbearbeiter").HeaderText = "Abhol. SB"
.Columns("sdlAb_ErfassungSachbearbeiterId").Visible = False
.Columns("sdlAb_AbholungSachbearbeiterId").Visible = False
'.Columns("sdlAb_ErfassungVermerk").MinimumWidth = 100
' .Columns("sdlAb_ErfassungVermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.Columns("sdlAb_ErfassungVermerk").HeaderText = "Vermerk"
.Columns("sdlAb_AbholungLKWKz").Width = 110
.Columns("sdlAb_AbholungLKWKz").HeaderText = "LKW Abholung"
.Columns("sdlAb_AbholungFahrername").Width = 150
.Columns("sdlAb_AbholungFahrername").HeaderText = "Fahrer Abholung"
.Columns("sdlAb_AbholungFahrerSMS").Width = 100
.Columns("sdlAb_AbholungFahrerSMS").HeaderText = "Handy"
.Columns("sdlAb_AbholungKdNr").Width = 60
.Columns("sdlAb_AbholungKdNr").HeaderText = "KdNr"
.Columns("sdlAb_AbholungKdNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("sdlAb_AbholungFirma").Width = 200
.Columns("sdlAb_AbholungFirma").HeaderText = "Firma Abholung"
.Columns("sdlAb_Abholung").Width = 120
.Columns("sdlAb_Abholung").HeaderText = "Datum"
.Columns("sdlAb_Abgeholt").Width = 50
.Columns("sdlAb_Abgeholt").HeaderText = "Abgeholt"
.Columns("sdlAb_AbholungVermerk").MinimumWidth = 100
.Columns("sdlAb_AbholungVermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("sdlAb_AbholungVermerk").HeaderText = "Vermerk"
.Columns("sdlAb_AbholungVermerk").DefaultCellStyle.ForeColor = Color.Red
.Columns("sdlAb_AbholungVermerk").DefaultCellStyle.Font = New Font(.Font.FontFamily, Font.Size, FontStyle.Bold)
.Columns("sdlAb_Storniert").HeaderText = "Storno"
.Columns("sdlAb_Storniert").Width = 45
.Columns("sdlAb_FahrerAbholAuftrag").HeaderText = "ZB Fahrer"
.Columns("sdlAb_FahrerAbholAuftrag").Width = 60
' lblErgebnis.Text = "Ergebnise: " & .RowCount
colorizeCells()
End With
End Sub
Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click
MyDatagridview1.RELOAD()
setDGVOptions()
End Sub
Sub setDGVOptions()
Try
With MyDatagridview1
For Each r As DataGridViewRow In .Rows
If r.Cells("sdlAb_Storniert").Value IsNot DBNull.Value AndAlso r.Cells("sdlAb_Storniert").Value Then
r.DefaultCellStyle.ForeColor = Color.Red
r.DefaultCellStyle.SelectionForeColor = Color.Red
' r.DefaultCellStyle.SelectionBackColor = Color.White
ElseIf r.Cells("sdlAb_Abgeholt").Value IsNot DBNull.Value AndAlso r.Cells("sdlAb_Abgeholt").Value Then
If r.Cells("sdlAb_FahrerAbholAuftrag").Value IsNot DBNull.Value AndAlso r.Cells("sdlAb_FahrerAbholAuftrag").Value Then
r.DefaultCellStyle.ForeColor = Color.DarkGreen
r.DefaultCellStyle.SelectionForeColor = Color.DarkGreen
Else
r.DefaultCellStyle.ForeColor = Color.RoyalBlue
r.DefaultCellStyle.SelectionForeColor = Color.RoyalBlue
End If
' r.DefaultCellStyle.SelectionBackColor = Color.White
End If
Next
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
Me.Cursor = Cursors.WaitCursor
cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
If MyDatagridview1.SelectedRows(0).Cells("sdlAb_Abgeholt").Value IsNot DBNull.Value AndAlso MyDatagridview1.SelectedRows(0).Cells("sdlAb_Abgeholt").Value Then
'ist schon abgeholt
Exit Sub
End If
Dim VK As New cSDLAbholung(MyDatagridview1.SelectedRows(0).Cells("sdlAb_Id").Value)
Dim FahrerTmp = Nothing
If (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "MDM") Then
FahrerTmp = FahrerTmp
End If
VK.SET_ABHOLUNG(True, txtBemerkung.Text, FahrerTmp)
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()
setDGVOptions()
' cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14)
End If
End Sub
Private Sub MyDatagridview1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles MyDatagridview1.CellMouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
MyDatagridview1.ClearSelection()
MyDatagridview1.Rows(e.RowIndex).Selected = True
MyDatagridview1.CurrentCell = MyDatagridview1.Rows(e.RowIndex).Cells(0)
cntxtOptionen.Show(System.Windows.Forms.Cursor.Position)
End If
End Sub
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
txtBemerkung.Text = ""
' MyTextBox1.Text = ""
Label7.Visible = False
pnlBH.Enabled = True
Panel2.Enabled = True
btnBuchungAufheben.Visible = False
If MyDatagridview1.SelectedRows.Count > 0 Then
If MyDatagridview1.SelectedRows(0).Cells("sdlAb_FahrerAbholAuftrag").Value Is DBNull.Value OrElse Not MyDatagridview1.SelectedRows(0).Cells("sdlAb_FahrerAbholAuftrag").Value Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "MDM" Then ' MDM dürfen immer auf abgeholt setzen, kann sein, dass p.Post geschickt, auch wenn urspr. zur Abholung gedacht.
pnlBH.Enabled = False
End If
Panel2.Enabled = False
End If
If MyDatagridview1.SelectedRows(0).Cells("sdlAb_Abgeholt").Value Then
btnBuchungAufheben.Visible = True
End If
If MyDatagridview1.SelectedRows(0).Cells("sdlAb_AbholungVermerk").Value IsNot DBNull.Value Then
txtBemerkung.Text = MyDatagridview1.SelectedRows(0).Cells("sdlAb_AbholungVermerk").Value
' MyTextBox1.Text = txtBemerkung.Text
End If
If MyDatagridview1.SelectedRows(0).Cells("sdlAb_AbholungKdNr").Value IsNot DBNull.Value AndAlso IsNumeric(MyDatagridview1.SelectedRows(0).Cells("sdlAb_AbholungKdNr").Value) Then
Dim cntFirma = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [SDL].[dbo].[tblSDLAbholung] where sdlAb_AbholungKdNr=" & MyDatagridview1.SelectedRows(0).Cells("sdlAb_AbholungKdNr").Value & " AND sdlAb_Abgeholt=0 AND sdlAb_FahrerAbholAuftrag=1 AND sdlAb_Storniert=0 ", "SDL")
If cntFirma > 1 Then Label7.Text = "Es sind " & cntFirma & " Aufträge vorhanden!" : Label7.Visible = True
End If
End If
End Sub
Private Sub btnBuchungAufheben_Click(sender As Object, e As EventArgs) Handles btnBuchungAufheben.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New cSDLAbholung(MyDatagridview1.SelectedRows(0).Cells("sdlAb_Id").Value)
VK.SET_ABHOLUNG(False, txtBemerkung.Text)
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()
setDGVOptions()
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New cSDLAbholung(MyDatagridview1.SelectedRows(0).Cells("sdlAb_Id").Value)
If VK.sdlAb_Storniert Then
If vbYes <> MsgBox("Möchten Sie die Stornierung auflösen?", vbYesNoCancel) Then Exit Sub
Else
If vbYes <> MsgBox("Möchten Sie den Auftrag wirklich stornieren?", vbYesNoCancel) Then Exit Sub
End If
VK.SET_STORNO()
MyDatagridview1.RELOAD()
setDGVOptions()
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
srcTAG = srcTAG.AddDays(-1)
initBtns("Tag")
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
srcTAG = srcTAG.AddDays(1)
initBtns("Tag")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
initBtns("Tag")
End Sub
Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
initBtns("Monat")
End Sub
Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
initBtns("Jahr")
End Sub
Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
MONAT = MONAT.AddMonths(1)
initBtns("Monat")
End Sub
Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
MONAT = MONAT.AddMonths(-1)
initBtns("Monat")
End Sub
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
JAHR = JAHR.AddYears(1)
initBtns("Jahr")
End Sub
Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
JAHR = JAHR.AddYears(-1)
initBtns("Jahr")
End Sub '
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New cSDLAbholung(MyDatagridview1.SelectedRows(0).Cells("sdlAb_Id").Value)
If vbYes <> MsgBox("Möchten Sie den Auftrag wirklich löschen?", vbYesNoCancel) Then Exit Sub
VK.delete()
MyDatagridview1.RELOAD()
setDGVOptions()
End If
End Sub
Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles MyDatagridview1.DoubleClick, MyDatagridview1.CellContentDoubleClick
If MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub
'If tbcntr.SelectedIndex = 0 Then
Try
Dim f As New frmSDLAbholungEintrag(CInt(MyDatagridview1.SelectedRows(0).Cells("sdlAb_Id").Value))
f.ShowDialog(Me)
MyDatagridview1.RELOAD()
setDGVOptions()
Catch ex As Exception
MsgBox(ex.StackTrace)
End Try
' End If
' frmNacherfassung.showAll()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim f As New frmSDLAbholungEintrag
If f.ShowDialog(Me) = DialogResult.OK Then
MyDatagridview1.RELOAD()
setDGVOptions()
End If
End Sub
Private Sub AbgeholtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbgeholtToolStripMenuItem.Click
Button1.PerformClick()
End Sub
Private Sub StornoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StornoToolStripMenuItem.Click
Button3.PerformClick()
End Sub
Private Sub txtAuftragsnr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAuftragsnr.KeyDown, txtFirma.KeyDown, txtLKW.KeyDown, txtFahrer.KeyDown
If e.KeyCode = Keys.Return Then
btnSuche.PerformClick()
End If
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New cSDLAbholung(MyDatagridview1.SelectedRows(0).Cells("sdlAb_Id").Value)
VK.SET_BEMERKUNG(txtBemerkung.Text)
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()
setDGVOptions()
' cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14)
End If
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
If MyDatagridview1.SelectedRows(0).Cells("sdlAb_FahrerAbholAuftrag").Value Is DBNull.Value OrElse Not MyDatagridview1.SelectedRows(0).Cells("sdlAb_FahrerAbholAuftrag").Value Then
'ist eh nicht zum Abholen
Exit Sub
End If
Dim VK As New cSDLAbholung(MyDatagridview1.SelectedRows(0).Cells("sdlAb_Id").Value)
VK.SET_FAHRERABHOLUNG(False, txtBemerkung.Text)
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()
setDGVOptions()
' cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14)
End If
End Sub
Private Sub MyDatagridview1_Layout(sender As Object, e As LayoutEventArgs) Handles MyDatagridview1.Layout
colorizeCells()
End Sub
Sub colorizeCells()
Dim kdNrTmp = "-1"
Dim bgColor = Color.White
For Each r As DataGridViewRow In MyDatagridview1.Rows
' MsgBox(r.Cells("sdlAb_AbholungKdNr").Value & " - " & kdNrTmp)
If r.Cells("sdlAb_AbholungKdNr").Value <> kdNrTmp Then
kdNrTmp = r.Cells("sdlAb_AbholungKdNr").Value
bgColor = If(bgColor = Color.White, Color.LightGoldenrodYellow, Color.White)
End If
r.DefaultCellStyle.BackColor = bgColor
Next
End Sub
Private Sub DataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
End Sub
End Class

View File

@@ -0,0 +1,70 @@
Imports System.Globalization
Public Class cValidationSDLLeistungen
Dim culture As CultureInfo = New CultureInfo("de-DE")
Sub setFalse(o)
Try
If o.GetType.Name = "TextBox" Then
o.BackColor = Color.Red
o.ForeColor = Color.White
End If
Catch ex As Exception
End Try
End Sub
Sub setTrue(o)
Try
If o.GetType.Name = "TextBox" Then
o.BackColor = Color.White
o.ForeColor = Color.Black
End If
Catch ex As Exception
End Try
End Sub
Function checkValidDate(ByVal o As Object, Optional empty As Boolean = False) As Boolean
If empty And o.Text = "" Then Return True
'If o.length < 10 Then Return True
Try
DateTime.ParseExact(o.Text, "dd.MM.yyyy", culture)
setTrue(o)
Return True
Catch ex As Exception
setFalse(o)
Return False
End Try
End Function
Function checkValidDate2(ByVal o As VERAG_PROG_ALLGEMEIN.DateTimePickerEx, Optional empty As Boolean = False) As Boolean
If o.Checked = False Then Return True
' If empty And o.Text = "" Then Return True
'If o.length < 10 Then Return True
Try
DateTime.ParseExact(o.Text, "dd.MM.yyyy", culture)
setTrue(o)
Return True
Catch ex As Exception
setFalse(o)
Return False
End Try
End Function
Function checkValidDateEnd(ByVal o As Object, Optional empty As Boolean = False) As Boolean
If empty And o.Text = "" Then Return True
Try
DateTime.ParseExact(o.Text, "dd.MM.yyyy", culture)
setTrue(o)
Return True
Catch ex As Exception
setFalse(o)
Return False
End Try
End Function
End Class

View File

@@ -0,0 +1,157 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmChangeLKW
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.pnl = New System.Windows.Forms.Panel()
Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.cbxFurAlleLeistungenUbernehmen = New System.Windows.Forms.CheckBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnAbbrechen = New System.Windows.Forms.Button()
Me.cboLKW = New System.Windows.Forms.ComboBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.lbl = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.FlatButton2)
Me.pnl.Controls.Add(Me.cbxFurAlleLeistungenUbernehmen)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Controls.Add(Me.btnAbbrechen)
Me.pnl.Controls.Add(Me.cboLKW)
Me.pnl.Controls.Add(Me.btnOK)
Me.pnl.Controls.Add(Me.lbl)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(244, 139)
Me.pnl.TabIndex = 0
'
'FlatButton2
'
Me.FlatButton2.allowBorder = False
Me.FlatButton2.FlatAppearance.BorderSize = 0
Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton2.ForeColor = System.Drawing.Color.Black
Me.FlatButton2.Image = Global.SDL.My.Resources.plus
Me.FlatButton2.Location = New System.Drawing.Point(187, 36)
Me.FlatButton2.Name = "FlatButton2"
Me.FlatButton2.Size = New System.Drawing.Size(29, 23)
Me.FlatButton2.TabIndex = 15
Me.FlatButton2.UseVisualStyleBackColor = True
'
'cbxFurAlleLeistungenUbernehmen
'
Me.cbxFurAlleLeistungenUbernehmen.AutoSize = True
Me.cbxFurAlleLeistungenUbernehmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxFurAlleLeistungenUbernehmen.Location = New System.Drawing.Point(7, 66)
Me.cbxFurAlleLeistungenUbernehmen.Name = "cbxFurAlleLeistungenUbernehmen"
Me.cbxFurAlleLeistungenUbernehmen.Size = New System.Drawing.Size(223, 17)
Me.cbxFurAlleLeistungenUbernehmen.TabIndex = 7
Me.cbxFurAlleLeistungenUbernehmen.Text = "Für LKW und alle Leistungen übernehmen"
Me.cbxFurAlleLeistungenUbernehmen.UseVisualStyleBackColor = True
Me.cbxFurAlleLeistungenUbernehmen.Visible = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.White
Me.Label3.ForeColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(4, 41)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(34, 13)
Me.Label3.TabIndex = 13
Me.Label3.Text = "LKW:"
'
'btnAbbrechen
'
Me.btnAbbrechen.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbbrechen.Location = New System.Drawing.Point(36, 89)
Me.btnAbbrechen.Name = "btnAbbrechen"
Me.btnAbbrechen.Size = New System.Drawing.Size(87, 34)
Me.btnAbbrechen.TabIndex = 5
Me.btnAbbrechen.Text = "Abbrechen"
Me.btnAbbrechen.UseVisualStyleBackColor = True
'
'cboLKW
'
Me.cboLKW.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboLKW.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboLKW.BackColor = System.Drawing.Color.White
Me.cboLKW.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboLKW.FormattingEnabled = True
Me.cboLKW.Location = New System.Drawing.Point(49, 36)
Me.cboLKW.MaxLength = 25
Me.cboLKW.Name = "cboLKW"
Me.cboLKW.Size = New System.Drawing.Size(132, 24)
Me.cboLKW.TabIndex = 14
'
'btnOK
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(129, 89)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(101, 34)
Me.btnOK.TabIndex = 6
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(4, 13)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(180, 13)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Bitte geben Sie den neuen LKW ein:"
'
'frmChangeLKW
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(244, 139)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmChangeLKW"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmAddLKW"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents btnAbbrechen As System.Windows.Forms.Button
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents cbxFurAlleLeistungenUbernehmen As System.Windows.Forms.CheckBox
Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cboLKW As System.Windows.Forms.ComboBox
End Class

View File

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

View File

@@ -0,0 +1,89 @@
Public Class frmChangeLKW
Public OldLkW As String = ""
Public SDLNr As String = ""
Public History As String = ""
Public kundenNr As String = ""
Public newKFZ As String = ""
Dim kundenSQL As New kundenSQL
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
'cboLKW.Text = cboLKW.Text.ToUpper
'Label1.ForeColor = Color.Black
If cboLKW.Text <> "" Then
If OldLkW <> "" And OldLkW <> cboLKW.Text Then
Try
Dim SQL As New SQL
If cbxFurAlleLeistungenUbernehmen.Checked Then
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, OldLkW, Nothing, Nothing),
New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, cboLKW.Text, Nothing, Nothing))
SQL.doSQL("UPDATE [LKW] SET KfzKennzeichen= '" & cboLKW.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & OldLkW & "'", "SDL", True)
SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & cboLKW.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & OldLkW & "'", "SDL", True)
SQL.doSQL("UPDATE [Kartenpool] SET KfzKennzeichen= '" & cboLKW.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & OldLkW & "'", "SDL", True)
Else
Dim newHist = SQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '" & kundenNr & "' AND KfzKennzeichen='" & cboLKW.Text & "' And SDLNr ='" & SDLNr & "' ", "SDL")
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, OldLkW, "SDL_" & SDLNr, "HIST_" & History),
New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, cboLKW.Text, "SDL_" & SDLNr, "HIST_" & newHist))
SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & cboLKW.Text & "', History='" & newHist & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & OldLkW & "' AND SDLNr='" & SDLNr & "' AND History='" & History & "'", "SDL", True)
End If
newKFZ = cboLKW.Text
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Else
' Label1.ForeColor = Color.Red
cboLKW.Focus()
Me.DialogResult = Windows.Forms.DialogResult.None
End If
End If
End Sub
Private Sub MyTextBox2_KeyDown(sender As Object, e As KeyEventArgs)
If e.KeyCode = Keys.Return Then
btnOK.PerformClick()
End If
End Sub
Private Sub frmAddLKW_Load(sender As Object, e As EventArgs) Handles Me.Load
initCboLkw()
If OldLkW <> "" Then
cboLKW.Text = OldLkW
End If
cboLKW.Focus()
End Sub
Private Sub txtKennzeichen_LostFocus(sender As Object, e As EventArgs)
' txtKennzeichen.Text = txtKennzeichen.Text.ToUpper
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
Dim f As New frmAddLKW
If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
If f.txtKennzeichen.Text <> "" Then
kundenSQL.insertLKW(kundenNr, f.txtKennzeichen.Text, f.MyTextBox2.Text)
initCboLkw(f.txtKennzeichen.Text)
Else
MsgBox("Kein LKW-Kz angegeben!")
End If
End If
End Sub
Sub initCboLkw(Optional cbolkwsearch = "")
cboLKW.Text = ""
cboLKW.Items.Clear()
For Each s In kundenSQL.getLKWKfzByKdNr(kundenNr)
cboLKW.Items.Add(s)
Next
If cbolkwsearch <> "" Then
For Each i In cboLKW.Items
If i.ToString = cbolkwsearch Then cboLKW.SelectedItem = i : cbolkwsearch = "" : Exit For
Next
End If
End Sub
End Class

View File

@@ -0,0 +1,88 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFindNewVeragCard
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(frmFindNewVeragCard))
Me.DataGridView = New System.Windows.Forms.DataGridView()
Me.lblBitteWahlenSieEineFreieVERAGCard = New System.Windows.Forms.Label()
Me.lblLKW = New System.Windows.Forms.Label()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DataGridView
'
Me.DataGridView.AllowUserToAddRows = False
Me.DataGridView.AllowUserToDeleteRows = False
Me.DataGridView.AllowUserToResizeColumns = False
Me.DataGridView.AllowUserToResizeRows = False
Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView.Location = New System.Drawing.Point(12, 30)
Me.DataGridView.MultiSelect = False
Me.DataGridView.Name = "DataGridView"
Me.DataGridView.ReadOnly = True
Me.DataGridView.RowHeadersVisible = False
Me.DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DataGridView.Size = New System.Drawing.Size(625, 552)
Me.DataGridView.TabIndex = 0
'
'lblBitteWahlenSieEineFreieVERAGCard
'
Me.lblBitteWahlenSieEineFreieVERAGCard.AutoSize = True
Me.lblBitteWahlenSieEineFreieVERAGCard.Location = New System.Drawing.Point(13, 14)
Me.lblBitteWahlenSieEineFreieVERAGCard.Name = "lblBitteWahlenSieEineFreieVERAGCard"
Me.lblBitteWahlenSieEineFreieVERAGCard.Size = New System.Drawing.Size(197, 13)
Me.lblBitteWahlenSieEineFreieVERAGCard.TabIndex = 1
Me.lblBitteWahlenSieEineFreieVERAGCard.Text = "Bitte wählen Sie eine freie VERAG-Card:"
'
'lblLKW
'
Me.lblLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLKW.Location = New System.Drawing.Point(440, 9)
Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Size = New System.Drawing.Size(197, 18)
Me.lblLKW.TabIndex = 2
Me.lblLKW.Text = "-"
Me.lblLKW.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'frmFindNewVeragCard
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(649, 594)
Me.Controls.Add(Me.lblLKW)
Me.Controls.Add(Me.lblBitteWahlenSieEineFreieVERAGCard)
Me.Controls.Add(Me.DataGridView)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmFindNewVeragCard"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "VERAG Card"
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents DataGridView As System.Windows.Forms.DataGridView
Friend WithEvents lblBitteWahlenSieEineFreieVERAGCard As System.Windows.Forms.Label
Friend WithEvents lblLKW As System.Windows.Forms.Label
End Class

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
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
////////////////////////////////////////////////////////////////////////////////
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
XUL/////////////////////////////////////////////////////////////////////////////
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
///////////////////////////////////////////////////////////////////////////d1tFm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////Uy8XB
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
v7j/////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////+Mblhm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
////////////////////////////////////////////////////////////////////////////////
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwDm4N3/////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////39fRmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////L
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
//////////////////////////////////////////////////////////////////////////////+A
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@@ -0,0 +1,56 @@
Public Class frmFindNewVeragCard
Public kdNr
Public KfzKennzeichen
Public SDLNr
Public History
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(lkw, SDLNr)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
lblLKW.Text = lkw
Me.SDLNr = SDLNr
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmFindNewVeragCard_Load(sender As Object, e As EventArgs) Handles Me.Load
With DataGridView
.DataSource = SQL.loadDgvBySql("SELECT KundenNr,KfzKennzeichen,SDLNr,History,[KartenNr],[Bestelldatum],[Lieferdatum],[Vermerk],[Fahrer],[Ersatzkarte],[Gesperrt],[Defekt],[Verloren],[Gestohlen] FROM [SDL] where SDLNr=" & SDLNr & " and KundenNr <=0 order by cast(kartennr as int)", "SDL")
If .RowCount > 0 Then
.Columns("KundenNr").Visible = False
.Columns("KfzKennzeichen").Visible = False
.Columns("SDLNr").Visible = False
.Columns("History").Visible = False
End If
End With
End Sub
Private Sub DataGridView_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView.CellDoubleClick
If DataGridView.SelectedRows.Count > 0 Then
kdNr = DataGridView.SelectedRows(0).Cells("KundenNr").Value
KfzKennzeichen = DataGridView.SelectedRows(0).Cells("KfzKennzeichen").Value
SDLNr = DataGridView.SelectedRows(0).Cells("SDLNr").Value
History = DataGridView.SelectedRows(0).Cells("History").Value
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End If
End Sub
End Class

View File

@@ -0,0 +1,280 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlAllg
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.Panel1 = New System.Windows.Forms.Panel()
Me.pnl = New System.Windows.Forms.Panel()
Me.txtVermerk = New System.Windows.Forms.TextBox()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblLKWabgemeldet = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.lblLKWverkauft = New System.Windows.Forms.Label()
Me.lblLKWNr = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblErfassung = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblAenderung = New System.Windows.Forms.Label()
Me.lblSachbearb = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblKZAenderung = New System.Windows.Forms.Label()
Me.Panel1.SuspendLayout()
Me.pnl.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
Me.Panel1.Controls.Add(Me.pnl)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.lblErfassung)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.lblAenderung)
Me.Panel1.Controls.Add(Me.lblSachbearb)
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(238, 131)
Me.Panel1.TabIndex = 9
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.lblKZAenderung)
Me.pnl.Controls.Add(Me.txtVermerk)
Me.pnl.Controls.Add(Me.FlatButton1)
Me.pnl.Controls.Add(Me.lblLKWabgemeldet)
Me.pnl.Controls.Add(Me.Label7)
Me.pnl.Controls.Add(Me.lblLKWverkauft)
Me.pnl.Controls.Add(Me.lblLKWNr)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(238, 82)
Me.pnl.TabIndex = 8
'
'txtVermerk
'
Me.txtVermerk.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.txtVermerk.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtVermerk.Location = New System.Drawing.Point(4, 48)
Me.txtVermerk.Margin = New System.Windows.Forms.Padding(0)
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.ReadOnly = True
Me.txtVermerk.Size = New System.Drawing.Size(229, 26)
Me.txtVermerk.TabIndex = 10
'
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.BackgroundImage = Global.SDL.My.Resources.stift
Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton1.Cursor = System.Windows.Forms.Cursors.Hand
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.BlanchedAlmond
Me.FlatButton1.Location = New System.Drawing.Point(215, 22)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(18, 19)
Me.FlatButton1.TabIndex = 9
Me.FlatButton1.UseVisualStyleBackColor = True
'
'lblLKWabgemeldet
'
Me.lblLKWabgemeldet.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblLKWabgemeldet.BackColor = System.Drawing.Color.Red
Me.lblLKWabgemeldet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLKWabgemeldet.ForeColor = System.Drawing.Color.White
Me.lblLKWabgemeldet.Location = New System.Drawing.Point(127, 0)
Me.lblLKWabgemeldet.Name = "lblLKWabgemeldet"
Me.lblLKWabgemeldet.Size = New System.Drawing.Size(111, 20)
Me.lblLKWabgemeldet.TabIndex = 8
Me.lblLKWabgemeldet.Text = "LKW abgemeldet!"
Me.lblLKWabgemeldet.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblLKWabgemeldet.Visible = False
'
'Label7
'
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(1, 4)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(31, 13)
Me.Label7.TabIndex = 6
Me.Label7.Text = "LKW"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblLKWverkauft
'
Me.lblLKWverkauft.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblLKWverkauft.BackColor = System.Drawing.Color.Red
Me.lblLKWverkauft.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLKWverkauft.ForeColor = System.Drawing.Color.White
Me.lblLKWverkauft.Location = New System.Drawing.Point(109, 0)
Me.lblLKWverkauft.Name = "lblLKWverkauft"
Me.lblLKWverkauft.Size = New System.Drawing.Size(127, 20)
Me.lblLKWverkauft.TabIndex = 7
Me.lblLKWverkauft.Text = "LKW verkauft!"
Me.lblLKWverkauft.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lblLKWNr
'
Me.lblLKWNr.AutoSize = True
Me.lblLKWNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblLKWNr.Location = New System.Drawing.Point(0, 20)
Me.lblLKWNr.Name = "lblLKWNr"
Me.lblLKWNr.Size = New System.Drawing.Size(93, 20)
Me.lblLKWNr.TabIndex = 7
Me.lblLKWNr.Text = "SD 123 sd"
Me.lblLKWNr.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label6
'
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(2, 85)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(94, 13)
Me.Label6.TabIndex = 0
Me.Label6.Text = "Erfassungsdatum: "
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(2, 115)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(113, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "letzter Sachbearbeiter:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblErfassung
'
Me.lblErfassung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblErfassung.AutoSize = True
Me.lblErfassung.Location = New System.Drawing.Point(126, 85)
Me.lblErfassung.Name = "lblErfassung"
Me.lblErfassung.Size = New System.Drawing.Size(10, 13)
Me.lblErfassung.TabIndex = 1
Me.lblErfassung.Text = "-"
Me.lblErfassung.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(2, 100)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(93, 13)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Änderungsdatum: "
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblAenderung
'
Me.lblAenderung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAenderung.AutoSize = True
Me.lblAenderung.Location = New System.Drawing.Point(126, 100)
Me.lblAenderung.Name = "lblAenderung"
Me.lblAenderung.Size = New System.Drawing.Size(10, 13)
Me.lblAenderung.TabIndex = 3
Me.lblAenderung.Text = "-"
Me.lblAenderung.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblSachbearb
'
Me.lblSachbearb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSachbearb.AutoSize = True
Me.lblSachbearb.Location = New System.Drawing.Point(126, 115)
Me.lblSachbearb.Name = "lblSachbearb"
Me.lblSachbearb.Size = New System.Drawing.Size(10, 13)
Me.lblSachbearb.TabIndex = 5
Me.lblSachbearb.Text = "-"
Me.lblSachbearb.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'pic
'
Me.pic.BackColor = System.Drawing.Color.Transparent
Me.pic.Dock = System.Windows.Forms.DockStyle.Fill
Me.pic.Location = New System.Drawing.Point(0, 131)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(238, 59)
Me.pic.TabIndex = 9
Me.pic.TabStop = False
'
'lblKZAenderung
'
Me.lblKZAenderung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblKZAenderung.BackColor = System.Drawing.Color.Red
Me.lblKZAenderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblKZAenderung.ForeColor = System.Drawing.Color.White
Me.lblKZAenderung.Location = New System.Drawing.Point(38, 0)
Me.lblKZAenderung.Name = "lblKZAenderung"
Me.lblKZAenderung.Size = New System.Drawing.Size(83, 20)
Me.lblKZAenderung.TabIndex = 11
Me.lblKZAenderung.Text = "KZ Änderung"
Me.lblKZAenderung.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblKZAenderung.Visible = False
'
'usrCntlAllg
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.Panel1)
Me.Name = "usrCntlAllg"
Me.Size = New System.Drawing.Size(238, 190)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Public WithEvents pic As System.Windows.Forms.PictureBox
Public WithEvents lblLKWverkauft As System.Windows.Forms.Label
Public WithEvents lblLKWNr As System.Windows.Forms.Label
Public WithEvents lblErfassung As System.Windows.Forms.Label
Public WithEvents lblAenderung As System.Windows.Forms.Label
Public WithEvents lblSachbearb As System.Windows.Forms.Label
Public WithEvents lblLKWabgemeldet As System.Windows.Forms.Label
Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents txtVermerk As System.Windows.Forms.TextBox
Public WithEvents lblKZAenderung As System.Windows.Forms.Label
End Class

View File

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

View File

@@ -0,0 +1,29 @@
Public Class usrCntlAllg
Public kdNr As Integer = -1
Public SDLNr As String = ""
Public History As String = ""
Public Event LKWChanged(newKfz As String)
Private Sub lblLKWNr_TextChanged(sender As Object, e As EventArgs) Handles lblLKWNr.TextChanged
txtVermerk.Text = ""
Dim kundenSQL As New kundenSQL
Dim dt As DataTable = kundenSQL.loadDgvBySql("SELECT isnull([Verkauft],0) as Verkauft, isnull([Abgemeldet],0) as Abgemeldet,isnull(Vermerk,'') as Vermerk, isNull(KZAenderung,0) as KZAenderung FROM [LKW] WHERE [KundenNr]=" & kdNr & " AND [KfzKennzeichen]='" & lblLKWNr.Text & "' ")
If dt.Rows.Count > 0 Then
lblLKWverkauft.Visible = dt(0)("Verkauft")
lblLKWabgemeldet.Visible = dt(0)("Abgemeldet")
lblKZAenderung.Visible = dt(0)("KZAenderung")
txtVermerk.Text = dt(0)("Vermerk")
End If
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
Dim f As New frmChangeLKW
f.OldLkW = lblLKWNr.Text
f.SDLNr = SDLNr
f.History = History
f.kundenNr = kdNr
If f.ShowDialog(Me) = DialogResult.OK Then
RaiseEvent LKWChanged(f.newKFZ)
End If
End Sub
End Class

View File

@@ -0,0 +1,588 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSDLLeistungHUGO
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtPin = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'cbxRetourniert
'
Me.cbxRetourniert._date = Nothing
Me.cbxRetourniert._showdate = True
Me.cbxRetourniert._value = ""
Me.cbxRetourniert.AutoSize = True
Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
Me.cbxRetourniert.Name = "cbxRetourniert"
Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
Me.cbxRetourniert.TabIndex = 7
Me.cbxRetourniert.Text = "Retourniert"
Me.cbxRetourniert.UseVisualStyleBackColor = True
'
'txtPin
'
Me.txtPin._DateTimeOnly = False
Me.txtPin._numbersOnly = False
Me.txtPin._numbersOnlyKommastellen = ""
Me.txtPin._Prozent = False
Me.txtPin._ShortDateNew = False
Me.txtPin._ShortDateOnly = False
Me.txtPin._TimeOnly = False
Me.txtPin._value = Nothing
Me.txtPin._Waehrung = False
Me.txtPin._WaehrungZeichen = True
Me.txtPin.ForeColor = System.Drawing.Color.Black
Me.txtPin.Location = New System.Drawing.Point(106, 118)
Me.txtPin.MaxLength = 6
Me.txtPin.MaxLineLength = -1
Me.txtPin.MaxLines_Warning = ""
Me.txtPin.MaxLines_Warning_Label = Nothing
Me.txtPin.Name = "txtPin"
Me.txtPin.Size = New System.Drawing.Size(55, 20)
Me.txtPin.TabIndex = 3
'
'txtKartenNr
'
Me.txtKartenNr._DateTimeOnly = False
Me.txtKartenNr._numbersOnly = False
Me.txtKartenNr._numbersOnlyKommastellen = ""
Me.txtKartenNr._Prozent = False
Me.txtKartenNr._ShortDateNew = False
Me.txtKartenNr._ShortDateOnly = False
Me.txtKartenNr._TimeOnly = False
Me.txtKartenNr._value = Nothing
Me.txtKartenNr._Waehrung = False
Me.txtKartenNr._WaehrungZeichen = True
Me.txtKartenNr.ForeColor = System.Drawing.Color.Black
Me.txtKartenNr.Location = New System.Drawing.Point(106, 96)
Me.txtKartenNr.MaxLength = 22
Me.txtKartenNr.MaxLineLength = -1
Me.txtKartenNr.MaxLines_Warning = ""
Me.txtKartenNr.MaxLines_Warning_Label = Nothing
Me.txtKartenNr.Name = "txtKartenNr"
Me.txtKartenNr.Size = New System.Drawing.Size(183, 20)
Me.txtKartenNr.TabIndex = 2
'
'txtOBUID
'
Me.txtOBUID._DateTimeOnly = False
Me.txtOBUID._numbersOnly = False
Me.txtOBUID._numbersOnlyKommastellen = ""
Me.txtOBUID._Prozent = False
Me.txtOBUID._ShortDateNew = False
Me.txtOBUID._ShortDateOnly = False
Me.txtOBUID._TimeOnly = False
Me.txtOBUID._value = Nothing
Me.txtOBUID._Waehrung = False
Me.txtOBUID._WaehrungZeichen = True
Me.txtOBUID.ForeColor = System.Drawing.Color.Black
Me.txtOBUID.Location = New System.Drawing.Point(106, 140)
Me.txtOBUID.MaxLength = 18
Me.txtOBUID.MaxLineLength = -1
Me.txtOBUID.MaxLines_Warning = ""
Me.txtOBUID.MaxLines_Warning_Label = Nothing
Me.txtOBUID.Name = "txtOBUID"
Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
Me.txtOBUID.TabIndex = 4
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(3, 121)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(29, 13)
Me.Label3.TabIndex = 14
Me.Label3.Text = "Pin:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 99)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(69, 13)
Me.Label1.TabIndex = 9
Me.Label1.Text = "Karten-Nr.:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 143)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(52, 13)
Me.Label9.TabIndex = 12
Me.Label9.Text = "OBU-Id:"
'
'txtMSEKdNr
'
Me.txtMSEKdNr._DateTimeOnly = False
Me.txtMSEKdNr._numbersOnly = True
Me.txtMSEKdNr._numbersOnlyKommastellen = ""
Me.txtMSEKdNr._Prozent = False
Me.txtMSEKdNr._ShortDateNew = False
Me.txtMSEKdNr._ShortDateOnly = False
Me.txtMSEKdNr._TimeOnly = False
Me.txtMSEKdNr._value = ""
Me.txtMSEKdNr._Waehrung = False
Me.txtMSEKdNr._WaehrungZeichen = True
Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
Me.txtMSEKdNr.MaxLineLength = -1
Me.txtMSEKdNr.MaxLines_Warning = ""
Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
Me.txtMSEKdNr.Name = "txtMSEKdNr"
Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
Me.txtMSEKdNr.TabIndex = 21
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(471, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(90, 13)
Me.Label2.TabIndex = 20
Me.Label2.Text = "MSE-Kunden-Nr.:"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.txtMSEKdNr)
Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 94
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(105, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "Maut HU - HUGO"
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 5
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 165)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(49, 13)
Me.Label4.TabIndex = 119
Me.Label4.Text = "Vermerk:"
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 9
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 8
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 10
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 11
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'txtGueltigkeit2
'
Me.txtGueltigkeit2._DateTimeOnly = False
Me.txtGueltigkeit2._numbersOnly = False
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
Me.txtGueltigkeit2._Prozent = False
Me.txtGueltigkeit2._ShortDateNew = True
Me.txtGueltigkeit2._ShortDateOnly = False
Me.txtGueltigkeit2._TimeOnly = False
Me.txtGueltigkeit2._value = ""
Me.txtGueltigkeit2._Waehrung = False
Me.txtGueltigkeit2._WaehrungZeichen = True
Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
Me.txtGueltigkeit2.MaxLength = 10
Me.txtGueltigkeit2.MaxLineLength = -1
Me.txtGueltigkeit2.MaxLines_Warning = ""
Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
Me.txtGueltigkeit2.TabIndex = 6
Me.txtGueltigkeit2.Visible = False
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 123
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 122
Me.Label7.Text = "Bestelldatum:"
'
'Label11
'
Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(330, 39)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(53, 13)
Me.Label11.TabIndex = 121
Me.Label11.Text = "Gültig bis:"
Me.Label11.Visible = False
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 127
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanLieferschein)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Controls.Add(Me.scanRetourniert)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanLieferschein
'
Me.scanLieferschein._ARCHIV = True
Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
Me.scanLieferschein._MULTI_FILES = True
Me.scanLieferschein._TEXT_PDF = "Lieferschein"
Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanLieferschein.BackColor = System.Drawing.Color.White
Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
Me.scanLieferschein.Name = "scanLieferschein"
Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
Me.scanLieferschein.TabIndex = 23
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
Me.scanSonstiges.TabIndex = 21
'
'scanRetourniert
'
Me.scanRetourniert._ARCHIV = True
Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
Me.scanRetourniert._MULTI_FILES = True
Me.scanRetourniert._TEXT_PDF = "Retourniert"
Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanRetourniert.BackColor = System.Drawing.Color.White
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
Me.scanRetourniert.Location = New System.Drawing.Point(103, 4)
Me.scanRetourniert.Name = "scanRetourniert"
Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
Me.scanRetourniert.TabIndex = 20
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 128
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'usrCntlSDLLeistungHUGO
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.txtGueltigkeit2)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.cbxRetourniert)
Me.Controls.Add(Me.txtPin)
Me.Controls.Add(Me.txtKartenNr)
Me.Controls.Add(Me.txtOBUID)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label9)
Me.Name = "usrCntlSDLLeistungHUGO"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtPin As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
End Class

View File

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

View File

@@ -0,0 +1,212 @@

Imports System.Globalization
Public Class usrCntlSDLLeistungHUGO
Public KfzKennzeichen As String
Public SDLNr As String
Public kdNr As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Public History As String
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlLKW_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
'MsgBox("disp")
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If txtMSEKdNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
End If
' If txtMSEKdNr.Text = "" Then
' getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
' End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Function gueltigBisabgelaufen(o) As Boolean
If CDate(o) > Now Then
Return False
End If
Return True
End Function
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
'PROG.initDTPE(txtGueltigkeit2)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
' txtGueltigkeit2._value = SDL.GültigBis
cbxRetourniert._date = SDL.RetourniertAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
cbxRetourniert.Checked = SDL.Retourniert
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtMSEKdNr.Text = SDL.MSE_Kd_Nr
txtOBUID.Text = SDL.OBUID
txtKartenNr.Text = SDL.KartenNr
txtPin.Text = SDL.PIN
PROG.initPIN(txtPin)
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.updateBinding()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
' SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.Retourniert = cbxRetourniert.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.MSE_Kd_Nr = txtMSEKdNr.Text
SDL.OBUID = txtOBUID.Text
SDL.KartenNr = txtKartenNr.Text
SDL.PIN = txtPin.Text
SDL.RetourniertAm = cbxRetourniert._date
SDL.VerlorenAm = cbxVerloren._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtPin.TextChanged, txtVermerk.TextChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged ' txtGueltigkeit2.PropertyChanged,
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtLieferung Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,672 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungMautAT
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.txtKategorie = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.txtStatus = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtUmstellungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVertragabschlussdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSchadstoffklasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.txtCO2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'txtKategorie
'
Me.txtKategorie._DateTimeOnly = False
Me.txtKategorie._numbersOnly = True
Me.txtKategorie._numbersOnlyKommastellen = ""
Me.txtKategorie._numbersOnlyTrennzeichen = True
Me.txtKategorie._Prozent = False
Me.txtKategorie._ShortDateNew = False
Me.txtKategorie._ShortDateOnly = False
Me.txtKategorie._TimeOnly = False
Me.txtKategorie._TimeOnly_Seconds = False
Me.txtKategorie._value = ""
Me.txtKategorie._Waehrung = False
Me.txtKategorie._WaehrungZeichen = True
Me.txtKategorie.Location = New System.Drawing.Point(106, 115)
Me.txtKategorie.MaxLength = 1
Me.txtKategorie.MaxLineLength = -1
Me.txtKategorie.MaxLines_Warning = ""
Me.txtKategorie.MaxLines_Warning_Label = Nothing
Me.txtKategorie.Name = "txtKategorie"
Me.txtKategorie.Size = New System.Drawing.Size(19, 20)
Me.txtKategorie.TabIndex = 2
'
'txtBestellNr
'
Me.txtBestellNr._DateTimeOnly = False
Me.txtBestellNr._numbersOnly = False
Me.txtBestellNr._numbersOnlyKommastellen = ""
Me.txtBestellNr._numbersOnlyTrennzeichen = True
Me.txtBestellNr._Prozent = False
Me.txtBestellNr._ShortDateNew = False
Me.txtBestellNr._ShortDateOnly = False
Me.txtBestellNr._TimeOnly = False
Me.txtBestellNr._TimeOnly_Seconds = False
Me.txtBestellNr._value = Nothing
Me.txtBestellNr._Waehrung = False
Me.txtBestellNr._WaehrungZeichen = True
Me.txtBestellNr.Location = New System.Drawing.Point(106, 36)
Me.txtBestellNr.MaxLength = 15
Me.txtBestellNr.MaxLineLength = -1
Me.txtBestellNr.MaxLines_Warning = ""
Me.txtBestellNr.MaxLines_Warning_Label = Nothing
Me.txtBestellNr.Name = "txtBestellNr"
Me.txtBestellNr.Size = New System.Drawing.Size(183, 20)
Me.txtBestellNr.TabIndex = 0
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(6, 119)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(55, 13)
Me.Label13.TabIndex = 18
Me.Label13.Text = "Kategorie:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(3, 39)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(58, 13)
Me.Label2.TabIndex = 9
Me.Label2.Text = "Bestell-Nr.:"
'
'txtOBUID
'
Me.txtOBUID._DateTimeOnly = False
Me.txtOBUID._numbersOnly = False
Me.txtOBUID._numbersOnlyKommastellen = ""
Me.txtOBUID._numbersOnlyTrennzeichen = True
Me.txtOBUID._Prozent = False
Me.txtOBUID._ShortDateNew = False
Me.txtOBUID._ShortDateOnly = False
Me.txtOBUID._TimeOnly = False
Me.txtOBUID._TimeOnly_Seconds = False
Me.txtOBUID._value = Nothing
Me.txtOBUID._Waehrung = False
Me.txtOBUID._WaehrungZeichen = True
Me.txtOBUID.Location = New System.Drawing.Point(106, 139)
Me.txtOBUID.MaxLength = 18
Me.txtOBUID.MaxLineLength = -1
Me.txtOBUID.MaxLines_Warning = ""
Me.txtOBUID.MaxLines_Warning_Label = Nothing
Me.txtOBUID.Name = "txtOBUID"
Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
Me.txtOBUID.TabIndex = 6
'
'txtKartenNr
'
Me.txtKartenNr._DateTimeOnly = False
Me.txtKartenNr._numbersOnly = False
Me.txtKartenNr._numbersOnlyKommastellen = ""
Me.txtKartenNr._numbersOnlyTrennzeichen = True
Me.txtKartenNr._Prozent = False
Me.txtKartenNr._ShortDateNew = False
Me.txtKartenNr._ShortDateOnly = False
Me.txtKartenNr._TimeOnly = False
Me.txtKartenNr._TimeOnly_Seconds = False
Me.txtKartenNr._value = Nothing
Me.txtKartenNr._Waehrung = False
Me.txtKartenNr._WaehrungZeichen = True
Me.txtKartenNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKartenNr.Location = New System.Drawing.Point(574, 4)
Me.txtKartenNr.MaxLength = 22
Me.txtKartenNr.MaxLineLength = -1
Me.txtKartenNr.MaxLines_Warning = ""
Me.txtKartenNr.MaxLines_Warning_Label = Nothing
Me.txtKartenNr.Name = "txtKartenNr"
Me.txtKartenNr.Size = New System.Drawing.Size(183, 23)
Me.txtKartenNr.TabIndex = 13
'
'Label9
'
Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ForeColor = System.Drawing.Color.White
Me.Label9.Location = New System.Drawing.Point(513, 9)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(55, 13)
Me.Label9.TabIndex = 12
Me.Label9.Text = "Karten-Nr:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(3, 142)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(54, 13)
Me.Label10.TabIndex = 16
Me.Label10.Text = "OBU-ID:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(3, 71)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(96, 13)
Me.Label1.TabIndex = 14
Me.Label1.Text = "Umstellungsdatum:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(3, 93)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(101, 13)
Me.Label3.TabIndex = 20
Me.Label3.Text = "Vertr.Abschlussdat.:"
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(208, 95)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(40, 13)
Me.Label14.TabIndex = 22
Me.Label14.Text = "Status:"
'
'txtStatus
'
Me.txtStatus._DateTimeOnly = False
Me.txtStatus._numbersOnly = False
Me.txtStatus._numbersOnlyKommastellen = ""
Me.txtStatus._numbersOnlyTrennzeichen = True
Me.txtStatus._Prozent = False
Me.txtStatus._ShortDateNew = False
Me.txtStatus._ShortDateOnly = False
Me.txtStatus._TimeOnly = False
Me.txtStatus._TimeOnly_Seconds = False
Me.txtStatus._value = Nothing
Me.txtStatus._Waehrung = False
Me.txtStatus._WaehrungZeichen = True
Me.txtStatus.Location = New System.Drawing.Point(259, 90)
Me.txtStatus.MaxLength = 2
Me.txtStatus.MaxLineLength = -1
Me.txtStatus.MaxLines_Warning = ""
Me.txtStatus.MaxLines_Warning_Label = Nothing
Me.txtStatus.Name = "txtStatus"
Me.txtStatus.Size = New System.Drawing.Size(30, 20)
Me.txtStatus.TabIndex = 4
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(111, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "MAUT AT - GoBox"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.txtKartenNr)
Me.Panel2.Controls.Add(Me.Label9)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 28
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._numbersOnlyTrennzeichen = True
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._TimeOnly_Seconds = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 51)
Me.txtVermerk.TabIndex = 7
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 165)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(49, 13)
Me.Label6.TabIndex = 32
Me.Label6.Text = "Vermerk:"
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 11
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 10
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 12
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 13
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'txtGueltigkeit2
'
Me.txtGueltigkeit2._DateTimeOnly = False
Me.txtGueltigkeit2._numbersOnly = False
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
Me.txtGueltigkeit2._numbersOnlyTrennzeichen = True
Me.txtGueltigkeit2._Prozent = False
Me.txtGueltigkeit2._ShortDateNew = True
Me.txtGueltigkeit2._ShortDateOnly = False
Me.txtGueltigkeit2._TimeOnly = False
Me.txtGueltigkeit2._TimeOnly_Seconds = False
Me.txtGueltigkeit2._value = ""
Me.txtGueltigkeit2._Waehrung = False
Me.txtGueltigkeit2._WaehrungZeichen = True
Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
Me.txtGueltigkeit2.MaxLength = 10
Me.txtGueltigkeit2.MaxLineLength = -1
Me.txtGueltigkeit2.MaxLines_Warning = ""
Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
Me.txtGueltigkeit2.TabIndex = 8
'
'Label12
'
Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(330, 39)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(53, 13)
Me.Label12.TabIndex = 83
Me.Label12.Text = "Gültig bis:"
'
'txtUmstellungsdatum
'
Me.txtUmstellungsdatum._DateTimeOnly = False
Me.txtUmstellungsdatum._numbersOnly = False
Me.txtUmstellungsdatum._numbersOnlyKommastellen = ""
Me.txtUmstellungsdatum._numbersOnlyTrennzeichen = True
Me.txtUmstellungsdatum._Prozent = False
Me.txtUmstellungsdatum._ShortDateNew = True
Me.txtUmstellungsdatum._ShortDateOnly = False
Me.txtUmstellungsdatum._TimeOnly = False
Me.txtUmstellungsdatum._TimeOnly_Seconds = False
Me.txtUmstellungsdatum._value = ""
Me.txtUmstellungsdatum._Waehrung = False
Me.txtUmstellungsdatum._WaehrungZeichen = True
Me.txtUmstellungsdatum.ForeColor = System.Drawing.Color.Red
Me.txtUmstellungsdatum.Location = New System.Drawing.Point(106, 68)
Me.txtUmstellungsdatum.MaxLength = 10
Me.txtUmstellungsdatum.MaxLineLength = -1
Me.txtUmstellungsdatum.MaxLines_Warning = ""
Me.txtUmstellungsdatum.MaxLines_Warning_Label = Nothing
Me.txtUmstellungsdatum.Name = "txtUmstellungsdatum"
Me.txtUmstellungsdatum.Size = New System.Drawing.Size(74, 20)
Me.txtUmstellungsdatum.TabIndex = 1
'
'txtVertragabschlussdatum
'
Me.txtVertragabschlussdatum._DateTimeOnly = False
Me.txtVertragabschlussdatum._numbersOnly = False
Me.txtVertragabschlussdatum._numbersOnlyKommastellen = ""
Me.txtVertragabschlussdatum._numbersOnlyTrennzeichen = True
Me.txtVertragabschlussdatum._Prozent = False
Me.txtVertragabschlussdatum._ShortDateNew = True
Me.txtVertragabschlussdatum._ShortDateOnly = False
Me.txtVertragabschlussdatum._TimeOnly = False
Me.txtVertragabschlussdatum._TimeOnly_Seconds = False
Me.txtVertragabschlussdatum._value = ""
Me.txtVertragabschlussdatum._Waehrung = False
Me.txtVertragabschlussdatum._WaehrungZeichen = True
Me.txtVertragabschlussdatum.ForeColor = System.Drawing.Color.Red
Me.txtVertragabschlussdatum.Location = New System.Drawing.Point(106, 90)
Me.txtVertragabschlussdatum.MaxLength = 10
Me.txtVertragabschlussdatum.MaxLineLength = -1
Me.txtVertragabschlussdatum.MaxLines_Warning = ""
Me.txtVertragabschlussdatum.MaxLines_Warning_Label = Nothing
Me.txtVertragabschlussdatum.Name = "txtVertragabschlussdatum"
Me.txtVertragabschlussdatum.Size = New System.Drawing.Size(74, 20)
Me.txtVertragabschlussdatum.TabIndex = 3
'
'txtSchadstoffklasse
'
Me.txtSchadstoffklasse._DateTimeOnly = False
Me.txtSchadstoffklasse._numbersOnly = False
Me.txtSchadstoffklasse._numbersOnlyKommastellen = ""
Me.txtSchadstoffklasse._numbersOnlyTrennzeichen = True
Me.txtSchadstoffklasse._Prozent = False
Me.txtSchadstoffklasse._ShortDateNew = False
Me.txtSchadstoffklasse._ShortDateOnly = False
Me.txtSchadstoffklasse._TimeOnly = False
Me.txtSchadstoffklasse._TimeOnly_Seconds = False
Me.txtSchadstoffklasse._value = Nothing
Me.txtSchadstoffklasse._Waehrung = False
Me.txtSchadstoffklasse._WaehrungZeichen = True
Me.txtSchadstoffklasse.Location = New System.Drawing.Point(270, 112)
Me.txtSchadstoffklasse.MaxLength = 2
Me.txtSchadstoffklasse.MaxLineLength = -1
Me.txtSchadstoffklasse.MaxLines_Warning = ""
Me.txtSchadstoffklasse.MaxLines_Warning_Label = Nothing
Me.txtSchadstoffklasse.Name = "txtSchadstoffklasse"
Me.txtSchadstoffklasse.Size = New System.Drawing.Size(19, 20)
Me.txtSchadstoffklasse.TabIndex = 5
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(173, 115)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(91, 13)
Me.Label4.TabIndex = 90
Me.Label4.Text = "Schadstoffklasse:"
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 92
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 158)
Me.scanSonstiges.TabIndex = 21
'
'cbxErsatzkarte
'
Me.cbxErsatzkarte._date = Nothing
Me.cbxErsatzkarte._showdate = True
Me.cbxErsatzkarte._value = ""
Me.cbxErsatzkarte.AutoSize = True
Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 70)
Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
Me.cbxErsatzkarte.TabIndex = 9
Me.cbxErsatzkarte.Text = "Ersatzkarte"
Me.cbxErsatzkarte.UseVisualStyleBackColor = True
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 93
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'txtCO2
'
Me.txtCO2._DateTimeOnly = False
Me.txtCO2._numbersOnly = False
Me.txtCO2._numbersOnlyKommastellen = ""
Me.txtCO2._numbersOnlyTrennzeichen = True
Me.txtCO2._Prozent = False
Me.txtCO2._ShortDateNew = False
Me.txtCO2._ShortDateOnly = False
Me.txtCO2._TimeOnly = False
Me.txtCO2._TimeOnly_Seconds = False
Me.txtCO2._value = Nothing
Me.txtCO2._Waehrung = False
Me.txtCO2._WaehrungZeichen = True
Me.txtCO2.Location = New System.Drawing.Point(270, 67)
Me.txtCO2.MaxLength = 2
Me.txtCO2.MaxLineLength = -1
Me.txtCO2.MaxLines_Warning = ""
Me.txtCO2.MaxLines_Warning_Label = Nothing
Me.txtCO2.Name = "txtCO2"
Me.txtCO2.Size = New System.Drawing.Size(19, 20)
Me.txtCO2.TabIndex = 94
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(186, 70)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(76, 13)
Me.Label5.TabIndex = 95
Me.Label5.Text = "CO2 Kategorie"
'
'usrCntlSDLLeistungMautAT
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.txtCO2)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtSchadstoffklasse)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtVertragabschlussdatum)
Me.Controls.Add(Me.txtUmstellungsdatum)
Me.Controls.Add(Me.txtGueltigkeit2)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.cbxErsatzkarte)
Me.Controls.Add(Me.txtStatus)
Me.Controls.Add(Me.txtKategorie)
Me.Controls.Add(Me.txtBestellNr)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtOBUID)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label1)
Me.Name = "usrCntlSDLLeistungMautAT"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtKategorie As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents txtStatus As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txtUmstellungsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVertragabschlussdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtSchadstoffklasse As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtCO2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As Label
End Class

View File

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

View File

@@ -0,0 +1,190 @@
Imports System.Globalization
Public Class usrCntlSDLLeistungMautAT
Public KfzKennzeichen As String
Public SDLNr As String
Public kdNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Dim culture As CultureInfo = New CultureInfo("de-DE")
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
'initForm()
boud = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Function gueltigBisabgelaufen(o) As Boolean
If CDate(o) > Now Then
Return False
End If
Return True
End Function
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtVertragabschlussdatum)
PROG.initDTPE(txtUmstellungsdatum)
PROG.initDTPE(txtGueltigkeit2)
txtVertragabschlussdatum._value = SDL.Vertragsabschlussdatum
txtUmstellungsdatum._value = SDL.Umstellungsdatum
txtGueltigkeit2._value = SDL.GültigBis
cbxErsatzkarte._date = SDL.ErsatzkarteAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
cbxErsatzkarte.Checked = SDL.Ersatzkarte
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtCO2.Text = SDL.CO2Kategorie
txtSchadstoffklasse.Text = SDL.Schadstoffklasse
txtBestellNr.Text = SDL.BestellNr
txtOBUID.Text = SDL.OBUID
txtKartenNr.Text = SDL.KartenNr
txtStatus.Text = SDL.Status
txtKategorie.Text = SDL.Kategorie
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.updateBinding()
's.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
'If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
SDL.Bestelldatum = Now.ToShortDateString
txtKartenNr.Text = kundenSQL.getValueTxtBySql("SELECT isnull(MautAT_KartenNr,'') FROM [KundenSDL] WHERE [KundenNr]=" & kdNr & " AND SDLNr=" & SDLNr, "SDL")
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Vertragsabschlussdatum = PROG.isEmptyNull(txtVertragabschlussdatum._value)
SDL.Umstellungsdatum = PROG.isEmptyNull(txtUmstellungsdatum._value)
SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.Ersatzkarte = cbxErsatzkarte.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.Schadstoffklasse = txtSchadstoffklasse.Text
SDL.BestellNr = txtBestellNr.Text
SDL.OBUID = txtOBUID.Text
SDL.KartenNr = txtKartenNr.Text
SDL.Status = txtStatus.Text
SDL.Kategorie = txtKategorie.Text
SDL.ErsatzkarteAm = cbxErsatzkarte._date
SDL.VerlorenAm = cbxVerloren._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtUmstellungsdatum, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Umstellungsdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtVertragabschlussdatum, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Vertragabschlussdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtVertragabschlussdatum.PropertyChanged, txtUmstellungsdatum.PropertyChanged, txtSchadstoffklasse.TextChanged, txtBestellNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtStatus.TextChanged, txtKategorie.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,531 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungMautDE
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtPartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxAbgemeldet = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(260, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(44, 13)
Me.Label1.TabIndex = 12
Me.Label1.Text = "Partner:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(383, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(69, 13)
Me.Label2.TabIndex = 18
Me.Label2.Text = "Benutzer-Nr.:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(523, 9)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(63, 13)
Me.Label3.TabIndex = 14
Me.Label3.Text = "Flotten-PIN:"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.ForeColor = System.Drawing.Color.White
Me.Label13.Location = New System.Drawing.Point(643, 9)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(63, 13)
Me.Label13.TabIndex = 20
Me.Label13.Text = "Master-PIN:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 165)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(49, 13)
Me.Label4.TabIndex = 120
Me.Label4.Text = "Vermerk:"
'
'cbxErsatzkarte
'
Me.cbxErsatzkarte._date = Nothing
Me.cbxErsatzkarte._showdate = True
Me.cbxErsatzkarte._value = ""
Me.cbxErsatzkarte.AutoSize = True
Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
Me.cbxErsatzkarte.TabIndex = 4
Me.cbxErsatzkarte.Text = "Ersatzkarte"
Me.cbxErsatzkarte.UseVisualStyleBackColor = True
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 6
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 5
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 7
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 8
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.txtPartner)
Me.Panel2.Controls.Add(Me.Label1)
Me.Panel2.Controls.Add(Me.txtMasterPIN)
Me.Panel2.Controls.Add(Me.Label13)
Me.Panel2.Controls.Add(Me.txtFlottenPIN)
Me.Panel2.Controls.Add(Me.Label3)
Me.Panel2.Controls.Add(Me.txtBenutzerNr)
Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 122
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(132, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "Maut DE - Toll Collect"
'
'txtPartner
'
Me.txtPartner._numbersOnly = False
Me.txtPartner._Prozent = False
Me.txtPartner._ShortDateNew = False
Me.txtPartner._ShortDateOnly = False
Me.txtPartner._TimeOnly = False
Me.txtPartner._value = Nothing
Me.txtPartner._Waehrung = False
Me.txtPartner.Location = New System.Drawing.Point(310, 6)
Me.txtPartner.MaxLength = 10
Me.txtPartner.MaxLineLength = -1
Me.txtPartner.MaxLines_Warning = ""
Me.txtPartner.MaxLines_Warning_Label = Nothing
Me.txtPartner.Name = "txtPartner"
Me.txtPartner.Size = New System.Drawing.Size(67, 20)
Me.txtPartner.TabIndex = 13
'
'txtMasterPIN
'
Me.txtMasterPIN._numbersOnly = False
Me.txtMasterPIN._Prozent = False
Me.txtMasterPIN._ShortDateNew = False
Me.txtMasterPIN._ShortDateOnly = False
Me.txtMasterPIN._TimeOnly = False
Me.txtMasterPIN._value = Nothing
Me.txtMasterPIN._Waehrung = False
Me.txtMasterPIN.Location = New System.Drawing.Point(712, 6)
Me.txtMasterPIN.MaxLength = 4
Me.txtMasterPIN.MaxLineLength = -1
Me.txtMasterPIN.MaxLines_Warning = ""
Me.txtMasterPIN.MaxLines_Warning_Label = Nothing
Me.txtMasterPIN.Name = "txtMasterPIN"
Me.txtMasterPIN.Size = New System.Drawing.Size(45, 20)
Me.txtMasterPIN.TabIndex = 21
'
'txtFlottenPIN
'
Me.txtFlottenPIN._numbersOnly = False
Me.txtFlottenPIN._Prozent = False
Me.txtFlottenPIN._ShortDateNew = False
Me.txtFlottenPIN._ShortDateOnly = False
Me.txtFlottenPIN._TimeOnly = False
Me.txtFlottenPIN._value = Nothing
Me.txtFlottenPIN._Waehrung = False
Me.txtFlottenPIN.Location = New System.Drawing.Point(592, 6)
Me.txtFlottenPIN.MaxLength = 4
Me.txtFlottenPIN.MaxLineLength = -1
Me.txtFlottenPIN.MaxLines_Warning = ""
Me.txtFlottenPIN.MaxLines_Warning_Label = Nothing
Me.txtFlottenPIN.Name = "txtFlottenPIN"
Me.txtFlottenPIN.Size = New System.Drawing.Size(45, 20)
Me.txtFlottenPIN.TabIndex = 16
'
'txtBenutzerNr
'
Me.txtBenutzerNr._numbersOnly = False
Me.txtBenutzerNr._Prozent = False
Me.txtBenutzerNr._ShortDateNew = False
Me.txtBenutzerNr._ShortDateOnly = False
Me.txtBenutzerNr._TimeOnly = False
Me.txtBenutzerNr._value = Nothing
Me.txtBenutzerNr._Waehrung = False
Me.txtBenutzerNr.ForeColor = System.Drawing.Color.Black
Me.txtBenutzerNr.Location = New System.Drawing.Point(458, 6)
Me.txtBenutzerNr.MaxLength = 7
Me.txtBenutzerNr.MaxLineLength = -1
Me.txtBenutzerNr.MaxLines_Warning = ""
Me.txtBenutzerNr.MaxLines_Warning_Label = Nothing
Me.txtBenutzerNr.Name = "txtBenutzerNr"
Me.txtBenutzerNr.Size = New System.Drawing.Size(59, 20)
Me.txtBenutzerNr.TabIndex = 19
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 126
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 125
Me.Label7.Text = "Bestelldatum:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 110)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(83, 13)
Me.Label9.TabIndex = 130
Me.Label9.Text = "Karten-Nummer:"
'
'txtKartenNr
'
Me.txtKartenNr._numbersOnly = False
Me.txtKartenNr._Prozent = False
Me.txtKartenNr._ShortDateNew = False
Me.txtKartenNr._ShortDateOnly = False
Me.txtKartenNr._TimeOnly = False
Me.txtKartenNr._value = Nothing
Me.txtKartenNr._Waehrung = False
Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKartenNr.Location = New System.Drawing.Point(106, 105)
Me.txtKartenNr.MaxLength = 22
Me.txtKartenNr.MaxLineLength = -1
Me.txtKartenNr.MaxLines_Warning = ""
Me.txtKartenNr.MaxLines_Warning_Label = Nothing
Me.txtKartenNr.Name = "txtKartenNr"
Me.txtKartenNr.Size = New System.Drawing.Size(183, 23)
Me.txtKartenNr.TabIndex = 2
'
'txtLieferung
'
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'txtVermerk
'
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 3
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 132
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 158)
Me.scanSonstiges.TabIndex = 21
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 133
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'cbxAbgemeldet
'
Me.cbxAbgemeldet._date = Nothing
Me.cbxAbgemeldet._showdate = True
Me.cbxAbgemeldet._value = ""
Me.cbxAbgemeldet.AutoSize = True
Me.cbxAbgemeldet.Location = New System.Drawing.Point(333, 88)
Me.cbxAbgemeldet.Name = "cbxAbgemeldet"
Me.cbxAbgemeldet.Size = New System.Drawing.Size(82, 17)
Me.cbxAbgemeldet.TabIndex = 134
Me.cbxAbgemeldet.Text = "Abgemeldet"
Me.cbxAbgemeldet.UseVisualStyleBackColor = True
'
'usrCntlSDLLeistungMautDE
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxAbgemeldet)
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtKartenNr)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cbxErsatzkarte)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Name = "usrCntlSDLLeistungMautDE"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtPartner As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtBenutzerNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtFlottenPIN As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents txtMasterPIN As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxAbgemeldet As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
End Class

View File

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

View File

@@ -0,0 +1,203 @@
Imports System.Globalization
Imports SDL.cBinding
Public Class usrCntlSDLLeistungMautDE
Public KfzKennzeichen As String
Public kdNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Public SDLNr As String
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
' scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
' PROG.addPicToGueltigBis(txtGueltigkeit)
initDataBinding()
boud = True
If txtPartner.Text = "" Then
' getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
' txtPartner.Text = PartnerKdNrFromFMZOLL.
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
cbxErsatzkarte._date = SDL.ErsatzkarteAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxAbgemeldet._date = SDL.LKWAbgemeldetAM
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
cbxAbgemeldet.Checked = SDL.LKWAbgemeldet
cbxErsatzkarte.Checked = SDL.Ersatzkarte
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtKartenNr.Text = SDL.KartenNr
txtPartner.Text = SDL.Partner
txtBenutzerNr.Text = SDL.BenutzerNr
txtFlottenPIN.Text = SDL.FlottenPIN
txtMasterPIN.Text = SDL.MasterPIN
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.updateBinding()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
Dim sql As New SQL
txtFlottenPIN.Text = sql.getValueTxtBySql("SELECT isnull(MautDE_FlottenPIN,'') FROM [KundenSDL] WHERE [KundenNr]=" & kdNr & " AND SDLNr=" & SDLNr, "SDL")
txtMasterPIN.Text = sql.getValueTxtBySql("SELECT isnull(MautDE_MasterPIN,'') FROM [KundenSDL] WHERE [KundenNr]=" & kdNr & " AND SDLNr=" & SDLNr, "SDL")
txtBenutzerNr.Text = sql.getValueTxtBySql("SELECT isnull(MautDE_BenutzerNr,'') FROM [KundenSDL] WHERE [KundenNr]=" & kdNr & " AND SDLNr=" & SDLNr, "SDL")
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.LKWAbgemeldet = cbxAbgemeldet.Checked
SDL.Ersatzkarte = cbxErsatzkarte.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.KartenNr = txtKartenNr.Text
SDL.Partner = txtPartner.Text
SDL.BenutzerNr = txtBenutzerNr.Text
SDL.FlottenPIN = txtFlottenPIN.Text
SDL.MasterPIN = txtMasterPIN.Text
SDL.ErsatzkarteAm = cbxErsatzkarte._date
SDL.VerlorenAm = cbxVerloren._date
SDL.LKWAbgemeldetAM = cbxAbgemeldet._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtPartner.TextChanged, txtBenutzerNr.TextChanged, txtFlottenPIN.TextChanged, txtMasterPIN.TextChanged, txtVermerk.TextChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged, cbxAbgemeldet.CheckedChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtLieferung Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,634 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSDLLeistungPLOSE
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtPin = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'cbxRetourniert
'
Me.cbxRetourniert._date = Nothing
Me.cbxRetourniert._showdate = True
Me.cbxRetourniert._value = ""
Me.cbxRetourniert.AutoSize = True
Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
Me.cbxRetourniert.Name = "cbxRetourniert"
Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
Me.cbxRetourniert.TabIndex = 7
Me.cbxRetourniert.Text = "Retourniert"
Me.cbxRetourniert.UseVisualStyleBackColor = True
'
'txtPin
'
Me.txtPin._DateTimeOnly = False
Me.txtPin._numbersOnly = False
Me.txtPin._numbersOnlyKommastellen = ""
Me.txtPin._Prozent = False
Me.txtPin._ShortDateNew = False
Me.txtPin._ShortDateOnly = False
Me.txtPin._TimeOnly = False
Me.txtPin._value = Nothing
Me.txtPin._Waehrung = False
Me.txtPin._WaehrungZeichen = True
Me.txtPin.ForeColor = System.Drawing.Color.Black
Me.txtPin.Location = New System.Drawing.Point(106, 118)
Me.txtPin.MaxLength = 9
Me.txtPin.MaxLineLength = -1
Me.txtPin.MaxLines_Warning = ""
Me.txtPin.MaxLines_Warning_Label = Nothing
Me.txtPin.Name = "txtPin"
Me.txtPin.Size = New System.Drawing.Size(74, 20)
Me.txtPin.TabIndex = 3
'
'txtKartenNr
'
Me.txtKartenNr._DateTimeOnly = False
Me.txtKartenNr._numbersOnly = False
Me.txtKartenNr._numbersOnlyKommastellen = ""
Me.txtKartenNr._Prozent = False
Me.txtKartenNr._ShortDateNew = False
Me.txtKartenNr._ShortDateOnly = False
Me.txtKartenNr._TimeOnly = False
Me.txtKartenNr._value = Nothing
Me.txtKartenNr._Waehrung = False
Me.txtKartenNr._WaehrungZeichen = True
Me.txtKartenNr.ForeColor = System.Drawing.Color.Black
Me.txtKartenNr.Location = New System.Drawing.Point(196, 181)
Me.txtKartenNr.MaxLength = 22
Me.txtKartenNr.MaxLineLength = -1
Me.txtKartenNr.MaxLines_Warning = ""
Me.txtKartenNr.MaxLines_Warning_Label = Nothing
Me.txtKartenNr.Name = "txtKartenNr"
Me.txtKartenNr.Size = New System.Drawing.Size(93, 20)
Me.txtKartenNr.TabIndex = 2
Me.txtKartenNr.Visible = False
'
'txtOBUID
'
Me.txtOBUID._DateTimeOnly = False
Me.txtOBUID._numbersOnly = False
Me.txtOBUID._numbersOnlyKommastellen = ""
Me.txtOBUID._Prozent = False
Me.txtOBUID._ShortDateNew = False
Me.txtOBUID._ShortDateOnly = False
Me.txtOBUID._TimeOnly = False
Me.txtOBUID._value = Nothing
Me.txtOBUID._Waehrung = False
Me.txtOBUID._WaehrungZeichen = True
Me.txtOBUID.ForeColor = System.Drawing.Color.Black
Me.txtOBUID.Location = New System.Drawing.Point(106, 96)
Me.txtOBUID.MaxLength = 18
Me.txtOBUID.MaxLineLength = -1
Me.txtOBUID.MaxLines_Warning = ""
Me.txtOBUID.MaxLines_Warning_Label = Nothing
Me.txtOBUID.Name = "txtOBUID"
Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
Me.txtOBUID.TabIndex = 4
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(3, 121)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(29, 13)
Me.Label3.TabIndex = 14
Me.Label3.Text = "Pin:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(121, 184)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(69, 13)
Me.Label1.TabIndex = 9
Me.Label1.Text = "Karten-Nr.:"
Me.Label1.Visible = False
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 99)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(52, 13)
Me.Label9.TabIndex = 12
Me.Label9.Text = "OBU-Id:"
'
'txtPLOSEKdNr
'
Me.txtPLOSEKdNr._DateTimeOnly = False
Me.txtPLOSEKdNr._numbersOnly = True
Me.txtPLOSEKdNr._numbersOnlyKommastellen = ""
Me.txtPLOSEKdNr._Prozent = False
Me.txtPLOSEKdNr._ShortDateNew = False
Me.txtPLOSEKdNr._ShortDateOnly = False
Me.txtPLOSEKdNr._TimeOnly = False
Me.txtPLOSEKdNr._value = ""
Me.txtPLOSEKdNr._Waehrung = False
Me.txtPLOSEKdNr._WaehrungZeichen = True
Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6)
Me.txtPLOSEKdNr.MaxLineLength = -1
Me.txtPLOSEKdNr.MaxLines_Warning = ""
Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing
Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr"
Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20)
Me.txtPLOSEKdNr.TabIndex = 21
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(471, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(93, 13)
Me.Label2.TabIndex = 20
Me.Label2.Text = "Plose-Kunden-Nr.:"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.txtPLOSEKdNr)
Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 94
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(47, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "PLOSE"
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 5
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 165)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(49, 13)
Me.Label4.TabIndex = 119
Me.Label4.Text = "Vermerk:"
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 9
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 8
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 10
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 11
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'txtGueltigkeit2
'
Me.txtGueltigkeit2._DateTimeOnly = False
Me.txtGueltigkeit2._numbersOnly = False
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
Me.txtGueltigkeit2._Prozent = False
Me.txtGueltigkeit2._ShortDateNew = True
Me.txtGueltigkeit2._ShortDateOnly = False
Me.txtGueltigkeit2._TimeOnly = False
Me.txtGueltigkeit2._value = ""
Me.txtGueltigkeit2._Waehrung = False
Me.txtGueltigkeit2._WaehrungZeichen = True
Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
Me.txtGueltigkeit2.MaxLength = 10
Me.txtGueltigkeit2.MaxLineLength = -1
Me.txtGueltigkeit2.MaxLines_Warning = ""
Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
Me.txtGueltigkeit2.TabIndex = 6
Me.txtGueltigkeit2.Visible = False
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 123
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 122
Me.Label7.Text = "Bestelldatum:"
'
'Label11
'
Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(330, 39)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(53, 13)
Me.Label11.TabIndex = 121
Me.Label11.Text = "Gültig bis:"
Me.Label11.Visible = False
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 127
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanBestellung)
Me.TabPage2.Controls.Add(Me.scanPIN)
Me.TabPage2.Controls.Add(Me.scanLieferschein)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Controls.Add(Me.scanRetourniert)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanPIN
'
Me.scanPIN._ARCHIV = True
Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanPIN._DATENSERVER_ORDNER = "MDM"
Me.scanPIN._DATENSERVER_UOrdner1 = Nothing
Me.scanPIN._DATENSERVER_UOrdner2 = Nothing
Me.scanPIN._DATENSERVER_UOrdner3 = Nothing
Me.scanPIN._MULTI_FILES = True
Me.scanPIN._TEXT_PDF = "PIN"
Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanPIN.BackColor = System.Drawing.Color.White
Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default
Me.scanPIN.Location = New System.Drawing.Point(192, 4)
Me.scanPIN.Name = "scanPIN"
Me.scanPIN.Size = New System.Drawing.Size(58, 24)
Me.scanPIN.TabIndex = 24
'
'scanLieferschein
'
Me.scanLieferschein._ARCHIV = True
Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
Me.scanLieferschein._MULTI_FILES = True
Me.scanLieferschein._TEXT_PDF = "Lieferschein"
Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanLieferschein.BackColor = System.Drawing.Color.White
Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
Me.scanLieferschein.Name = "scanLieferschein"
Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
Me.scanLieferschein.TabIndex = 23
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 56)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 108)
Me.scanSonstiges.TabIndex = 21
'
'scanRetourniert
'
Me.scanRetourniert._ARCHIV = True
Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
Me.scanRetourniert._MULTI_FILES = True
Me.scanRetourniert._TEXT_PDF = "Retourniert"
Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanRetourniert.BackColor = System.Drawing.Color.White
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
Me.scanRetourniert.Location = New System.Drawing.Point(98, 4)
Me.scanRetourniert.Name = "scanRetourniert"
Me.scanRetourniert.Size = New System.Drawing.Size(93, 24)
Me.scanRetourniert.TabIndex = 20
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 128
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'scanBestellung
'
Me.scanBestellung._ARCHIV = True
Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
Me.scanBestellung._MULTI_FILES = True
Me.scanBestellung._TEXT_PDF = "Bestellung"
Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanBestellung.BackColor = System.Drawing.Color.White
Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
Me.scanBestellung.Location = New System.Drawing.Point(3, 30)
Me.scanBestellung.Name = "scanBestellung"
Me.scanBestellung.Size = New System.Drawing.Size(94, 24)
Me.scanBestellung.TabIndex = 26
'
'usrCntlSDLLeistungPLOSE
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.txtGueltigkeit2)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.cbxRetourniert)
Me.Controls.Add(Me.txtPin)
Me.Controls.Add(Me.txtKartenNr)
Me.Controls.Add(Me.txtOBUID)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.txtVermerk)
Me.Name = "usrCntlSDLLeistungPLOSE"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtPin As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
End Class

View File

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

View File

@@ -0,0 +1,209 @@

Imports System.Globalization
Public Class usrCntlSDLLeistungPLOSE
Public KfzKennzeichen As String
Public SDLNr As String
Public kdNr As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Public History As String
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlLKW_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
'MsgBox("disp")
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
If txtPLOSEKdNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
End If
boud = True
' If txtMSEKdNr.Text = "" Then
' getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
' End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Function gueltigBisabgelaufen(o) As Boolean
If CDate(o) > Now Then
Return False
End If
Return True
End Function
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
'PROG.initDTPE(txtGueltigkeit2)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
' txtGueltigkeit2._value = SDL.GültigBis
cbxRetourniert._date = SDL.RetourniertAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
cbxRetourniert.Checked = SDL.Retourniert
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
' txtPLOSEKdNr.Text = SDL.MSE_Kd_Nr
txtOBUID.Text = SDL.OBUID
txtKartenNr.Text = SDL.KartenNr
txtPin.Text = SDL.PIN
PROG.initPIN(txtPin)
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.updateBinding()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
' SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.Retourniert = cbxRetourniert.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
'SDL. = txtPLOSEKdNr.Text
SDL.OBUID = txtOBUID.Text
SDL.KartenNr = txtKartenNr.Text
SDL.PIN = txtPin.Text
SDL.RetourniertAm = cbxRetourniert._date
SDL.VerlorenAm = cbxVerloren._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtPin.TextChanged, txtVermerk.TextChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged ' txtGueltigkeit2.PropertyChanged,
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtLieferung Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,510 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungVERAGCard
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestelldatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxAbgemeldet = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Label12 = New System.Windows.Forms.Label()
Me.txtKaution = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 165)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(49, 13)
Me.Label4.TabIndex = 17
Me.Label4.Text = "Vermerk:"
'
'cbxErsatzkarte
'
Me.cbxErsatzkarte._date = Nothing
Me.cbxErsatzkarte._showdate = True
Me.cbxErsatzkarte._value = ""
Me.cbxErsatzkarte.AutoSize = True
Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
Me.cbxErsatzkarte.TabIndex = 5
Me.cbxErsatzkarte.Text = "Ersatzkarte"
Me.cbxErsatzkarte.UseVisualStyleBackColor = True
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 13
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 9
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 16
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 19
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 0
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(79, 13)
Me.Label8.TabIndex = 0
Me.Label8.Text = "VERAG-Card"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 1
Me.Label7.Text = "Bestelldatum:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 99)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(83, 13)
Me.Label9.TabIndex = 7
Me.Label9.Text = "Karten-Nummer:"
'
'txtKartenNr
'
Me.txtKartenNr._DateTimeOnly = False
Me.txtKartenNr._numbersOnly = False
Me.txtKartenNr._numbersOnlyKommastellen = ""
Me.txtKartenNr._Prozent = False
Me.txtKartenNr._ShortDateNew = False
Me.txtKartenNr._ShortDateOnly = False
Me.txtKartenNr._TimeOnly = False
Me.txtKartenNr._value = Nothing
Me.txtKartenNr._Waehrung = False
Me.txtKartenNr.Enabled = False
Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKartenNr.Location = New System.Drawing.Point(106, 94)
Me.txtKartenNr.MaxLength = 4
Me.txtKartenNr.MaxLineLength = -1
Me.txtKartenNr.MaxLines_Warning = ""
Me.txtKartenNr.MaxLines_Warning_Label = Nothing
Me.txtKartenNr.Name = "txtKartenNr"
Me.txtKartenNr.Size = New System.Drawing.Size(158, 23)
Me.txtKartenNr.TabIndex = 8
'
'txtBestelldatum
'
Me.txtBestelldatum._DateTimeOnly = False
Me.txtBestelldatum._numbersOnly = False
Me.txtBestelldatum._numbersOnlyKommastellen = ""
Me.txtBestelldatum._Prozent = False
Me.txtBestelldatum._ShortDateNew = True
Me.txtBestelldatum._ShortDateOnly = False
Me.txtBestelldatum._TimeOnly = False
Me.txtBestelldatum._value = ""
Me.txtBestelldatum._Waehrung = False
Me.txtBestelldatum.ForeColor = System.Drawing.Color.Red
Me.txtBestelldatum.Location = New System.Drawing.Point(106, 36)
Me.txtBestelldatum.MaxLength = 10
Me.txtBestelldatum.MaxLineLength = -1
Me.txtBestelldatum.MaxLines_Warning = ""
Me.txtBestelldatum.MaxLines_Warning_Label = Nothing
Me.txtBestelldatum.Name = "txtBestelldatum"
Me.txtBestelldatum.Size = New System.Drawing.Size(74, 20)
Me.txtBestelldatum.TabIndex = 2
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 18
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 21
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 0
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 158)
Me.scanSonstiges.TabIndex = 0
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 20
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'cbxAbgemeldet
'
Me.cbxAbgemeldet._date = Nothing
Me.cbxAbgemeldet._showdate = True
Me.cbxAbgemeldet._value = ""
Me.cbxAbgemeldet.AutoSize = True
Me.cbxAbgemeldet.Location = New System.Drawing.Point(333, 88)
Me.cbxAbgemeldet.Name = "cbxAbgemeldet"
Me.cbxAbgemeldet.Size = New System.Drawing.Size(82, 17)
Me.cbxAbgemeldet.TabIndex = 6
Me.cbxAbgemeldet.Text = "Abgemeldet"
Me.cbxAbgemeldet.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(3, 138)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(89, 13)
Me.Label12.TabIndex = 12
Me.Label12.Text = "Kaution/BelegNr:"
'
'txtKaution
'
Me.txtKaution._DateTimeOnly = False
Me.txtKaution._numbersOnly = False
Me.txtKaution._numbersOnlyKommastellen = ""
Me.txtKaution._Prozent = False
Me.txtKaution._ShortDateNew = False
Me.txtKaution._ShortDateOnly = False
Me.txtKaution._TimeOnly = False
Me.txtKaution._value = ""
Me.txtKaution._Waehrung = True
Me.txtKaution.Location = New System.Drawing.Point(106, 135)
Me.txtKaution.MaxLineLength = -1
Me.txtKaution.MaxLines_Warning = ""
Me.txtKaution.MaxLines_Warning_Label = Nothing
Me.txtKaution.Name = "txtKaution"
Me.txtKaution.Size = New System.Drawing.Size(113, 20)
Me.txtKaution.TabIndex = 14
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(3, 119)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(40, 13)
Me.Label11.TabIndex = 10
Me.Label11.Text = "Fahrer:"
'
'txtFahrer
'
Me.txtFahrer._DateTimeOnly = False
Me.txtFahrer._numbersOnly = False
Me.txtFahrer._numbersOnlyKommastellen = ""
Me.txtFahrer._Prozent = False
Me.txtFahrer._ShortDateNew = False
Me.txtFahrer._ShortDateOnly = False
Me.txtFahrer._TimeOnly = False
Me.txtFahrer._value = Nothing
Me.txtFahrer._Waehrung = False
Me.txtFahrer.Location = New System.Drawing.Point(106, 116)
Me.txtFahrer.MaxLength = 40
Me.txtFahrer.MaxLineLength = -1
Me.txtFahrer.MaxLines_Warning = ""
Me.txtFahrer.MaxLines_Warning_Label = Nothing
Me.txtFahrer.Name = "txtFahrer"
Me.txtFahrer.Size = New System.Drawing.Size(183, 20)
Me.txtFahrer.TabIndex = 11
'
'txtBelegNr
'
Me.txtBelegNr._DateTimeOnly = False
Me.txtBelegNr._numbersOnly = False
Me.txtBelegNr._numbersOnlyKommastellen = ""
Me.txtBelegNr._Prozent = False
Me.txtBelegNr._ShortDateNew = False
Me.txtBelegNr._ShortDateOnly = False
Me.txtBelegNr._TimeOnly = False
Me.txtBelegNr._value = ""
Me.txtBelegNr._Waehrung = False
Me.txtBelegNr.Location = New System.Drawing.Point(218, 135)
Me.txtBelegNr.MaxLineLength = -1
Me.txtBelegNr.MaxLines_Warning = ""
Me.txtBelegNr.MaxLines_Warning_Label = Nothing
Me.txtBelegNr.Name = "txtBelegNr"
Me.txtBelegNr.Size = New System.Drawing.Size(71, 20)
Me.txtBelegNr.TabIndex = 15
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 61)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 4
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 64)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 3
Me.Label6.Text = "Lieferdatum:"
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.del
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox1.Location = New System.Drawing.Point(270, 94)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(20, 22)
Me.PictureBox1.TabIndex = 156
Me.PictureBox1.TabStop = False
'
'usrCntlSDLLeistungVERAGCard
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtBelegNr)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.txtKaution)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txtFahrer)
Me.Controls.Add(Me.cbxAbgemeldet)
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtKartenNr)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.txtBestelldatum)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cbxErsatzkarte)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Name = "usrCntlSDLLeistungVERAGCard"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtBestelldatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxAbgemeldet As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txtKaution As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents txtFahrer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBelegNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
End Class

View File

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

View File

@@ -0,0 +1,271 @@
Imports System.Globalization
Imports SDL.cBinding
Public Class usrCntlSDLLeistungVERAGCard
Public KfzKennzeichen As String
Public kdNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Public SDLNr As String
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungen_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
' scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
' PROG.addPicToGueltigBis(txtGueltigkeit)
initDataBinding()
boud = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtBestelldatum)
PROG.initDTPE(txtLieferung)
txtBestelldatum._value = SDL.Bestelldatum
txtLieferung._value = SDL.Lieferdatum
cbxErsatzkarte._date = SDL.ErsatzkarteAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxAbgemeldet._date = SDL.LKWAbgemeldetAM
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
cbxAbgemeldet.Checked = SDL.LKWAbgemeldet
cbxErsatzkarte.Checked = SDL.Ersatzkarte
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtKartenNr.Text = SDL.KartenNr
txtFahrer.Text = SDL.Fahrer
txtKaution._value = SDL.Kaution
txtBelegNr.Text = SDL.BelegNr
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.updateBinding()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestelldatum.Text = "" Then txtBestelldatum.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Bestelldatum = PROG.isEmptyNull(txtBestelldatum._value)
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.LKWAbgemeldet = cbxAbgemeldet.Checked
SDL.Ersatzkarte = cbxErsatzkarte.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.KartenNr = txtKartenNr.Text
SDL.Fahrer = txtFahrer.Text
SDL.Kaution = txtKaution._value
SDL.BelegNr = txtBelegNr.Text
SDL.ErsatzkarteAm = cbxErsatzkarte._date
SDL.VerlorenAm = cbxVerloren._date
SDL.LKWAbgemeldetAM = cbxAbgemeldet._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestelldatum.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtVermerk.TextChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged, cbxAbgemeldet.CheckedChanged,
txtKaution.TextChanged, txtFahrer.TextChanged, txtBelegNr.TextChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtBestelldatum Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
'Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
' If txtKartenNr.Text = "" Then
' Dim f As New frmFindNewVeragCard
' If f.ShowDialog(Me) = DialogResult.OK Then
' Dim tmpKFZ = Me.KfzKennzeichen
' Dim tmpKdNr = Me.KfzKennzeichen
' Me.kdNr = f.kdNr
' Me.KfzKennzeichen = f.KfzKennzeichen
' Me.SDLNr = f.SDLNr
' Me.History = f.History
' initDataBinding()
' Me.KfzKennzeichen = tmpKFZ
' Me.kdNr = tmpKdNr
' save()
' End If
' '
' End If
'
' End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
If clearVeragCard(kdNr, KfzKennzeichen, History) Then
RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
Me.Visible = False
End If
End Sub
Shared Function clearVeragCard(kdNr, KfzKennzeichen, History) As Boolean
Dim kundenSQL As New kundenSQL
'VERAG Card zurücksetzen --> Kdnr=-1
If vbYes = MsgBox("Möchten Sie die Zuordnung der VERAG-Card wirklich aufheben?", vbYesNoCancel) Then
Dim hist = kundenSQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '-1' AND KfzKennzeichen='" & KfzKennzeichen & "' And SDLNr ='501' ", "SDL")
' MsgBox("UPDATE [SDL] set KundenNr='-1', History='" & History & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & History & "' and SDLNr=501 ")
If kundenSQL.doSQL("UPDATE [SDL] set KundenNr='-1', History='" & hist & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & History & "' and SDLNr=501 ", "SDL") Then
Return True
End If
End If
Return False
End Function
Shared Function clearAllVeragCard(kdNr, KfzKennzeichen) As Boolean
Try
Dim kundenSQL As New kundenSQL
'VERAG Card zurücksetzen --> Kdnr=-1
Dim dt = kundenSQL.loadDgvBySql("Select History FROM SDL WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "'and SDLNr=501")
If dt IsNot Nothing Then
For Each r In dt.Rows
Dim hist = kundenSQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '-1' AND KfzKennzeichen='" & KfzKennzeichen & "' And SDLNr ='501' ", "SDL")
kundenSQL.doSQL("UPDATE [SDL] set KundenNr='-1', History='" & hist & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & r("History") & "' and SDLNr=501 ", "SDL")
Next
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
End Class

View File

@@ -0,0 +1,510 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSDLLeistungVERAGCardNEU
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestelldatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxAbgemeldet = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Label12 = New System.Windows.Forms.Label()
Me.txtKaution = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 165)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(49, 13)
Me.Label4.TabIndex = 17
Me.Label4.Text = "Vermerk:"
'
'cbxErsatzkarte
'
Me.cbxErsatzkarte._date = Nothing
Me.cbxErsatzkarte._showdate = True
Me.cbxErsatzkarte._value = ""
Me.cbxErsatzkarte.AutoSize = True
Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
Me.cbxErsatzkarte.TabIndex = 5
Me.cbxErsatzkarte.Text = "Ersatzkarte"
Me.cbxErsatzkarte.UseVisualStyleBackColor = True
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 13
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 9
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 16
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 19
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 0
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(79, 13)
Me.Label8.TabIndex = 0
Me.Label8.Text = "VERAG-Card"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 1
Me.Label7.Text = "Bestelldatum:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 99)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(83, 13)
Me.Label9.TabIndex = 7
Me.Label9.Text = "Karten-Nummer:"
'
'txtKartenNr
'
Me.txtKartenNr._DateTimeOnly = False
Me.txtKartenNr._numbersOnly = False
Me.txtKartenNr._numbersOnlyKommastellen = ""
Me.txtKartenNr._Prozent = False
Me.txtKartenNr._ShortDateNew = False
Me.txtKartenNr._ShortDateOnly = False
Me.txtKartenNr._TimeOnly = False
Me.txtKartenNr._value = Nothing
Me.txtKartenNr._Waehrung = False
Me.txtKartenNr.Enabled = False
Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKartenNr.Location = New System.Drawing.Point(106, 94)
Me.txtKartenNr.MaxLength = 4
Me.txtKartenNr.MaxLineLength = -1
Me.txtKartenNr.MaxLines_Warning = ""
Me.txtKartenNr.MaxLines_Warning_Label = Nothing
Me.txtKartenNr.Name = "txtKartenNr"
Me.txtKartenNr.Size = New System.Drawing.Size(158, 23)
Me.txtKartenNr.TabIndex = 8
'
'txtBestelldatum
'
Me.txtBestelldatum._DateTimeOnly = False
Me.txtBestelldatum._numbersOnly = False
Me.txtBestelldatum._numbersOnlyKommastellen = ""
Me.txtBestelldatum._Prozent = False
Me.txtBestelldatum._ShortDateNew = True
Me.txtBestelldatum._ShortDateOnly = False
Me.txtBestelldatum._TimeOnly = False
Me.txtBestelldatum._value = ""
Me.txtBestelldatum._Waehrung = False
Me.txtBestelldatum.ForeColor = System.Drawing.Color.Red
Me.txtBestelldatum.Location = New System.Drawing.Point(106, 36)
Me.txtBestelldatum.MaxLength = 10
Me.txtBestelldatum.MaxLineLength = -1
Me.txtBestelldatum.MaxLines_Warning = ""
Me.txtBestelldatum.MaxLines_Warning_Label = Nothing
Me.txtBestelldatum.Name = "txtBestelldatum"
Me.txtBestelldatum.Size = New System.Drawing.Size(74, 20)
Me.txtBestelldatum.TabIndex = 2
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 18
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 21
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 0
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 158)
Me.scanSonstiges.TabIndex = 0
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 20
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'cbxAbgemeldet
'
Me.cbxAbgemeldet._date = Nothing
Me.cbxAbgemeldet._showdate = True
Me.cbxAbgemeldet._value = ""
Me.cbxAbgemeldet.AutoSize = True
Me.cbxAbgemeldet.Location = New System.Drawing.Point(333, 88)
Me.cbxAbgemeldet.Name = "cbxAbgemeldet"
Me.cbxAbgemeldet.Size = New System.Drawing.Size(82, 17)
Me.cbxAbgemeldet.TabIndex = 6
Me.cbxAbgemeldet.Text = "Abgemeldet"
Me.cbxAbgemeldet.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(3, 138)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(89, 13)
Me.Label12.TabIndex = 12
Me.Label12.Text = "Kaution/BelegNr:"
'
'txtKaution
'
Me.txtKaution._DateTimeOnly = False
Me.txtKaution._numbersOnly = False
Me.txtKaution._numbersOnlyKommastellen = ""
Me.txtKaution._Prozent = False
Me.txtKaution._ShortDateNew = False
Me.txtKaution._ShortDateOnly = False
Me.txtKaution._TimeOnly = False
Me.txtKaution._value = ""
Me.txtKaution._Waehrung = True
Me.txtKaution.Location = New System.Drawing.Point(106, 135)
Me.txtKaution.MaxLineLength = -1
Me.txtKaution.MaxLines_Warning = ""
Me.txtKaution.MaxLines_Warning_Label = Nothing
Me.txtKaution.Name = "txtKaution"
Me.txtKaution.Size = New System.Drawing.Size(113, 20)
Me.txtKaution.TabIndex = 14
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(3, 119)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(40, 13)
Me.Label11.TabIndex = 10
Me.Label11.Text = "Fahrer:"
'
'txtFahrer
'
Me.txtFahrer._DateTimeOnly = False
Me.txtFahrer._numbersOnly = False
Me.txtFahrer._numbersOnlyKommastellen = ""
Me.txtFahrer._Prozent = False
Me.txtFahrer._ShortDateNew = False
Me.txtFahrer._ShortDateOnly = False
Me.txtFahrer._TimeOnly = False
Me.txtFahrer._value = Nothing
Me.txtFahrer._Waehrung = False
Me.txtFahrer.Location = New System.Drawing.Point(106, 116)
Me.txtFahrer.MaxLength = 40
Me.txtFahrer.MaxLineLength = -1
Me.txtFahrer.MaxLines_Warning = ""
Me.txtFahrer.MaxLines_Warning_Label = Nothing
Me.txtFahrer.Name = "txtFahrer"
Me.txtFahrer.Size = New System.Drawing.Size(183, 20)
Me.txtFahrer.TabIndex = 11
'
'txtBelegNr
'
Me.txtBelegNr._DateTimeOnly = False
Me.txtBelegNr._numbersOnly = False
Me.txtBelegNr._numbersOnlyKommastellen = ""
Me.txtBelegNr._Prozent = False
Me.txtBelegNr._ShortDateNew = False
Me.txtBelegNr._ShortDateOnly = False
Me.txtBelegNr._TimeOnly = False
Me.txtBelegNr._value = ""
Me.txtBelegNr._Waehrung = False
Me.txtBelegNr.Location = New System.Drawing.Point(218, 135)
Me.txtBelegNr.MaxLineLength = -1
Me.txtBelegNr.MaxLines_Warning = ""
Me.txtBelegNr.MaxLines_Warning_Label = Nothing
Me.txtBelegNr.Name = "txtBelegNr"
Me.txtBelegNr.Size = New System.Drawing.Size(71, 20)
Me.txtBelegNr.TabIndex = 15
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 61)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 4
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 64)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 3
Me.Label6.Text = "Lieferdatum:"
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.del
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox1.Location = New System.Drawing.Point(270, 94)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(20, 22)
Me.PictureBox1.TabIndex = 156
Me.PictureBox1.TabStop = False
'
'usrCntlSDLLeistungVERAGCard
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtBelegNr)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.txtKaution)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txtFahrer)
Me.Controls.Add(Me.cbxAbgemeldet)
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtKartenNr)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.txtBestelldatum)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cbxErsatzkarte)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Name = "usrCntlSDLLeistungVERAGCard"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtBestelldatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxAbgemeldet As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txtKaution As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents txtFahrer As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBelegNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
End Class

View File

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

View File

@@ -0,0 +1,270 @@
Imports System.Globalization
Imports SDL.cBinding
Public Class usrCntlSDLLeistungVERAGCardNEU
Public KfzKennzeichen As String
Public kdNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Public SDLNr As String
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungen_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
' scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
' PROG.addPicToGueltigBis(txtGueltigkeit)
initDataBinding()
boud = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtBestelldatum)
PROG.initDTPE(txtLieferung)
txtBestelldatum._value = SDL.Bestelldatum
txtLieferung._value = SDL.Lieferdatum
cbxErsatzkarte._date = SDL.ErsatzkarteAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxAbgemeldet._date = SDL.LKWAbgemeldetAM
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
cbxAbgemeldet.Checked = SDL.LKWAbgemeldet
cbxErsatzkarte.Checked = SDL.Ersatzkarte
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtKartenNr.Text = SDL.KartenNr
txtFahrer.Text = SDL.Fahrer
txtKaution._value = SDL.Kaution
txtBelegNr.Text = SDL.BelegNr
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.updateBinding()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestelldatum.Text = "" Then txtBestelldatum.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Bestelldatum = PROG.isEmptyNull(txtBestelldatum._value)
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.LKWAbgemeldet = cbxAbgemeldet.Checked
SDL.Ersatzkarte = cbxErsatzkarte.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.KartenNr = txtKartenNr.Text
SDL.Fahrer = txtFahrer.Text
SDL.Kaution = txtKaution._value
SDL.BelegNr = txtBelegNr.Text
SDL.ErsatzkarteAm = cbxErsatzkarte._date
SDL.VerlorenAm = cbxVerloren._date
SDL.LKWAbgemeldetAM = cbxAbgemeldet._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestelldatum.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtVermerk.TextChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged, cbxAbgemeldet.CheckedChanged,
txtKaution.TextChanged, txtFahrer.TextChanged, txtBelegNr.TextChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtBestelldatum Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
'Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
' If txtKartenNr.Text = "" Then
' Dim f As New frmFindNewVeragCard
' If f.ShowDialog(Me) = DialogResult.OK Then
' Dim tmpKFZ = Me.KfzKennzeichen
' Dim tmpKdNr = Me.KfzKennzeichen
' Me.kdNr = f.kdNr
' Me.KfzKennzeichen = f.KfzKennzeichen
' Me.SDLNr = f.SDLNr
' Me.History = f.History
' initDataBinding()
' Me.KfzKennzeichen = tmpKFZ
' Me.kdNr = tmpKdNr
' save()
' End If
' '
' End If
'
' End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
If clearVeragCard(kdNr, KfzKennzeichen, History) Then
RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
Me.Visible = False
End If
End Sub
Shared Function clearVeragCard(kdNr, KfzKennzeichen, History) As Boolean
Dim kundenSQL As New kundenSQL
'VERAG Card zurücksetzen --> Kdnr=-1
If vbYes = MsgBox("Möchten Sie die Zuordnung der VERAG-Card wirklich aufheben?", vbYesNoCancel) Then
Dim hist = kundenSQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '-1' AND KfzKennzeichen='" & KfzKennzeichen & "' And SDLNr ='502' ", "SDL")
' MsgBox("UPDATE [SDL] set KundenNr='-1', History='" & History & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & History & "' and SDLNr=502 ")
If kundenSQL.doSQL("UPDATE [SDL] set KundenNr='-1', History='" & hist & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & History & "' and SDLNr=502 ", "SDL") Then
Return True
End If
End If
Return False
End Function
Shared Function clearAllVeragCard(kdNr, KfzKennzeichen) As Boolean
Try
Dim kundenSQL As New kundenSQL
'VERAG Card zurücksetzen --> Kdnr=-1
Dim dt = kundenSQL.loadDgvBySql("Select History FROM SDL WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "'and SDLNr=502")
If dt IsNot Nothing Then
For Each r In dt.Rows
Dim hist = kundenSQL.getValueTxtBySql("SELECT isnull(max([History]),0)+1 as History FROM SDL where KundenNr = '-1' AND KfzKennzeichen='" & KfzKennzeichen & "' And SDLNr ='502' ", "SDL")
kundenSQL.doSQL("UPDATE [SDL] set KundenNr='-1', History='" & hist & "' WHERE KundenNr='" & kdNr & "' and KfzKennzeichen='" & KfzKennzeichen & "' and History='" & r("History") & "' and SDLNr=502 ", "SDL")
Next
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
End Class

View File

@@ -0,0 +1,509 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungenCZ
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Label9 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(481, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(87, 13)
Me.Label1.TabIndex = 14
Me.Label1.Text = "MSE-Kunden-Nr:"
'
'cbxRetourniert
'
Me.cbxRetourniert._date = Nothing
Me.cbxRetourniert._showdate = True
Me.cbxRetourniert._value = ""
Me.cbxRetourniert.AutoSize = True
Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
Me.cbxRetourniert.Name = "cbxRetourniert"
Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
Me.cbxRetourniert.TabIndex = 5
Me.cbxRetourniert.Text = "Retourniert"
Me.cbxRetourniert.UseVisualStyleBackColor = True
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 104)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(65, 13)
Me.Label9.TabIndex = 9
Me.Label9.Text = "Karten-Nr:"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(3, 165)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(49, 13)
Me.Label12.TabIndex = 18
Me.Label12.Text = "Vermerk:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(3, 129)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(54, 13)
Me.Label10.TabIndex = 12
Me.Label10.Text = "OBU-ID:"
Me.Label10.Visible = False
'
'txtMSEKdNr
'
Me.txtMSEKdNr._DateTimeOnly = False
Me.txtMSEKdNr._numbersOnly = True
Me.txtMSEKdNr._numbersOnlyKommastellen = ""
Me.txtMSEKdNr._Prozent = False
Me.txtMSEKdNr._ShortDateNew = False
Me.txtMSEKdNr._ShortDateOnly = False
Me.txtMSEKdNr._TimeOnly = False
Me.txtMSEKdNr._value = ""
Me.txtMSEKdNr._Waehrung = False
Me.txtMSEKdNr._WaehrungZeichen = True
Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
Me.txtMSEKdNr.MaxLineLength = -1
Me.txtMSEKdNr.MaxLines_Warning = ""
Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
Me.txtMSEKdNr.Name = "txtMSEKdNr"
Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
Me.txtMSEKdNr.TabIndex = 15
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 4
'
'txtOBUID
'
Me.txtOBUID._DateTimeOnly = False
Me.txtOBUID._numbersOnly = False
Me.txtOBUID._numbersOnlyKommastellen = ""
Me.txtOBUID._Prozent = False
Me.txtOBUID._ShortDateNew = False
Me.txtOBUID._ShortDateOnly = False
Me.txtOBUID._TimeOnly = False
Me.txtOBUID._value = Nothing
Me.txtOBUID._Waehrung = False
Me.txtOBUID._WaehrungZeichen = True
Me.txtOBUID.Location = New System.Drawing.Point(106, 126)
Me.txtOBUID.MaxLength = 18
Me.txtOBUID.MaxLineLength = -1
Me.txtOBUID.MaxLines_Warning = ""
Me.txtOBUID.MaxLines_Warning_Label = Nothing
Me.txtOBUID.Name = "txtOBUID"
Me.txtOBUID.Size = New System.Drawing.Size(183, 20)
Me.txtOBUID.TabIndex = 3
Me.txtOBUID.Visible = False
'
'txtKartenNr
'
Me.txtKartenNr._DateTimeOnly = False
Me.txtKartenNr._numbersOnly = False
Me.txtKartenNr._numbersOnlyKommastellen = ""
Me.txtKartenNr._Prozent = False
Me.txtKartenNr._ShortDateNew = False
Me.txtKartenNr._ShortDateOnly = False
Me.txtKartenNr._TimeOnly = False
Me.txtKartenNr._value = Nothing
Me.txtKartenNr._Waehrung = False
Me.txtKartenNr._WaehrungZeichen = True
Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKartenNr.Location = New System.Drawing.Point(106, 99)
Me.txtKartenNr.MaxLength = 22
Me.txtKartenNr.MaxLineLength = -1
Me.txtKartenNr.MaxLines_Warning = ""
Me.txtKartenNr.MaxLines_Warning_Label = Nothing
Me.txtKartenNr.Name = "txtKartenNr"
Me.txtKartenNr.Size = New System.Drawing.Size(183, 23)
Me.txtKartenNr.TabIndex = 2
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.txtMSEKdNr)
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.Label1)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 20
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(62, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "MAUT CZ"
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 135)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 7
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 112)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 6
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 156)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 8
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 178)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 9
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(105, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(105, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(2, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 85
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(2, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 84
Me.Label7.Text = "Bestelldatum:"
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 89
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanBestellung)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Controls.Add(Me.scanRetourniert)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanBestellung
'
Me.scanBestellung._ARCHIV = True
Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
Me.scanBestellung._MULTI_FILES = True
Me.scanBestellung._TEXT_PDF = "Bestellung"
Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanBestellung.BackColor = System.Drawing.Color.White
Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
Me.scanBestellung.Location = New System.Drawing.Point(3, 4)
Me.scanBestellung.Name = "scanBestellung"
Me.scanBestellung.Size = New System.Drawing.Size(91, 24)
Me.scanBestellung.TabIndex = 22
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
Me.scanSonstiges.TabIndex = 21
'
'scanRetourniert
'
Me.scanRetourniert._ARCHIV = True
Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
Me.scanRetourniert._MULTI_FILES = True
Me.scanRetourniert._TEXT_PDF = "Retourniert"
Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanRetourniert.BackColor = System.Drawing.Color.White
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
Me.scanRetourniert.Location = New System.Drawing.Point(100, 4)
Me.scanRetourniert.Name = "scanRetourniert"
Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
Me.scanRetourniert.TabIndex = 20
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 201)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 90
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'usrCntlSDLLeistungenCZ
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.txtOBUID)
Me.Controls.Add(Me.txtKartenNr)
Me.Controls.Add(Me.cbxRetourniert)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label10)
Me.Name = "usrCntlSDLLeistungenCZ"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
End Class

View File

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

View File

@@ -0,0 +1,213 @@
Imports System.Globalization
Public Class usrCntlSDLLeistungenCZ
Public KfzKennzeichen As String
Public SDLNr As String
Public kdNr As String
Public History As String
Dim kundenSQL As New kundenSQL
Dim PROG As New cProgramFunctions
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
' Public WithEvents s As New cBinding 'fürs Binding
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
' initDataBinding()
' boud = True
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
If txtMSEKdNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
End If
'Scan-Elemente initialisieren:
scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Function gueltigBisabgelaufen(o) As Boolean
If CDate(o) > Now Then
Return False
End If
Return True
End Function
Sub initDataBinding(Optional newKfz = "")
Try
If addnew Then newEntry() 'NEUER EINTRAG!
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
cbxRetourniert._date = SDL.RetourniertAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
' cbxGesperrt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gesperrt", True, DataSourceUpdateMode.OnPropertyChanged, False))
' cbxDefekt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Defekt", True, DataSourceUpdateMode.OnPropertyChanged, False))
' cbxGestohlen.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gestohlen", True, DataSourceUpdateMode.OnPropertyChanged, False))
' cbxVerloren.DataBindings.Add(New Binding("Checked", s.bindingSource, "Verloren", True, DataSourceUpdateMode.OnPropertyChanged, False))
cbxRetourniert.Checked = SDL.Retourniert
'cbxErsatzkarte.DataBindings.Add(New Binding("Checked", s.bindingSource, "Ersatzkarte", True, DataSourceUpdateMode.OnPropertyChanged, False))
txtVermerk.Text = SDL.Vermerk
'txtVermerk.DataBindings.Add(New Binding("Text", s.bindingSource, "Vermerk", True, DataSourceUpdateMode.OnPropertyChanged, ""))
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
' UsrCntlDetails.lblErfassung.DataBindings.Add(New Binding("Text", s.bindingSource, "Erfassungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
' UsrCntlDetails.lblAenderung.DataBindings.Add(New Binding("Text", s.bindingSource, "Änderungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
txtMSEKdNr.Text = SDL.MSE_Kd_Nr
txtKartenNr.Text = SDL.KartenNr
txtOBUID.Text = SDL.OBUID
' Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'"
' s.initBinding("SELECT * FROM SDL WHERE KundenNr='" & kdNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "' AND SDLNr='" & SDLNr & "' " & tmpHist, "SDL")
' cbxRetourniert.DataBindings.Add(New Binding("Checked", s.bindingSource, "Retourniert", True, DataSourceUpdateMode.OnPropertyChanged, False))
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
's.updateBinding()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.Retourniert = cbxRetourniert.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.MSE_Kd_Nr = txtMSEKdNr.Text
SDL.KartenNr = txtKartenNr.Text
SDL.OBUID = txtOBUID.Text
SDL.RetourniertAm = cbxRetourniert._date
SDL.VerlorenAm = cbxVerloren._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtMSEKdNr.TextChanged, txtOBUID.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtLieferung Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,523 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungenDUOBOX
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtPANNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSERIE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Label12 = New System.Windows.Forms.Label()
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'txtMSEKdNr
'
Me.txtMSEKdNr._DateTimeOnly = False
Me.txtMSEKdNr._numbersOnly = True
Me.txtMSEKdNr._numbersOnlyKommastellen = ""
Me.txtMSEKdNr._Prozent = False
Me.txtMSEKdNr._ShortDateNew = False
Me.txtMSEKdNr._ShortDateOnly = False
Me.txtMSEKdNr._TimeOnly = False
Me.txtMSEKdNr._value = ""
Me.txtMSEKdNr._Waehrung = False
Me.txtMSEKdNr._WaehrungZeichen = True
Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
Me.txtMSEKdNr.MaxLineLength = -1
Me.txtMSEKdNr.MaxLines_Warning = ""
Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
Me.txtMSEKdNr.Name = "txtMSEKdNr"
Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
Me.txtMSEKdNr.TabIndex = 2
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(471, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(90, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "MSE-Kunden-Nr.:"
'
'txtPANNr
'
Me.txtPANNr._DateTimeOnly = False
Me.txtPANNr._numbersOnly = False
Me.txtPANNr._numbersOnlyKommastellen = ""
Me.txtPANNr._Prozent = False
Me.txtPANNr._ShortDateNew = False
Me.txtPANNr._ShortDateOnly = False
Me.txtPANNr._TimeOnly = False
Me.txtPANNr._value = Nothing
Me.txtPANNr._Waehrung = False
Me.txtPANNr._WaehrungZeichen = True
Me.txtPANNr.Location = New System.Drawing.Point(106, 127)
Me.txtPANNr.MaxLength = 19
Me.txtPANNr.MaxLineLength = -1
Me.txtPANNr.MaxLines_Warning = ""
Me.txtPANNr.MaxLines_Warning_Label = Nothing
Me.txtPANNr.Name = "txtPANNr"
Me.txtPANNr.Size = New System.Drawing.Size(183, 20)
Me.txtPANNr.TabIndex = 3
'
'txtSERIE
'
Me.txtSERIE._DateTimeOnly = False
Me.txtSERIE._numbersOnly = False
Me.txtSERIE._numbersOnlyKommastellen = ""
Me.txtSERIE._Prozent = False
Me.txtSERIE._ShortDateNew = False
Me.txtSERIE._ShortDateOnly = False
Me.txtSERIE._TimeOnly = False
Me.txtSERIE._value = Nothing
Me.txtSERIE._Waehrung = False
Me.txtSERIE._WaehrungZeichen = True
Me.txtSERIE.Location = New System.Drawing.Point(106, 102)
Me.txtSERIE.MaxLength = 16
Me.txtSERIE.MaxLineLength = -1
Me.txtSERIE.MaxLines_Warning = ""
Me.txtSERIE.MaxLines_Warning_Label = Nothing
Me.txtSERIE.Name = "txtSERIE"
Me.txtSERIE.Size = New System.Drawing.Size(183, 20)
Me.txtSERIE.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 130)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(57, 13)
Me.Label1.TabIndex = 16
Me.Label1.Text = "PAN-Nr.:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 105)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(69, 13)
Me.Label9.TabIndex = 15
Me.Label9.Text = "SERIE-Nr.:"
'
'cbxErsatzkarte
'
Me.cbxErsatzkarte._date = Nothing
Me.cbxErsatzkarte._showdate = True
Me.cbxErsatzkarte._value = ""
Me.cbxErsatzkarte.AutoSize = True
Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
Me.cbxErsatzkarte.TabIndex = 6
Me.cbxErsatzkarte.Text = "Ersatzkarte"
Me.cbxErsatzkarte.UseVisualStyleBackColor = True
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.txtMSEKdNr)
Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 11
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(111, 13)
Me.Label8.TabIndex = 0
Me.Label8.Text = "MAUT AT - GoBox"
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(107, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 4
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 8
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 7
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 9
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 10
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(4, 165)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(49, 13)
Me.Label12.TabIndex = 17
Me.Label12.Text = "Vermerk:"
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'txtGueltigkeit2
'
Me.txtGueltigkeit2._DateTimeOnly = False
Me.txtGueltigkeit2._numbersOnly = False
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
Me.txtGueltigkeit2._Prozent = False
Me.txtGueltigkeit2._ShortDateNew = True
Me.txtGueltigkeit2._ShortDateOnly = False
Me.txtGueltigkeit2._TimeOnly = False
Me.txtGueltigkeit2._value = ""
Me.txtGueltigkeit2._Waehrung = False
Me.txtGueltigkeit2._WaehrungZeichen = True
Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
Me.txtGueltigkeit2.MaxLength = 10
Me.txtGueltigkeit2.MaxLineLength = -1
Me.txtGueltigkeit2.MaxLines_Warning = ""
Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
Me.txtGueltigkeit2.TabIndex = 5
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 14
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 12
Me.Label7.Text = "Bestelldatum:"
'
'Label11
'
Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(330, 39)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(53, 13)
Me.Label11.TabIndex = 13
Me.Label11.Text = "Gültig bis:"
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 18
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 0
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Controls.Add(Me.scanRetourniert)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
Me.scanSonstiges.TabIndex = 1
'
'scanRetourniert
'
Me.scanRetourniert._ARCHIV = True
Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
Me.scanRetourniert._MULTI_FILES = True
Me.scanRetourniert._TEXT_PDF = "Retourniert"
Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanRetourniert.BackColor = System.Drawing.Color.White
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
Me.scanRetourniert.Location = New System.Drawing.Point(3, 4)
Me.scanRetourniert.Name = "scanRetourniert"
Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
Me.scanRetourniert.TabIndex = 0
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 199)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 91
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'usrCntlSDLLeistungenDUOBOX
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.txtGueltigkeit2)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.cbxErsatzkarte)
Me.Controls.Add(Me.txtPANNr)
Me.Controls.Add(Me.txtSERIE)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label9)
Me.Name = "usrCntlSDLLeistungenDUOBOX"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtPANNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtSERIE As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
End Class

View File

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

View File

@@ -0,0 +1,202 @@
Imports System.Globalization
Public Class usrCntlSDLLeistungenDUOBOX
Public KfzKennzeichen As String
Public SDLNr As String
Public kdNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If txtMSEKdNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Function gueltigBisabgelaufen(o) As Boolean
If CDate(o) > Now Then
Return False
End If
Return True
End Function
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
PROG.initDTPE(txtGueltigkeit2)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
txtGueltigkeit2._value = SDL.GültigBis
cbxErsatzkarte._date = SDL.ErsatzkarteAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
cbxErsatzkarte.Checked = SDL.Ersatzkarte
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtMSEKdNr.Text = SDL.MSE_Kd_Nr
txtPANNr.Text = SDL.PAN_Nr
txtSERIE.Text = SDL.SERIE_Nr
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.updateBinding()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.Ersatzkarte = cbxErsatzkarte.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.MSE_Kd_Nr = txtMSEKdNr.Text
SDL.PAN_Nr = txtPANNr.Text
SDL.SERIE_Nr = txtSERIE.Text
SDL.ErsatzkarteAm = cbxErsatzkarte._date
SDL.VerlorenAm = cbxVerloren._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtSERIE.TextChanged, txtPANNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtLieferung Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,545 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungenECOTAX
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtSERIE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtPANNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'txtMSEKdNr
'
Me.txtMSEKdNr._DateTimeOnly = False
Me.txtMSEKdNr._numbersOnly = True
Me.txtMSEKdNr._numbersOnlyKommastellen = ""
Me.txtMSEKdNr._Prozent = False
Me.txtMSEKdNr._ShortDateNew = False
Me.txtMSEKdNr._ShortDateOnly = False
Me.txtMSEKdNr._TimeOnly = False
Me.txtMSEKdNr._value = ""
Me.txtMSEKdNr._Waehrung = False
Me.txtMSEKdNr._WaehrungZeichen = True
Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
Me.txtMSEKdNr.MaxLineLength = -1
Me.txtMSEKdNr.MaxLines_Warning = ""
Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
Me.txtMSEKdNr.Name = "txtMSEKdNr"
Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
Me.txtMSEKdNr.TabIndex = 13
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(471, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(90, 13)
Me.Label2.TabIndex = 12
Me.Label2.Text = "MSE-Kunden-Nr.:"
'
'txtSERIE
'
Me.txtSERIE._DateTimeOnly = False
Me.txtSERIE._numbersOnly = False
Me.txtSERIE._numbersOnlyKommastellen = ""
Me.txtSERIE._Prozent = False
Me.txtSERIE._ShortDateNew = False
Me.txtSERIE._ShortDateOnly = False
Me.txtSERIE._TimeOnly = False
Me.txtSERIE._value = Nothing
Me.txtSERIE._Waehrung = False
Me.txtSERIE._WaehrungZeichen = True
Me.txtSERIE.Location = New System.Drawing.Point(106, 127)
Me.txtSERIE.MaxLength = 16
Me.txtSERIE.MaxLineLength = -1
Me.txtSERIE.MaxLines_Warning = ""
Me.txtSERIE.MaxLines_Warning_Label = Nothing
Me.txtSERIE.Name = "txtSERIE"
Me.txtSERIE.Size = New System.Drawing.Size(183, 20)
Me.txtSERIE.TabIndex = 3
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 130)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(69, 13)
Me.Label9.TabIndex = 10
Me.Label9.Text = "SERIE-Nr.:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 105)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(57, 13)
Me.Label1.TabIndex = 14
Me.Label1.Text = "PAN-Nr.:"
'
'txtPANNr
'
Me.txtPANNr._DateTimeOnly = False
Me.txtPANNr._numbersOnly = False
Me.txtPANNr._numbersOnlyKommastellen = ""
Me.txtPANNr._Prozent = False
Me.txtPANNr._ShortDateNew = False
Me.txtPANNr._ShortDateOnly = False
Me.txtPANNr._TimeOnly = False
Me.txtPANNr._value = Nothing
Me.txtPANNr._Waehrung = False
Me.txtPANNr._WaehrungZeichen = True
Me.txtPANNr.Location = New System.Drawing.Point(106, 102)
Me.txtPANNr.MaxLength = 19
Me.txtPANNr.MaxLineLength = -1
Me.txtPANNr.MaxLines_Warning = ""
Me.txtPANNr.MaxLines_Warning_Label = Nothing
Me.txtPANNr.Name = "txtPANNr"
Me.txtPANNr.Size = New System.Drawing.Size(183, 20)
Me.txtPANNr.TabIndex = 2
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.txtMSEKdNr)
Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 29
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(123, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "MULTIBOX ECOTAX"
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 8
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 7
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 9
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 10
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'cbxRetourniert
'
Me.cbxRetourniert._date = Nothing
Me.cbxRetourniert._showdate = True
Me.cbxRetourniert._value = ""
Me.cbxRetourniert.AutoSize = True
Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
Me.cbxRetourniert.Name = "cbxRetourniert"
Me.cbxRetourniert.Size = New System.Drawing.Size(81, 17)
Me.cbxRetourniert.TabIndex = 6
Me.cbxRetourniert.Text = "Retourniert "
Me.cbxRetourniert.UseVisualStyleBackColor = True
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 4
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(3, 165)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(49, 13)
Me.Label3.TabIndex = 41
Me.Label3.Text = "Vermerk:"
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'txtGueltigkeit2
'
Me.txtGueltigkeit2._DateTimeOnly = False
Me.txtGueltigkeit2._numbersOnly = False
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
Me.txtGueltigkeit2._Prozent = False
Me.txtGueltigkeit2._ShortDateNew = True
Me.txtGueltigkeit2._ShortDateOnly = False
Me.txtGueltigkeit2._TimeOnly = False
Me.txtGueltigkeit2._value = ""
Me.txtGueltigkeit2._Waehrung = False
Me.txtGueltigkeit2._WaehrungZeichen = True
Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
Me.txtGueltigkeit2.MaxLength = 10
Me.txtGueltigkeit2.MaxLineLength = -1
Me.txtGueltigkeit2.MaxLines_Warning = ""
Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
Me.txtGueltigkeit2.TabIndex = 5
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 85
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 84
Me.Label7.Text = "Bestelldatum:"
'
'Label11
'
Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(330, 39)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(53, 13)
Me.Label11.TabIndex = 83
Me.Label11.Text = "Gültig bis:"
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 89
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanLieferschein)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Controls.Add(Me.scanRetourniert)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanLieferschein
'
Me.scanLieferschein._ARCHIV = True
Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
Me.scanLieferschein._MULTI_FILES = True
Me.scanLieferschein._TEXT_PDF = "Lieferschein"
Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanLieferschein.BackColor = System.Drawing.Color.White
Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
Me.scanLieferschein.Name = "scanLieferschein"
Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
Me.scanLieferschein.TabIndex = 23
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
Me.scanSonstiges.TabIndex = 21
'
'scanRetourniert
'
Me.scanRetourniert._ARCHIV = True
Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
Me.scanRetourniert._MULTI_FILES = True
Me.scanRetourniert._TEXT_PDF = "Retourniert"
Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanRetourniert.BackColor = System.Drawing.Color.White
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
Me.scanRetourniert.Location = New System.Drawing.Point(103, 4)
Me.scanRetourniert.Name = "scanRetourniert"
Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
Me.scanRetourniert.TabIndex = 20
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 91
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'usrCntlSDLLeistungenECOTAX
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.txtGueltigkeit2)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cbxRetourniert)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtPANNr)
Me.Controls.Add(Me.txtSERIE)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label9)
Me.Name = "usrCntlSDLLeistungenECOTAX"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtSERIE As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtPANNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
End Class

View File

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

View File

@@ -0,0 +1,201 @@
Imports System.Globalization
Public Class usrCntlSDLLeistungenECOTAX
Public KfzKennzeichen As String
Public SDLNr As String
Public kdNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If txtMSEKdNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Function gueltigBisabgelaufen(o) As Boolean
If CDate(o) > Now Then
Return False
End If
Return True
End Function
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
PROG.initDTPE(txtGueltigkeit2)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
txtGueltigkeit2._value = SDL.GültigBis
cbxRetourniert._date = SDL.RetourniertAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
cbxRetourniert.Checked = SDL.Retourniert
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtMSEKdNr.Text = SDL.MSE_Kd_Nr
txtPANNr.Text = SDL.PAN_Nr
txtSERIE.Text = SDL.SERIE_Nr
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.updateBinding()
's.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.Retourniert = cbxRetourniert.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.MSE_Kd_Nr = txtMSEKdNr.Text
SDL.PAN_Nr = txtPANNr.Text
SDL.SERIE_Nr = txtSERIE.Text
SDL.RetourniertAm = cbxRetourniert._date
SDL.VerlorenAm = cbxVerloren._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'ProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtSERIE.TextChanged, txtPANNr.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtLieferung Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,523 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungenFR
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.txtPANNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtSERIE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'txtPANNr
'
Me.txtPANNr._DateTimeOnly = False
Me.txtPANNr._numbersOnly = False
Me.txtPANNr._numbersOnlyKommastellen = ""
Me.txtPANNr._Prozent = False
Me.txtPANNr._ShortDateNew = False
Me.txtPANNr._ShortDateOnly = False
Me.txtPANNr._TimeOnly = False
Me.txtPANNr._value = Nothing
Me.txtPANNr._Waehrung = False
Me.txtPANNr._WaehrungZeichen = True
Me.txtPANNr.Location = New System.Drawing.Point(106, 127)
Me.txtPANNr.MaxLength = 19
Me.txtPANNr.MaxLineLength = -1
Me.txtPANNr.MaxLines_Warning = ""
Me.txtPANNr.MaxLines_Warning_Label = Nothing
Me.txtPANNr.Name = "txtPANNr"
Me.txtPANNr.Size = New System.Drawing.Size(183, 20)
Me.txtPANNr.TabIndex = 3
'
'txtSERIE
'
Me.txtSERIE._DateTimeOnly = False
Me.txtSERIE._numbersOnly = False
Me.txtSERIE._numbersOnlyKommastellen = ""
Me.txtSERIE._Prozent = False
Me.txtSERIE._ShortDateNew = False
Me.txtSERIE._ShortDateOnly = False
Me.txtSERIE._TimeOnly = False
Me.txtSERIE._value = Nothing
Me.txtSERIE._Waehrung = False
Me.txtSERIE._WaehrungZeichen = True
Me.txtSERIE.Location = New System.Drawing.Point(106, 102)
Me.txtSERIE.MaxLength = 16
Me.txtSERIE.MaxLineLength = -1
Me.txtSERIE.MaxLines_Warning = ""
Me.txtSERIE.MaxLines_Warning_Label = Nothing
Me.txtSERIE.Name = "txtSERIE"
Me.txtSERIE.Size = New System.Drawing.Size(183, 20)
Me.txtSERIE.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 130)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(57, 13)
Me.Label1.TabIndex = 14
Me.Label1.Text = "PAN-Nr.:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 105)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(69, 13)
Me.Label9.TabIndex = 10
Me.Label9.Text = "SERIE-Nr.:"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.txtMSEKdNr)
Me.Panel2.Controls.Add(Me.Label3)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 30
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(55, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "Maut FR"
'
'txtMSEKdNr
'
Me.txtMSEKdNr._DateTimeOnly = False
Me.txtMSEKdNr._numbersOnly = True
Me.txtMSEKdNr._numbersOnlyKommastellen = ""
Me.txtMSEKdNr._Prozent = False
Me.txtMSEKdNr._ShortDateNew = False
Me.txtMSEKdNr._ShortDateOnly = False
Me.txtMSEKdNr._TimeOnly = False
Me.txtMSEKdNr._value = ""
Me.txtMSEKdNr._Waehrung = False
Me.txtMSEKdNr._WaehrungZeichen = True
Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
Me.txtMSEKdNr.MaxLineLength = -1
Me.txtMSEKdNr.MaxLines_Warning = ""
Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
Me.txtMSEKdNr.Name = "txtMSEKdNr"
Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
Me.txtMSEKdNr.TabIndex = 13
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(471, 9)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(90, 13)
Me.Label3.TabIndex = 12
Me.Label3.Text = "MSE-Kunden-Nr.:"
'
'cbxErsatzkarte
'
Me.cbxErsatzkarte._date = Nothing
Me.cbxErsatzkarte._showdate = True
Me.cbxErsatzkarte._value = ""
Me.cbxErsatzkarte.AutoSize = True
Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
Me.cbxErsatzkarte.TabIndex = 6
Me.cbxErsatzkarte.Text = "Ersatzkarte"
Me.cbxErsatzkarte.UseVisualStyleBackColor = True
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 8
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 7
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 9
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 10
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 4
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(3, 165)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(49, 13)
Me.Label2.TabIndex = 53
Me.Label2.Text = "Vermerk:"
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'txtGueltigkeit2
'
Me.txtGueltigkeit2._DateTimeOnly = False
Me.txtGueltigkeit2._numbersOnly = False
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
Me.txtGueltigkeit2._Prozent = False
Me.txtGueltigkeit2._ShortDateNew = True
Me.txtGueltigkeit2._ShortDateOnly = False
Me.txtGueltigkeit2._TimeOnly = False
Me.txtGueltigkeit2._value = ""
Me.txtGueltigkeit2._Waehrung = False
Me.txtGueltigkeit2._WaehrungZeichen = True
Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
Me.txtGueltigkeit2.MaxLength = 10
Me.txtGueltigkeit2.MaxLineLength = -1
Me.txtGueltigkeit2.MaxLines_Warning = ""
Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
Me.txtGueltigkeit2.TabIndex = 5
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 85
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 84
Me.Label7.Text = "Bestelldatum:"
'
'Label11
'
Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(330, 39)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(53, 13)
Me.Label11.TabIndex = 83
Me.Label11.Text = "Gültig bis:"
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 89
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Controls.Add(Me.scanRetourniert)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
Me.scanSonstiges.TabIndex = 21
'
'scanRetourniert
'
Me.scanRetourniert._ARCHIV = True
Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
Me.scanRetourniert._MULTI_FILES = True
Me.scanRetourniert._TEXT_PDF = "Retourniert"
Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanRetourniert.BackColor = System.Drawing.Color.White
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
Me.scanRetourniert.Location = New System.Drawing.Point(3, 4)
Me.scanRetourniert.Name = "scanRetourniert"
Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
Me.scanRetourniert.TabIndex = 20
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 91
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'usrCntlSDLLeistungenFR
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.txtGueltigkeit2)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cbxErsatzkarte)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtPANNr)
Me.Controls.Add(Me.txtSERIE)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label9)
Me.Name = "usrCntlSDLLeistungenFR"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtPANNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtSERIE As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
End Class

View File

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

View File

@@ -0,0 +1,226 @@
Imports System.Globalization
Public Class usrCntlSDLLeistungenFR
Public KfzKennzeichen As String
Public SDLNr As String
Public kdNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
' Public WithEvents s As New cBinding 'fürs Binding
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If txtMSEKdNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Function gueltigBisabgelaufen(o) As Boolean
If CDate(o) > Now Then
Return False
End If
Return True
End Function
Sub initDataBinding()
Try
' Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'"
' s.initBinding("SELECT * FROM SDL WHERE KundenNr='" & kdNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "' AND SDLNr='" & SDLNr & "' " & tmpHist, "SDL")
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
' AddHandler s.bindingdataTable.ColumnChanged, AddressOf BindingTableColumnChanged
'AddHandler s.bindingdataTable.TableNewRow, AddressOf s.bindingdataTable_TableNewRow_SDLLeistungen
'PROG.setBindingDTPE(txtLieferung, "Lieferdatum", s.bindingSource)
' PROG.setBindingDTPE(txtBestellung, "Bestelldatum", s.bindingSource)
' PROG.setBindingDTPE(txtGueltigkeit2, "GültigBis", s.bindingSource)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
PROG.initDTPE(txtGueltigkeit2)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
txtGueltigkeit2._value = SDL.GültigBis
cbxErsatzkarte._date = SDL.ErsatzkarteAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
' cbxGesperrt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gesperrt", True, DataSourceUpdateMode.OnPropertyChanged, False))
' cbxDefekt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Defekt", True, DataSourceUpdateMode.OnPropertyChanged, False))
' cbxGestohlen.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gestohlen", True, DataSourceUpdateMode.OnPropertyChanged, False))
' cbxVerloren.DataBindings.Add(New Binding("Checked", s.bindingSource, "Verloren", True, DataSourceUpdateMode.OnPropertyChanged, False))
cbxErsatzkarte.Checked = SDL.Ersatzkarte
'cbxErsatzkarte.DataBindings.Add(New Binding("Checked", s.bindingSource, "Ersatzkarte", True, DataSourceUpdateMode.OnPropertyChanged, False))
txtVermerk.Text = SDL.Vermerk
'txtVermerk.DataBindings.Add(New Binding("Text", s.bindingSource, "Vermerk", True, DataSourceUpdateMode.OnPropertyChanged, ""))
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
' UsrCntlDetails.lblErfassung.DataBindings.Add(New Binding("Text", s.bindingSource, "Erfassungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
' UsrCntlDetails.lblAenderung.DataBindings.Add(New Binding("Text", s.bindingSource, "Änderungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
txtMSEKdNr.Text = SDL.MSE_Kd_Nr
txtPANNr.Text = SDL.PAN_Nr
txtSERIE.Text = SDL.SERIE_Nr
'txtPIN.DataBindings.Add(New Binding("Text", s.bindingSource, "PIN", True, DataSourceUpdateMode.OnPropertyChanged, ""))
'txtKartenNr.DataBindings.Add(New Binding("Text", s.bindingSource, "KartenNr", True, DataSourceUpdateMode.OnPropertyChanged, ""))
' If History <> "" Then
'Try : s.bindingSource.Position = s.bindingSource.Find("History", History)
'Catch ex As Exception : End Try
' End If
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.updateBinding()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.Ersatzkarte = cbxErsatzkarte.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.MSE_Kd_Nr = txtMSEKdNr.Text
SDL.PAN_Nr = txtPANNr.Text
SDL.SERIE_Nr = txtSERIE.Text
SDL.ErsatzkarteAm = cbxErsatzkarte._date
SDL.VerlorenAm = cbxVerloren._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtPANNr.TextChanged, txtSERIE.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtLieferung Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,484 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungenFREJUS
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.txtECOKlasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFrejusCardNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'txtECOKlasse
'
Me.txtECOKlasse._DateTimeOnly = False
Me.txtECOKlasse._numbersOnly = False
Me.txtECOKlasse._numbersOnlyKommastellen = ""
Me.txtECOKlasse._Prozent = False
Me.txtECOKlasse._ShortDateNew = False
Me.txtECOKlasse._ShortDateOnly = False
Me.txtECOKlasse._TimeOnly = False
Me.txtECOKlasse._value = Nothing
Me.txtECOKlasse._Waehrung = False
Me.txtECOKlasse._WaehrungZeichen = True
Me.txtECOKlasse.Location = New System.Drawing.Point(106, 127)
Me.txtECOKlasse.MaxLength = 2
Me.txtECOKlasse.MaxLineLength = -1
Me.txtECOKlasse.MaxLines_Warning = ""
Me.txtECOKlasse.MaxLines_Warning_Label = Nothing
Me.txtECOKlasse.Name = "txtECOKlasse"
Me.txtECOKlasse.Size = New System.Drawing.Size(32, 20)
Me.txtECOKlasse.TabIndex = 3
'
'txtFrejusCardNr
'
Me.txtFrejusCardNr._DateTimeOnly = False
Me.txtFrejusCardNr._numbersOnly = False
Me.txtFrejusCardNr._numbersOnlyKommastellen = ""
Me.txtFrejusCardNr._Prozent = False
Me.txtFrejusCardNr._ShortDateNew = False
Me.txtFrejusCardNr._ShortDateOnly = False
Me.txtFrejusCardNr._TimeOnly = False
Me.txtFrejusCardNr._value = Nothing
Me.txtFrejusCardNr._Waehrung = False
Me.txtFrejusCardNr._WaehrungZeichen = True
Me.txtFrejusCardNr.Location = New System.Drawing.Point(106, 102)
Me.txtFrejusCardNr.MaxLength = 20
Me.txtFrejusCardNr.MaxLineLength = -1
Me.txtFrejusCardNr.MaxLines_Warning = ""
Me.txtFrejusCardNr.MaxLines_Warning_Label = Nothing
Me.txtFrejusCardNr.Name = "txtFrejusCardNr"
Me.txtFrejusCardNr.Size = New System.Drawing.Size(183, 20)
Me.txtFrejusCardNr.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 130)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(77, 13)
Me.Label1.TabIndex = 14
Me.Label1.Text = "ECO-Klasse:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 105)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(106, 13)
Me.Label9.TabIndex = 11
Me.Label9.Text = "FREJUS-Crd--Nr.:"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.txtMSEKdNr)
Me.Panel2.Controls.Add(Me.Label3)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 31
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(126, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "FREJUS Tunnelkarte"
'
'txtMSEKdNr
'
Me.txtMSEKdNr._DateTimeOnly = False
Me.txtMSEKdNr._numbersOnly = True
Me.txtMSEKdNr._numbersOnlyKommastellen = ""
Me.txtMSEKdNr._Prozent = False
Me.txtMSEKdNr._ShortDateNew = False
Me.txtMSEKdNr._ShortDateOnly = False
Me.txtMSEKdNr._TimeOnly = False
Me.txtMSEKdNr._value = ""
Me.txtMSEKdNr._Waehrung = False
Me.txtMSEKdNr._WaehrungZeichen = True
Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
Me.txtMSEKdNr.MaxLineLength = -1
Me.txtMSEKdNr.MaxLines_Warning = ""
Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
Me.txtMSEKdNr.Name = "txtMSEKdNr"
Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
Me.txtMSEKdNr.TabIndex = 13
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(471, 9)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(90, 13)
Me.Label3.TabIndex = 12
Me.Label3.Text = "MSE-Kunden-Nr.:"
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 4
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 165)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(49, 13)
Me.Label4.TabIndex = 66
Me.Label4.Text = "Vermerk:"
'
'cbxErsatzkarte
'
Me.cbxErsatzkarte._date = Nothing
Me.cbxErsatzkarte._showdate = True
Me.cbxErsatzkarte._value = ""
Me.cbxErsatzkarte.AutoSize = True
Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
Me.cbxErsatzkarte.TabIndex = 5
Me.cbxErsatzkarte.Text = "Ersatzkarte"
Me.cbxErsatzkarte.UseVisualStyleBackColor = True
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 7
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 6
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 8
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 9
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 85
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 84
Me.Label7.Text = "Bestelldatum:"
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 89
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanLieferschein)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanLieferschein
'
Me.scanLieferschein._ARCHIV = True
Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
Me.scanLieferschein._MULTI_FILES = True
Me.scanLieferschein._TEXT_PDF = "Lieferschein"
Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanLieferschein.BackColor = System.Drawing.Color.White
Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
Me.scanLieferschein.Name = "scanLieferschein"
Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
Me.scanLieferschein.TabIndex = 23
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
Me.scanSonstiges.TabIndex = 21
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 91
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'usrCntlSDLLeistungenFREJUS
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cbxErsatzkarte)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtECOKlasse)
Me.Controls.Add(Me.txtFrejusCardNr)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label9)
Me.Name = "usrCntlSDLLeistungenFREJUS"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtECOKlasse As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtFrejusCardNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
End Class

View File

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

View File

@@ -0,0 +1,199 @@
Imports System.Globalization
Public Class usrCntlSDLLeistungenFREJUS
Public KfzKennzeichen As String
Public SDLNr As String
Public kdNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If txtMSEKdNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Function gueltigBisabgelaufen(o) As Boolean
If CDate(o) > Now Then
Return False
End If
Return True
End Function
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
cbxErsatzkarte._date = SDL.ErsatzkarteAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
cbxErsatzkarte.Checked = SDL.Ersatzkarte
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtMSEKdNr.Text = SDL.MSE_Kd_Nr
txtFrejusCardNr.Text = SDL.FREJUS_CARD_Nr
txtECOKlasse.Text = SDL.ECO
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.updateBinding()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.Ersatzkarte = cbxErsatzkarte.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.MSE_Kd_Nr = txtMSEKdNr.Text
SDL.FREJUS_CARD_Nr = txtFrejusCardNr.Text
SDL.ECO = txtECOKlasse.Text
SDL.ErsatzkarteAm = cbxErsatzkarte._date
SDL.VerlorenAm = cbxVerloren._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False ' cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtMSEKdNr.TextChanged, txtFrejusCardNr.TextChanged, txtECOKlasse.TextChanged, txtVermerk.TextChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtLieferung Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,524 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungenIDS
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxErsatzkarte = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.txtIDSKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 105)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(97, 13)
Me.Label9.TabIndex = 7
Me.Label9.Text = "Karten-Nummer:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(3, 133)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(28, 13)
Me.Label10.TabIndex = 9
Me.Label10.Text = "PIN:"
'
'Label11
'
Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(330, 39)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(53, 13)
Me.Label11.TabIndex = 3
Me.Label11.Text = "Gültig bis:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 165)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(49, 13)
Me.Label4.TabIndex = 11
Me.Label4.Text = "Vermerk:"
'
'cbxErsatzkarte
'
Me.cbxErsatzkarte._date = New Date(CType(0, Long))
Me.cbxErsatzkarte._showdate = True
Me.cbxErsatzkarte._value = ""
Me.cbxErsatzkarte.AutoSize = True
Me.cbxErsatzkarte.Location = New System.Drawing.Point(333, 64)
Me.cbxErsatzkarte.Name = "cbxErsatzkarte"
Me.cbxErsatzkarte.Size = New System.Drawing.Size(79, 17)
Me.cbxErsatzkarte.TabIndex = 6
Me.cbxErsatzkarte.Text = "Ersatzkarte"
Me.cbxErsatzkarte.UseVisualStyleBackColor = True
'
'cbxGestohlen
'
Me.cbxGestohlen._date = New Date(CType(0, Long))
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 8
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = New Date(CType(0, Long))
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 7
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = New Date(CType(0, Long))
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 9
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = New Date(CType(0, Long))
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 10
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 6
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 1
Me.Label7.Text = "Bestelldatum:"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.txtIDSKdNr)
Me.Panel2.Controls.Add(Me.Label3)
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 0
'
'txtIDSKdNr
'
Me.txtIDSKdNr._DateTimeOnly = False
Me.txtIDSKdNr._numbersOnly = True
Me.txtIDSKdNr._numbersOnlyKommastellen = ""
Me.txtIDSKdNr._Prozent = False
Me.txtIDSKdNr._ShortDateNew = False
Me.txtIDSKdNr._ShortDateOnly = False
Me.txtIDSKdNr._TimeOnly = False
Me.txtIDSKdNr._value = ""
Me.txtIDSKdNr._Waehrung = False
Me.txtIDSKdNr._WaehrungZeichen = True
Me.txtIDSKdNr.Location = New System.Drawing.Point(574, 7)
Me.txtIDSKdNr.MaxLineLength = -1
Me.txtIDSKdNr.MaxLines_Warning = ""
Me.txtIDSKdNr.MaxLines_Warning_Label = Nothing
Me.txtIDSKdNr.Name = "txtIDSKdNr"
Me.txtIDSKdNr.ReadOnly = True
Me.txtIDSKdNr.Size = New System.Drawing.Size(183, 20)
Me.txtIDSKdNr.TabIndex = 2
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(471, 10)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(85, 13)
Me.Label3.TabIndex = 1
Me.Label3.Text = "IDS-Kunden-Nr.:"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(90, 13)
Me.Label8.TabIndex = 0
Me.Label8.Text = "IDS Tankkarte"
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'txtGueltigkeit2
'
Me.txtGueltigkeit2._DateTimeOnly = False
Me.txtGueltigkeit2._numbersOnly = False
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
Me.txtGueltigkeit2._Prozent = False
Me.txtGueltigkeit2._ShortDateNew = True
Me.txtGueltigkeit2._ShortDateOnly = False
Me.txtGueltigkeit2._TimeOnly = False
Me.txtGueltigkeit2._value = ""
Me.txtGueltigkeit2._Waehrung = False
Me.txtGueltigkeit2._WaehrungZeichen = True
Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
Me.txtGueltigkeit2.MaxLength = 10
Me.txtGueltigkeit2.MaxLineLength = -1
Me.txtGueltigkeit2.MaxLines_Warning = ""
Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
Me.txtGueltigkeit2.TabIndex = 5
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 4
'
'txtPIN
'
Me.txtPIN._DateTimeOnly = False
Me.txtPIN._numbersOnly = False
Me.txtPIN._numbersOnlyKommastellen = ""
Me.txtPIN._Prozent = False
Me.txtPIN._ShortDateNew = False
Me.txtPIN._ShortDateOnly = False
Me.txtPIN._TimeOnly = False
Me.txtPIN._value = ""
Me.txtPIN._Waehrung = False
Me.txtPIN._WaehrungZeichen = True
Me.txtPIN.Location = New System.Drawing.Point(106, 130)
Me.txtPIN.MaxLength = 4
Me.txtPIN.MaxLineLength = -1
Me.txtPIN.MaxLines_Warning = ""
Me.txtPIN.MaxLines_Warning_Label = Nothing
Me.txtPIN.Name = "txtPIN"
Me.txtPIN.Size = New System.Drawing.Size(57, 20)
Me.txtPIN.TabIndex = 3
'
'txtKartenNr
'
Me.txtKartenNr._DateTimeOnly = False
Me.txtKartenNr._numbersOnly = True
Me.txtKartenNr._numbersOnlyKommastellen = ""
Me.txtKartenNr._Prozent = False
Me.txtKartenNr._ShortDateNew = False
Me.txtKartenNr._ShortDateOnly = False
Me.txtKartenNr._TimeOnly = False
Me.txtKartenNr._value = ""
Me.txtKartenNr._Waehrung = False
Me.txtKartenNr._WaehrungZeichen = True
Me.txtKartenNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtKartenNr.Location = New System.Drawing.Point(106, 100)
Me.txtKartenNr.MaxLength = 22
Me.txtKartenNr.MaxLineLength = -1
Me.txtKartenNr.MaxLines_Warning = ""
Me.txtKartenNr.MaxLines_Warning_Label = Nothing
Me.txtKartenNr.Name = "txtKartenNr"
Me.txtKartenNr.Size = New System.Drawing.Size(183, 23)
Me.txtKartenNr.TabIndex = 2
'
'scanPIN
'
Me.scanPIN._ARCHIV = False
Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanPIN._DATENSERVER_ORDNER = "MDM"
Me.scanPIN._DATENSERVER_UOrdner1 = Nothing
Me.scanPIN._DATENSERVER_UOrdner2 = Nothing
Me.scanPIN._DATENSERVER_UOrdner3 = Nothing
Me.scanPIN._MULTI_FILES = True
Me.scanPIN._TEXT_PDF = "PIN"
Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanPIN.BackColor = System.Drawing.Color.White
Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default
Me.scanPIN.Location = New System.Drawing.Point(3, 4)
Me.scanPIN.Name = "scanPIN"
Me.scanPIN.Size = New System.Drawing.Size(57, 24)
Me.scanPIN.TabIndex = 19
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
Me.scanSonstiges.TabIndex = 21
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 22
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanPIN)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 91
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'usrCntlSDLLeistungenIDS
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.txtGueltigkeit2)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cbxErsatzkarte)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtPIN)
Me.Controls.Add(Me.txtKartenNr)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label11)
Me.Name = "usrCntlSDLLeistungenIDS"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtPIN As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cbxErsatzkarte As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtIDSKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Private WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

View File

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

View File

@@ -0,0 +1,225 @@
Imports System.Globalization
Public Class usrCntlSDLLeistungenIDS
Public KfzKennzeichen As String
Public kdNr As String
Public SDLNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Dim culture As CultureInfo = New CultureInfo("de-DE")
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
txtIDSKdNr.Text = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr).IDSKundenNr
'Scan-Elemente initialisieren:
scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Function gueltigBisabgelaufen(o) As Boolean
Try
If CDate(o) > Now Then
Return False
End If
Return True
Catch ex As Exception
Return False
End Try
End Function
Sub initDataBinding()
Try
' Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'"
' s.initBinding("SELECT * FROM SDL WHERE KundenNr='" & kdNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "' AND SDLNr='" & SDLNr & "' " & tmpHist, "SDL")
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
' AddHandler s.bindingdataTable.ColumnChanged, AddressOf BindingTableColumnChanged
'AddHandler s.bindingdataTable.TableNewRow, AddressOf s.bindingdataTable_TableNewRow_SDLLeistungen
'PROG.setBindingDTPE(txtLieferung, "Lieferdatum", s.bindingSource)
' PROG.setBindingDTPE(txtBestellung, "Bestelldatum", s.bindingSource)
' PROG.setBindingDTPE(txtGueltigkeit2, "GültigBis", s.bindingSource)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
PROG.initDTPE(txtGueltigkeit2)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
txtGueltigkeit2._value = SDL.GültigBis
cbxErsatzkarte._date = SDL.ErsatzkarteAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
' cbxGesperrt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gesperrt", True, DataSourceUpdateMode.OnPropertyChanged, False))
' cbxDefekt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Defekt", True, DataSourceUpdateMode.OnPropertyChanged, False))
' cbxGestohlen.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gestohlen", True, DataSourceUpdateMode.OnPropertyChanged, False))
' cbxVerloren.DataBindings.Add(New Binding("Checked", s.bindingSource, "Verloren", True, DataSourceUpdateMode.OnPropertyChanged, False))
cbxErsatzkarte.Checked = SDL.Ersatzkarte
'cbxErsatzkarte.DataBindings.Add(New Binding("Checked", s.bindingSource, "Ersatzkarte", True, DataSourceUpdateMode.OnPropertyChanged, False))
txtVermerk.Text = SDL.Vermerk
'txtVermerk.DataBindings.Add(New Binding("Text", s.bindingSource, "Vermerk", True, DataSourceUpdateMode.OnPropertyChanged, ""))
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
' UsrCntlDetails.lblErfassung.DataBindings.Add(New Binding("Text", s.bindingSource, "Erfassungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
' UsrCntlDetails.lblAenderung.DataBindings.Add(New Binding("Text", s.bindingSource, "Änderungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))
txtPIN.Text = SDL.PIN
PROG.initPIN(txtPIN)
txtKartenNr.Text = SDL.KartenNr
'txtPIN.DataBindings.Add(New Binding("Text", s.bindingSource, "PIN", True, DataSourceUpdateMode.OnPropertyChanged, ""))
'txtKartenNr.DataBindings.Add(New Binding("Text", s.bindingSource, "KartenNr", True, DataSourceUpdateMode.OnPropertyChanged, ""))
' If History <> "" Then
'Try : s.bindingSource.Position = s.bindingSource.Find("History", History)
'Catch ex As Exception : End Try
' End If
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.Ersatzkarte = cbxErsatzkarte.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.PIN = txtPIN.Text
SDL.KartenNr = txtKartenNr.Text
SDL.ErsatzkarteAm = cbxErsatzkarte._date
SDL.VerlorenAm = cbxVerloren._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub datBestellung_ValueChanged(sender As Object, e As EventArgs)
If sender.value Is DBNull.Value Then
sender.checked = False
End If
End Sub
Private Sub txtBestellung_TextChanged2(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtPIN.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtLieferung Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-KundenNr im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,545 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungenIT
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtTelepassKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanLieferscheinVIA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanLieferscheinTP = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.cbxErsatztelepass = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtVIACard = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtTelepassNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(464, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(107, 13)
Me.Label1.TabIndex = 14
Me.Label1.Text = "Telepass-Kunden-Nr:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(6, 129)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(79, 13)
Me.Label9.TabIndex = 9
Me.Label9.Text = "Telepass-Nr:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(6, 101)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(69, 13)
Me.Label10.TabIndex = 12
Me.Label10.Text = "VIA-CARD:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(3, 165)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(49, 13)
Me.Label2.TabIndex = 66
Me.Label2.Text = "Vermerk:"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.txtTelepassKdNr)
Me.Panel2.Controls.Add(Me.Label1)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 68
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(51, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "Maut IT"
'
'txtTelepassKdNr
'
Me.txtTelepassKdNr._DateTimeOnly = False
Me.txtTelepassKdNr._numbersOnly = True
Me.txtTelepassKdNr._numbersOnlyKommastellen = ""
Me.txtTelepassKdNr._Prozent = False
Me.txtTelepassKdNr._ShortDateNew = False
Me.txtTelepassKdNr._ShortDateOnly = False
Me.txtTelepassKdNr._TimeOnly = False
Me.txtTelepassKdNr._value = ""
Me.txtTelepassKdNr._Waehrung = False
Me.txtTelepassKdNr._WaehrungZeichen = True
Me.txtTelepassKdNr.Location = New System.Drawing.Point(574, 6)
Me.txtTelepassKdNr.MaxLineLength = -1
Me.txtTelepassKdNr.MaxLines_Warning = ""
Me.txtTelepassKdNr.MaxLines_Warning_Label = Nothing
Me.txtTelepassKdNr.Name = "txtTelepassKdNr"
Me.txtTelepassKdNr.Size = New System.Drawing.Size(183, 20)
Me.txtTelepassKdNr.TabIndex = 15
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 85
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 84
Me.Label7.Text = "Bestelldatum:"
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 89
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanLieferscheinVIA)
Me.TabPage2.Controls.Add(Me.scanLieferscheinTP)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Controls.Add(Me.scanRetourniert)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanLieferscheinVIA
'
Me.scanLieferscheinVIA._ARCHIV = True
Me.scanLieferscheinVIA._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanLieferscheinVIA._DATENSERVER_ORDNER = "MDM"
Me.scanLieferscheinVIA._DATENSERVER_UOrdner1 = Nothing
Me.scanLieferscheinVIA._DATENSERVER_UOrdner2 = Nothing
Me.scanLieferscheinVIA._DATENSERVER_UOrdner3 = Nothing
Me.scanLieferscheinVIA._MULTI_FILES = True
Me.scanLieferscheinVIA._TEXT_PDF = "Lieferschein VIA-Card"
Me.scanLieferscheinVIA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanLieferscheinVIA.BackColor = System.Drawing.Color.White
Me.scanLieferscheinVIA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanLieferscheinVIA.Cursor = System.Windows.Forms.Cursors.Default
Me.scanLieferscheinVIA.Location = New System.Drawing.Point(3, 30)
Me.scanLieferscheinVIA.Name = "scanLieferscheinVIA"
Me.scanLieferscheinVIA.Size = New System.Drawing.Size(155, 24)
Me.scanLieferscheinVIA.TabIndex = 24
'
'scanLieferscheinTP
'
Me.scanLieferscheinTP._ARCHIV = True
Me.scanLieferscheinTP._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanLieferscheinTP._DATENSERVER_ORDNER = "MDM"
Me.scanLieferscheinTP._DATENSERVER_UOrdner1 = Nothing
Me.scanLieferscheinTP._DATENSERVER_UOrdner2 = Nothing
Me.scanLieferscheinTP._DATENSERVER_UOrdner3 = Nothing
Me.scanLieferscheinTP._MULTI_FILES = True
Me.scanLieferscheinTP._TEXT_PDF = "Lieferschein Telepass"
Me.scanLieferscheinTP.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanLieferscheinTP.BackColor = System.Drawing.Color.White
Me.scanLieferscheinTP.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanLieferscheinTP.Cursor = System.Windows.Forms.Cursors.Default
Me.scanLieferscheinTP.Location = New System.Drawing.Point(3, 4)
Me.scanLieferscheinTP.Name = "scanLieferscheinTP"
Me.scanLieferscheinTP.Size = New System.Drawing.Size(155, 24)
Me.scanLieferscheinTP.TabIndex = 23
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 57)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 104)
Me.scanSonstiges.TabIndex = 21
'
'scanRetourniert
'
Me.scanRetourniert._ARCHIV = True
Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanRetourniert._DATENSERVER_ORDNER = "MDM"
Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing
Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing
Me.scanRetourniert._MULTI_FILES = True
Me.scanRetourniert._TEXT_PDF = "Retourniert"
Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanRetourniert.BackColor = System.Drawing.Color.White
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
Me.scanRetourniert.Location = New System.Drawing.Point(163, 30)
Me.scanRetourniert.Name = "scanRetourniert"
Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
Me.scanRetourniert.TabIndex = 20
'
'cbxErsatztelepass
'
Me.cbxErsatztelepass._date = Nothing
Me.cbxErsatztelepass._showdate = True
Me.cbxErsatztelepass._value = ""
Me.cbxErsatztelepass.AutoSize = True
Me.cbxErsatztelepass.Location = New System.Drawing.Point(327, 38)
Me.cbxErsatztelepass.Name = "cbxErsatztelepass"
Me.cbxErsatztelepass.Size = New System.Drawing.Size(94, 17)
Me.cbxErsatztelepass.TabIndex = 5
Me.cbxErsatztelepass.Text = "Ersatztelepass"
Me.cbxErsatztelepass.UseVisualStyleBackColor = True
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 4
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(327, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 8
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(327, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 7
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(327, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 9
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(327, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 10
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'cbxRetourniert
'
Me.cbxRetourniert._date = Nothing
Me.cbxRetourniert._showdate = True
Me.cbxRetourniert._value = ""
Me.cbxRetourniert.AutoSize = True
Me.cbxRetourniert.Location = New System.Drawing.Point(327, 64)
Me.cbxRetourniert.Name = "cbxRetourniert"
Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
Me.cbxRetourniert.TabIndex = 6
Me.cbxRetourniert.Text = "Retourniert"
Me.cbxRetourniert.UseVisualStyleBackColor = True
'
'txtVIACard
'
Me.txtVIACard._DateTimeOnly = False
Me.txtVIACard._numbersOnly = False
Me.txtVIACard._numbersOnlyKommastellen = ""
Me.txtVIACard._Prozent = False
Me.txtVIACard._ShortDateNew = False
Me.txtVIACard._ShortDateOnly = False
Me.txtVIACard._TimeOnly = False
Me.txtVIACard._value = Nothing
Me.txtVIACard._Waehrung = False
Me.txtVIACard._WaehrungZeichen = True
Me.txtVIACard.Location = New System.Drawing.Point(106, 98)
Me.txtVIACard.MaxLength = 9
Me.txtVIACard.MaxLineLength = -1
Me.txtVIACard.MaxLines_Warning = ""
Me.txtVIACard.MaxLines_Warning_Label = Nothing
Me.txtVIACard.Name = "txtVIACard"
Me.txtVIACard.Size = New System.Drawing.Size(183, 20)
Me.txtVIACard.TabIndex = 2
'
'txtTelepassNr
'
Me.txtTelepassNr._DateTimeOnly = False
Me.txtTelepassNr._numbersOnly = False
Me.txtTelepassNr._numbersOnlyKommastellen = ""
Me.txtTelepassNr._Prozent = False
Me.txtTelepassNr._ShortDateNew = False
Me.txtTelepassNr._ShortDateOnly = False
Me.txtTelepassNr._TimeOnly = False
Me.txtTelepassNr._value = Nothing
Me.txtTelepassNr._Waehrung = False
Me.txtTelepassNr._WaehrungZeichen = True
Me.txtTelepassNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTelepassNr.Location = New System.Drawing.Point(106, 124)
Me.txtTelepassNr.MaxLength = 10
Me.txtTelepassNr.MaxLineLength = -1
Me.txtTelepassNr.MaxLines_Warning = ""
Me.txtTelepassNr.MaxLines_Warning_Label = Nothing
Me.txtTelepassNr.Name = "txtTelepassNr"
Me.txtTelepassNr.Size = New System.Drawing.Size(183, 23)
Me.txtTelepassNr.TabIndex = 3
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(327, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 91
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'usrCntlSDLLeistungenIT
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.cbxErsatztelepass)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.cbxRetourniert)
Me.Controls.Add(Me.txtVIACard)
Me.Controls.Add(Me.txtTelepassNr)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label10)
Me.Name = "usrCntlSDLLeistungenIT"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtTelepassKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtVIACard As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtTelepassNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanLieferscheinTP As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanLieferscheinVIA As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxErsatztelepass As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
End Class

View File

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

View File

@@ -0,0 +1,207 @@
Imports System.Globalization
Public Class usrCntlSDLLeistungenIT
Public KfzKennzeichen As String
Public SDLNr As String
Public kdNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Dim culture As CultureInfo = New CultureInfo("de-DE")
Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
scanLieferscheinTP.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanLieferscheinVIA.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If txtTelepassKdNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtTelepassKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
End Sub
Function gueltigBisabgelaufen(o) As Boolean
If CDate(o) > Now Then
Return False
End If
Return True
End Function
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
cbxRetourniert._date = SDL.RetourniertAm
cbxErsatztelepass._date = SDL.TelepassErsatzkarteAm
cbxVerloren._date = SDL.VerlorenAm
cbxGestohlen._date = SDL.GestohlenAm
cbxGesperrt._date = SDL.GesperrtAm
cbxDefekt._date = SDL.DefektAm
cbxGesperrt.Checked = SDL.Gesperrt
cbxDefekt.Checked = SDL.Defekt
cbxGestohlen.Checked = SDL.Gestohlen
cbxVerloren.Checked = SDL.Verloren
cbxArchiviert.Checked = SDL.Archiviert
cbxRetourniert.Checked = SDL.Retourniert
cbxErsatztelepass.Checked = SDL.TelepassErsatzkarte
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtTelepassKdNr.Text = SDL.TELEPASS_Kd_Nr
txtTelepassNr.Text = SDL.TELEPASS_Nr
txtVIACard.Text = SDL.VIACARD
' txtTelepassKdNr.Text = SDL.MSE_Kd_Nr
' txtTelepassNr.Text = SDL.PAN_Nr
' txtVIACard.Text = SDL.SERIE_Nr
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
's.updateBinding()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valid As Boolean = VAL.checkValidDate(sender, True)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
SDL.Gesperrt = cbxGesperrt.Checked
SDL.Defekt = cbxDefekt.Checked
SDL.Gestohlen = cbxGestohlen.Checked
SDL.Verloren = cbxVerloren.Checked
SDL.Retourniert = cbxRetourniert.Checked
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.TELEPASS_Kd_Nr = txtTelepassKdNr.Text
SDL.TELEPASS_Nr = txtTelepassNr.Text
SDL.VIACARD = txtVIACard.Text
SDL.TelepassErsatzkarte = cbxErsatztelepass.Checked
SDL.RetourniertAm = cbxRetourniert._date
SDL.TelepassErsatzkarteAm = cbxErsatztelepass._date
SDL.VerlorenAm = cbxVerloren._date
SDL.GestohlenAm = cbxGestohlen._date
SDL.GesperrtAm = cbxGesperrt._date
SDL.DefektAm = cbxDefekt._date
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtTelepassKdNr.TextChanged, txtTelepassNr.TextChanged, txtVIACard.TextChanged, txtVermerk.TextChanged, cbxRetourniert.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxErsatztelepass.CheckedChanged, cbxArchiviert.CheckedChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtLieferung Then
If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt, boolDate) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & If(boolDate, ", am " & Now.ToShortDateString, "")
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,285 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungenMANAbgas
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.lblBestellformularAusdrucken = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 107)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(49, 13)
Me.Label4.TabIndex = 11
Me.Label4.Text = "Vermerk:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 6
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 1
Me.Label7.Text = "Bestelldatum:"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 0
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(119, 13)
Me.Label8.TabIndex = 0
Me.Label8.Text = "MAN Abgasplakette"
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk.Location = New System.Drawing.Point(106, 104)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 113)
Me.txtVermerk.TabIndex = 4
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 158)
Me.scanSonstiges.TabIndex = 21
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 22
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 91
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'lblBestellformularAusdrucken
'
Me.lblBestellformularAusdrucken.BackColor = System.Drawing.Color.Green
Me.lblBestellformularAusdrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBestellformularAusdrucken.ForeColor = System.Drawing.Color.White
Me.lblBestellformularAusdrucken.Location = New System.Drawing.Point(230, 36)
Me.lblBestellformularAusdrucken.Name = "lblBestellformularAusdrucken"
Me.lblBestellformularAusdrucken.Size = New System.Drawing.Size(168, 20)
Me.lblBestellformularAusdrucken.TabIndex = 92
Me.lblBestellformularAusdrucken.Text = "Bestellformular ausdrucken!"
Me.lblBestellformularAusdrucken.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblBestellformularAusdrucken.Visible = False
'
'usrCntlSDLLeistungenMANAbgas
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.lblBestellformularAusdrucken)
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Name = "usrCntlSDLLeistungenMANAbgas"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents lblBestellformularAusdrucken As System.Windows.Forms.Label
End Class

View File

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

View File

@@ -0,0 +1,165 @@
Imports System.Globalization
Public Class usrCntlSDLLeistungenMANAbgas
Public KfzKennzeichen As String
Public kdNr As String
Public SDLNr As String
Public History As String
Dim PROG As New cProgramFunctions
Dim kundenSQL As New kundenSQL
Dim culture As CultureInfo = New CultureInfo("de-DE")
Public addnew As Boolean = False
Dim VAL As New cValidationSDLLeistungen
'Public WithEvents s As New cBinding 'fürs Binding
Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
Public Event CHANGED(kdNr, newKfz, SDLNr, History)
Dim boud = False
Sub New(kdNr, KfzKennzeichen, SDLNr, History)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.kdNr = kdNr
Me.KfzKennzeichen = KfzKennzeichen
Me.SDLNr = SDLNr
Me.History = History
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
UsrCntlDetails.kdNr = kdNr
UsrCntlDetails.SDLNr = SDLNr
UsrCntlDetails.History = History
UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
End Sub
'Scan-Elemente initialisieren:
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
lblBestellformularAusdrucken.Visible = False
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If
End Sub
Function gueltigBisabgelaufen(o) As Boolean
Try
If CDate(o) > Now Then
Return False
End If
Return True
Catch ex As Exception
Return False
End Try
End Function
Sub initDataBinding()
Try
SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
PROG.initDTPE(txtLieferung)
PROG.initDTPE(txtBestellung)
txtLieferung._value = SDL.Lieferdatum
txtBestellung._value = SDL.Bestelldatum
cbxArchiviert.Checked = SDL.Archiviert
txtVermerk.Text = SDL.Vermerk
UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
End Try
End Sub
Public Sub newEntry()
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
End Sub
Sub BindingTableColumnChanged()
UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
End Sub
Public Function save() As Boolean
loadDataInClass()
Return SDL.SAVE
'If checkSave() Then
' Return kundenSQL.doSQLByList(s.bindingSource)
'End If
Return False
End Function
Sub loadDataInClass()
SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
SDL.Vermerk = txtVermerk.Text
SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
SDL.Archiviert = cbxArchiviert.Checked
End Sub
Function checkSave() As Boolean
' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
Return True
End Function
Private Sub datBestellung_ValueChanged(sender As Object, e As EventArgs)
If sender.value Is DBNull.Value Then
sender.checked = False
End If
End Sub
Private Sub txtBestellung_TextChanged2(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtVermerk.TextChanged, cbxArchiviert.CheckedChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
If boud And Me.FindForm IsNot Nothing Then
If sender Is txtBestellung Then
'MsgBox("Bestellformular ausdrucken!")
lblBestellformularAusdrucken.Visible = True
End If
BindingTableColumnChanged()
End If
End Sub
Function addTxtToVermerk(tmp, txt) As String
If txtVermerk.Text <> "" Then tmp &= " / "
tmp &= txt & ", am " & Now.ToShortDateString
If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
Return tmp
End Function
End Class

View File

@@ -0,0 +1,486 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSDLLeistungenMSE
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtMSECardNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtMSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlDetails = New SDL.usrCntlAllg()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.SuspendLayout()
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 127)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(69, 13)
Me.Label9.TabIndex = 10
Me.Label9.Text = "Karten-Nr.:"
'
'txtMSECardNr
'
Me.txtMSECardNr._DateTimeOnly = False
Me.txtMSECardNr._numbersOnly = False
Me.txtMSECardNr._numbersOnlyKommastellen = ""
Me.txtMSECardNr._Prozent = False
Me.txtMSECardNr._ShortDateNew = False
Me.txtMSECardNr._ShortDateOnly = False
Me.txtMSECardNr._TimeOnly = False
Me.txtMSECardNr._value = Nothing
Me.txtMSECardNr._Waehrung = False
Me.txtMSECardNr._WaehrungZeichen = True
Me.txtMSECardNr.Location = New System.Drawing.Point(106, 124)
Me.txtMSECardNr.MaxLength = 22
Me.txtMSECardNr.MaxLineLength = -1
Me.txtMSECardNr.MaxLines_Warning = ""
Me.txtMSECardNr.MaxLines_Warning_Label = Nothing
Me.txtMSECardNr.Name = "txtMSECardNr"
Me.txtMSECardNr.Size = New System.Drawing.Size(183, 20)
Me.txtMSECardNr.TabIndex = 2
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel2.Controls.Add(Me.Label8)
Me.Panel2.Controls.Add(Me.txtMSEKdNr)
Me.Panel2.Controls.Add(Me.Label3)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(760, 30)
Me.Panel2.TabIndex = 43
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(6, 9)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(65, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "Maut MSE"
'
'txtMSEKdNr
'
Me.txtMSEKdNr._DateTimeOnly = False
Me.txtMSEKdNr._numbersOnly = True
Me.txtMSEKdNr._numbersOnlyKommastellen = ""
Me.txtMSEKdNr._Prozent = False
Me.txtMSEKdNr._ShortDateNew = False
Me.txtMSEKdNr._ShortDateOnly = False
Me.txtMSEKdNr._TimeOnly = False
Me.txtMSEKdNr._value = ""
Me.txtMSEKdNr._Waehrung = False
Me.txtMSEKdNr._WaehrungZeichen = True
Me.txtMSEKdNr.Location = New System.Drawing.Point(574, 6)
Me.txtMSEKdNr.MaxLineLength = -1
Me.txtMSEKdNr.MaxLines_Warning = ""
Me.txtMSEKdNr.MaxLines_Warning_Label = Nothing
Me.txtMSEKdNr.Name = "txtMSEKdNr"
Me.txtMSEKdNr.Size = New System.Drawing.Size(183, 20)
Me.txtMSEKdNr.TabIndex = 13
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(471, 9)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(90, 13)
Me.Label3.TabIndex = 12
Me.Label3.Text = "MSE-Kunden-Nr.:"
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._value = Nothing
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = True
Me.txtVermerk.Location = New System.Drawing.Point(106, 162)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Multiline = True
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(183, 55)
Me.txtVermerk.TabIndex = 3
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(3, 165)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(49, 13)
Me.Label1.TabIndex = 79
Me.Label1.Text = "Vermerk:"
'
'cbxGestohlen
'
Me.cbxGestohlen._date = Nothing
Me.cbxGestohlen._showdate = True
Me.cbxGestohlen._value = ""
Me.cbxGestohlen.AutoSize = True
Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134)
Me.cbxGestohlen.Name = "cbxGestohlen"
Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17)
Me.cbxGestohlen.TabIndex = 7
Me.cbxGestohlen.Text = "Gestohlen"
Me.cbxGestohlen.UseVisualStyleBackColor = True
'
'cbxVerloren
'
Me.cbxVerloren._date = Nothing
Me.cbxVerloren._showdate = True
Me.cbxVerloren._value = ""
Me.cbxVerloren.AutoSize = True
Me.cbxVerloren.Location = New System.Drawing.Point(333, 111)
Me.cbxVerloren.Name = "cbxVerloren"
Me.cbxVerloren.Size = New System.Drawing.Size(65, 17)
Me.cbxVerloren.TabIndex = 6
Me.cbxVerloren.Text = "Verloren"
Me.cbxVerloren.UseVisualStyleBackColor = True
'
'cbxGesperrt
'
Me.cbxGesperrt._date = Nothing
Me.cbxGesperrt._showdate = True
Me.cbxGesperrt._value = ""
Me.cbxGesperrt.AutoSize = True
Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155)
Me.cbxGesperrt.Name = "cbxGesperrt"
Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17)
Me.cbxGesperrt.TabIndex = 8
Me.cbxGesperrt.Text = "Gesperrt"
Me.cbxGesperrt.UseVisualStyleBackColor = True
'
'cbxDefekt
'
Me.cbxDefekt._date = Nothing
Me.cbxDefekt._showdate = True
Me.cbxDefekt._value = ""
Me.cbxDefekt.AutoSize = True
Me.cbxDefekt.Location = New System.Drawing.Point(333, 177)
Me.cbxDefekt.Name = "cbxDefekt"
Me.cbxDefekt.Size = New System.Drawing.Size(58, 17)
Me.cbxDefekt.TabIndex = 9
Me.cbxDefekt.Text = "Defekt"
Me.cbxDefekt.UseVisualStyleBackColor = True
'
'txtLieferung
'
Me.txtLieferung._DateTimeOnly = False
Me.txtLieferung._numbersOnly = False
Me.txtLieferung._numbersOnlyKommastellen = ""
Me.txtLieferung._Prozent = False
Me.txtLieferung._ShortDateNew = True
Me.txtLieferung._ShortDateOnly = False
Me.txtLieferung._TimeOnly = False
Me.txtLieferung._value = ""
Me.txtLieferung._Waehrung = False
Me.txtLieferung._WaehrungZeichen = True
Me.txtLieferung.ForeColor = System.Drawing.Color.Red
Me.txtLieferung.Location = New System.Drawing.Point(106, 62)
Me.txtLieferung.MaxLength = 10
Me.txtLieferung.MaxLineLength = -1
Me.txtLieferung.MaxLines_Warning = ""
Me.txtLieferung.MaxLines_Warning_Label = Nothing
Me.txtLieferung.Name = "txtLieferung"
Me.txtLieferung.Size = New System.Drawing.Size(74, 20)
Me.txtLieferung.TabIndex = 1
'
'txtBestellung
'
Me.txtBestellung._DateTimeOnly = False
Me.txtBestellung._numbersOnly = False
Me.txtBestellung._numbersOnlyKommastellen = ""
Me.txtBestellung._Prozent = False
Me.txtBestellung._ShortDateNew = True
Me.txtBestellung._ShortDateOnly = False
Me.txtBestellung._TimeOnly = False
Me.txtBestellung._value = ""
Me.txtBestellung._Waehrung = False
Me.txtBestellung._WaehrungZeichen = True
Me.txtBestellung.ForeColor = System.Drawing.Color.Red
Me.txtBestellung.Location = New System.Drawing.Point(106, 36)
Me.txtBestellung.MaxLength = 10
Me.txtBestellung.MaxLineLength = -1
Me.txtBestellung.MaxLines_Warning = ""
Me.txtBestellung.MaxLines_Warning_Label = Nothing
Me.txtBestellung.Name = "txtBestellung"
Me.txtBestellung.Size = New System.Drawing.Size(74, 20)
Me.txtBestellung.TabIndex = 0
'
'txtGueltigkeit2
'
Me.txtGueltigkeit2._DateTimeOnly = False
Me.txtGueltigkeit2._numbersOnly = False
Me.txtGueltigkeit2._numbersOnlyKommastellen = ""
Me.txtGueltigkeit2._Prozent = False
Me.txtGueltigkeit2._ShortDateNew = True
Me.txtGueltigkeit2._ShortDateOnly = False
Me.txtGueltigkeit2._TimeOnly = False
Me.txtGueltigkeit2._value = ""
Me.txtGueltigkeit2._Waehrung = False
Me.txtGueltigkeit2._WaehrungZeichen = True
Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red
Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36)
Me.txtGueltigkeit2.MaxLength = 10
Me.txtGueltigkeit2.MaxLineLength = -1
Me.txtGueltigkeit2.MaxLines_Warning = ""
Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing
Me.txtGueltigkeit2.Name = "txtGueltigkeit2"
Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20)
Me.txtGueltigkeit2.TabIndex = 4
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 65)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(65, 13)
Me.Label6.TabIndex = 85
Me.Label6.Text = "Lieferdatum:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 39)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(70, 13)
Me.Label7.TabIndex = 84
Me.Label7.Text = "Bestelldatum:"
'
'Label11
'
Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(330, 39)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(53, 13)
Me.Label11.TabIndex = 83
Me.Label11.Text = "Gültig bis:"
'
'cbxRetourniert
'
Me.cbxRetourniert._date = Nothing
Me.cbxRetourniert._showdate = True
Me.cbxRetourniert._value = ""
Me.cbxRetourniert.AutoSize = True
Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64)
Me.cbxRetourniert.Name = "cbxRetourniert"
Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17)
Me.cbxRetourniert.TabIndex = 5
Me.cbxRetourniert.Text = "Retourniert"
Me.cbxRetourniert.UseVisualStyleBackColor = True
'
'tbcntr
'
Me.tbcntr.Controls.Add(Me.TabPage1)
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right
Me.tbcntr.Location = New System.Drawing.Point(496, 30)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 190)
Me.tbcntr.TabIndex = 90
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.UsrCntlDetails)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(256, 164)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Details"
Me.TabPage1.UseVisualStyleBackColor = True
'
'UsrCntlDetails
'
Me.UsrCntlDetails.BackColor = System.Drawing.Color.White
Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlDetails.Name = "UsrCntlDetails"
Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158)
Me.UsrCntlDetails.TabIndex = 18
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanLieferschein)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 164)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True
'
'scanLieferschein
'
Me.scanLieferschein._ARCHIV = True
Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
Me.scanLieferschein._MULTI_FILES = True
Me.scanLieferschein._TEXT_PDF = "Lieferschein"
Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanLieferschein.BackColor = System.Drawing.Color.White
Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
Me.scanLieferschein.Location = New System.Drawing.Point(3, 4)
Me.scanLieferschein.Name = "scanLieferschein"
Me.scanLieferschein.Size = New System.Drawing.Size(94, 24)
Me.scanLieferschein.TabIndex = 23
'
'scanSonstiges
'
Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanSonstiges._DATENSERVER_ORDNER = "MDM"
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
Me.scanSonstiges.TabIndex = 21
'
'cbxArchiviert
'
Me.cbxArchiviert._date = Nothing
Me.cbxArchiviert._showdate = True
Me.cbxArchiviert._value = ""
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17)
Me.cbxArchiviert.TabIndex = 91
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'usrCntlSDLLeistungenMSE
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.cbxRetourniert)
Me.Controls.Add(Me.txtLieferung)
Me.Controls.Add(Me.txtBestellung)
Me.Controls.Add(Me.txtGueltigkeit2)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txtVermerk)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cbxGestohlen)
Me.Controls.Add(Me.cbxVerloren)
Me.Controls.Add(Me.cbxGesperrt)
Me.Controls.Add(Me.cbxDefekt)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.txtMSECardNr)
Me.Controls.Add(Me.Label9)
Me.Name = "usrCntlSDLLeistungenMSE"
Me.Size = New System.Drawing.Size(760, 220)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents txtMSECardNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtMSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents tbcntr As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
End Class

View File

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

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