SDL Jetzt erst recht!
This commit is contained in:
1421
SDL/AATEST.Designer.vb
generated
Normal file
1421
SDL/AATEST.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
120
SDL/AATEST.resx
Normal file
120
SDL/AATEST.resx
Normal 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>
|
||||
6
SDL/AATEST.vb
Normal file
6
SDL/AATEST.vb
Normal file
@@ -0,0 +1,6 @@
|
||||
Public Class AATEST
|
||||
|
||||
Private Sub Label39_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
355
SDL/Administration/Auswertungen/frmZollUserStat.Designer.vb
generated
Normal file
355
SDL/Administration/Auswertungen/frmZollUserStat.Designer.vb
generated
Normal file
@@ -0,0 +1,355 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmZollUserStat
|
||||
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(frmZollUserStat))
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.Button6 = New System.Windows.Forms.Button()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
|
||||
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.cbxNachAbfertigungsartSplitten = New System.Windows.Forms.CheckBox()
|
||||
Me.Button8 = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 10)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(164, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Auswertung Speditionsbuch"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(12, 50)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(25, 13)
|
||||
Me.Label2.TabIndex = 0
|
||||
Me.Label2.Text = "von"
|
||||
'
|
||||
'MyTextBox1
|
||||
'
|
||||
Me.MyTextBox1._numbersOnly = False
|
||||
Me.MyTextBox1._Prozent = False
|
||||
Me.MyTextBox1._ShortDateNew = False
|
||||
Me.MyTextBox1._ShortDateOnly = True
|
||||
Me.MyTextBox1._TimeOnly = False
|
||||
Me.MyTextBox1._value = ""
|
||||
Me.MyTextBox1._Waehrung = False
|
||||
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox1.Location = New System.Drawing.Point(43, 47)
|
||||
Me.MyTextBox1.MaxLength = 10
|
||||
Me.MyTextBox1.MaxLineLength = -1
|
||||
Me.MyTextBox1.MaxLines_Warning = ""
|
||||
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox1.Name = "MyTextBox1"
|
||||
Me.MyTextBox1.Size = New System.Drawing.Size(76, 20)
|
||||
Me.MyTextBox1.TabIndex = 1
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(130, 50)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(20, 13)
|
||||
Me.Label3.TabIndex = 0
|
||||
Me.Label3.Text = "bis"
|
||||
'
|
||||
'MyTextBox3
|
||||
'
|
||||
Me.MyTextBox3._numbersOnly = False
|
||||
Me.MyTextBox3._Prozent = False
|
||||
Me.MyTextBox3._ShortDateNew = False
|
||||
Me.MyTextBox3._ShortDateOnly = True
|
||||
Me.MyTextBox3._TimeOnly = False
|
||||
Me.MyTextBox3._value = ""
|
||||
Me.MyTextBox3._Waehrung = False
|
||||
Me.MyTextBox3.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox3.Location = New System.Drawing.Point(156, 47)
|
||||
Me.MyTextBox3.MaxLength = 10
|
||||
Me.MyTextBox3.MaxLineLength = -1
|
||||
Me.MyTextBox3.MaxLines_Warning = ""
|
||||
Me.MyTextBox3.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox3.Name = "MyTextBox3"
|
||||
Me.MyTextBox3.Size = New System.Drawing.Size(76, 20)
|
||||
Me.MyTextBox3.TabIndex = 1
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(6, 12)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(67, 23)
|
||||
Me.Button1.TabIndex = 3
|
||||
Me.Button1.Text = "alle"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.Location = New System.Drawing.Point(79, 12)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(73, 23)
|
||||
Me.Button2.TabIndex = 3
|
||||
Me.Button2.Text = "keine"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Location = New System.Drawing.Point(247, 47)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(99, 23)
|
||||
Me.Button3.TabIndex = 3
|
||||
Me.Button3.Text = "aktuelles Jahr"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.Location = New System.Drawing.Point(352, 47)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(69, 23)
|
||||
Me.Button4.TabIndex = 3
|
||||
Me.Button4.Text = "Vorjahr"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Location = New System.Drawing.Point(247, 76)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(99, 23)
|
||||
Me.Button5.TabIndex = 3
|
||||
Me.Button5.Text = "aktuelles Monat"
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button6.Location = New System.Drawing.Point(352, 76)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(69, 23)
|
||||
Me.Button6.TabIndex = 3
|
||||
Me.Button6.Text = "Vormonat"
|
||||
Me.Button6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button7
|
||||
'
|
||||
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button7.Location = New System.Drawing.Point(247, 132)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(174, 40)
|
||||
Me.Button7.TabIndex = 3
|
||||
Me.Button7.Text = "AUSWERTUNG"
|
||||
Me.Button7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'MyListBox1
|
||||
'
|
||||
Me.MyListBox1._value = ""
|
||||
Me.MyListBox1.FormattingEnabled = True
|
||||
Me.MyListBox1.Location = New System.Drawing.Point(6, 41)
|
||||
Me.MyListBox1.Name = "MyListBox1"
|
||||
Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
|
||||
Me.MyListBox1.Size = New System.Drawing.Size(225, 667)
|
||||
Me.MyListBox1.TabIndex = 5
|
||||
'
|
||||
'DataGridView1
|
||||
'
|
||||
Me.DataGridView1.AllowUserToAddRows = False
|
||||
Me.DataGridView1.AllowUserToDeleteRows = False
|
||||
Me.DataGridView1.AllowUserToOrderColumns = True
|
||||
Me.DataGridView1.AllowUserToResizeRows = False
|
||||
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DataGridView1.Location = New System.Drawing.Point(0, 186)
|
||||
Me.DataGridView1.Name = "DataGridView1"
|
||||
Me.DataGridView1.RowHeadersVisible = False
|
||||
Me.DataGridView1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.DataGridView1.Size = New System.Drawing.Size(841, 530)
|
||||
Me.DataGridView1.TabIndex = 8
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.Label4)
|
||||
Me.Panel1.Controls.Add(Me.MyComboBox1)
|
||||
Me.Panel1.Controls.Add(Me.Button8)
|
||||
Me.Panel1.Controls.Add(Me.cbxNachAbfertigungsartSplitten)
|
||||
Me.Panel1.Controls.Add(Me.Label5)
|
||||
Me.Panel1.Controls.Add(Me.MyComboBox2)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.Label3)
|
||||
Me.Panel1.Controls.Add(Me.MyTextBox1)
|
||||
Me.Panel1.Controls.Add(Me.MyTextBox3)
|
||||
Me.Panel1.Controls.Add(Me.Button3)
|
||||
Me.Panel1.Controls.Add(Me.Button6)
|
||||
Me.Panel1.Controls.Add(Me.Button4)
|
||||
Me.Panel1.Controls.Add(Me.Button7)
|
||||
Me.Panel1.Controls.Add(Me.Button5)
|
||||
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(841, 186)
|
||||
Me.Panel1.TabIndex = 10
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(12, 132)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(74, 13)
|
||||
Me.Label5.TabIndex = 7
|
||||
Me.Label5.Text = "Niederlassung"
|
||||
'
|
||||
'MyComboBox2
|
||||
'
|
||||
Me.MyComboBox2._allowedValuesFreiText = Nothing
|
||||
Me.MyComboBox2._allowFreiText = False
|
||||
Me.MyComboBox2._value = ""
|
||||
Me.MyComboBox2.FormattingEnabled = True
|
||||
Me.MyComboBox2.Location = New System.Drawing.Point(15, 149)
|
||||
Me.MyComboBox2.Name = "MyComboBox2"
|
||||
Me.MyComboBox2.Size = New System.Drawing.Size(217, 21)
|
||||
Me.MyComboBox2.TabIndex = 8
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Controls.Add(Me.MyListBox1)
|
||||
Me.Panel2.Controls.Add(Me.Button1)
|
||||
Me.Panel2.Controls.Add(Me.Button2)
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.Panel2.Location = New System.Drawing.Point(841, 0)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(234, 716)
|
||||
Me.Panel2.TabIndex = 11
|
||||
'
|
||||
'cbxNachAbfertigungsartSplitten
|
||||
'
|
||||
Me.cbxNachAbfertigungsartSplitten.AutoSize = True
|
||||
Me.cbxNachAbfertigungsartSplitten.Location = New System.Drawing.Point(247, 110)
|
||||
Me.cbxNachAbfertigungsartSplitten.Name = "cbxNachAbfertigungsartSplitten"
|
||||
Me.cbxNachAbfertigungsartSplitten.Size = New System.Drawing.Size(160, 17)
|
||||
Me.cbxNachAbfertigungsartSplitten.TabIndex = 9
|
||||
Me.cbxNachAbfertigungsartSplitten.Text = "nach Abfertigungsart splitten"
|
||||
Me.cbxNachAbfertigungsartSplitten.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button8
|
||||
'
|
||||
Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button8.Image = Global.SDL.My.Resources.Excel_logo
|
||||
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button8.Location = New System.Drawing.Point(755, 132)
|
||||
Me.Button8.Name = "Button8"
|
||||
Me.Button8.Size = New System.Drawing.Size(80, 40)
|
||||
Me.Button8.TabIndex = 10
|
||||
Me.Button8.Text = "Excel"
|
||||
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button8.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(12, 91)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(32, 13)
|
||||
Me.Label4.TabIndex = 11
|
||||
Me.Label4.Text = "Firma"
|
||||
'
|
||||
'MyComboBox1
|
||||
'
|
||||
Me.MyComboBox1._allowedValuesFreiText = Nothing
|
||||
Me.MyComboBox1._allowFreiText = False
|
||||
Me.MyComboBox1._value = ""
|
||||
Me.MyComboBox1.FormattingEnabled = True
|
||||
Me.MyComboBox1.Location = New System.Drawing.Point(15, 108)
|
||||
Me.MyComboBox1.Name = "MyComboBox1"
|
||||
Me.MyComboBox1.Size = New System.Drawing.Size(217, 21)
|
||||
Me.MyComboBox1.TabIndex = 12
|
||||
'
|
||||
'frmZollUserStat
|
||||
'
|
||||
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(1075, 716)
|
||||
Me.Controls.Add(Me.DataGridView1)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmZollUserStat"
|
||||
Me.Text = "Speitionsbuch Auswertung Mitarbeiter"
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button6 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button7 As System.Windows.Forms.Button
|
||||
Friend WithEvents MyListBox1 As VERAG_PROG_ALLGEMEIN.MyListBox
|
||||
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cbxNachAbfertigungsartSplitten As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents Button8 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
End Class
|
||||
980
SDL/Administration/Auswertungen/frmZollUserStat.resx
Normal file
980
SDL/Administration/Auswertungen/frmZollUserStat.resx
Normal 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>
|
||||
266
SDL/Administration/Auswertungen/frmZollUserStat.vb
Normal file
266
SDL/Administration/Auswertungen/frmZollUserStat.vb
Normal file
@@ -0,0 +1,266 @@
|
||||
Imports System.Drawing.Drawing2D
|
||||
|
||||
Public Class frmZollUserStat
|
||||
Dim dbSQL As New SQL
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
DataGridView1.Columns.Clear()
|
||||
Try
|
||||
'Dim sql As String = " SELECT [Personal].[Name], [Personal].Niederlassung,/*COUNT(distinct ([AbfertigungsNr]))*/ sum(Abfertigungsanzahl) as anzahl "
|
||||
' sql &= " FROM [Speditionsbuch] INNER JOIN [Personal] ON [ID]=[Personalnummer] "
|
||||
' sql &= " WHERE 1=1 AND "
|
||||
Dim sql As String = " SELECT mit_nname + ' ' + mit_vname as [Name], mit_niederlassung , [dstma_wochenStunden], "
|
||||
sql &= " isnull((SELECT sum(Abfertigungsanzahl) as anzahl FROM [Speditionsbuch] WHERE Abfertigungsdatum BETWEEN '" & MyTextBox1.Text & "' AND '" & MyTextBox3.Text & "' "
|
||||
If MyListBox1.SelectedItems.Count > 0 Then sql &= " AND Abfertigungsart IN (" & getValues() & ") "
|
||||
sql &= " AND [Personalnummer] = (case when mit_FMZollPersIDKasseIsnotSpedBuch = 1 then mit_FMZollPersIDSpedBuch else mit_fmzollpersid end )),0) as anzahl "
|
||||
|
||||
sql &= getAbfArtSplitter()
|
||||
|
||||
sql &= " FROM [BUCHHALTUNG\SQLEXPRESS].ADMIN.dbo.tblMitarbeiter left join [BUCHHALTUNG\SQLEXPRESS].ADMIN.dbo.tblDienstMitarb ON [dstma_mitId]=mit_id"
|
||||
sql &= " WHERE 1=1 "
|
||||
sql &= " and mit_abteilung IN ('ZOLL','QS') and mit_pseudoUser=0"
|
||||
sql &= " and mit_gekuendigt = 0"
|
||||
Dim filter As String = ""
|
||||
' If MyTextBox1.Text <> "" And MyTextBox3.Text <> "" Then
|
||||
'filter += " Abfertigungsdatum BETWEEN '" & MyTextBox1.Text & "' AND '" & MyTextBox3.Text & "' "
|
||||
' End If
|
||||
' filter += " AND Abfertigungsart IN (" & getValues() & ") "
|
||||
|
||||
'If MyComboBox1.Text <> "" Then filter += " AND FilialenNr IN (" & DirectCast(MyComboBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ") "
|
||||
If MyComboBox2.Text <> "" Then filter += " AND mit_niederlassung IN ('" & DirectCast(MyComboBox2.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "') "
|
||||
If MyComboBox1.Text <> "" Then filter += " AND mit_firma IN ('" & DirectCast(MyComboBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "') "
|
||||
|
||||
|
||||
' filter += " AND [Personalnummer] is not null "
|
||||
|
||||
Dim grouporder As String = " ORDER BY mit_abteilung desc, anzahl desc "
|
||||
sql += filter + grouporder
|
||||
'MsgBox(sql)
|
||||
Dim data As DataTable = dbSQL.loadDgvBySql(sql, "FMZOLL", 300)
|
||||
DataGridView1.DataSource = data
|
||||
initDGV()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Laden der Daten. " & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
Sub initDGV()
|
||||
If DataGridView1.Rows.Count = 0 Then Exit Sub
|
||||
With DataGridView1
|
||||
.Columns("Name").HeaderText = "Mitarbeiter"
|
||||
.Columns("Name").Width = 200
|
||||
' .Columns("Niederlassung").Visible = False
|
||||
.Columns("anzahl").Visible = False
|
||||
.Columns("mit_niederlassung").HeaderText = "Niederlassung"
|
||||
.Columns("dstma_wochenStunden").HeaderText = "Wochenstunden"
|
||||
|
||||
Dim c As New DataGridViewImageColumn()
|
||||
c.HeaderText = "Anzahl"
|
||||
c.Width = 200
|
||||
c.Name = "anzahlShowBar"
|
||||
.Columns.Insert(2, c)
|
||||
'.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader
|
||||
For Each col In .Columns
|
||||
Try : col.MinimumWidth = 50
|
||||
Catch ex As Exception : End Try
|
||||
Next
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Function getAbfArtSplitter() As String
|
||||
getAbfArtSplitter = ""
|
||||
If cbxNachAbfertigungsartSplitten.Checked Then
|
||||
For Each i In MyListBox1.SelectedItems
|
||||
Dim s = ", isnull((SELECT sum(Abfertigungsanzahl) as anzahl FROM [Speditionsbuch] WHERE Abfertigungsdatum BETWEEN '" & MyTextBox1.Text & "' AND '" & MyTextBox3.Text & "' "
|
||||
s &= " AND Abfertigungsart IN (" & DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ") "
|
||||
s &= " AND [Personalnummer] = (case when mit_FMZollPersIDKasseIsnotSpedBuch = 1 then mit_FMZollPersIDSpedBuch else mit_fmzollpersid end )"
|
||||
s &= "),0) as [davon " & DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Text & "] "
|
||||
getAbfArtSplitter += s
|
||||
Next
|
||||
End If
|
||||
End Function
|
||||
|
||||
Function getLabel(t As String) As Label
|
||||
Dim l As New Label
|
||||
l.Text = t
|
||||
Return l
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub frmZollUserStat_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
MyListBox1.fillWithSQL(" SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", , "FMZOLL")
|
||||
' MyComboBox1.fillWithSQL("SELECT Filialen.FilialenNr, Filialen.Grenzstelle FROM Filialen WHERE (((Filialen.Fil_Status)='A')) ORDER BY Filialen.FilialenNr ", , "FMZOLL")
|
||||
MyComboBox1.Items.Clear()
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
|
||||
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
|
||||
MyComboBox1.changeItem("VERAG")
|
||||
MyComboBox2.fillWithSQL("SELECT [nl_kuerzel] ,nl_kuerzel FROM [ADMIN].[dbo].[tblNiederlassungen]", False, "ADMIN")
|
||||
'MyComboBox2.fillWithSQL("SELECT Niederlassung FROM [Personal] WHERE Niederlassung is not null GROUP BY Niederlassung", False, "FMZOLL")
|
||||
Button6.PerformClick()
|
||||
End Sub
|
||||
Function getValues() As String
|
||||
Dim s As String = ""
|
||||
|
||||
For Each i In MyListBox1.SelectedItems
|
||||
s += DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ", "
|
||||
Next
|
||||
If s.EndsWith(", ") Then
|
||||
s = s.Substring(0, s.Length - 2)
|
||||
End If
|
||||
Return s
|
||||
End Function
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
For i = 0 To MyListBox1.Items.Count - 1
|
||||
MyListBox1.SetSelected(i, True)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
For i = 0 To MyListBox1.Items.Count - 1
|
||||
MyListBox1.SetSelected(i, False)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
MyTextBox1.Text = "01.01." & Now.Year
|
||||
MyTextBox3.Text = "12.12." & Now.Year
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
MyTextBox1.Text = "01.01." & (Now.Year - 1)
|
||||
MyTextBox3.Text = "12.12." & (Now.Year - 1)
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
Dim d As Date = New Date(Now.Year, Now.Month, 1)
|
||||
MyTextBox1.Text = d.ToShortDateString
|
||||
|
||||
d = d.AddMonths(1) : d = d.AddDays(-1)
|
||||
MyTextBox3.Text = d.ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
Dim d As Date = New Date(Now.Year, Now.Month, 1)
|
||||
d = d.AddMonths(-1)
|
||||
MyTextBox1.Text = d.ToShortDateString
|
||||
|
||||
d = d.AddMonths(1) : d = d.AddDays(-1)
|
||||
MyTextBox3.Text = d.ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
|
||||
If DataGridView1.Rows.Count = 0 Then Exit Sub
|
||||
|
||||
Dim topvalue As Integer = DataGridView1.Rows(0).Cells("Anzahl").Value
|
||||
If DataGridView1.Columns("anzahlShowBar") Is Nothing Then Exit Sub
|
||||
If e.ColumnIndex = DataGridView1.Columns("anzahlShowBar").Index Then ' Or DataGridView1.Columns(e.ColumnIndex).Name.StartsWith("davon") Then
|
||||
|
||||
If IsNumeric(DataGridView1.Rows(e.RowIndex).Cells("Anzahl").Value) Then
|
||||
Dim veragBlueBrush As New SolidBrush(Color.FromArgb(0, 54, 128))
|
||||
Dim p As DataGridViewImageCell = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex)
|
||||
' e.Graphics.FillRectangle(Brushes.WhiteSmoke, New Rectangle(p.ContentBounds.Location, New Size(New Point(5, 5))))
|
||||
'Dim img As Bitmap = New Bitmap("C:\tmp.jpg" )
|
||||
e.FormattingApplied = True
|
||||
|
||||
Dim Width_bar As Integer = p.Size.Width / topvalue * DataGridView1.Rows(e.RowIndex).Cells("Anzahl").Value
|
||||
|
||||
Dim image As New Bitmap(p.Size.Width, p.Size.Height)
|
||||
Dim gr As Graphics = Graphics.FromImage(image)
|
||||
gr.FillRectangle(veragBlueBrush, New Rectangle(0, 0, Width_bar, p.Size.Height))
|
||||
' MsgBox(Width_bar)
|
||||
|
||||
|
||||
' Dim font As New Font("Arial", 50, False, False)
|
||||
' Dim brush As New SolidBrush(Color.Yellow)
|
||||
' Dim pen As New Pen(Color.Red, 1)
|
||||
|
||||
' gr.DrawString(DataGridView1.Rows(e.RowIndex).Cells("Anzahl").Value, font, pen, brush, 20, 20)
|
||||
|
||||
gr.SmoothingMode = SmoothingMode.AntiAlias
|
||||
Using gp As New GraphicsPath, f As New Font("Microsoft Sans Serif", 12, FontStyle.Regular), pen As New Pen(veragBlueBrush, 3)
|
||||
gp.AddString(CStr(DataGridView1.Rows(e.RowIndex).Cells("Anzahl").Value), f.FontFamily, f.Style, f.Size + 2, New Point(0, 2), StringFormat.GenericDefault)
|
||||
gr.DrawPath(pen, gp)
|
||||
gr.FillPath(Brushes.White, gp)
|
||||
End Using
|
||||
|
||||
gr.Dispose()
|
||||
|
||||
|
||||
|
||||
p.Style.Alignment = DataGridViewContentAlignment.MiddleLeft
|
||||
e.Value = New Bitmap(image)
|
||||
image.Dispose()
|
||||
|
||||
|
||||
'Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If False Then
|
||||
|
||||
If DataGridView1.Columns(e.ColumnIndex).Name.StartsWith("davon") Then
|
||||
|
||||
If IsNumeric(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Then
|
||||
Dim veragBlueBrush As New SolidBrush(Color.FromArgb(0, 54, 128))
|
||||
Dim p As DataGridViewTextBoxCell = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex)
|
||||
' e.Graphics.FillRectangle(Brushes.WhiteSmoke, New Rectangle(p.ContentBounds.Location, New Size(New Point(5, 5))))
|
||||
'Dim img As Bitmap = New Bitmap("C:\tmp.jpg" )
|
||||
e.FormattingApplied = True
|
||||
|
||||
|
||||
Dim Width_bar As Integer = p.Size.Width / topvalue * DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
|
||||
|
||||
Dim image As New Bitmap(p.Size.Width, p.Size.Height)
|
||||
Dim gr As Graphics = Graphics.FromImage(image)
|
||||
gr.FillRectangle(veragBlueBrush, New Rectangle(0, 0, Width_bar, p.Size.Height))
|
||||
' MsgBox(Width_bar)
|
||||
|
||||
|
||||
' Dim font As New Font("Arial", 50, False, False)
|
||||
' Dim brush As New SolidBrush(Color.Yellow)
|
||||
' Dim pen As New Pen(Color.Red, 1)
|
||||
|
||||
' gr.DrawString(DataGridView1.Rows(e.RowIndex).Cells("Anzahl").Value, font, pen, brush, 20, 20)
|
||||
|
||||
gr.SmoothingMode = SmoothingMode.AntiAlias
|
||||
Using gp As New GraphicsPath, f As New Font("Microsoft Sans Serif", 12, FontStyle.Regular), pen As New Pen(veragBlueBrush, 3)
|
||||
gp.AddString(CStr(DataGridView1.Rows(e.RowIndex).Cells("Anzahl").Value), f.FontFamily, f.Style, f.Size + 2, New Point(0, 2), StringFormat.GenericDefault)
|
||||
gr.DrawPath(pen, gp)
|
||||
gr.FillPath(Brushes.White, gp)
|
||||
End Using
|
||||
|
||||
gr.Dispose()
|
||||
|
||||
|
||||
|
||||
p.Style.Alignment = DataGridViewContentAlignment.MiddleLeft
|
||||
p.Value = New Bitmap(image)
|
||||
image.Dispose()
|
||||
|
||||
|
||||
'Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DataGridView1_Paint(sender As Object, e As PaintEventArgs) Handles DataGridView1.Paint
|
||||
' MsgBox("p")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button8_Click(sender As Object, e As EventArgs)
|
||||
|
||||
'DataGridView1_Paint(DataGridView1, New PaintEventArgs(DataGridView1.CreateGraphics, DataGridView1))
|
||||
End Sub
|
||||
|
||||
Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click
|
||||
|
||||
DataGridView1.Columns("anzahlShowBar").Visible = False
|
||||
cProgramFunctions.genExcelFromDGV_NEW(DataGridView1, True)
|
||||
DataGridView1.Columns("anzahlShowBar").Visible = True
|
||||
End Sub
|
||||
End Class
|
||||
222
SDL/Administration/frmKasseAbschliessen.Designer.vb
generated
Normal file
222
SDL/Administration/frmKasseAbschliessen.Designer.vb
generated
Normal file
@@ -0,0 +1,222 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmKasseAbschliessen
|
||||
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(frmKasseAbschliessen))
|
||||
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.lblKasseWahlen = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.NumericUpDown = New System.Windows.Forms.NumericUpDown()
|
||||
Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
|
||||
Me.btnKassensaldoUbertragen = New System.Windows.Forms.Button()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.lblTESTSYSTEM = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
CType(Me.NumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MyComboBox2
|
||||
'
|
||||
Me.MyComboBox2._allowedValuesFreiText = Nothing
|
||||
Me.MyComboBox2._allowFreiText = False
|
||||
Me.MyComboBox2._value = ""
|
||||
Me.MyComboBox2.FormattingEnabled = True
|
||||
Me.MyComboBox2.Location = New System.Drawing.Point(12, 30)
|
||||
Me.MyComboBox2.Name = "MyComboBox2"
|
||||
Me.MyComboBox2.Size = New System.Drawing.Size(298, 21)
|
||||
Me.MyComboBox2.TabIndex = 14
|
||||
'
|
||||
'lblKasseWahlen
|
||||
'
|
||||
Me.lblKasseWahlen.AutoSize = True
|
||||
Me.lblKasseWahlen.Location = New System.Drawing.Point(9, 14)
|
||||
Me.lblKasseWahlen.Name = "lblKasseWahlen"
|
||||
Me.lblKasseWahlen.Size = New System.Drawing.Size(76, 13)
|
||||
Me.lblKasseWahlen.TabIndex = 15
|
||||
Me.lblKasseWahlen.Text = "Kasse wählen:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(9, 72)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(100, 13)
|
||||
Me.Label1.TabIndex = 16
|
||||
Me.Label1.Text = "altes Geschäftsjahr:"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(9, 91)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(107, 13)
|
||||
Me.Label2.TabIndex = 17
|
||||
Me.Label2.Text = "neues Geschäftsjahr:"
|
||||
'
|
||||
'NumericUpDown
|
||||
'
|
||||
Me.NumericUpDown.Location = New System.Drawing.Point(122, 70)
|
||||
Me.NumericUpDown.Maximum = New Decimal(New Integer() {2100, 0, 0, 0})
|
||||
Me.NumericUpDown.Minimum = New Decimal(New Integer() {1990, 0, 0, 0})
|
||||
Me.NumericUpDown.Name = "NumericUpDown"
|
||||
Me.NumericUpDown.Size = New System.Drawing.Size(72, 20)
|
||||
Me.NumericUpDown.TabIndex = 19
|
||||
Me.NumericUpDown.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
Me.NumericUpDown.Value = New Decimal(New Integer() {1990, 0, 0, 0})
|
||||
'
|
||||
'NumericUpDown1
|
||||
'
|
||||
Me.NumericUpDown1.Location = New System.Drawing.Point(122, 89)
|
||||
Me.NumericUpDown1.Maximum = New Decimal(New Integer() {2100, 0, 0, 0})
|
||||
Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1990, 0, 0, 0})
|
||||
Me.NumericUpDown1.Name = "NumericUpDown1"
|
||||
Me.NumericUpDown1.Size = New System.Drawing.Size(72, 20)
|
||||
Me.NumericUpDown1.TabIndex = 19
|
||||
Me.NumericUpDown1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
Me.NumericUpDown1.Value = New Decimal(New Integer() {1990, 0, 0, 0})
|
||||
'
|
||||
'btnKassensaldoUbertragen
|
||||
'
|
||||
Me.btnKassensaldoUbertragen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnKassensaldoUbertragen.Location = New System.Drawing.Point(12, 115)
|
||||
Me.btnKassensaldoUbertragen.Name = "btnKassensaldoUbertragen"
|
||||
Me.btnKassensaldoUbertragen.Size = New System.Drawing.Size(298, 50)
|
||||
Me.btnKassensaldoUbertragen.TabIndex = 20
|
||||
Me.btnKassensaldoUbertragen.Text = "Kassensaldo übertragen"
|
||||
Me.btnKassensaldoUbertragen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(197, 55)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(37, 13)
|
||||
Me.Label3.TabIndex = 21
|
||||
Me.Label3.Text = "Saldo:"
|
||||
'
|
||||
'MyTextBox1
|
||||
'
|
||||
Me.MyTextBox1._DateTimeOnly = False
|
||||
Me.MyTextBox1._numbersOnly = False
|
||||
Me.MyTextBox1._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox1._Prozent = False
|
||||
Me.MyTextBox1._ShortDateNew = False
|
||||
Me.MyTextBox1._ShortDateOnly = False
|
||||
Me.MyTextBox1._TimeOnly = False
|
||||
Me.MyTextBox1._value = ""
|
||||
Me.MyTextBox1._Waehrung = True
|
||||
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox1.Location = New System.Drawing.Point(200, 71)
|
||||
Me.MyTextBox1.MaxLineLength = -1
|
||||
Me.MyTextBox1.MaxLines_Warning = ""
|
||||
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox1.Name = "MyTextBox1"
|
||||
Me.MyTextBox1.ReadOnly = True
|
||||
Me.MyTextBox1.Size = New System.Drawing.Size(110, 20)
|
||||
Me.MyTextBox1.TabIndex = 22
|
||||
'
|
||||
'MyTextBox2
|
||||
'
|
||||
Me.MyTextBox2._DateTimeOnly = False
|
||||
Me.MyTextBox2._numbersOnly = False
|
||||
Me.MyTextBox2._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox2._Prozent = False
|
||||
Me.MyTextBox2._ShortDateNew = False
|
||||
Me.MyTextBox2._ShortDateOnly = False
|
||||
Me.MyTextBox2._TimeOnly = False
|
||||
Me.MyTextBox2._value = ""
|
||||
Me.MyTextBox2._Waehrung = True
|
||||
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox2.Location = New System.Drawing.Point(200, 88)
|
||||
Me.MyTextBox2.MaxLineLength = -1
|
||||
Me.MyTextBox2.MaxLines_Warning = ""
|
||||
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox2.Name = "MyTextBox2"
|
||||
Me.MyTextBox2.ReadOnly = True
|
||||
Me.MyTextBox2.Size = New System.Drawing.Size(110, 20)
|
||||
Me.MyTextBox2.TabIndex = 23
|
||||
'
|
||||
'lblTESTSYSTEM
|
||||
'
|
||||
Me.lblTESTSYSTEM.AutoSize = True
|
||||
Me.lblTESTSYSTEM.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblTESTSYSTEM.Location = New System.Drawing.Point(231, 9)
|
||||
Me.lblTESTSYSTEM.Name = "lblTESTSYSTEM"
|
||||
Me.lblTESTSYSTEM.Size = New System.Drawing.Size(79, 13)
|
||||
Me.lblTESTSYSTEM.TabIndex = 24
|
||||
Me.lblTESTSYSTEM.Text = "TESTSYSTEM"
|
||||
Me.lblTESTSYSTEM.Visible = False
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(12, 54)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label4.TabIndex = 25
|
||||
Me.Label4.Text = "-"
|
||||
'
|
||||
'frmKasseAbschliessen
|
||||
'
|
||||
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(323, 175)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.lblTESTSYSTEM)
|
||||
Me.Controls.Add(Me.MyTextBox2)
|
||||
Me.Controls.Add(Me.MyTextBox1)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.btnKassensaldoUbertragen)
|
||||
Me.Controls.Add(Me.NumericUpDown1)
|
||||
Me.Controls.Add(Me.NumericUpDown)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.lblKasseWahlen)
|
||||
Me.Controls.Add(Me.MyComboBox2)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmKasseAbschliessen"
|
||||
Me.Text = "frmKasseAbschliessen"
|
||||
CType(Me.NumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents lblKasseWahlen As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents NumericUpDown As System.Windows.Forms.NumericUpDown
|
||||
Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
|
||||
Friend WithEvents btnKassensaldoUbertragen As System.Windows.Forms.Button
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents lblTESTSYSTEM As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
End Class
|
||||
1253
SDL/Administration/frmKasseAbschliessen.resx
Normal file
1253
SDL/Administration/frmKasseAbschliessen.resx
Normal file
File diff suppressed because it is too large
Load Diff
283
SDL/Administration/frmKasseAbschliessen.vb
Normal file
283
SDL/Administration/frmKasseAbschliessen.vb
Normal file
@@ -0,0 +1,283 @@
|
||||
Public Class frmKasseAbschliessen
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim FMZOLL_SQL As New FMZOLL_SQL
|
||||
Dim SaldoALT As Double = 0.0
|
||||
Dim SaldoNEU As Double = 0.0
|
||||
|
||||
Dim PERSONAL As cPersonal = Nothing
|
||||
Private Sub frmKasseAbschliessen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
lblTESTSYSTEM.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
|
||||
MyComboBox2.fillWithSQL("SELECT [KassenbuchNr],[Name] FROM [Personal] WHERE ((Status='A' AND KassenbuchNr IS NOT NULL AND BLC='R') OR (BLC='V00')) ORDER BY Name", False, "FMZOLL")
|
||||
NumericUpDown.Value = Now.Year - 1
|
||||
NumericUpDown1.Value = Now.Year
|
||||
End Sub
|
||||
|
||||
Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox2.SelectedIndexChanged
|
||||
PERSONAL = Nothing
|
||||
MyTextBox1.Text = ""
|
||||
MyTextBox2.Text = ""
|
||||
Label4.Text = ""
|
||||
|
||||
If MyComboBox2._value <> "" Then
|
||||
PERSONAL = FMZOLL_SQL.getPersonalKassenbuch(MyComboBox2._value)
|
||||
Label4.Text = PERSONAL.ID
|
||||
initSALDO()
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initSALDO()
|
||||
SaldoALT = SQL.getValueTxtBySql("SELECT isnull((Sum(tblKassenbuch.Soll)-Sum(tblKassenbuch.Haben)),0) AS Saldo " &
|
||||
" FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer " &
|
||||
" WHERE tblKassenbuch.Mandant='" & PERSONAL.Mandant & "' AND tblKassenbuch.Niederlassung='" & PERSONAL.Niederlassung & "' " &
|
||||
" And tblKassenbuch.Benutzer=" & PERSONAL.ID & " AND tblKassenbuch.Geschäftsjahr=" & NumericUpDown.Value & " AND tblKassenbuch.Konto=" & PERSONAL.KassenbuchNr & "", "FMZOLL")
|
||||
SaldoNEU = SQL.getValueTxtBySql("SELECT isnull((Sum(tblKassenbuch.Soll)-Sum(tblKassenbuch.Haben)),0) AS Saldo " &
|
||||
" FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer " &
|
||||
" WHERE tblKassenbuch.Mandant='" & PERSONAL.Mandant & "' AND tblKassenbuch.Niederlassung='" & PERSONAL.Niederlassung & "' " &
|
||||
" And tblKassenbuch.Benutzer=" & PERSONAL.ID & " AND tblKassenbuch.Geschäftsjahr=" & NumericUpDown1.Value & " AND tblKassenbuch.Konto=" & PERSONAL.KassenbuchNr & "", "FMZOLL")
|
||||
|
||||
|
||||
|
||||
MyTextBox1.Text = SaldoALT
|
||||
MyTextBox2.Text = SaldoNEU
|
||||
' Label6.Text = CDbl(If(dt.Rows.Count > 0, cSqlDb.checkNullReturnValue(dt.Rows(0)("Saldo"), 0), 0)).ToString("C")
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnKassensaldoUbertragen_Click(sender As Object, e As EventArgs) Handles btnKassensaldoUbertragen.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
If PERSONAL Is Nothing Then MsgBox("Kasse wählen!") : Exit Sub
|
||||
If SaldoALT = 0 Then MsgBox("Kein Betrag zu übertragen!") : Exit Sub
|
||||
|
||||
JAHRESABSCHLUSS(PERSONAL, SaldoALT)
|
||||
initSALDO()
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Function JAHRESABSCHLUSS(PERSONAL As cPersonal, betrag As Double) As Boolean
|
||||
Dim KASSE As New cRKSV_Kasse
|
||||
' Dim betrag As Double = SaldoALT
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
KASSE.LOAD(6) 'Laden der Kasse anhand der Auswahlbox
|
||||
Else
|
||||
KASSE.LOAD(PERSONAL.cRKSV_KasseID)
|
||||
End If
|
||||
|
||||
insertBELEGALT(KASSE, betrag)
|
||||
insertBELEGNEU(KASSE, betrag)
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Sub insertBELEGALT(KASSE As cRKSV_Kasse, betrag As Double)
|
||||
Dim BELEG_ALT As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!!
|
||||
BELEG_ALT.BelegDat = CDate("31.01." & NumericUpDown1.Value)
|
||||
BELEG_ALT.Belegart = 2 'AUSGANG
|
||||
BELEG_ALT.Beleg_TYP = "E"
|
||||
BELEG_ALT.rksv_aktiv = KASSE.rksv_aktiv
|
||||
BELEG_ALT.Ordnungsbegriff = "* KASSEN-JAHRESABSCHLUSS *" 'IIf(Art = 1, "* KASSEN-JAHRESABSCHLUSS *", "* KASSEN-JAHRESANFANGS-SALDO *")
|
||||
|
||||
BELEG_ALT.rksv_umsatz = betrag
|
||||
BELEG_ALT.Steuerschlüssel = 0
|
||||
|
||||
Dim oldBelegZaehler = KASSE.rksv_BelegIdZaehler
|
||||
Dim RKSV_Beleg_Id = KASSE.INCREASE_BELEG_UMSATZ(BELEG_ALT.rksv_umsatz)
|
||||
|
||||
Dim KBEntry As cKassenbuch = Nothing
|
||||
Dim KBEntryGB As cKassenbuch = Nothing
|
||||
|
||||
' Dim JournalNr = 0
|
||||
If Not insertKB(BELEG_ALT, 9800, KASSE.rksv_id, RKSV_Beleg_Id, KBEntry, KBEntryGB, KASSE.rksv_aktiv) Then ' Eintrag ins Kassenbuch
|
||||
MsgBox(BELEG_ALT, "Programmfehler bei Eintrag ins Kassenbuch.")
|
||||
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
|
||||
End If
|
||||
BELEG_ALT.gebucht = True
|
||||
BELEG_ALT.SAVE()
|
||||
|
||||
If RKSV_Beleg_Id < 0 Then
|
||||
Me.Cursor = Cursors.Default
|
||||
BELEG_ALT = cRKSV.STORNO(BELEG_ALT, "Programmfehler bei der Erstellung der RKSV-Beleg-Id.")
|
||||
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
|
||||
End If
|
||||
|
||||
Dim QR_CodeString As String = ""
|
||||
Dim LastJWS As String = ""
|
||||
|
||||
Dim summeBRUTTO = betrag
|
||||
Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT isnull(tblSteuersätze.Steuersatz,0) FROM tblSteuersätze WHERE tblSteuersätze.Nr='" & BELEG_ALT.Steuerschlüssel & "' ", "FMZOLL")
|
||||
If IsNumeric(steuersatz) Then summeBRUTTO += (betrag * steuersatz)
|
||||
|
||||
If BELEG_ALT.Belegart = 2 Then summeBRUTTO *= -1
|
||||
|
||||
Dim answer = ""
|
||||
If KASSE.rksv_aktiv Then
|
||||
If Not cRKSV.insertRKSV(KASSE.rksv_bez, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, Now, BELEG_ALT.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, False, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
|
||||
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, BELEG_ALT.rksv_umsatz * -1)
|
||||
cRKSV.DELETE(BELEG_ALT)
|
||||
MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
|
||||
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
|
||||
'RKSV-Daten beim Beleg ergänzen:
|
||||
BELEG_ALT.rksv_jws = LastJWS
|
||||
BELEG_ALT.rksv_qr = QR_CodeString
|
||||
BELEG_ALT.rksv_BelegId = RKSV_Beleg_Id
|
||||
BELEG_ALT.rksv_id = KASSE.rksv_id
|
||||
BELEG_ALT.SAVE()
|
||||
End Sub
|
||||
Sub insertBELEGNEU(KASSE As cRKSV_Kasse, betrag As Double)
|
||||
Dim BELEG_NEU As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!!
|
||||
BELEG_NEU.BelegDat = CDate("01.02." & NumericUpDown1.Value)
|
||||
BELEG_NEU.Beleg_TYP = "E"
|
||||
BELEG_NEU.Belegart = 1 'EINGANG
|
||||
BELEG_NEU.rksv_aktiv = KASSE.rksv_aktiv
|
||||
BELEG_NEU.Ordnungsbegriff = "* KASSEN-JAHRESANFANGS-SALDO *" 'IIf(Art = 1, "* KASSEN-JAHRESABSCHLUSS *", "* KASSEN-JAHRESANFANGS-SALDO *")
|
||||
|
||||
BELEG_NEU.rksv_umsatz = betrag
|
||||
BELEG_NEU.Steuerschlüssel = 0
|
||||
|
||||
Dim oldBelegZaehler = KASSE.rksv_BelegIdZaehler
|
||||
Dim RKSV_Beleg_Id = KASSE.INCREASE_BELEG_UMSATZ(BELEG_NEU.rksv_umsatz)
|
||||
|
||||
Dim KBEntry As cKassenbuch = Nothing
|
||||
Dim KBEntryGB As cKassenbuch = Nothing
|
||||
|
||||
' Dim JournalNr = 0
|
||||
If Not insertKB(BELEG_NEU, 9800, KASSE.rksv_id, RKSV_Beleg_Id, KBEntry, KBEntryGB, KASSE.rksv_aktiv) Then ' Eintrag ins Kassenbuch
|
||||
MsgBox(BELEG_NEU, "Programmfehler bei Eintrag ins Kassenbuch.")
|
||||
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
|
||||
End If
|
||||
BELEG_NEU.gebucht = True
|
||||
BELEG_NEU.SAVE()
|
||||
|
||||
If RKSV_Beleg_Id < 0 Then
|
||||
Me.Cursor = Cursors.Default
|
||||
BELEG_NEU = cRKSV.STORNO(BELEG_NEU, "Programmfehler bei der Erstellung der RKSV-Beleg-Id.")
|
||||
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
|
||||
End If
|
||||
|
||||
Dim QR_CodeString As String = ""
|
||||
Dim LastJWS As String = ""
|
||||
|
||||
Dim summeBRUTTO = betrag
|
||||
Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT isnull(tblSteuersätze.Steuersatz,0) FROM tblSteuersätze WHERE tblSteuersätze.Nr='" & BELEG_NEU.Steuerschlüssel & "' ", "FMZOLL")
|
||||
If IsNumeric(steuersatz) Then summeBRUTTO += (betrag * steuersatz)
|
||||
|
||||
If BELEG_NEU.Belegart = 2 Then summeBRUTTO *= -1
|
||||
|
||||
Dim answer = ""
|
||||
If KASSE.rksv_aktiv Then
|
||||
If Not cRKSV.insertRKSV(KASSE.rksv_bez, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, Now, BELEG_NEU.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, False, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
|
||||
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, BELEG_NEU.rksv_umsatz * -1)
|
||||
cRKSV.DELETE(BELEG_NEU)
|
||||
MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
|
||||
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
KASSE.SET_LAST_QR_JWS(LastJWS, QR_CodeString)
|
||||
'RKSV-Daten beim Beleg ergänzen:
|
||||
BELEG_NEU.rksv_jws = LastJWS
|
||||
BELEG_NEU.rksv_qr = QR_CodeString
|
||||
BELEG_NEU.rksv_BelegId = RKSV_Beleg_Id
|
||||
BELEG_NEU.rksv_id = KASSE.rksv_id
|
||||
BELEG_NEU.SAVE()
|
||||
End Sub
|
||||
|
||||
|
||||
Function insertKB(BELEG As EABeleg, Gegenkonto As Integer, RKSV_id As Integer, RKSV_Beleg_Id As Integer, ByRef KBEntry As cKassenbuch, ByRef KBEntryGB As cKassenbuch, RKSV_Aktiv As Boolean) As Boolean
|
||||
Dim GJBeleg = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat))
|
||||
|
||||
BELEG.BelegNr = GJBeleg.INCREASE_BELEG() 'Vergabe der Belegnummer
|
||||
' BELEG.BelegDat = Now.ToShortDateString
|
||||
' Beleg noch nicht gespeichert.... BELEG.DEL_POS_List()' Positionen löschen, da BelegNr Neu vergeben
|
||||
For Each p In BELEG.POS
|
||||
p.BelegNr = BELEG.BelegNr
|
||||
Next
|
||||
BELEG.SAVE()
|
||||
'BELEG.SAVE_POS_List()
|
||||
|
||||
|
||||
'################
|
||||
' EINTRAG: Kassenbuch
|
||||
'################
|
||||
Dim GJ As New cGeschaeftsjahr(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID, cRKSV.getGJ(BELEG.BelegDat))
|
||||
KBEntry = New cKassenbuch(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID, cRKSV.getGJ(BELEG.BelegDat), 0)
|
||||
KBEntry.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer
|
||||
' KBEntry.JournalNr = fktJournalNr(rst1!Mandant, rst1!Niederlassung, rst1!Benutzer, rst1!BelegDat)
|
||||
KBEntry.Konto = PERSONAL.KassenbuchNr
|
||||
KBEntry.Buchungstext = BELEG.Ordnungsbegriff
|
||||
KBEntry.Buchungsdatum = BELEG.BelegDat ' Now.ToShortDateString
|
||||
' KBEntry.BelegDat = datBelegdatum.Value.ToShortDateString
|
||||
KBEntry.BelegDat = BELEG.BelegDat
|
||||
KBEntry.BelegNr = BELEG.BelegNr 'GJ.INCREASE_BELEG
|
||||
KBEntry.Belegart = BELEG.Belegart 'art
|
||||
KBEntry.Eingabeart = 0
|
||||
KBEntry.Steuer = 0
|
||||
KBEntry.Steuerbetrag = 0
|
||||
KBEntry.Referenz = "" 'txtReferenz.Text
|
||||
KBEntry.Währung = 900 'cboWaehrung._value
|
||||
KBEntry.Kurs = SQL.getValueTxtBySql("SELECT [Eurokurs] FROM Währungstabelle WHERE Währungsschlüssel=900", "FMZOLL") '" & cboWaehrung._value, "FMZOLL")
|
||||
If KBEntry.Belegart = 1 Then
|
||||
KBEntry.Soll = BELEG.rksv_umsatz ' txtBetrag.Text
|
||||
ElseIf KBEntry.Belegart = 2 Then
|
||||
KBEntry.Haben = BELEG.rksv_umsatz ' txtBetrag.Text
|
||||
End If
|
||||
KBEntry.Betrag = BELEG.rksv_umsatz ' txtBetrag.Text
|
||||
KBEntry.rksv_id = RKSV_id
|
||||
KBEntry.rksv_BelegId = RKSV_Beleg_Id
|
||||
KBEntry.rksv_aktiv = RKSV_Aktiv
|
||||
KBEntry.Belegverbuchung = True
|
||||
KBEntry.gebucht = True
|
||||
If Not KBEntry.INSERT() Then Return False
|
||||
|
||||
'################
|
||||
' EINTRAG: Kassenbuch
|
||||
'################
|
||||
KBEntryGB = New cKassenbuch(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID, cRKSV.getGJ(BELEG.BelegDat), 0)
|
||||
KBEntryGB.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer
|
||||
' KBEntryGB.JournalNr = fktJournalNr(rst1!Mandant, rst1!Niederlassung, rst1!Benutzer, rst1!BelegDat)
|
||||
KBEntryGB.Konto = Gegenkonto
|
||||
KBEntryGB.Buchungstext = BELEG.Ordnungsbegriff
|
||||
KBEntryGB.Buchungsdatum = BELEG.BelegDat 'Now.ToShortDateString
|
||||
' KBEntryGB.BelegDat = datBelegdatum.Value.ToShortDateString
|
||||
KBEntryGB.BelegDat = BELEG.BelegDat
|
||||
KBEntryGB.BelegNr = BELEG.BelegNr 'GJ.INCREASE_BELEG
|
||||
KBEntryGB.Belegart = BELEG.Belegart ' Art
|
||||
KBEntryGB.Eingabeart = 0
|
||||
KBEntryGB.Steuer = 0
|
||||
KBEntryGB.Steuerbetrag = 0
|
||||
KBEntryGB.Referenz = "" 'txtReferenz.Text
|
||||
KBEntryGB.Währung = 900 ' cboWaehrung._value
|
||||
|
||||
KBEntryGB.Kurs = SQL.getValueTxtBySql("SELECT [Eurokurs] FROM Währungstabelle WHERE Währungsschlüssel=900", "FMZOLL") '" & cboWaehrung._value, "FMZOLL")
|
||||
If KBEntryGB.Belegart = 2 Then
|
||||
KBEntryGB.Soll = BELEG.rksv_umsatz ' txtBetrag.Text
|
||||
ElseIf KBEntryGB.Belegart = 1 Then
|
||||
KBEntryGB.Haben = BELEG.rksv_umsatz 'txtBetrag.Text
|
||||
End If
|
||||
KBEntryGB.Betrag = BELEG.rksv_umsatz ' txtBetrag.Text
|
||||
|
||||
KBEntryGB.rksv_id = RKSV_id
|
||||
KBEntryGB.rksv_BelegId = RKSV_Beleg_Id
|
||||
KBEntryGB.rksv_aktiv = RKSV_Aktiv
|
||||
KBEntryGB.Belegverbuchung = True
|
||||
KBEntryGB.gebucht = True
|
||||
If Not KBEntryGB.INSERT() Then Return False
|
||||
|
||||
Return True
|
||||
End Function
|
||||
End Class
|
||||
84
SDL/Administration/frmKassenVerwaltung.Designer.vb
generated
Normal file
84
SDL/Administration/frmKassenVerwaltung.Designer.vb
generated
Normal file
@@ -0,0 +1,84 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmKassenVerwaltung
|
||||
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(frmKassenVerwaltung))
|
||||
Me.DataGridView = New System.Windows.Forms.DataGridView()
|
||||
Me.btnSpeichern = New System.Windows.Forms.Button()
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle = New System.Windows.Forms.Label()
|
||||
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataGridView
|
||||
'
|
||||
Me.DataGridView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.DataGridView.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
|
||||
Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView.Location = New System.Drawing.Point(12, 29)
|
||||
Me.DataGridView.Name = "DataGridView"
|
||||
Me.DataGridView.Size = New System.Drawing.Size(997, 444)
|
||||
Me.DataGridView.TabIndex = 0
|
||||
'
|
||||
'btnSpeichern
|
||||
'
|
||||
Me.btnSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnSpeichern.Location = New System.Drawing.Point(872, 479)
|
||||
Me.btnSpeichern.Name = "btnSpeichern"
|
||||
Me.btnSpeichern.Size = New System.Drawing.Size(137, 34)
|
||||
Me.btnSpeichern.TabIndex = 1
|
||||
Me.btnSpeichern.Text = "Speichern"
|
||||
Me.btnSpeichern.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblVerwaltungDerRKSVKassenTabelle
|
||||
'
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.AutoSize = True
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.Location = New System.Drawing.Point(13, 13)
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.Name = "lblVerwaltungDerRKSVKassenTabelle"
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.Size = New System.Drawing.Size(119, 13)
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.TabIndex = 2
|
||||
Me.lblVerwaltungDerRKSVKassenTabelle.Text = "Verwaltung der Tabelle:"
|
||||
'
|
||||
'frmKassenVerwaltung
|
||||
'
|
||||
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(1021, 517)
|
||||
Me.Controls.Add(Me.lblVerwaltungDerRKSVKassenTabelle)
|
||||
Me.Controls.Add(Me.btnSpeichern)
|
||||
Me.Controls.Add(Me.DataGridView)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmKassenVerwaltung"
|
||||
Me.Text = "Administration"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents DataGridView As System.Windows.Forms.DataGridView
|
||||
Friend WithEvents btnSpeichern As System.Windows.Forms.Button
|
||||
Friend WithEvents lblVerwaltungDerRKSVKassenTabelle As System.Windows.Forms.Label
|
||||
End Class
|
||||
980
SDL/Administration/frmKassenVerwaltung.resx
Normal file
980
SDL/Administration/frmKassenVerwaltung.resx
Normal 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>
|
||||
37
SDL/Administration/frmKassenVerwaltung.vb
Normal file
37
SDL/Administration/frmKassenVerwaltung.vb
Normal file
@@ -0,0 +1,37 @@
|
||||
Public Class frmKassenVerwaltung
|
||||
Dim KASSENBind As cEasyBinding
|
||||
Public table
|
||||
Public BIND_DB
|
||||
Sub New(table, BIND_DB)
|
||||
Me.table = table
|
||||
Me.BIND_DB = BIND_DB
|
||||
InitializeComponent()
|
||||
End Sub
|
||||
|
||||
Private Sub frmKassenVerwaltung_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Try
|
||||
KASSENBind = New cEasyBinding(BIND_DB)
|
||||
Select Case table
|
||||
Case "" 'Sonderfall
|
||||
Case Else
|
||||
KASSENBind.initBinding("SELECT * FROM " & table & "", table)
|
||||
For Each c As DataColumn In KASSENBind.bindingdataTable.Columns
|
||||
If c.ColumnName = "SSMA_TimeStamp" Then
|
||||
KASSENBind.bindingdataTable.Columns.Remove(c)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
' KASSENBind.initBinding("SELECT * FROM " & table & "", table)
|
||||
End Select
|
||||
DataGridView.DataSource = KASSENBind.bindingdataTable
|
||||
' DataGridView.AutoSize = True
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
|
||||
KASSENBind.updateBinding()
|
||||
End Sub
|
||||
End Class
|
||||
331
SDL/Administration/usrCntlAdministration.Designer.vb
generated
Normal file
331
SDL/Administration/usrCntlAdministration.Designer.vb
generated
Normal file
@@ -0,0 +1,331 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrCntlAdministration
|
||||
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.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.btnWord = New System.Windows.Forms.Button()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.Button6 = New System.Windows.Forms.Button()
|
||||
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
|
||||
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Button8 = New System.Windows.Forms.Button()
|
||||
Me.Button9 = New System.Windows.Forms.Button()
|
||||
Me.cbxKd = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxBu = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.Label1)
|
||||
Me.GroupBox1.Controls.Add(Me.btnWord)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(15, 20)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(468, 80)
|
||||
Me.GroupBox1.TabIndex = 6
|
||||
Me.GroupBox1.TabStop = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(223, 37)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(232, 13)
|
||||
Me.Label1.TabIndex = 5
|
||||
Me.Label1.Text = "Zeigt die Abfertigungszahlen der Mitarbeiter auf."
|
||||
'
|
||||
'btnWord
|
||||
'
|
||||
Me.btnWord.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnWord.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.btnWord.Image = Global.SDL.My.Resources.statistik_small
|
||||
Me.btnWord.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnWord.Location = New System.Drawing.Point(6, 19)
|
||||
Me.btnWord.Name = "btnWord"
|
||||
Me.btnWord.Size = New System.Drawing.Size(211, 49)
|
||||
Me.btnWord.TabIndex = 4
|
||||
Me.btnWord.Text = "Speditionsbuch Mitarbeiter"
|
||||
Me.btnWord.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Label3.Location = New System.Drawing.Point(16, 0)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(66, 17)
|
||||
Me.Label3.TabIndex = 7
|
||||
Me.Label3.Text = "Statistik"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button1.Image = Global.SDL.My.Resources.kasse
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(21, 298)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(211, 54)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.Text = "Kassen verwalten"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(241, 314)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button2.TabIndex = 6
|
||||
Me.Button2.Text = "Tabelle Preislisten verwalten"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button3.Location = New System.Drawing.Point(241, 337)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button3.TabIndex = 6
|
||||
Me.Button3.Text = "Tabelle Preislistenpositionen verwalten"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button4.Location = New System.Drawing.Point(241, 360)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button4.TabIndex = 8
|
||||
Me.Button4.Text = "Tabelle Abfertigungsarten verwalten"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button5.Location = New System.Drawing.Point(241, 383)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button5.TabIndex = 9
|
||||
Me.Button5.Text = "Tabelle Leistungen verwalten"
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button6.Image = Global.SDL.My.Resources.kunden
|
||||
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button6.Location = New System.Drawing.Point(21, 512)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(211, 54)
|
||||
Me.Button6.TabIndex = 10
|
||||
Me.Button6.Text = "FM-ZOLL Personal"
|
||||
Me.Button6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'MyListBox1
|
||||
'
|
||||
Me.MyListBox1._value = ""
|
||||
Me.MyListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.MyListBox1.FormattingEnabled = True
|
||||
Me.MyListBox1.Location = New System.Drawing.Point(489, 44)
|
||||
Me.MyListBox1.Name = "MyListBox1"
|
||||
Me.MyListBox1.Size = New System.Drawing.Size(321, 771)
|
||||
Me.MyListBox1.TabIndex = 11
|
||||
'
|
||||
'MyComboBox1
|
||||
'
|
||||
Me.MyComboBox1._allowedValuesFreiText = Nothing
|
||||
Me.MyComboBox1._allowFreiText = False
|
||||
Me.MyComboBox1._value = ""
|
||||
Me.MyComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.MyComboBox1.FormattingEnabled = True
|
||||
Me.MyComboBox1.Items.AddRange(New Object() {"FMZOLL", "AVISO", "SDL", "ADMIN"})
|
||||
Me.MyComboBox1.Location = New System.Drawing.Point(489, 20)
|
||||
Me.MyComboBox1.Name = "MyComboBox1"
|
||||
Me.MyComboBox1.Size = New System.Drawing.Size(321, 21)
|
||||
Me.MyComboBox1.TabIndex = 12
|
||||
'
|
||||
'Button7
|
||||
'
|
||||
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button7.Location = New System.Drawing.Point(241, 463)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button7.TabIndex = 14
|
||||
Me.Button7.Text = "Kasse abschließen"
|
||||
Me.Button7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(238, 298)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(67, 13)
|
||||
Me.Label2.TabIndex = 15
|
||||
Me.Label2.Text = "Verwalten:"
|
||||
'
|
||||
'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(238, 417)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(110, 13)
|
||||
Me.Label4.TabIndex = 16
|
||||
Me.Label4.Text = "Weitere Optionen:"
|
||||
'
|
||||
'Button8
|
||||
'
|
||||
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button8.Location = New System.Drawing.Point(241, 433)
|
||||
Me.Button8.Name = "Button8"
|
||||
Me.Button8.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button8.TabIndex = 17
|
||||
Me.Button8.Text = "Kassensuche / Auswertung"
|
||||
Me.Button8.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button9
|
||||
'
|
||||
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button9.Location = New System.Drawing.Point(21, 661)
|
||||
Me.Button9.Name = "Button9"
|
||||
Me.Button9.Size = New System.Drawing.Size(211, 24)
|
||||
Me.Button9.TabIndex = 18
|
||||
Me.Button9.Text = "Kunden --> DVO"
|
||||
Me.Button9.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxKd
|
||||
'
|
||||
Me.cbxKd.AutoSize = True
|
||||
Me.cbxKd.Checked = True
|
||||
Me.cbxKd.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxKd.Location = New System.Drawing.Point(21, 688)
|
||||
Me.cbxKd.Name = "cbxKd"
|
||||
Me.cbxKd.Size = New System.Drawing.Size(63, 17)
|
||||
Me.cbxKd.TabIndex = 19
|
||||
Me.cbxKd.Text = "Kunden"
|
||||
Me.cbxKd.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxBu
|
||||
'
|
||||
Me.cbxBu.AutoSize = True
|
||||
Me.cbxBu.Checked = True
|
||||
Me.cbxBu.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbxBu.Location = New System.Drawing.Point(90, 688)
|
||||
Me.cbxBu.Name = "cbxBu"
|
||||
Me.cbxBu.Size = New System.Drawing.Size(81, 17)
|
||||
Me.cbxBu.TabIndex = 20
|
||||
Me.cbxBu.Text = "Buchungen"
|
||||
Me.cbxBu.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(176, 688)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(56, 17)
|
||||
Me.CheckBox1.TabIndex = 21
|
||||
Me.CheckBox1.Text = "öffnen"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlAdministration
|
||||
'
|
||||
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.CheckBox1)
|
||||
Me.Controls.Add(Me.cbxBu)
|
||||
Me.Controls.Add(Me.cbxKd)
|
||||
Me.Controls.Add(Me.Button9)
|
||||
Me.Controls.Add(Me.Button8)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Button7)
|
||||
Me.Controls.Add(Me.MyComboBox1)
|
||||
Me.Controls.Add(Me.MyListBox1)
|
||||
Me.Controls.Add(Me.Button6)
|
||||
Me.Controls.Add(Me.Button5)
|
||||
Me.Controls.Add(Me.Button4)
|
||||
Me.Controls.Add(Me.Button3)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Name = "usrCntlAdministration"
|
||||
Me.Size = New System.Drawing.Size(850, 831)
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnWord As System.Windows.Forms.Button
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button6 As System.Windows.Forms.Button
|
||||
Friend WithEvents MyListBox1 As VERAG_PROG_ALLGEMEIN.MyListBox
|
||||
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Button7 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button8 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button9 As Button
|
||||
Friend WithEvents cbxKd As CheckBox
|
||||
Friend WithEvents cbxBu As CheckBox
|
||||
Friend WithEvents CheckBox1 As CheckBox
|
||||
End Class
|
||||
120
SDL/Administration/usrCntlAdministration.resx
Normal file
120
SDL/Administration/usrCntlAdministration.resx
Normal 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>
|
||||
68
SDL/Administration/usrCntlAdministration.vb
Normal file
68
SDL/Administration/usrCntlAdministration.vb
Normal file
@@ -0,0 +1,68 @@
|
||||
Public Class usrCntlAdministration
|
||||
|
||||
Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click
|
||||
frmZollUserStat.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim frm As New frmKassenVerwaltung("tblRKSV_Kassen", "FMZOLL")
|
||||
frm.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Dim frm As New frmKassenVerwaltung("tblPreislisten", "FMZOLL")
|
||||
frm.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
Dim frm As New frmKassenVerwaltung("tblPreislistenpositionen", "FMZOLL")
|
||||
frm.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
Dim frm As New frmKassenVerwaltung("Leistungen", "FMZOLL")
|
||||
frm.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
Dim frm As New frmKassenVerwaltung("Abfertigungsarten", "FMZOLL")
|
||||
frm.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
Dim frm As New frmKassenVerwaltung("Personal", "FMZOLL")
|
||||
frm.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub MyListBox1_DoubleClick(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick
|
||||
If MyComboBox1.Text = "" Then Exit Sub
|
||||
If MyListBox1.SelectedItems.Count > 0 Then
|
||||
Dim frm As New frmKassenVerwaltung(MyListBox1.SelectedItems(0).ToString, CStr(MyComboBox1.Text))
|
||||
frm.ShowDialog(Me)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlAdministration_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
MyComboBox1.SelectedIndex = 0
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
|
||||
If MyComboBox1.Text = "" Then Exit Sub
|
||||
MyListBox1.fillWithSQL("SELECT TABLE_NAME,TABLE_NAME as name FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE' ORDER BY TABLE_NAME", False, CStr(MyComboBox1.Text))
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
Dim frmKasseAbschliessen As New frmKasseAbschliessen
|
||||
frmKasseAbschliessen.Show(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
||||
Dim f As New frmKassenbuchSuche
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
||||
VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, cbxKd.Checked, cbxBu.Checked)
|
||||
End Sub
|
||||
End Class
|
||||
71
SDL/App.config
Normal file
71
SDL/App.config
Normal file
@@ -0,0 +1,71 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<configSections>
|
||||
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<section name="SDL.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
|
||||
</sectionGroup>
|
||||
</configSections>
|
||||
<connectionStrings />
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
|
||||
</startup>
|
||||
<system.serviceModel>
|
||||
<bindings>
|
||||
<basicHttpBinding>
|
||||
<binding name="BasicHttpBinding_IRKSVWcf" />
|
||||
<binding name="checkVatBinding" />
|
||||
</basicHttpBinding>
|
||||
</bindings>
|
||||
<client>
|
||||
<endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf" />
|
||||
<endpoint address="http://ec.europa.eu/taxation_customs/vies/services/checkVatService" binding="basicHttpBinding" bindingConfiguration="checkVatBinding" contract="EU_UID_Pruefung.checkVatPortType" name="checkVatPort" />
|
||||
</client>
|
||||
</system.serviceModel>
|
||||
<runtime>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="31bf3856ad364e35" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.5.5631.0" newVersion="2.5.5631.0" />
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0" />
|
||||
</dependentAssembly>
|
||||
</assemblyBinding>
|
||||
</runtime>
|
||||
<applicationSettings>
|
||||
<SDL.My.MySettings>
|
||||
<setting name="SDL_at_gv_bmf_finanzonline_uidAbfrageService" serializeAs="String">
|
||||
<value>https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/</value>
|
||||
</setting>
|
||||
<setting name="SDL_at_gv_bmf_finanzonline1_sessionService" serializeAs="String">
|
||||
<value>https://finanzonline.bmf.gv.at:443/fonws/ws/sessionService</value>
|
||||
</setting>
|
||||
<setting name="EU_UID_Pruefung" serializeAs="String">
|
||||
<value>http://ec.europa.eu/taxation_customs/vies/services/checkVatService</value>
|
||||
</setting>
|
||||
<setting name="SDL_eu_europa_ec_checkVatService" serializeAs="String">
|
||||
<value>http://ec.europa.eu/taxation_customs/vies/services/checkVatService</value>
|
||||
</setting>
|
||||
<setting name="SDL_EORI_validation" serializeAs="String">
|
||||
<value>http://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation</value>
|
||||
</setting>
|
||||
</SDL.My.MySettings>
|
||||
</applicationSettings>
|
||||
<appSettings>
|
||||
<add key="EnableWindowsFormsHighDpiAutoResizing" value="true" />
|
||||
<add key="ClientSettingsProvider.ServiceUri" value="" />
|
||||
</appSettings>
|
||||
<system.web>
|
||||
<membership defaultProvider="ClientAuthenticationMembershipProvider">
|
||||
<providers>
|
||||
<add name="ClientAuthenticationMembershipProvider" type="System.Web.ClientServices.Providers.ClientFormsAuthenticationMembershipProvider, System.Web.Extensions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" />
|
||||
</providers>
|
||||
</membership>
|
||||
<roleManager defaultProvider="ClientRoleProvider" enabled="true">
|
||||
<providers>
|
||||
<add name="ClientRoleProvider" type="System.Web.ClientServices.Providers.ClientRoleProvider, System.Web.Extensions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" cacheTimeout="86400" />
|
||||
</providers>
|
||||
</roleManager>
|
||||
</system.web>
|
||||
</configuration>
|
||||
10
SDL/ApplicationEvents.vb
Normal file
10
SDL/ApplicationEvents.vb
Normal file
@@ -0,0 +1,10 @@
|
||||
Namespace My
|
||||
' Für MyApplication sind folgende Ereignisse verfügbar:
|
||||
' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
|
||||
' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird.
|
||||
' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst.
|
||||
' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist.
|
||||
' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
|
||||
Partial Friend Class MyApplication
|
||||
End Class
|
||||
End Namespace
|
||||
146
SDL/Barcode/Code128Content.vb
Normal file
146
SDL/Barcode/Code128Content.vb
Normal file
@@ -0,0 +1,146 @@
|
||||
#Region " Class "
|
||||
|
||||
#Region " Enums "
|
||||
|
||||
Public Enum CodeSetAllowed
|
||||
CodeA
|
||||
CodeB
|
||||
CodeAorB
|
||||
End Enum
|
||||
|
||||
Public Enum CodeSet
|
||||
CodeA
|
||||
CodeB
|
||||
End Enum
|
||||
|
||||
#End Region
|
||||
|
||||
Public Class Code128Content
|
||||
Private mCodeList As Integer()
|
||||
|
||||
Public Sub New(ByVal AsciiData As String)
|
||||
mCodeList = StringToCode128(AsciiData)
|
||||
End Sub
|
||||
|
||||
Public ReadOnly Property Codes() As Integer()
|
||||
Get
|
||||
Return mCodeList
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private Function StringToCode128(ByVal AsciiData As String) As Integer()
|
||||
|
||||
Dim asciiBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(AsciiData)
|
||||
|
||||
Dim csa1 As CodeSetAllowed = If(asciiBytes.Length > 0, Code128Code.CodesetAllowedForChar(asciiBytes(0)), CodeSetAllowed.CodeAorB)
|
||||
Dim csa2 As CodeSetAllowed = If(asciiBytes.Length > 0, Code128Code.CodesetAllowedForChar(asciiBytes(1)), CodeSetAllowed.CodeAorB)
|
||||
Dim currcs As CodeSet = GetBestStartSet(csa1, csa2)
|
||||
|
||||
Dim codes As New List(Of Integer)(asciiBytes.Length + 3)
|
||||
codes.Add(Code128Code.StartCodeForCodeSet(currcs))
|
||||
|
||||
For i As Integer = 0 To asciiBytes.Length - 1
|
||||
Dim thischar As Integer = asciiBytes(i)
|
||||
Dim nextchar As Integer = If(asciiBytes.Length > (i + 1), asciiBytes(i + 1), -1)
|
||||
|
||||
codes.AddRange(Code128Code.CodesForChar(thischar, nextchar, currcs))
|
||||
Next
|
||||
|
||||
Dim checksum As Integer = CInt(codes(0))
|
||||
For i As Integer = 1 To codes.Count - 1
|
||||
checksum += i * CInt(codes(i))
|
||||
Next
|
||||
|
||||
codes.Add(checksum Mod 103)
|
||||
codes.Add(Code128Code.StopCode())
|
||||
|
||||
Return codes.ToArray
|
||||
End Function
|
||||
|
||||
Private Function GetBestStartSet(ByVal csa1 As CodeSetAllowed, ByVal csa2 As CodeSetAllowed) As CodeSet
|
||||
Dim vote As Integer = 0
|
||||
|
||||
vote += If((csa1 = CodeSetAllowed.CodeA), 1, 0)
|
||||
vote += If((csa1 = CodeSetAllowed.CodeB), -1, 0)
|
||||
vote += If((csa2 = CodeSetAllowed.CodeA), 1, 0)
|
||||
vote += If((csa2 = CodeSetAllowed.CodeB), -1, 0)
|
||||
|
||||
Return If((vote > 0), CodeSet.CodeA, CodeSet.CodeB)
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public NotInheritable Class Code128Code
|
||||
|
||||
#Region "Constants"
|
||||
|
||||
Private Const cSHIFT As Integer = 98
|
||||
Private Const cCODEA As Integer = 101
|
||||
Private Const cCODEB As Integer = 100
|
||||
|
||||
Private Const cSTARTA As Integer = 103
|
||||
Private Const cSTARTB As Integer = 104
|
||||
Private Const cSTOP As Integer = 106
|
||||
|
||||
#End Region
|
||||
|
||||
Public Shared Function CodesForChar(ByVal CharAscii As Integer, ByVal LookAheadAscii As Integer, ByRef CurrCodeSet As CodeSet) As Integer()
|
||||
Dim result As Integer()
|
||||
Dim shifter As Integer = -1
|
||||
|
||||
If Not CharCompatibleWithCodeset(CharAscii, CurrCodeSet) Then
|
||||
If (LookAheadAscii <> -1) AndAlso Not CharCompatibleWithCodeset(LookAheadAscii, CurrCodeSet) Then
|
||||
Select Case CurrCodeSet
|
||||
Case CodeSet.CodeA
|
||||
shifter = cCODEB
|
||||
CurrCodeSet = CodeSet.CodeB
|
||||
Exit Select
|
||||
Case CodeSet.CodeB
|
||||
shifter = cCODEA
|
||||
CurrCodeSet = CodeSet.CodeA
|
||||
Exit Select
|
||||
End Select
|
||||
Else
|
||||
shifter = cSHIFT
|
||||
End If
|
||||
End If
|
||||
|
||||
If shifter <> -1 Then
|
||||
result = New Integer(1) {}
|
||||
result(0) = shifter
|
||||
result(1) = CodeValueForChar(CharAscii)
|
||||
Else
|
||||
result = New Integer(0) {}
|
||||
result(0) = CodeValueForChar(CharAscii)
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Public Shared Function CodesetAllowedForChar(ByVal CharAscii As Integer) As CodeSetAllowed
|
||||
If CharAscii >= 32 AndAlso CharAscii <= 95 Then
|
||||
Return CodeSetAllowed.CodeAorB
|
||||
Else
|
||||
Return If((CharAscii < 32), CodeSetAllowed.CodeA, CodeSetAllowed.CodeB)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Shared Function CharCompatibleWithCodeset(ByVal CharAscii As Integer, ByVal currcs As CodeSet) As Boolean
|
||||
Dim csa As CodeSetAllowed = CodesetAllowedForChar(CharAscii)
|
||||
Return csa = CodeSetAllowed.CodeAorB OrElse (csa = CodeSetAllowed.CodeA AndAlso currcs = CodeSet.CodeA) OrElse (csa = CodeSetAllowed.CodeB AndAlso currcs = CodeSet.CodeB)
|
||||
End Function
|
||||
|
||||
Public Shared Function CodeValueForChar(ByVal CharAscii As Integer) As Integer
|
||||
Return If((CharAscii >= 32), CharAscii - 32, CharAscii + 64)
|
||||
End Function
|
||||
|
||||
Public Shared Function StartCodeForCodeSet(ByVal cs As CodeSet) As Integer
|
||||
Return If(cs = CodeSet.CodeA, cSTARTA, cSTARTB)
|
||||
End Function
|
||||
|
||||
Public Shared Function StopCode() As Integer
|
||||
Return cSTOP
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
#End Region
|
||||
180
SDL/Barcode/Code128Rendering.vb
Normal file
180
SDL/Barcode/Code128Rendering.vb
Normal file
@@ -0,0 +1,180 @@
|
||||
Imports System.Drawing
|
||||
Imports System.Diagnostics
|
||||
|
||||
Public NotInheritable Class Code128Rendering
|
||||
|
||||
#Region "Code patterns"
|
||||
Private Shared ReadOnly cPatterns As Integer(,) = {{2, 1, 2, 2, 2, 2, _
|
||||
0, 0}, {2, 2, 2, 1, 2, 2, _
|
||||
0, 0}, {2, 2, 2, 2, 2, 1, _
|
||||
0, 0}, {1, 2, 1, 2, 2, 3, _
|
||||
0, 0}, {1, 2, 1, 3, 2, 2, _
|
||||
0, 0}, {1, 3, 1, 2, 2, 2, _
|
||||
0, 0}, _
|
||||
{1, 2, 2, 2, 1, 3, _
|
||||
0, 0}, {1, 2, 2, 3, 1, 2, _
|
||||
0, 0}, {1, 3, 2, 2, 1, 2, _
|
||||
0, 0}, {2, 2, 1, 2, 1, 3, _
|
||||
0, 0}, {2, 2, 1, 3, 1, 2, _
|
||||
0, 0}, {2, 3, 1, 2, 1, 2, _
|
||||
0, 0}, _
|
||||
{1, 1, 2, 2, 3, 2, _
|
||||
0, 0}, {1, 2, 2, 1, 3, 2, _
|
||||
0, 0}, {1, 2, 2, 2, 3, 1, _
|
||||
0, 0}, {1, 1, 3, 2, 2, 2, _
|
||||
0, 0}, {1, 2, 3, 1, 2, 2, _
|
||||
0, 0}, {1, 2, 3, 2, 2, 1, _
|
||||
0, 0}, _
|
||||
{2, 2, 3, 2, 1, 1, _
|
||||
0, 0}, {2, 2, 1, 1, 3, 2, _
|
||||
0, 0}, {2, 2, 1, 2, 3, 1, _
|
||||
0, 0}, {2, 1, 3, 2, 1, 2, _
|
||||
0, 0}, {2, 2, 3, 1, 1, 2, _
|
||||
0, 0}, {3, 1, 2, 1, 3, 1, _
|
||||
0, 0}, _
|
||||
{3, 1, 1, 2, 2, 2, _
|
||||
0, 0}, {3, 2, 1, 1, 2, 2, _
|
||||
0, 0}, {3, 2, 1, 2, 2, 1, _
|
||||
0, 0}, {3, 1, 2, 2, 1, 2, _
|
||||
0, 0}, {3, 2, 2, 1, 1, 2, _
|
||||
0, 0}, {3, 2, 2, 2, 1, 1, _
|
||||
0, 0}, _
|
||||
{2, 1, 2, 1, 2, 3, _
|
||||
0, 0}, {2, 1, 2, 3, 2, 1, _
|
||||
0, 0}, {2, 3, 2, 1, 2, 1, _
|
||||
0, 0}, {1, 1, 1, 3, 2, 3, _
|
||||
0, 0}, {1, 3, 1, 1, 2, 3, _
|
||||
0, 0}, {1, 3, 1, 3, 2, 1, _
|
||||
0, 0}, _
|
||||
{1, 1, 2, 3, 1, 3, _
|
||||
0, 0}, {1, 3, 2, 1, 1, 3, _
|
||||
0, 0}, {1, 3, 2, 3, 1, 1, _
|
||||
0, 0}, {2, 1, 1, 3, 1, 3, _
|
||||
0, 0}, {2, 3, 1, 1, 1, 3, _
|
||||
0, 0}, {2, 3, 1, 3, 1, 1, _
|
||||
0, 0}, _
|
||||
{1, 1, 2, 1, 3, 3, _
|
||||
0, 0}, {1, 1, 2, 3, 3, 1, _
|
||||
0, 0}, {1, 3, 2, 1, 3, 1, _
|
||||
0, 0}, {1, 1, 3, 1, 2, 3, _
|
||||
0, 0}, {1, 1, 3, 3, 2, 1, _
|
||||
0, 0}, {1, 3, 3, 1, 2, 1, _
|
||||
0, 0}, _
|
||||
{3, 1, 3, 1, 2, 1, _
|
||||
0, 0}, {2, 1, 1, 3, 3, 1, _
|
||||
0, 0}, {2, 3, 1, 1, 3, 1, _
|
||||
0, 0}, {2, 1, 3, 1, 1, 3, _
|
||||
0, 0}, {2, 1, 3, 3, 1, 1, _
|
||||
0, 0}, {2, 1, 3, 1, 3, 1, _
|
||||
0, 0}, _
|
||||
{3, 1, 1, 1, 2, 3, _
|
||||
0, 0}, {3, 1, 1, 3, 2, 1, _
|
||||
0, 0}, {3, 3, 1, 1, 2, 1, _
|
||||
0, 0}, {3, 1, 2, 1, 1, 3, _
|
||||
0, 0}, {3, 1, 2, 3, 1, 1, _
|
||||
0, 0}, {3, 3, 2, 1, 1, 1, _
|
||||
0, 0}, _
|
||||
{3, 1, 4, 1, 1, 1, _
|
||||
0, 0}, {2, 2, 1, 4, 1, 1, _
|
||||
0, 0}, {4, 3, 1, 1, 1, 1, _
|
||||
0, 0}, {1, 1, 1, 2, 2, 4, _
|
||||
0, 0}, {1, 1, 1, 4, 2, 2, _
|
||||
0, 0}, {1, 2, 1, 1, 2, 4, _
|
||||
0, 0}, _
|
||||
{1, 2, 1, 4, 2, 1, _
|
||||
0, 0}, {1, 4, 1, 1, 2, 2, _
|
||||
0, 0}, {1, 4, 1, 2, 2, 1, _
|
||||
0, 0}, {1, 1, 2, 2, 1, 4, _
|
||||
0, 0}, {1, 1, 2, 4, 1, 2, _
|
||||
0, 0}, {1, 2, 2, 1, 1, 4, _
|
||||
0, 0}, _
|
||||
{1, 2, 2, 4, 1, 1, _
|
||||
0, 0}, {1, 4, 2, 1, 1, 2, _
|
||||
0, 0}, {1, 4, 2, 2, 1, 1, _
|
||||
0, 0}, {2, 4, 1, 2, 1, 1, _
|
||||
0, 0}, {2, 2, 1, 1, 1, 4, _
|
||||
0, 0}, {4, 1, 3, 1, 1, 1, _
|
||||
0, 0}, _
|
||||
{2, 4, 1, 1, 1, 2, _
|
||||
0, 0}, {1, 3, 4, 1, 1, 1, _
|
||||
0, 0}, {1, 1, 1, 2, 4, 2, _
|
||||
0, 0}, {1, 2, 1, 1, 4, 2, _
|
||||
0, 0}, {1, 2, 1, 2, 4, 1, _
|
||||
0, 0}, {1, 1, 4, 2, 1, 2, _
|
||||
0, 0}, _
|
||||
{1, 2, 4, 1, 1, 2, _
|
||||
0, 0}, {1, 2, 4, 2, 1, 1, _
|
||||
0, 0}, {4, 1, 1, 2, 1, 2, _
|
||||
0, 0}, {4, 2, 1, 1, 1, 2, _
|
||||
0, 0}, {4, 2, 1, 2, 1, 1, _
|
||||
0, 0}, {2, 1, 2, 1, 4, 1, _
|
||||
0, 0}, _
|
||||
{2, 1, 4, 1, 2, 1, _
|
||||
0, 0}, {4, 1, 2, 1, 2, 1, _
|
||||
0, 0}, {1, 1, 1, 1, 4, 3, _
|
||||
0, 0}, {1, 1, 1, 3, 4, 1, _
|
||||
0, 0}, {1, 3, 1, 1, 4, 1, _
|
||||
0, 0}, {1, 1, 4, 1, 1, 3, _
|
||||
0, 0}, _
|
||||
{1, 1, 4, 3, 1, 1, _
|
||||
0, 0}, {4, 1, 1, 1, 1, 3, _
|
||||
0, 0}, {4, 1, 1, 3, 1, 1, _
|
||||
0, 0}, {1, 1, 3, 1, 4, 1, _
|
||||
0, 0}, {1, 1, 4, 1, 3, 1, _
|
||||
0, 0}, {3, 1, 1, 1, 4, 1, _
|
||||
0, 0}, _
|
||||
{4, 1, 1, 1, 3, 1, _
|
||||
0, 0}, {2, 1, 1, 4, 1, 2, _
|
||||
0, 0}, {2, 1, 1, 2, 1, 4, _
|
||||
0, 0}, {2, 1, 1, 2, 3, 2, _
|
||||
0, 0}, {2, 3, 3, 1, 1, 1, _
|
||||
2, 0}}
|
||||
|
||||
#End Region
|
||||
|
||||
Private Const cQuietWidth As Integer = 10
|
||||
|
||||
Public Shared Function MakeBarcodeImage(ByVal InputData As String, ByVal BarWeight As Double, ByVal AddQuietZone As Boolean, Optional heightOpt As Object = Nothing) As Image
|
||||
|
||||
Dim content As New Code128Content(InputData)
|
||||
Dim codes As Integer() = content.Codes
|
||||
Dim width As Integer, height As Integer
|
||||
width = ((codes.Length - 3) * 11 + 35) * BarWeight
|
||||
If heightOpt IsNot Nothing Then
|
||||
height = CInt(heightOpt)
|
||||
Else
|
||||
height = Convert.ToInt32(System.Math.Ceiling(Convert.ToSingle(width) * 0.15F))
|
||||
End If
|
||||
|
||||
If AddQuietZone Then
|
||||
width += 2 * cQuietWidth * BarWeight
|
||||
End If
|
||||
|
||||
Dim myimg As Image = New System.Drawing.Bitmap(width, height)
|
||||
Using gr As Graphics = Graphics.FromImage(myimg)
|
||||
|
||||
gr.FillRectangle(System.Drawing.Brushes.White, 0, 0, width, height)
|
||||
|
||||
Dim cursor As Integer = If(AddQuietZone, cQuietWidth * BarWeight, 0)
|
||||
|
||||
For codeidx As Integer = 0 To codes.Length - 1
|
||||
Dim code As Integer = codes(codeidx)
|
||||
|
||||
For bar As Integer = 0 To 7 Step 2
|
||||
Dim barwidth As Integer = cPatterns(code, bar) * BarWeight
|
||||
Dim spcwidth As Integer = cPatterns(code, bar + 1) * BarWeight
|
||||
|
||||
If barwidth > 0 Then
|
||||
gr.FillRectangle(System.Drawing.Brushes.Black, cursor, 0, barwidth, height)
|
||||
End If
|
||||
|
||||
cursor += (barwidth + spcwidth)
|
||||
Next
|
||||
Next
|
||||
End Using
|
||||
|
||||
Return myimg
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
105
SDL/Benutzerdefinierte Steuerelemente/UserControl2.Designer.vb
generated
Normal file
105
SDL/Benutzerdefinierte Steuerelemente/UserControl2.Designer.vb
generated
Normal file
@@ -0,0 +1,105 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class UserControl2
|
||||
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.pnl = New System.Windows.Forms.Panel()
|
||||
Me.lblAuftr = New System.Windows.Forms.Label()
|
||||
Me.lblAbfBez = New System.Windows.Forms.Label()
|
||||
Me.lblNr = New System.Windows.Forms.Label()
|
||||
Me.pic = New System.Windows.Forms.PictureBox()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.White
|
||||
Me.pnl.Controls.Add(Me.pic)
|
||||
Me.pnl.Controls.Add(Me.lblAuftr)
|
||||
Me.pnl.Controls.Add(Me.lblAbfBez)
|
||||
Me.pnl.Controls.Add(Me.lblNr)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(90, 50)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'lblAuftr
|
||||
'
|
||||
Me.lblAuftr.Location = New System.Drawing.Point(3, 16)
|
||||
Me.lblAuftr.Name = "lblAuftr"
|
||||
Me.lblAuftr.Size = New System.Drawing.Size(86, 32)
|
||||
Me.lblAuftr.TabIndex = 2
|
||||
Me.lblAuftr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'lblAbfBez
|
||||
'
|
||||
Me.lblAbfBez.Location = New System.Drawing.Point(20, 3)
|
||||
Me.lblAbfBez.Name = "lblAbfBez"
|
||||
Me.lblAbfBez.Size = New System.Drawing.Size(69, 13)
|
||||
Me.lblAbfBez.TabIndex = 1
|
||||
Me.lblAbfBez.Text = "-"
|
||||
'
|
||||
'lblNr
|
||||
'
|
||||
Me.lblNr.AutoSize = True
|
||||
Me.lblNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblNr.Location = New System.Drawing.Point(1, 3)
|
||||
Me.lblNr.Name = "lblNr"
|
||||
Me.lblNr.Size = New System.Drawing.Size(25, 13)
|
||||
Me.lblNr.TabIndex = 0
|
||||
Me.lblNr.Text = "10."
|
||||
'
|
||||
'pic
|
||||
'
|
||||
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.pic.Image = Global.SDL.My.Resources.del
|
||||
Me.pic.Location = New System.Drawing.Point(75, 0)
|
||||
Me.pic.Name = "pic"
|
||||
Me.pic.Size = New System.Drawing.Size(15, 15)
|
||||
Me.pic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.pic.TabIndex = 3
|
||||
Me.pic.TabStop = False
|
||||
'
|
||||
'UserControl2
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Margin = New System.Windows.Forms.Padding(2, 2, 0, 0)
|
||||
Me.Name = "UserControl2"
|
||||
Me.Size = New System.Drawing.Size(90, 50)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Public WithEvents lblAuftr As System.Windows.Forms.Label
|
||||
Public WithEvents lblAbfBez As System.Windows.Forms.Label
|
||||
Public WithEvents lblNr As System.Windows.Forms.Label
|
||||
Public WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents pic As System.Windows.Forms.PictureBox
|
||||
|
||||
End Class
|
||||
120
SDL/Benutzerdefinierte Steuerelemente/UserControl2.resx
Normal file
120
SDL/Benutzerdefinierte Steuerelemente/UserControl2.resx
Normal 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>
|
||||
20
SDL/Benutzerdefinierte Steuerelemente/UserControl2.vb
Normal file
20
SDL/Benutzerdefinierte Steuerelemente/UserControl2.vb
Normal file
@@ -0,0 +1,20 @@
|
||||
Public Class UserControl2
|
||||
Public value = ""
|
||||
Event MECLICK(sender As Object)
|
||||
Event DEL(sender As Object)
|
||||
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lblAuftr.Click, lblAbfBez.Click, lblAbfBez.Click
|
||||
RaiseEvent MECLICK(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles lblAbfBez.Click
|
||||
RaiseEvent MECLICK(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub lbl_Click(sender As Object, e As EventArgs) Handles lblNr.Click
|
||||
RaiseEvent MECLICK(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
|
||||
RaiseEvent DEL(Me)
|
||||
End Sub
|
||||
End Class
|
||||
776
SDL/Checkliste/frmCheckliste.Designer.vb
generated
Normal file
776
SDL/Checkliste/frmCheckliste.Designer.vb
generated
Normal file
@@ -0,0 +1,776 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmCheckliste
|
||||
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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmCheckliste))
|
||||
Me.txtKuerzel = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.txtUid = New System.Windows.Forms.TextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.txtEori = New System.Windows.Forms.TextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.cbxUID = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxEORI = New System.Windows.Forms.CheckBox()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.cbxVS3 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxVS5 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxVS4 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxVS2 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxVS1 = New System.Windows.Forms.CheckBox()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.cbxCMR3 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxCMR1 = New System.Windows.Forms.CheckBox()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.cbxRG2 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxRG1 = New System.Windows.Forms.CheckBox()
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||
Me.cbxS2 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxS1 = New System.Windows.Forms.CheckBox()
|
||||
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
||||
Me.cbxUEST4 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxUEST3 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxUEST2 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxUEST1 = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxAktiv = New System.Windows.Forms.CheckBox()
|
||||
Me.btnOK = New System.Windows.Forms.Button()
|
||||
Me.btnCancel = New System.Windows.Forms.Button()
|
||||
Me.txtFirma = New System.Windows.Forms.RichTextBox()
|
||||
Me.txtInfo = New System.Windows.Forms.RichTextBox()
|
||||
Me.btnPrint = New System.Windows.Forms.Button()
|
||||
Me.btnCheckEORI = New System.Windows.Forms.Button()
|
||||
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
|
||||
Me.lblVMErr = New System.Windows.Forms.Label()
|
||||
Me.dgvVollmachten = New System.Windows.Forms.DataGridView()
|
||||
Me.btnVorschau = New System.Windows.Forms.Button()
|
||||
Me.btnCheckUID = New System.Windows.Forms.Button()
|
||||
Me.picUIDAbfrage = New System.Windows.Forms.PictureBox()
|
||||
Me.lblUIDAbfrage = New System.Windows.Forms.Label()
|
||||
Me.lblEORIAbfrage = New System.Windows.Forms.Label()
|
||||
Me.picEORIAbfrage = New System.Windows.Forms.PictureBox()
|
||||
Me.lblInfo = New System.Windows.Forms.Label()
|
||||
Me.btnInfo = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.lkl = New System.Windows.Forms.LinkLabel()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
Me.GroupBox5.SuspendLayout()
|
||||
Me.GroupBox7.SuspendLayout()
|
||||
CType(Me.dgvVollmachten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picUIDAbfrage, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picEORIAbfrage, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'txtKuerzel
|
||||
'
|
||||
Me.txtKuerzel.Location = New System.Drawing.Point(87, 6)
|
||||
Me.txtKuerzel.Name = "txtKuerzel"
|
||||
Me.txtKuerzel.Size = New System.Drawing.Size(177, 20)
|
||||
Me.txtKuerzel.TabIndex = 0
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(12, 35)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(29, 13)
|
||||
Me.Label2.TabIndex = 3
|
||||
Me.Label2.Text = "UID:"
|
||||
'
|
||||
'txtUid
|
||||
'
|
||||
Me.txtUid.Location = New System.Drawing.Point(87, 32)
|
||||
Me.txtUid.Name = "txtUid"
|
||||
Me.txtUid.Size = New System.Drawing.Size(177, 20)
|
||||
Me.txtUid.TabIndex = 1
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(12, 61)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(36, 13)
|
||||
Me.Label3.TabIndex = 5
|
||||
Me.Label3.Text = "EORI:"
|
||||
'
|
||||
'txtEori
|
||||
'
|
||||
Me.txtEori.Location = New System.Drawing.Point(87, 58)
|
||||
Me.txtEori.Name = "txtEori"
|
||||
Me.txtEori.Size = New System.Drawing.Size(177, 20)
|
||||
Me.txtEori.TabIndex = 2
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(12, 83)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(120, 13)
|
||||
Me.Label4.TabIndex = 7
|
||||
Me.Label4.Text = "genauer Firmenwortlaut:"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(12, 167)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(28, 13)
|
||||
Me.Label5.TabIndex = 9
|
||||
Me.Label5.Text = "Info:"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.Location = New System.Drawing.Point(12, 428)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(73, 15)
|
||||
Me.Label9.TabIndex = 17
|
||||
Me.Label9.Text = "Checkliste"
|
||||
Me.Label9.TextAlign = System.Drawing.ContentAlignment.BottomLeft
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label10.Location = New System.Drawing.Point(105, 430)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(192, 13)
|
||||
Me.Label10.TabIndex = 18
|
||||
Me.Label10.Text = "(wird NICHT gespeichert, nur gedruckt)"
|
||||
Me.Label10.TextAlign = System.Drawing.ContentAlignment.BottomLeft
|
||||
'
|
||||
'cbxUID
|
||||
'
|
||||
Me.cbxUID.AutoSize = True
|
||||
Me.cbxUID.Location = New System.Drawing.Point(15, 449)
|
||||
Me.cbxUID.Name = "cbxUID"
|
||||
Me.cbxUID.Size = New System.Drawing.Size(181, 17)
|
||||
Me.cbxUID.TabIndex = 9
|
||||
Me.cbxUID.Text = "UID - Prüfung - Ausdruck / gültig"
|
||||
Me.cbxUID.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxEORI
|
||||
'
|
||||
Me.cbxEORI.AutoSize = True
|
||||
Me.cbxEORI.Location = New System.Drawing.Point(15, 472)
|
||||
Me.cbxEORI.Name = "cbxEORI"
|
||||
Me.cbxEORI.Size = New System.Drawing.Size(188, 17)
|
||||
Me.cbxEORI.TabIndex = 10
|
||||
Me.cbxEORI.Text = "EORI - Prüfung - Ausdruck / gültig"
|
||||
Me.cbxEORI.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.cbxVS3)
|
||||
Me.GroupBox1.Controls.Add(Me.cbxVS5)
|
||||
Me.GroupBox1.Controls.Add(Me.cbxVS4)
|
||||
Me.GroupBox1.Controls.Add(Me.cbxVS2)
|
||||
Me.GroupBox1.Controls.Add(Me.cbxVS1)
|
||||
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(9, 495)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(337, 119)
|
||||
Me.GroupBox1.TabIndex = 11
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Versendungsbeleg"
|
||||
'
|
||||
'cbxVS3
|
||||
'
|
||||
Me.cbxVS3.AutoSize = True
|
||||
Me.cbxVS3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxVS3.Location = New System.Drawing.Point(177, 45)
|
||||
Me.cbxVS3.Name = "cbxVS3"
|
||||
Me.cbxVS3.Size = New System.Drawing.Size(154, 17)
|
||||
Me.cbxVS3.TabIndex = 2
|
||||
Me.cbxVS3.Text = "mit Frachtführerbestätigung"
|
||||
Me.cbxVS3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxVS5
|
||||
'
|
||||
Me.cbxVS5.AutoSize = True
|
||||
Me.cbxVS5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxVS5.Location = New System.Drawing.Point(6, 91)
|
||||
Me.cbxVS5.Name = "cbxVS5"
|
||||
Me.cbxVS5.Size = New System.Drawing.Size(107, 17)
|
||||
Me.cbxVS5.TabIndex = 4
|
||||
Me.cbxVS5.Text = "Packliste Original"
|
||||
Me.cbxVS5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxVS4
|
||||
'
|
||||
Me.cbxVS4.AutoSize = True
|
||||
Me.cbxVS4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxVS4.Location = New System.Drawing.Point(6, 68)
|
||||
Me.cbxVS4.Name = "cbxVS4"
|
||||
Me.cbxVS4.Size = New System.Drawing.Size(121, 17)
|
||||
Me.cbxVS4.TabIndex = 3
|
||||
Me.cbxVS4.Text = "Lieferschein Original"
|
||||
Me.cbxVS4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxVS2
|
||||
'
|
||||
Me.cbxVS2.AutoSize = True
|
||||
Me.cbxVS2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxVS2.Location = New System.Drawing.Point(26, 45)
|
||||
Me.cbxVS2.Name = "cbxVS2"
|
||||
Me.cbxVS2.Size = New System.Drawing.Size(145, 17)
|
||||
Me.cbxVS2.TabIndex = 1
|
||||
Me.cbxVS2.Text = "mit Versenderbestätigung"
|
||||
Me.cbxVS2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxVS1
|
||||
'
|
||||
Me.cbxVS1.AutoSize = True
|
||||
Me.cbxVS1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxVS1.Location = New System.Drawing.Point(6, 22)
|
||||
Me.cbxVS1.Name = "cbxVS1"
|
||||
Me.cbxVS1.Size = New System.Drawing.Size(151, 17)
|
||||
Me.cbxVS1.TabIndex = 0
|
||||
Me.cbxVS1.Text = "CMR Original / Zweitstück"
|
||||
Me.cbxVS1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.cbxCMR3)
|
||||
Me.GroupBox2.Controls.Add(Me.cbxCMR1)
|
||||
Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(352, 495)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(250, 119)
|
||||
Me.GroupBox2.TabIndex = 12
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Auf CMR"
|
||||
'
|
||||
'cbxCMR3
|
||||
'
|
||||
Me.cbxCMR3.AutoSize = True
|
||||
Me.cbxCMR3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxCMR3.Location = New System.Drawing.Point(6, 45)
|
||||
Me.cbxCMR3.Name = "cbxCMR3"
|
||||
Me.cbxCMR3.Size = New System.Drawing.Size(206, 17)
|
||||
Me.cbxCMR3.TabIndex = 2
|
||||
Me.cbxCMR3.Text = "Versendung als ig-Lieferung / Stempel"
|
||||
Me.cbxCMR3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxCMR1
|
||||
'
|
||||
Me.cbxCMR1.AutoSize = True
|
||||
Me.cbxCMR1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxCMR1.Location = New System.Drawing.Point(6, 22)
|
||||
Me.cbxCMR1.Name = "cbxCMR1"
|
||||
Me.cbxCMR1.Size = New System.Drawing.Size(123, 17)
|
||||
Me.cbxCMR1.TabIndex = 0
|
||||
Me.cbxCMR1.Text = "VERZOLLT Stempel"
|
||||
Me.cbxCMR1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.cbxRG2)
|
||||
Me.GroupBox3.Controls.Add(Me.cbxRG1)
|
||||
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(10, 620)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(336, 70)
|
||||
Me.GroupBox3.TabIndex = 13
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Auf Rechnung"
|
||||
'
|
||||
'cbxRG2
|
||||
'
|
||||
Me.cbxRG2.AutoSize = True
|
||||
Me.cbxRG2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxRG2.Location = New System.Drawing.Point(6, 45)
|
||||
Me.cbxRG2.Name = "cbxRG2"
|
||||
Me.cbxRG2.Size = New System.Drawing.Size(215, 17)
|
||||
Me.cbxRG2.TabIndex = 1
|
||||
Me.cbxRG2.Text = "UID-Nummer des Empfängers / Stempel"
|
||||
Me.cbxRG2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxRG1
|
||||
'
|
||||
Me.cbxRG1.AutoSize = True
|
||||
Me.cbxRG1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxRG1.Location = New System.Drawing.Point(6, 22)
|
||||
Me.cbxRG1.Name = "cbxRG1"
|
||||
Me.cbxRG1.Size = New System.Drawing.Size(157, 17)
|
||||
Me.cbxRG1.TabIndex = 0
|
||||
Me.cbxRG1.Text = "Versendung als ig-Lieferung"
|
||||
Me.cbxRG1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox4
|
||||
'
|
||||
Me.GroupBox4.Controls.Add(Me.cbxS2)
|
||||
Me.GroupBox4.Controls.Add(Me.cbxS1)
|
||||
Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(352, 620)
|
||||
Me.GroupBox4.Name = "GroupBox4"
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(250, 68)
|
||||
Me.GroupBox4.TabIndex = 15
|
||||
Me.GroupBox4.TabStop = False
|
||||
Me.GroupBox4.Text = "Sonstiges"
|
||||
'
|
||||
'cbxS2
|
||||
'
|
||||
Me.cbxS2.AutoSize = True
|
||||
Me.cbxS2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxS2.Location = New System.Drawing.Point(6, 45)
|
||||
Me.cbxS2.Name = "cbxS2"
|
||||
Me.cbxS2.Size = New System.Drawing.Size(148, 17)
|
||||
Me.cbxS2.TabIndex = 1
|
||||
Me.cbxS2.Text = "T1 oder TIR-Carnet-Kopie"
|
||||
Me.cbxS2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxS1
|
||||
'
|
||||
Me.cbxS1.AutoSize = True
|
||||
Me.cbxS1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxS1.Location = New System.Drawing.Point(6, 22)
|
||||
Me.cbxS1.Name = "cbxS1"
|
||||
Me.cbxS1.Size = New System.Drawing.Size(108, 17)
|
||||
Me.cbxS1.TabIndex = 0
|
||||
Me.cbxS1.Text = "Fahrer Passkopie"
|
||||
Me.cbxS1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox5
|
||||
'
|
||||
Me.GroupBox5.Controls.Add(Me.cbxUEST4)
|
||||
Me.GroupBox5.Controls.Add(Me.cbxUEST3)
|
||||
Me.GroupBox5.Controls.Add(Me.cbxUEST2)
|
||||
Me.GroupBox5.Controls.Add(Me.cbxUEST1)
|
||||
Me.GroupBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox5.Location = New System.Drawing.Point(10, 707)
|
||||
Me.GroupBox5.Name = "GroupBox5"
|
||||
Me.GroupBox5.Size = New System.Drawing.Size(250, 119)
|
||||
Me.GroupBox5.TabIndex = 14
|
||||
Me.GroupBox5.TabStop = False
|
||||
Me.GroupBox5.Text = "Übereinstimmuing notwendig"
|
||||
'
|
||||
'cbxUEST4
|
||||
'
|
||||
Me.cbxUEST4.AutoSize = True
|
||||
Me.cbxUEST4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxUEST4.Location = New System.Drawing.Point(6, 96)
|
||||
Me.cbxUEST4.Name = "cbxUEST4"
|
||||
Me.cbxUEST4.Size = New System.Drawing.Size(127, 17)
|
||||
Me.cbxUEST4.TabIndex = 3
|
||||
Me.cbxUEST4.Text = "Feld 8 Zollanmeldung"
|
||||
Me.cbxUEST4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxUEST3
|
||||
'
|
||||
Me.cbxUEST3.AutoSize = True
|
||||
Me.cbxUEST3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxUEST3.Location = New System.Drawing.Point(6, 63)
|
||||
Me.cbxUEST3.Name = "cbxUEST3"
|
||||
Me.cbxUEST3.Size = New System.Drawing.Size(185, 30)
|
||||
Me.cbxUEST3.TabIndex = 2
|
||||
Me.cbxUEST3.Text = "EUR 1 / ATR (Feld 5 oder Feld 6)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Bestimmungsland"
|
||||
Me.cbxUEST3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxUEST2
|
||||
'
|
||||
Me.cbxUEST2.AutoSize = True
|
||||
Me.cbxUEST2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxUEST2.Location = New System.Drawing.Point(6, 45)
|
||||
Me.cbxUEST2.Name = "cbxUEST2"
|
||||
Me.cbxUEST2.Size = New System.Drawing.Size(201, 17)
|
||||
Me.cbxUEST2.TabIndex = 1
|
||||
Me.cbxUEST2.Text = "Bestimmungsort in der Lieferkondition"
|
||||
Me.cbxUEST2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxUEST1
|
||||
'
|
||||
Me.cbxUEST1.AutoSize = True
|
||||
Me.cbxUEST1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxUEST1.Location = New System.Drawing.Point(6, 22)
|
||||
Me.cbxUEST1.Name = "cbxUEST1"
|
||||
Me.cbxUEST1.Size = New System.Drawing.Size(234, 17)
|
||||
Me.cbxUEST1.TabIndex = 0
|
||||
Me.cbxUEST1.Text = "Empfangsort CMR / Lieferschein / Packliste"
|
||||
Me.cbxUEST1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxAktiv
|
||||
'
|
||||
Me.cbxAktiv.AutoSize = True
|
||||
Me.cbxAktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxAktiv.Location = New System.Drawing.Point(495, 61)
|
||||
Me.cbxAktiv.Name = "cbxAktiv"
|
||||
Me.cbxAktiv.Size = New System.Drawing.Size(104, 17)
|
||||
Me.cbxAktiv.TabIndex = 3
|
||||
Me.cbxAktiv.Text = "NICHT AKTIV"
|
||||
Me.cbxAktiv.UseVisualStyleBackColor = True
|
||||
Me.cbxAktiv.Visible = False
|
||||
'
|
||||
'btnOK
|
||||
'
|
||||
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnOK.Location = New System.Drawing.Point(9, 837)
|
||||
Me.btnOK.Name = "btnOK"
|
||||
Me.btnOK.Size = New System.Drawing.Size(88, 35)
|
||||
Me.btnOK.TabIndex = 16
|
||||
Me.btnOK.Text = "OK"
|
||||
Me.btnOK.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnCancel
|
||||
'
|
||||
Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnCancel.Location = New System.Drawing.Point(114, 837)
|
||||
Me.btnCancel.Name = "btnCancel"
|
||||
Me.btnCancel.Size = New System.Drawing.Size(88, 35)
|
||||
Me.btnCancel.TabIndex = 17
|
||||
Me.btnCancel.Text = "Abbrechen"
|
||||
Me.btnCancel.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtFirma
|
||||
'
|
||||
Me.txtFirma.Location = New System.Drawing.Point(15, 96)
|
||||
Me.txtFirma.Name = "txtFirma"
|
||||
Me.txtFirma.Size = New System.Drawing.Size(587, 68)
|
||||
Me.txtFirma.TabIndex = 4
|
||||
Me.txtFirma.Text = ""
|
||||
'
|
||||
'txtInfo
|
||||
'
|
||||
Me.txtInfo.Location = New System.Drawing.Point(15, 180)
|
||||
Me.txtInfo.Name = "txtInfo"
|
||||
Me.txtInfo.Size = New System.Drawing.Size(587, 99)
|
||||
Me.txtInfo.TabIndex = 5
|
||||
Me.txtInfo.Text = ""
|
||||
'
|
||||
'btnPrint
|
||||
'
|
||||
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPrint.Image = Global.SDL.My.Resources.printer2
|
||||
Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnPrint.Location = New System.Drawing.Point(426, 707)
|
||||
Me.btnPrint.Name = "btnPrint"
|
||||
Me.btnPrint.Size = New System.Drawing.Size(176, 97)
|
||||
Me.btnPrint.TabIndex = 18
|
||||
Me.btnPrint.Text = "Sofort-DRUCK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Checkliste"
|
||||
Me.btnPrint.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnPrint.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnCheckEORI
|
||||
'
|
||||
Me.btnCheckEORI.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnCheckEORI.Location = New System.Drawing.Point(271, 55)
|
||||
Me.btnCheckEORI.Name = "btnCheckEORI"
|
||||
Me.btnCheckEORI.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnCheckEORI.TabIndex = 21
|
||||
Me.btnCheckEORI.Text = "EORI prüfen"
|
||||
Me.btnCheckEORI.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox7
|
||||
'
|
||||
Me.GroupBox7.Controls.Add(Me.lblVMErr)
|
||||
Me.GroupBox7.Controls.Add(Me.dgvVollmachten)
|
||||
Me.GroupBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox7.Location = New System.Drawing.Point(10, 287)
|
||||
Me.GroupBox7.Name = "GroupBox7"
|
||||
Me.GroupBox7.Size = New System.Drawing.Size(592, 138)
|
||||
Me.GroupBox7.TabIndex = 32
|
||||
Me.GroupBox7.TabStop = False
|
||||
Me.GroupBox7.Text = "Vollmachten"
|
||||
'
|
||||
'lblVMErr
|
||||
'
|
||||
Me.lblVMErr.AutoSize = True
|
||||
Me.lblVMErr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblVMErr.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblVMErr.Location = New System.Drawing.Point(204, 68)
|
||||
Me.lblVMErr.Name = "lblVMErr"
|
||||
Me.lblVMErr.Size = New System.Drawing.Size(152, 13)
|
||||
Me.lblVMErr.TabIndex = 40
|
||||
Me.lblVMErr.Text = "Keine Vollmachten vorhanden!"
|
||||
Me.lblVMErr.TextAlign = System.Drawing.ContentAlignment.BottomLeft
|
||||
Me.lblVMErr.Visible = False
|
||||
'
|
||||
'dgvVollmachten
|
||||
'
|
||||
Me.dgvVollmachten.AllowUserToAddRows = False
|
||||
Me.dgvVollmachten.AllowUserToDeleteRows = False
|
||||
Me.dgvVollmachten.AllowUserToOrderColumns = True
|
||||
Me.dgvVollmachten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvVollmachten.Location = New System.Drawing.Point(3, 16)
|
||||
Me.dgvVollmachten.MultiSelect = False
|
||||
Me.dgvVollmachten.Name = "dgvVollmachten"
|
||||
Me.dgvVollmachten.ReadOnly = True
|
||||
Me.dgvVollmachten.RowHeadersVisible = False
|
||||
Me.dgvVollmachten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvVollmachten.Size = New System.Drawing.Size(586, 119)
|
||||
Me.dgvVollmachten.TabIndex = 29
|
||||
'
|
||||
'btnVorschau
|
||||
'
|
||||
Me.btnVorschau.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnVorschau.ImageAlign = System.Drawing.ContentAlignment.TopLeft
|
||||
Me.btnVorschau.Location = New System.Drawing.Point(426, 850)
|
||||
Me.btnVorschau.Name = "btnVorschau"
|
||||
Me.btnVorschau.Size = New System.Drawing.Size(176, 22)
|
||||
Me.btnVorschau.TabIndex = 33
|
||||
Me.btnVorschau.Text = "Vorschau"
|
||||
Me.btnVorschau.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnCheckUID
|
||||
'
|
||||
Me.btnCheckUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnCheckUID.Location = New System.Drawing.Point(271, 29)
|
||||
Me.btnCheckUID.Name = "btnCheckUID"
|
||||
Me.btnCheckUID.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnCheckUID.TabIndex = 34
|
||||
Me.btnCheckUID.Text = "UID prüfen"
|
||||
Me.btnCheckUID.UseVisualStyleBackColor = True
|
||||
'
|
||||
'picUIDAbfrage
|
||||
'
|
||||
Me.picUIDAbfrage.Location = New System.Drawing.Point(433, 29)
|
||||
Me.picUIDAbfrage.Name = "picUIDAbfrage"
|
||||
Me.picUIDAbfrage.Size = New System.Drawing.Size(26, 23)
|
||||
Me.picUIDAbfrage.TabIndex = 35
|
||||
Me.picUIDAbfrage.TabStop = False
|
||||
Me.picUIDAbfrage.Visible = False
|
||||
'
|
||||
'lblUIDAbfrage
|
||||
'
|
||||
Me.lblUIDAbfrage.AutoSize = True
|
||||
Me.lblUIDAbfrage.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblUIDAbfrage.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblUIDAbfrage.Location = New System.Drawing.Point(390, 34)
|
||||
Me.lblUIDAbfrage.Name = "lblUIDAbfrage"
|
||||
Me.lblUIDAbfrage.Size = New System.Drawing.Size(0, 13)
|
||||
Me.lblUIDAbfrage.TabIndex = 29
|
||||
'
|
||||
'lblEORIAbfrage
|
||||
'
|
||||
Me.lblEORIAbfrage.AutoSize = True
|
||||
Me.lblEORIAbfrage.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.lblEORIAbfrage.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblEORIAbfrage.Location = New System.Drawing.Point(390, 60)
|
||||
Me.lblEORIAbfrage.Name = "lblEORIAbfrage"
|
||||
Me.lblEORIAbfrage.Size = New System.Drawing.Size(0, 13)
|
||||
Me.lblEORIAbfrage.TabIndex = 36
|
||||
'
|
||||
'picEORIAbfrage
|
||||
'
|
||||
Me.picEORIAbfrage.Location = New System.Drawing.Point(433, 55)
|
||||
Me.picEORIAbfrage.Name = "picEORIAbfrage"
|
||||
Me.picEORIAbfrage.Size = New System.Drawing.Size(26, 23)
|
||||
Me.picEORIAbfrage.TabIndex = 37
|
||||
Me.picEORIAbfrage.TabStop = False
|
||||
Me.picEORIAbfrage.Visible = False
|
||||
'
|
||||
'lblInfo
|
||||
'
|
||||
Me.lblInfo.AutoSize = True
|
||||
Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblInfo.ForeColor = System.Drawing.Color.Green
|
||||
Me.lblInfo.Location = New System.Drawing.Point(475, 13)
|
||||
Me.lblInfo.Name = "lblInfo"
|
||||
Me.lblInfo.Size = New System.Drawing.Size(94, 13)
|
||||
Me.lblInfo.TabIndex = 1
|
||||
Me.lblInfo.Text = "Neue Funktion:"
|
||||
'
|
||||
'btnInfo
|
||||
'
|
||||
Me.btnInfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnInfo.Location = New System.Drawing.Point(575, 8)
|
||||
Me.btnInfo.Name = "btnInfo"
|
||||
Me.btnInfo.Size = New System.Drawing.Size(27, 23)
|
||||
Me.btnInfo.TabIndex = 38
|
||||
Me.btnInfo.Text = "?"
|
||||
Me.btnInfo.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(11, 13)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label1.TabIndex = 3
|
||||
Me.Label1.Text = "Kürzel:"
|
||||
'
|
||||
'cboPrinter
|
||||
'
|
||||
Me.cboPrinter._allowedValuesFreiText = Nothing
|
||||
Me.cboPrinter._allowFreiText = False
|
||||
Me.cboPrinter._value = ""
|
||||
Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboPrinter.DropDownWidth = 300
|
||||
Me.cboPrinter.FormattingEnabled = True
|
||||
Me.cboPrinter.Location = New System.Drawing.Point(426, 803)
|
||||
Me.cboPrinter.Name = "cboPrinter"
|
||||
Me.cboPrinter.Size = New System.Drawing.Size(176, 21)
|
||||
Me.cboPrinter.TabIndex = 39
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(352, 29)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 40
|
||||
Me.Button1.Text = "prüfen DE"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lkl
|
||||
'
|
||||
Me.lkl.AutoSize = True
|
||||
Me.lkl.Location = New System.Drawing.Point(349, 13)
|
||||
Me.lkl.Name = "lkl"
|
||||
Me.lkl.Size = New System.Drawing.Size(27, 13)
|
||||
Me.lkl.TabIndex = 41
|
||||
Me.lkl.TabStop = True
|
||||
Me.lkl.Text = "Link"
|
||||
'
|
||||
'frmCheckliste
|
||||
'
|
||||
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(614, 884)
|
||||
Me.Controls.Add(Me.lkl)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.btnPrint)
|
||||
Me.Controls.Add(Me.cboPrinter)
|
||||
Me.Controls.Add(Me.btnInfo)
|
||||
Me.Controls.Add(Me.lblInfo)
|
||||
Me.Controls.Add(Me.GroupBox5)
|
||||
Me.Controls.Add(Me.lblEORIAbfrage)
|
||||
Me.Controls.Add(Me.picEORIAbfrage)
|
||||
Me.Controls.Add(Me.lblUIDAbfrage)
|
||||
Me.Controls.Add(Me.picUIDAbfrage)
|
||||
Me.Controls.Add(Me.btnCheckUID)
|
||||
Me.Controls.Add(Me.btnVorschau)
|
||||
Me.Controls.Add(Me.GroupBox7)
|
||||
Me.Controls.Add(Me.btnCheckEORI)
|
||||
Me.Controls.Add(Me.txtInfo)
|
||||
Me.Controls.Add(Me.txtFirma)
|
||||
Me.Controls.Add(Me.btnCancel)
|
||||
Me.Controls.Add(Me.GroupBox3)
|
||||
Me.Controls.Add(Me.GroupBox4)
|
||||
Me.Controls.Add(Me.btnOK)
|
||||
Me.Controls.Add(Me.cbxAktiv)
|
||||
Me.Controls.Add(Me.GroupBox2)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.cbxEORI)
|
||||
Me.Controls.Add(Me.cbxUID)
|
||||
Me.Controls.Add(Me.Label10)
|
||||
Me.Controls.Add(Me.Label9)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.txtEori)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.txtUid)
|
||||
Me.Controls.Add(Me.txtKuerzel)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmCheckliste"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Details"
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox1.PerformLayout()
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox2.PerformLayout()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox3.PerformLayout()
|
||||
Me.GroupBox4.ResumeLayout(False)
|
||||
Me.GroupBox4.PerformLayout()
|
||||
Me.GroupBox5.ResumeLayout(False)
|
||||
Me.GroupBox5.PerformLayout()
|
||||
Me.GroupBox7.ResumeLayout(False)
|
||||
Me.GroupBox7.PerformLayout()
|
||||
CType(Me.dgvVollmachten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picUIDAbfrage, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picEORIAbfrage, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents txtKuerzel As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtUid As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtEori As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents cbxUID As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxEORI As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents cbxVS1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxVS5 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxVS4 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxVS2 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxVS3 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents cbxCMR3 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxCMR1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents cbxRG2 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxRG1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents cbxS2 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxS1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents cbxUEST4 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxUEST3 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxUEST2 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxUEST1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents cbxAktiv As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents btnOK As System.Windows.Forms.Button
|
||||
Friend WithEvents btnCancel As System.Windows.Forms.Button
|
||||
Friend WithEvents btnPrint As System.Windows.Forms.Button
|
||||
Friend WithEvents txtFirma As System.Windows.Forms.RichTextBox
|
||||
Friend WithEvents txtInfo As System.Windows.Forms.RichTextBox
|
||||
Friend WithEvents btnCheckEORI As System.Windows.Forms.Button
|
||||
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents btnVorschau As System.Windows.Forms.Button
|
||||
Friend WithEvents btnCheckUID As System.Windows.Forms.Button
|
||||
Friend WithEvents picUIDAbfrage As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents lblUIDAbfrage As System.Windows.Forms.Label
|
||||
Friend WithEvents lblEORIAbfrage As System.Windows.Forms.Label
|
||||
Friend WithEvents picEORIAbfrage As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents lblInfo As System.Windows.Forms.Label
|
||||
Friend WithEvents btnInfo As System.Windows.Forms.Button
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents dgvVollmachten As DataGridView
|
||||
Friend WithEvents lblVMErr As Label
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents lkl As LinkLabel
|
||||
End Class
|
||||
180
SDL/Checkliste/frmCheckliste.resx
Normal file
180
SDL/Checkliste/frmCheckliste.resx
Normal file
@@ -0,0 +1,180 @@
|
||||
<?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>
|
||||
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA
|
||||
AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fTu6+lm
|
||||
MwBmMwBmMwDd1tH////////////Uy8VmMwC3p5z39fRmMwCYfWv///+jjH1mMwDLv7jm4N1mMwBmMwDu
|
||||
6+nLv7hmMwB0SSbd1tH////u6+nm4N2MbliMblj////u6+m3p5xmMwBmMwC3p5z39fRmMwBmMwBmMwBm
|
||||
MwCjjH3///+AXULBs6ru6+lmMwBmMwB0SSbu6+n///////////+tmo1mMwC3p5zu6+mMbliYfWv///+t
|
||||
mo2tmo3///+YfWv39fR0SSZmMwCtmo3////////////Bs6pmMwCAXUL////////////u6+mtmo1mMwBm
|
||||
MwC3p5zm4N2YfWv///+YfWtmMwDBs6ru6+mAXUL////////Bs6rBs6ru6+lmMwDUy8XBs6pmMwCAXUL/
|
||||
//+tmo1mMwBmMwBmMwBmMwDu6+nBs6pmMwDBs6r39fRmMwBmMwBmMwDm4N3Uy8X39fRmMwBmMwCYfWv/
|
||||
//+tmo1mMwDu6+nLv7jd1tHd1tFmMwB0SSb39fSAXUJmMwD39fT///////////+3p5xmMwDd1tH/////
|
||||
///////Bs6pmMwBmMwBmMwCjjH3////u6+lmMwBmMwBmMwCtmo339fT////m4N2AXUJmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////u6+nBs6rBs6rBs6rBs6rU
|
||||
y8X////////////////////Uy8XBs6rBs6rUy8X////////////Uy8XBs6rBs6rBs6rBs6rBs6rBs6rB
|
||||
s6r///////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwB0SSbd1tH////////////Bs6pmMwBm
|
||||
MwCMblj////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////d1tFmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCAXUL////////////m4N1mMwBmMwBmMwD39fT////////m4N1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////d1tFmMwBmMwBmMwDd1tH///////+YfWtmMwBmMwDm4N3/
|
||||
//////////90SSZmMwBmMwDm4N3///////////90SSZmMwBmMwD39fT////m4N2MblhmMwBmMwB0SSb/
|
||||
///39fRmMwBmMwBmMwDUy8X////////Bs6pmMwBmMwDBs6r///////////+jjH1mMwBmMwDBs6r/////
|
||||
//////+jjH1mMwBmMwDUy8X////////u6+lmMwBmMwBmMwDm4N3///+MblhmMwBmMwC3p5z////////m
|
||||
4N1mMwBmMwCjjH3///////////+3p5xmMwBmMwCjjH3////////////Bs6pmMwBmMwC3p5z////////u
|
||||
6+lmMwBmMwBmMwDm4N3///+3p5xmMwBmMwCMblj///////////90SSZmMwB0SSb////////////Uy8Vm
|
||||
MwBmMwB0SSb////////////Uy8VmMwBmMwCAXULBs6rBs6p0SSZmMwBmMwB0SSb////////Bs6pmMwBm
|
||||
MwBmMwD39fT///////+jjH1mMwBmMwDm4N3////////39fRmMwBmMwBmMwDm4N3////////39fRmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////m4N1mMwBmMwBmMwDd1tH////////Bs6pmMwBmMwDL
|
||||
v7j///////////+MblhmMwBmMwDLv7j///////////+MblhmMwBmMwBmMwBmMwCMbljBs6rm4N3/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
959
SDL/Checkliste/frmCheckliste.vb
Normal file
959
SDL/Checkliste/frmCheckliste.vb
Normal file
@@ -0,0 +1,959 @@
|
||||
'Imports UID.cMeineFunktionen
|
||||
'Imports UID.cDbFunctions
|
||||
'Imports UID.at.gv.bmf.finanzonline
|
||||
'Imports Gemeinsames
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class frmCheckliste
|
||||
Private newEntry As Boolean = False ' handelt es sich um einen neune Eintrag?
|
||||
Private data As cUIDDataKunde ' aktuelle Daten der Form
|
||||
Private dataold As cUIDDataKunde ' Daten der Form beim Laden
|
||||
Private attachments As List(Of cAttachment) ' Liste der PDF-Anhänge
|
||||
Private valueChanged As Boolean = False ' wurden Daten verändert?
|
||||
Private enterUpdate As Boolean = True
|
||||
Private closeOK As Boolean = False ' wenn gesetzt, kann das Fenster ohne einen Hinweis auf das Speichern geschlossen werden
|
||||
Private pathToAttach As String = ""
|
||||
Private printAttach As Boolean = False
|
||||
Dim cDbFunctions As New cDbFunctions
|
||||
|
||||
Dim uid_message As String
|
||||
Public uid_message_report As String
|
||||
Public eori_message_report As String
|
||||
|
||||
Public rowId As Integer ' die ID des Datensatzes
|
||||
'Public kdNr As Integer = -1
|
||||
Dim binding_Kunden As New cBinding("FMZOLL")
|
||||
Dim binding_Vollmachten As New cBinding("FMZOLL")
|
||||
'Public userfullname As String
|
||||
'Public username As String
|
||||
Public speedPrint As Boolean = False
|
||||
Public ADRESSEN As VERAG_PROG_ALLGEMEIN.cAdressen
|
||||
Public KUNDE As VERAG_PROG_ALLGEMEIN.cKunde
|
||||
Public KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub initDataBindingKunden()
|
||||
Try
|
||||
' Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'"
|
||||
'binding_Kunden.initBinding(" SELECT TOP 1 * FROM Kunden INNER JOIN Adressen ON Kunden.KundenNr= Adressen.AdressenNr where KundenNr=" & kdNr & " ", "FMZOLL")
|
||||
|
||||
' AddHandler s.bindingdataTable.ColumnChanged, AddressOf BindingTableColumnChanged
|
||||
' AddHandler s.bindingdataTable.TableNewRow, AddressOf s.bindingdataTable_TableNewRow_SDLLeistungen
|
||||
'im r As DataRow = binding_Kunden.bindingdataTable.Rows(0)
|
||||
|
||||
txtEori.Text = If(KUNDE.EORITIN, "") '(r.Item("EORITIN"))
|
||||
|
||||
Dim firma = If(KUNDE_ERW.kde_FirmenwortlautFiskal, "")
|
||||
If firma = "" Then
|
||||
firma &= (ADRESSEN.Name_1 & " " & ADRESSEN.Name_2).Trim & vbNewLine
|
||||
firma &= ADRESSEN.Straße & vbNewLine
|
||||
firma &= (ADRESSEN.LandKz & " " & ADRESSEN.PLZ & " " & ADRESSEN.Ort).Trim
|
||||
End If
|
||||
txtFirma.Text = firma.Trim
|
||||
|
||||
txtInfo.Text = If(KUNDE.Besonderheiten, "")
|
||||
txtKuerzel.Text = ADRESSEN.Ordnungsbegriff
|
||||
txtUid.Text = If(ADRESSEN.UstIdKz, "") & If(ADRESSEN.UstIdNr, "")
|
||||
|
||||
' MsgBox("1")
|
||||
initDGVVollmachten()
|
||||
|
||||
'Dim dt As DataTable = (New SQL).loadDgvBySql(" SELECT [kdvm_kdvmaId],CONVERT(varchar(10), [kdvm_erhalten_Datum], 104) as kdvm_erhalten_Datum FROM [tblKundenVollmachten] WHERE [kdvm_KundenNr]=" & ADRESSEN.AdressenNr & " ", "FMZOLL")
|
||||
'For Each row As DataRow In dt.Rows
|
||||
' Select Case row.Item("kdvm_kdvmaId").ToString
|
||||
' Case "1" : txtDeZvm.Text = row.Item("kdvm_erhalten_Datum").ToString
|
||||
' Case "2" : txtDeFisk.Text = row.Item("kdvm_erhalten_Datum").ToString
|
||||
' Case "3" : txtAtZvmFisk.Text = row.Item("kdvm_erhalten_Datum").ToString
|
||||
' Case "4" : txtAtZvmFiskCustoms.Text = row.Item("kdvm_erhalten_Datum").ToString
|
||||
' End Select
|
||||
'Next
|
||||
' MsgBox("2")
|
||||
|
||||
|
||||
'cbxAktiv.Checked = checkNullBool(r.Item("??"))
|
||||
|
||||
|
||||
' 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)
|
||||
End Try
|
||||
|
||||
|
||||
' If addnew Then newEntry() 'NEUER EINTRAG!
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initDGVVollmachten()
|
||||
With dgvVollmachten
|
||||
.Columns.Clear()
|
||||
|
||||
Dim where = ""
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' "
|
||||
Case Else : where = " AND art.kdvma_Firma<>'IMEX' "
|
||||
End Select
|
||||
|
||||
.DataSource = SQL.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info " &
|
||||
" FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & KUNDE.KundenNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND abf.[kdvm_erhalten]=1 " & where &
|
||||
" ORDER BY art.kdvma_id", "FMZOLL")
|
||||
|
||||
lblVMErr.Visible = (.Rows.Count = 0)
|
||||
.Visible = Not (.Rows.Count = 0)
|
||||
|
||||
If .Columns.Count = 0 Then Exit Sub
|
||||
|
||||
|
||||
' .RowTemplate.Height = 30
|
||||
.Columns("kdvm_Id").Visible = False
|
||||
.Columns("kdvma_Id").Visible = False
|
||||
.Columns("kdvm_KundenNr").Visible = False
|
||||
.Columns("kdvm_datenarchivId").Visible = False
|
||||
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
|
||||
.Columns("kdvm_erhalten").Width = 45
|
||||
.Columns("kdvm_erhalten").HeaderText = "Erhalten"
|
||||
.Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("kdvm_erhalten_Datum").Width = 100
|
||||
.Columns("kdvm_erhalten_Datum").HeaderText = "Erhalten am"
|
||||
.Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("kdvm_Info").Width = 200
|
||||
.Columns("kdvm_Info").HeaderText = "Info"
|
||||
.Columns("kdvm_Info").Visible = False
|
||||
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
|
||||
r.DefaultCellStyle.ForeColor = Color.Gray
|
||||
ElseIf CBool(r.Cells("kdvm_erhalten").Value) = False Then
|
||||
r.DefaultCellStyle.ForeColor = Color.Gray
|
||||
ElseIf IsDate(r.Cells("kdvm_erhalten_Datum").Value) AndAlso CDate(r.Cells("kdvm_erhalten_Datum").Value) < Now.AddYears(-2) Then
|
||||
r.DefaultCellStyle.ForeColor = Color.Red
|
||||
End If
|
||||
|
||||
If False Then
|
||||
If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
|
||||
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
' Public Sub newEntry()
|
||||
' s.updateBinding()
|
||||
' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
|
||||
' End Sub
|
||||
|
||||
Private Sub frmDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
initDataBindingKunden()
|
||||
|
||||
cProgramFunctions.initDrucker(cboPrinter)
|
||||
|
||||
btnPrint.Visible = False
|
||||
btnVorschau.Visible = False
|
||||
|
||||
If Not cbxAktiv.Checked Then
|
||||
btnPrint.Visible = True
|
||||
btnVorschau.Visible = True
|
||||
End If
|
||||
newEntry = False
|
||||
|
||||
|
||||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.USRBER > 5 Then btnOK.Enabled = False : closeOK = True ' Hat der Benutzer keine Rechte die Daten zu verändern, wird auch nicht nach Änderungen beim Schließen geprüft
|
||||
If Now >= Date.Parse("06.05.2015") Then lblInfo.Visible = False 'Hinweistext sichtbar
|
||||
closeOK = True
|
||||
|
||||
End Sub
|
||||
|
||||
' Wird das Fenster geschlossen , wird geprüft, ob Änderungen vorgenommen wurden
|
||||
Private Sub frmDetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
If valueChanged = False Or closeOK Then ' wenn keine Daten geändert wurden oder Schließen ohne Speichern aktzeptiert wird
|
||||
'frmMain.Enabled = True
|
||||
Me.Dispose() 'Fenster wird geschlossen
|
||||
' e.Cancel = False
|
||||
' Me.Close()
|
||||
' frmMain.BringToFront()
|
||||
Else ' Daten wurden geändert
|
||||
Select Case MsgBox("Wollen Sie die geänderten Daten verwerfen?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Änderung verwerfen?")
|
||||
Case vbYes
|
||||
' frmMain.Enabled = True
|
||||
' Me.Close()
|
||||
Me.Dispose() 'Fenster wird geschlossen
|
||||
e.Cancel = False
|
||||
' frmMain.BringToFront()
|
||||
Case vbNo
|
||||
e.Cancel = True 'Fenster wird nicht geschlossen
|
||||
End Select
|
||||
End If
|
||||
e.Cancel = True
|
||||
End Sub
|
||||
|
||||
|
||||
'Abbrechen
|
||||
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'Druckvorschau laden
|
||||
Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnVorschau.Click
|
||||
Dim report As rptCheckliste = New rptCheckliste
|
||||
report.lblUID.Text = Me.txtUid.Text
|
||||
report.lblEORI.Text = Me.txtEori.Text
|
||||
report.lblFirma.Text = Me.txtFirma.Text
|
||||
report.lblInfo.Text = Me.txtInfo.Text
|
||||
'sreport.lblUID.Text = Me.txtUid.Text
|
||||
report.Label19.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
report.lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
|
||||
|
||||
|
||||
report.cbxUID.Checked = Me.cbxUID.Checked
|
||||
report.cbxEORI.Checked = Me.cbxEORI.Checked
|
||||
report.cbxCMR.Checked = Me.cbxVS1.Checked
|
||||
report.cbxCMRVers.Checked = Me.cbxVS2.Checked
|
||||
report.cbxCMRFracht.Checked = Me.cbxVS3.Checked
|
||||
report.cbxLieferschein.Checked = Me.cbxVS4.Checked
|
||||
report.cbxPackliste.Checked = Me.cbxVS5.Checked
|
||||
report.cbxVerzollt.Checked = Me.cbxCMR1.Checked
|
||||
report.cbxCMRVersendung.Checked = Me.cbxCMR3.Checked
|
||||
report.cbxRGVersendung.Checked = Me.cbxRG1.Checked
|
||||
report.cbxRG_UID.Checked = Me.cbxRG2.Checked
|
||||
report.cbxPassport.Checked = Me.cbxS1.Checked
|
||||
report.cbxT1.Checked = Me.cbxS2.Checked
|
||||
report.cbxUEBER_AURATR.Checked = Me.cbxUEST3.Checked
|
||||
report.cbxUEBER_Bestimmungsort.Checked = Me.cbxUEST2.Checked
|
||||
report.cbxUEBER_CMR.Checked = Me.cbxUEST1.Checked
|
||||
report.cbxUEBER_Zollanm.Checked = Me.cbxUEST4.Checked
|
||||
report.SubReport.Report = New subRptVM(KUNDE.KundenNr)
|
||||
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
report.picVERAG.Image = My.Resources.IMEX_LOGO_simple
|
||||
report.Label16.Text = "Bei Nicht-Übereinstimmung: Abfertigung verweigern !!!!"
|
||||
report.Label8.Text = "IMEX"
|
||||
|
||||
End Select
|
||||
'If txtDeZvm.Text <> "" Then report.lblDE_ZVM.Text = txtDeZvm.Text
|
||||
'If txtDeFisk.Text <> "" Then report.lblDE_FKVM.Text = txtDeFisk.Text
|
||||
'If txtAtZvmFisk.Text <> "" Then report.lblVM_ZS.Text = txtAtZvmFisk.Text
|
||||
'If txtAtZvmFiskCustoms.Text <> "" Then report.lblVM_CS.Text = txtAtZvmFiskCustoms.Text
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If speedPrint Then
|
||||
report.Run(False)
|
||||
report.Document.Printer.PrinterName = cboPrinter.Text
|
||||
report.Document.Print(False, False)
|
||||
report.Dispose()
|
||||
Me.Close()
|
||||
' AddHandler rpt.Viewer.LoadCompleted, Sub()
|
||||
'rpt.Viewer.Print(True, True, True)
|
||||
' rpt.Close()
|
||||
' End Sub
|
||||
Else
|
||||
Dim rpt As New frmPrintLayout
|
||||
rpt.Text = "Checkliste"
|
||||
|
||||
rpt.Viewer.LoadDocument(report)
|
||||
|
||||
rpt.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
rpt.Show()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmDetails_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
|
||||
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then ' 'Enter' löst die Speichern-Function aus
|
||||
' If enterUpdate And VERAG_PROG_ALLGEMEIN.cAllgemein.USRBER <= 5 Then
|
||||
'' If newEntry Then insertData() Else updateData()
|
||||
' End If
|
||||
' ElseIf e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Escape) Then ' 'ESC' schließt das Fenster
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
'Wird ein Wert geändert, wird 'valueChanged'= true
|
||||
Private Sub valueChangedEvent(sender As Object, e As EventArgs)
|
||||
valueChanged = True
|
||||
End Sub
|
||||
|
||||
'befindet man sich in einem mehrzeiligen Textfeld darf die Enter-Tast nicht das Key-Evnet auslösen
|
||||
Private Sub txtBox_GotFocus(sender As Object, e As EventArgs) Handles txtFirma.GotFocus, txtInfo.GotFocus
|
||||
enterUpdate = False
|
||||
End Sub
|
||||
|
||||
'bei Verlassen des Textfeldes ist das Key-Evnet wieder akitv
|
||||
Private Sub txtBox_GotLost(sender As Object, e As EventArgs) Handles txtFirma.LostFocus, txtInfo.LostFocus
|
||||
enterUpdate = True
|
||||
End Sub
|
||||
|
||||
'Komfortable EORI-Prüfung
|
||||
Private Sub btnCheckEORI_Click(sender As Object, e As EventArgs) Handles btnCheckEORI.Click
|
||||
Dim eorilink As String = "http://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & txtEori.Text & "&Expand=true"
|
||||
frmEoriLink.link = eorilink
|
||||
frmEoriLink.frmCheckliste = Me
|
||||
frmEoriLink.Show()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
'Anhang hinzufügen
|
||||
Private Sub btnAddAttach_Click(sender As Object, e As EventArgs)
|
||||
Dim fd As OpenFileDialog = New OpenFileDialog()
|
||||
|
||||
fd.Title = "Anhang hinzufügen"
|
||||
fd.Filter = "PDF Dateien (*.PDF)|*.PDF"
|
||||
fd.FilterIndex = 2
|
||||
fd.RestoreDirectory = True
|
||||
|
||||
If fd.ShowDialog() = DialogResult.OK Then
|
||||
Dim value As String = ""
|
||||
value = InputBox("Bitte geben Sie einen Namen für das Dokument ein:", "Anhang - Name", cut_file(fd.FileName), 200, 100)
|
||||
|
||||
If Not value Is "" Then
|
||||
Dim d As New cAttachment
|
||||
If Not value.ToLower.EndsWith(".pdf") Then value = value & ".pdf"
|
||||
Dim directory As String = "F:\PROGRAMME\UID_DATA\PDFAnhang\" & rowId & "\"
|
||||
If Not My.Computer.FileSystem.DirectoryExists(directory) Then
|
||||
My.Computer.FileSystem.CreateDirectory(directory)
|
||||
End If
|
||||
Dim newPathToAttach As String = "F:\PROGRAMME\UID_DATA\PDFAnhang\" & rowId & "\" & value
|
||||
Try
|
||||
IO.File.Copy(fd.FileName, newPathToAttach, True) 'Das ausgewwählte PDF ins F Verzeichnis schieben
|
||||
d.att_pfad = newPathToAttach
|
||||
d.att_name = value
|
||||
cDbFunctions.insertAttachment(d, rowId)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Die Zollerklärung konnte nicht kopiert werden!", vbInformation)
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function
|
||||
Private Function cut_file(ByVal file As String) As String
|
||||
While file.Contains("\")
|
||||
file = file.Remove(0, 1)
|
||||
End While
|
||||
Return file
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
'der Sofort-Druck öffnet direkt den Print-Dialog
|
||||
Private Sub btnFastPrint_Click_1(sender As Object, e As EventArgs) Handles btnPrint.Click
|
||||
speedPrint = True
|
||||
btnVorschau.PerformClick()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub cbxAktiv_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAktiv.CheckedChanged
|
||||
If cbxAktiv.Checked Then
|
||||
cbxAktiv.ForeColor = Color.Red
|
||||
Else
|
||||
cbxAktiv.ForeColor = Color.Black
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnCheckUID_Click(sender As Object, e As EventArgs) Handles btnCheckUID.Click
|
||||
Dim uidlink As String = "https://finanzonline.bmf.gv.at/fon/"
|
||||
Process.Start(uidlink)
|
||||
'_________________________________
|
||||
' frmUidLink.link = uidlink
|
||||
' frmUidLink.Show()
|
||||
|
||||
'_________________________________
|
||||
'Me.Cursor = Cursors.WaitCursor
|
||||
' Dim session As String = Call_Web_Service_MethodUID_Login()
|
||||
'If session <> "" Then
|
||||
'Dim s As String
|
||||
' Try
|
||||
' s = Call_Web_Service_MethodUID_Abfrage(session)
|
||||
'Call_Web_Service_MethodUID_Logout(session)
|
||||
' uid_message = getmessage(s)
|
||||
'If s = "0" Then
|
||||
' uid_message_report = "Die UID-Nummer " & txtUid.Text & " wurde geprüft und ist gültig."
|
||||
'ElseIf s = "4" Then
|
||||
'uid_message_report = "Die UID-Nummer " & txtUid.Text & " wurde geprüft und ist NICHT gültig."
|
||||
'Else
|
||||
''uid_message_report = "Probleme bei der Abfrage - UID-Nummer: " & txtUid.Text
|
||||
'End If
|
||||
'
|
||||
'Catch ex As Exception
|
||||
'MsgBox("Fehler beim Prüfen der UID-Nummer" & vbNewLine & vbNewLine & ex.Message) : End Try
|
||||
'End If
|
||||
'Me.Cursor = Cursors.Default
|
||||
|
||||
End Sub
|
||||
|
||||
'Behandlung des Ergebnises aus der UID-Abfrage
|
||||
Private Function getmessage(ByRef rc As String) As String
|
||||
Dim msg As String = "ERROR: Es ist ein Fehler bei der Anfrage aufgetreten."
|
||||
picUIDAbfrage.Visible = False
|
||||
picUIDAbfrage.Image = Nothing
|
||||
lblUIDAbfrage.Text = ""
|
||||
cbxUID.Checked = False
|
||||
|
||||
Try
|
||||
Select Case CInt(rc)
|
||||
Case 0
|
||||
picUIDAbfrage.Image = My.Resources.ok
|
||||
picUIDAbfrage.Visible = True
|
||||
msg = "Die UID des Erwerbers ist gültig."
|
||||
lblUIDAbfrage.Text = msg
|
||||
cbxUID.Checked = True
|
||||
Return msg
|
||||
Case 1
|
||||
|
||||
picUIDAbfrage.Image = My.Resources.del
|
||||
picUIDAbfrage.Visible = True
|
||||
msg = "Die UID des Erwerbers ist N I C H T gültig."
|
||||
lblUIDAbfrage.Text = msg
|
||||
|
||||
Case 3
|
||||
msg = "3 Die UID-Nummer des Antragstellers ist ungültig."
|
||||
Case 4
|
||||
picUIDAbfrage.Image = My.Resources.del
|
||||
picUIDAbfrage.Visible = True
|
||||
msg = "Die UID-Nummer des Erwerbers ist falsch."
|
||||
lblUIDAbfrage.Text = msg & " Bitte überprüfen Sie die Daten!"
|
||||
Return msg
|
||||
Case 5
|
||||
msg = "5 Die UID-Nummer des Antragstellers ist ungültig."
|
||||
Case 6
|
||||
msg = "6 Der angegebene Mitgliedstaat ist derzeit nicht erreichbar."
|
||||
Case 7
|
||||
msg = "7 Der angegebene Mitgliedstaat ist derzeit nicht erreichbar."
|
||||
Case 8
|
||||
msg = "8 Anfragen sind derzeit nicht möglich."
|
||||
Case 9
|
||||
msg = "9 Name und Anschrift des Erwerbers sind derzeit nicht ermittelbar."
|
||||
Case 101
|
||||
msg = "101 Die UID des Antragstellers muss mit 'ATU' beginnen."
|
||||
Case 102
|
||||
msg = "102 Bei 'Stufe' ist nur '1' oder '2' zulässig."
|
||||
Case 103
|
||||
msg = "103 Die angefragte UID-Nummer kann im FinanzOnline nur in Stufe 1 bestätigt werden, da diese UID-Nummer zu einer Unternehmensgruppe (Umsatzsteuergruppe) gehört. Aus technischen Gründen werden aus Tschechien keine Firmendaten angezeigt. Für eine gültige Stufe 2 Abfrage ist es daher erforderlich, dass Sie sich unter http://adisreg.mfcr.cz die Daten der CZ-Umsatzsteuergruppe aufrufen und kontrollieren, ob das angefragte Unternehmen auch tatsächlich zu dieser Gruppe gehört. Bitte bewahren Sie den Ausdruck dieser Anfrage in Ihren Unterlagen als Beleg gemäß § 132 BAO auf. Für jede Anfrage Stufe 2 ist sowohl das Bestätigungsverfahren in Stufe 1 im FinanzOnline als auch das Gruppenregister im anderen Mitgliedsstaat laut o.a. Link zu konsultieren. Im Falle von Fragen wenden Sie sich bitte an Ihr zuständiges Finanzamt."
|
||||
Case 104
|
||||
msg = "104 Die angefragte UID-Nummer kann im FinanzOnline nur in Stufe 1 bestätigt werden, da diese UID-Nummer zu einer Unternehmensgruppe (Umsatzsteuergruppe) gehört. Aus technischen Gründen werden aus der Slowakei keine Firmendaten angezeigt. Für eine gültige Stufe 2 Abfrage ist es daher erforderlich, dass Sie sich unter http://www.drsr.sk die Daten der SK-Umsatzsteuergruppe aufrufen und kontrollieren, ob das angefragte Unternehmen auch tatsächlich zu dieser Gruppe gehört. Bitte bewahren Sie den Ausdruck dieser Anfrage in Ihren Unterlagen als Beleg gemäß §132 BAO auf. Für jede Anfrage Stufe 2 ist sowohl das Bestätigungsverfahren in Stufe 1 im FinanzOnline als auch das Gruppenregister im anderen Mitgliedsstaat laut o.a. Link zu konsultieren. Im Falle von Fragen wenden Sie sich bitte an Ihr zuständiges Finanzamt."
|
||||
Case 105
|
||||
msg = "105 Die UID-Nummer ist über FinanzOnline einzeln abzufragen."
|
||||
Case 999
|
||||
msg = "999 Nicht alle erforderlichen Parameter wurden angegeben."
|
||||
Case 1511
|
||||
msg = "1511 Der angegebene Mitgliedstaat ist derzeit nicht erreichbar."
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
picUIDAbfrage.Image = My.Resources.del
|
||||
picUIDAbfrage.Visible = True
|
||||
lblUIDAbfrage.Text = "Fehler bei der Abfrage"
|
||||
Return msg
|
||||
End Function
|
||||
|
||||
'Genaue Nachricht anzeigen
|
||||
Private Sub lblUIDAbfrage_Click(sender As Object, e As EventArgs) Handles lblUIDAbfrage.Click
|
||||
If uid_message <> "" Then MsgBox(uid_message)
|
||||
End Sub
|
||||
|
||||
'EORI Prüfung Falsch
|
||||
Public Sub eoriFalse()
|
||||
cbxEORI.Checked = False
|
||||
lblEORIAbfrage.Text = "Die EORI-Nummer wurde geprüft und ist N I C H T gültig."
|
||||
eori_message_report = "Die EORI-Nummer " & txtEori.Text & " wurde geprüft und ist NICHT gültig."
|
||||
picEORIAbfrage.Image = My.Resources.del
|
||||
picEORIAbfrage.Visible = True
|
||||
End Sub
|
||||
|
||||
'EORI Prüfung OK
|
||||
Public Sub eoriTrue()
|
||||
cbxEORI.Checked = True
|
||||
lblEORIAbfrage.Text = "Die EORI-Nummer wurde geprüft und ist gültig."
|
||||
eori_message_report = "Die EORI-Nummer " & txtEori.Text & " wurde geprüft und ist gültig."
|
||||
picEORIAbfrage.Image = My.Resources.ok
|
||||
picEORIAbfrage.Visible = True
|
||||
End Sub
|
||||
|
||||
'UID Prüfung Falsch
|
||||
Public Sub uidFalse()
|
||||
cbxUID.Checked = False
|
||||
lblUIDAbfrage.Text = "Die UID-Nummer wurde geprüft - die Daten stimmen ist N I C H T überein."
|
||||
uid_message_report = "Die UID-Nummer " & txtUid.Text & " wurde geprüft - die Daten stimmen NICHT überein."
|
||||
picUIDAbfrage.Image = My.Resources.del
|
||||
picUIDAbfrage.Visible = True
|
||||
End Sub
|
||||
|
||||
'UID Prüfung OK
|
||||
Public Sub uidTrue()
|
||||
cbxUID.Checked = True
|
||||
End Sub
|
||||
|
||||
'Information zur neuen Funktion
|
||||
Private Sub btnInfo_Click(sender As Object, e As EventArgs) Handles btnInfo.Click
|
||||
MsgBox("INFO: " & vbNewLine & vbNewLine & "Die Funktion 'EORI prüfen' bietet eine komfortable Lösung, um auf die Homepage " &
|
||||
"der Europäischen Kommission zugreifen. Bitte überprüfen Sie die Angaben der Homepage mit den " &
|
||||
"darunter angeführten Daten." & vbNewLine & vbNewLine &
|
||||
"Die Funktion 'UID prüfen' verlinkt Sie auf die FinanzOnline-Homepage.")
|
||||
End Sub
|
||||
|
||||
Function checkNullStr(o As Object) As String
|
||||
If Not IsDBNull(o) Then
|
||||
Return o
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Function checkNullNbr(o As Object) As Double
|
||||
If Not IsDBNull(o) AndAlso IsNumeric(o) Then
|
||||
Return o
|
||||
End If
|
||||
Return 0
|
||||
End Function
|
||||
Function checkNullBool(o As Object) As Boolean
|
||||
Try
|
||||
Return DirectCast(o, Boolean)
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub dgvVollmachten_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachten.SelectionChanged
|
||||
dgvVollmachten.ClearSelection()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
' Dim uidlink As String = "https://evatr.bff-online.de/eVatR/"
|
||||
' Process.Start(uidlink)
|
||||
If ADRESSEN IsNot Nothing Then openUIDPruefung_DE(ADRESSEN.AdressenNr)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub openUIDPruefung_DE(UIDLandKz, UIDNr, Optional print = False)
|
||||
openUIDPruefung_DE(-1, UIDLandKz, UIDNr, print)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub openUIDPruefung_DE(KdNr, Optional UIDLandKz = "", Optional UIDNr = "", Optional print = False)
|
||||
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
|
||||
If KdNr > 0 Then
|
||||
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
|
||||
UIDLandKz = If(AD.UstIdKz, "")
|
||||
UIDNr = If(AD.UstIdNr, "")
|
||||
End If
|
||||
|
||||
Dim f As New frmInfo
|
||||
f.Controls.Clear()
|
||||
Dim f_EORI As Form
|
||||
Dim WebBrowser As New VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx
|
||||
|
||||
f.Controls.Add(WebBrowser)
|
||||
f.Visible = True
|
||||
'f.Visible = false
|
||||
'f.WindowState = FormWindowState.Minimized
|
||||
f.Show()
|
||||
f_EORI = f
|
||||
WebBrowser.Dock = DockStyle.Fill
|
||||
WebBrowser.Navigate(New Uri("https://evatr.bff-online.de/eVatR/"))
|
||||
f.Size = New Size(1000, 1300)
|
||||
f.StartPosition = FormStartPosition.CenterScreen
|
||||
f.Top = 0
|
||||
WebBrowser.AllowNavigation = True
|
||||
Dim doFilling = True
|
||||
Dim doFilling2 = False
|
||||
|
||||
AddHandler WebBrowser.DocumentCompleted, Sub()
|
||||
' Print the document now that it is fully loaded.
|
||||
If WebBrowser.ReadyState = WebBrowserReadyState.Complete Then
|
||||
If UIDLandKz <> "" And UIDNr <> "" Then
|
||||
' System.Threading.Thread.Sleep(1000)
|
||||
' WebBrowser.Print()
|
||||
' Dispose the WebBrowser now that the task is complete.
|
||||
' WebBrowser.Dispose()
|
||||
'
|
||||
If doFilling2 Then
|
||||
If AD IsNot Nothing Then
|
||||
Try
|
||||
|
||||
Dim Adname = (If(AD.Name_1, "") & If(AD.Name_2, "")).ToString.Trim
|
||||
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("firmenname").Item(0).SetAttribute("value", Adname)
|
||||
Dim Rechtsform = ""
|
||||
|
||||
|
||||
' <option value = "AG" > agnbsp; - Aktiengesellschaft</Option>
|
||||
'<option value = "EGEN" > eGen - Eingetragene Genossenschaft</Option>
|
||||
'<option value = "EWIV" > EWIV - Europäische wirtschaftliche Interessenvereinigung</Option>
|
||||
'<option value = "GEN" > GEN - Genossenschaft</Option>
|
||||
'<option value = "GESBR" > GesbR - Gesellschaft bürgerlichen Rechts</Option>
|
||||
'<option value = "GESMBH" > GesmbH - Gesellschaft mit beschränkter Haftung</Option>
|
||||
'<option value = "GESMBHCO" > GesmbH & amp; CO - Gesellschaft mit beschränkter Haftung & Co</Option>
|
||||
'<option value = "GESMBHCOKG" > GesmbH & amp; CO KG - Gesellschaft mit beschränkter Haftung & Co KG</Option>
|
||||
'<option value = "GESMBHCOKEG" > GesmbH & amp; CO KEG - Gesellschaft mit beschränkter Haftung & Co KEG</Option>
|
||||
'<option value = "GESMBHCOOG" > GesmbH & amp; CO OG - Gesellschaft mit beschränkter Haftung & Co OG</Option>
|
||||
'<option value = "GESMBHCOOHG" > GesmbH & amp; CO OHG - Gesellschaft mit beschränkter Haftung & Co OHG</Option>
|
||||
'<option value = "GNBR" > GNBR - Gesellschaft nach bürgerlichem Recht</Option>
|
||||
'<option value = "KEG" > KEG - Kommanditerwerbsgesellschaft</Option>
|
||||
'<option value = "KG" > KG - Kommanditgesellschaft</Option>
|
||||
'<option value = "OEG" > OEG - Offene Erwerbsgesellschaft</Option>
|
||||
'<option value = "OG" > OG - Offene Gesellschaft</Option>
|
||||
'<option value = "OHG" > OHG - Offene Handelsgesellschaft</Option>
|
||||
'<option value = "PS" > Privatstiftung - Privatstiftung</Option>
|
||||
'<option value = "REGEN" > RegGen - Registrierte Genossenschaft</Option>
|
||||
'<option value = "REGENMBH" > RGenmbH - Registrierte Genossenschaft mit beschränkter Haftung</Option>
|
||||
'<option value = "VAG" > VaG / VVaG / VVG - Versicherung/-sverein auf Gegenseitigkeit</Option>
|
||||
'<option value = "" >& nbsp;</Option>
|
||||
'<option value = "" > ------------------englische Rechtsformen ------------------</Option>
|
||||
'<option value = "Ltd" > LTD - Limited</Option>
|
||||
'<option value = "PLC" > PLC - Public limited company</option>
|
||||
'<option value = "" >& nbsp;</Option>
|
||||
'<option value = "" > -----------------französische Rechtsformen ----------------</Option>
|
||||
'<option value = "SA" > SA - Société anonyme</Option>
|
||||
'<option value = "SARL" > SARL - Société à responsabilité limitée</Option>
|
||||
'<option value = "" >& nbsp;</Option>
|
||||
'<option value = "" > -----------------europäische Rechtsformen -----------------</Option>
|
||||
'<option value = "SE" > SE - Societas Europaea</Option>
|
||||
|
||||
If Adname.ToUpper.EndsWith("AG") Then Rechtsform = "AG"
|
||||
If Adname.ToUpper.EndsWith("EGEN") Then Rechtsform = "EGEN"
|
||||
If Adname.ToUpper.EndsWith("GESBR") Then Rechtsform = "GESBR"
|
||||
If Adname.ToUpper.EndsWith("GESMBH") Then Rechtsform = "GESMBH"
|
||||
If Adname.ToUpper.EndsWith("GMBH") Then Rechtsform = "GESMBH"
|
||||
If Adname.ToUpper.EndsWith("GMBH & CO") Then Rechtsform = "GESMBHCO"
|
||||
If Adname.ToUpper.EndsWith("GESMBH & CO") Then Rechtsform = "GESMBHCO"
|
||||
If Adname.ToUpper.EndsWith("GMBH & CO KG") Then Rechtsform = "GESMBHCOKG"
|
||||
If Adname.ToUpper.EndsWith("GESMBH & CO KG") Then Rechtsform = "GESMBHCOKG"
|
||||
If Adname.ToUpper.EndsWith("KEG") Then Rechtsform = "KEG"
|
||||
If Adname.ToUpper.EndsWith("OG") Then Rechtsform = "OG"
|
||||
If Adname.ToUpper.EndsWith("Ltd") Then Rechtsform = "Ltd"
|
||||
If Adname.ToUpper.EndsWith("SARL") Then Rechtsform = "SARL"
|
||||
If Adname.ToUpper.Contains("S.A.R.L.") Then Rechtsform = "SARL"
|
||||
|
||||
|
||||
WebBrowser.Document.GetElementsByTagName("select").GetElementsByName("rfm").Item(0).SetAttribute("value", Rechtsform)
|
||||
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("ort").Item(0).SetAttribute("value", If(AD.Ort, ""))
|
||||
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("plz").Item(0).SetAttribute("value", If(AD.PLZ, ""))
|
||||
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("strasse").Item(0).SetAttribute("value", If(AD.Straße, ""))
|
||||
|
||||
'If print Then
|
||||
|
||||
' timer_EORI.Enabled = True
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
doFilling2 = False
|
||||
End If
|
||||
If doFilling Then
|
||||
Try
|
||||
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("eigene_nr").Item(0).SetAttribute("value", "813570890")
|
||||
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("abfrage_nr").Item(0).SetAttribute("value", UIDNr)
|
||||
|
||||
Select Case UIDLandKz
|
||||
Case "DE"
|
||||
Case "BE", "BG", "DK", "EE", "FI", "FR", "EL", "GB", "IE", "IT", "HR", "LV", "LT", "LU", "MT", "NL", "AT", "PL", "PT", "RO", "SE", "SK", "SI", "ES", "CZ", "HU", "CY"
|
||||
'Nur bei erlaubten Ländern:
|
||||
WebBrowser.Document.GetElementsByTagName("select").GetElementsByName("abfrage_land").Item(0).SetAttribute("value", UIDLandKz)
|
||||
WebBrowser.Document.GetElementsByTagName("input").GetElementsByName("eAnfrage").Item(0).InvokeMember("click")
|
||||
Case Else
|
||||
|
||||
End Select
|
||||
doFilling2 = True
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
doFilling = False
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked
|
||||
Dim uidlink As String = "https://evatr.bff-online.de/eVatR/"
|
||||
Process.Start(uidlink)
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
|
||||
Dim uidlink As String = "https://evatr.bff-online.de/eVatR/"
|
||||
Process.Start(uidlink)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cUIDDataKunde
|
||||
Property id As Integer
|
||||
Property deakt As Boolean
|
||||
Property kuerzel As String
|
||||
Property firma As String
|
||||
Property uid As String
|
||||
Property eori As String
|
||||
Property info As String
|
||||
Property deZv As String
|
||||
Property deFisk As String
|
||||
Property atZvmfisk As String
|
||||
Property atZvmfiskCustoms As String
|
||||
'Property printAttach As Boolean
|
||||
' Property pathToAttach As String
|
||||
Property lastUser As String
|
||||
End Class
|
||||
|
||||
Public Class cAttachment
|
||||
Property att_id As Integer
|
||||
Property att_name As String
|
||||
Property att_pfad As String
|
||||
End Class
|
||||
|
||||
|
||||
Class cDbFunctions
|
||||
' Dim cSqlDb As New Gemeinsames.cDatenbank
|
||||
Public Function LesenOptionen(ByVal id As Integer) As cUIDDataKunde
|
||||
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
|
||||
Dim sql As String = "SELECT * FROM tblData WHERE id = " & id & ""
|
||||
Dim daten As cUIDDataKunde = Nothing
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
daten = New cUIDDataKunde()
|
||||
Try
|
||||
daten.id = CInt(dr.Item("Id"))
|
||||
daten.deakt = CBool(dr.Item("deakt"))
|
||||
daten.kuerzel = CStr(dr.Item("kuerzel"))
|
||||
daten.firma = CStr(dr.Item("firma"))
|
||||
daten.uid = CStr(dr.Item("uid"))
|
||||
daten.eori = CStr(dr.Item("eori"))
|
||||
daten.info = CStr(dr.Item("info"))
|
||||
daten.deZv = CStr(dr.Item("de_vz_vm"))
|
||||
daten.deFisk = CStr(dr.Item("de_fisk_vm"))
|
||||
daten.atZvmfisk = CStr(dr.Item("at_vzfisk_vm"))
|
||||
If Not dr.Item("at_vzfisk_vm_customs") Is DBNull.Value Then daten.atZvmfiskCustoms = CStr(dr.Item("at_vzfisk_vm_customs"))
|
||||
|
||||
daten.lastUser = CStr(dr.Item("letzter_benutzer"))
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Optionen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return daten
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Optionen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
Public Function getAttachmentByDataid(ByVal id As Integer) As List(Of cAttachment)
|
||||
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
|
||||
Dim sql As String = "SELECT * FROM tblDataAttachment WHERE att_dataId = " & id & ""
|
||||
Dim daten As New List(Of cAttachment)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
While dr.Read()
|
||||
Dim d As New cAttachment()
|
||||
Try
|
||||
d.att_id = CInt(dr.Item("att_id"))
|
||||
If Not dr.Item("att_name") Is DBNull.Value Then d.att_name = CStr(dr.Item("att_name"))
|
||||
If Not dr.Item("att_pfad") Is DBNull.Value Then d.att_pfad = CStr(dr.Item("att_pfad"))
|
||||
daten.Add(d)
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Anhänge" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End While
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return daten
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Optionen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function insertAttachment(ByVal d As cAttachment, ByVal id As Integer) As Boolean
|
||||
Dim hAuswahl As String = ""
|
||||
|
||||
'Änderung
|
||||
Dim sql = "INSERT INTO tblDataAttachment " &
|
||||
"(att_name, att_pfad, att_dataId) VALUES " &
|
||||
"(@att_name,@att_pfad,@att_dataId)"
|
||||
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
Try
|
||||
cmd.Parameters.AddWithValue("@att_name", d.att_name)
|
||||
cmd.Parameters.AddWithValue("@att_pfad", d.att_pfad)
|
||||
cmd.Parameters.AddWithValue("@att_dataId", id)
|
||||
cmd.ExecuteNonQuery()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Anhang kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Anhang")
|
||||
End Try
|
||||
End Using
|
||||
End Using
|
||||
Return False
|
||||
End Function
|
||||
Public Function delAttachment(ByVal id As Integer) As Boolean
|
||||
Dim hAuswahl As String = ""
|
||||
|
||||
Dim sql = "DELETE FROM tblDataAttachment WHERE att_id=@att_id"
|
||||
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
Try
|
||||
cmd.Parameters.AddWithValue("@att_id", id)
|
||||
cmd.ExecuteNonQuery()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Anhang kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Anhang")
|
||||
End Try
|
||||
End Using
|
||||
End Using
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function getDataBy() As IList(Of cUIDDataKunde)
|
||||
'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
|
||||
Dim sql As String = "SELECT * FROM tblData "
|
||||
Dim daten As New List(Of cUIDDataKunde)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
While dr.Read
|
||||
'daten = New cUIDDataKunde()
|
||||
'MsgBox(daten.Count)
|
||||
Try
|
||||
Dim d As New cUIDDataKunde
|
||||
d.id = CInt(dr.Item("Id"))
|
||||
d.deakt = CBool(dr.Item("deakt"))
|
||||
d.kuerzel = CStr(dr.Item("kuerzel"))
|
||||
d.firma = CStr(dr.Item("firma"))
|
||||
d.uid = CStr(dr.Item("uid"))
|
||||
d.eori = CStr(dr.Item("eori"))
|
||||
d.info = CStr(dr.Item("info"))
|
||||
d.deZv = CStr(dr.Item("de_vz_vm"))
|
||||
d.deFisk = CStr(dr.Item("de_fisk_vm"))
|
||||
d.atZvmfisk = CStr(dr.Item("at_vzfisk_vm"))
|
||||
If Not dr.Item("at_vzfisk_vm_customs") Is DBNull.Value Then d.atZvmfiskCustoms = CStr(dr.Item("at_vzfisk_vm_customs"))
|
||||
d.lastUser = CStr(dr.Item("letzter_benutzer"))
|
||||
daten.Add(d)
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Optionen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End While
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return daten
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Optionen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function updateData(ByVal d As cUIDDataKunde) As Boolean
|
||||
Dim hAuswahl As String = ""
|
||||
|
||||
'Änderung
|
||||
Dim sql = "UPDATE tblData " &
|
||||
"SET deakt=@deakt, kuerzel=@kuerzel, firma=@firma, uid=@uid, eori=@eori, info=@info,de_vz_vm=@de_vz_vm,de_fisk_vm=@de_fisk_vm,at_vzfisk_vm=@at_vzfisk_vm,at_vzfisk_vm_customs=@at_vzfisk_vm_customs,letzter_benutzer=@letzter_benutzer " &
|
||||
"WHERE id=@id"
|
||||
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@deakt", d.deakt)
|
||||
cmd.Parameters.AddWithValue("@kuerzel", d.kuerzel)
|
||||
cmd.Parameters.AddWithValue("@firma", d.firma)
|
||||
cmd.Parameters.AddWithValue("@uid", d.uid)
|
||||
cmd.Parameters.AddWithValue("@eori", d.eori)
|
||||
cmd.Parameters.AddWithValue("@info", d.info)
|
||||
cmd.Parameters.AddWithValue("@de_vz_vm", d.deZv)
|
||||
cmd.Parameters.AddWithValue("@de_fisk_vm", d.deFisk)
|
||||
cmd.Parameters.AddWithValue("@at_vzfisk_vm", d.atZvmfisk)
|
||||
cmd.Parameters.AddWithValue("@at_vzfisk_vm_customs", d.atZvmfiskCustoms)
|
||||
cmd.Parameters.AddWithValue("@letzter_benutzer", d.lastUser)
|
||||
cmd.Parameters.AddWithValue("@id", d.id)
|
||||
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
|
||||
End Try
|
||||
End Using
|
||||
End Using
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public lastinsert As Integer
|
||||
Public Function insertNewData(ByVal d As cUIDDataKunde) As Boolean
|
||||
Dim hAuswahl As String = ""
|
||||
|
||||
'Änderung
|
||||
Dim sql = "INSERT INTO tblData " &
|
||||
"(deakt, kuerzel, firma, uid, eori, info,de_vz_vm,de_fisk_vm,at_vzfisk_vm,at_vzfisk_vm_customs,letzter_benutzer) VALUES " &
|
||||
"(@deakt,@kuerzel,@firma,@uid,@eori,@info,@de_vz_vm,@de_fisk_vm,@at_vzfisk_vm,@at_vzfisk_vm_customs,@letzter_benutzer)"
|
||||
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@deakt", d.deakt)
|
||||
cmd.Parameters.AddWithValue("@kuerzel", d.kuerzel)
|
||||
cmd.Parameters.AddWithValue("@firma", d.firma)
|
||||
cmd.Parameters.AddWithValue("@uid", d.uid)
|
||||
cmd.Parameters.AddWithValue("@eori", d.eori)
|
||||
cmd.Parameters.AddWithValue("@info", d.info)
|
||||
cmd.Parameters.AddWithValue("@de_vz_vm", d.deZv)
|
||||
cmd.Parameters.AddWithValue("@de_fisk_vm", d.deFisk)
|
||||
cmd.Parameters.AddWithValue("@at_vzfisk_vm", d.atZvmfisk)
|
||||
cmd.Parameters.AddWithValue("@at_vzfisk_vm_customs", d.atZvmfiskCustoms)
|
||||
cmd.Parameters.AddWithValue("@letzter_benutzer", d.lastUser)
|
||||
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn)
|
||||
lastinsert = CInt(newcmd.ExecuteScalar)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
|
||||
End Try
|
||||
End Using
|
||||
End Using
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
215
SDL/Checkliste/frmEoriLink.Designer.vb
generated
Normal file
215
SDL/Checkliste/frmEoriLink.Designer.vb
generated
Normal file
@@ -0,0 +1,215 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmEoriLink
|
||||
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(frmEoriLink))
|
||||
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
|
||||
Me.btnOK = New System.Windows.Forms.Button()
|
||||
Me.btnNO = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.btnScrollDown = New System.Windows.Forms.Button()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.btnPrint = New System.Windows.Forms.Button()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'WebBrowser1
|
||||
'
|
||||
Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.WebBrowser1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
|
||||
Me.WebBrowser1.Name = "WebBrowser1"
|
||||
Me.WebBrowser1.Size = New System.Drawing.Size(915, 413)
|
||||
Me.WebBrowser1.TabIndex = 0
|
||||
'
|
||||
'btnOK
|
||||
'
|
||||
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnOK.Image = Global.SDL.My.Resources.ok
|
||||
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnOK.Location = New System.Drawing.Point(12, 113)
|
||||
Me.btnOK.Name = "btnOK"
|
||||
Me.btnOK.Size = New System.Drawing.Size(189, 53)
|
||||
Me.btnOK.TabIndex = 1
|
||||
Me.btnOK.Text = "JA"
|
||||
Me.btnOK.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnNO
|
||||
'
|
||||
Me.btnNO.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnNO.Image = Global.SDL.My.Resources.del
|
||||
Me.btnNO.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnNO.Location = New System.Drawing.Point(207, 113)
|
||||
Me.btnNO.Name = "btnNO"
|
||||
Me.btnNO.Size = New System.Drawing.Size(189, 53)
|
||||
Me.btnNO.TabIndex = 2
|
||||
Me.btnNO.Text = "NEIN"
|
||||
Me.btnNO.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 81)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(146, 13)
|
||||
Me.Label1.TabIndex = 3
|
||||
Me.Label1.Text = "Ist die EORI-Nummer VALID?"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(12, 2)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(91, 13)
|
||||
Me.Label2.TabIndex = 4
|
||||
Me.Label2.Text = "EORI-Prüfung für:"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||
Me.Label3.Location = New System.Drawing.Point(347, 22)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(49, 20)
|
||||
Me.Label3.TabIndex = 5
|
||||
Me.Label3.Text = "firma"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(12, 22)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(39, 20)
|
||||
Me.Label4.TabIndex = 6
|
||||
Me.Label4.Text = "eori"
|
||||
'
|
||||
'btnScrollDown
|
||||
'
|
||||
Me.btnScrollDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnScrollDown.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnScrollDown.Location = New System.Drawing.Point(712, 59)
|
||||
Me.btnScrollDown.Name = "btnScrollDown"
|
||||
Me.btnScrollDown.Size = New System.Drawing.Size(189, 32)
|
||||
Me.btnScrollDown.TabIndex = 7
|
||||
Me.btnScrollDown.Text = "nach unten scrollen"
|
||||
Me.btnScrollDown.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(13, 97)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(204, 13)
|
||||
Me.Label5.TabIndex = 8
|
||||
Me.Label5.Text = "(Auch Firmenwortlaut und Adresse prüfen)"
|
||||
'
|
||||
'btnPrint
|
||||
'
|
||||
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPrint.Image = Global.SDL.My.Resources.printer2
|
||||
Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnPrint.Location = New System.Drawing.Point(712, 97)
|
||||
Me.btnPrint.Name = "btnPrint"
|
||||
Me.btnPrint.Size = New System.Drawing.Size(193, 69)
|
||||
Me.btnPrint.TabIndex = 9
|
||||
Me.btnPrint.Text = "Drucken"
|
||||
Me.btnPrint.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnl.Controls.Add(Me.WebBrowser1)
|
||||
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(917, 415)
|
||||
Me.pnl.TabIndex = 10
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.Label6)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.btnOK)
|
||||
Me.Panel1.Controls.Add(Me.btnPrint)
|
||||
Me.Panel1.Controls.Add(Me.btnNO)
|
||||
Me.Panel1.Controls.Add(Me.Label5)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.btnScrollDown)
|
||||
Me.Panel1.Controls.Add(Me.Label3)
|
||||
Me.Panel1.Controls.Add(Me.Label4)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 415)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(917, 174)
|
||||
Me.Panel1.TabIndex = 11
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(348, 3)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(195, 13)
|
||||
Me.Label6.TabIndex = 10
|
||||
Me.Label6.Text = "Adresse in VERAG-Kunden-Datenbank:"
|
||||
'
|
||||
'frmEoriLink
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.ClientSize = New System.Drawing.Size(917, 589)
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmEoriLink"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "EORI-Prüfung"
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
|
||||
Friend WithEvents btnOK As System.Windows.Forms.Button
|
||||
Friend WithEvents btnNO As System.Windows.Forms.Button
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnScrollDown As System.Windows.Forms.Button
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnPrint As System.Windows.Forms.Button
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
End Class
|
||||
180
SDL/Checkliste/frmEoriLink.resx
Normal file
180
SDL/Checkliste/frmEoriLink.resx
Normal file
@@ -0,0 +1,180 @@
|
||||
<?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>
|
||||
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA
|
||||
AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3
|
||||
9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3
|
||||
9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm
|
||||
MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm
|
||||
MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY
|
||||
fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU
|
||||
y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M
|
||||
bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3/////
|
||||
///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////d1tHBs6rBs6rBs6rB
|
||||
s6r39fT////////////////m4N3Bs6rBs6rUy8X////////////Bs6rBs6rBs6rBs6rBs6rBs6rBs6r3
|
||||
9fT///////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////d1tFmMwBm
|
||||
MwCMblj///////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3////////////////Uy8VmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////39fRmMwBmMwBmMwD39fT///////+3p5xmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwC3p5z////////////Lv7hmMwBmMwB0SSb39fT////m4N1mMwBmMwC3p5z/
|
||||
//////////+MblhmMwBmMwDUy8X////////Uy8VmMwBmMwCjjH3///////+tmo1mMwBmMwBmMwD39fT/
|
||||
///////m4N1mMwBmMwBmMwD39fT///////+MblhmMwCMblj///////////+3p5xmMwBmMwDBs6r/////
|
||||
///39fRmMwBmMwCAXUL///////////+AXUJmMwBmMwDd1tH///////////90SSZmMwBmMwDUy8X/////
|
||||
//+3p5xmMwBmMwD39fT////////Uy8VmMwBmMwCjjH3///////////+MblhmMwBmMwD39fT///////+M
|
||||
blhmMwBmMwDd1tH///////////+jjH1mMwBmMwC3p5z////////Lv7hmMwBmMwDUy8X////////u6+lm
|
||||
MwBmMwB0SSb///////////+3p5xmMwBmMwCtmo3Bs6qYfWtmMwBmMwBmMwD39fT////////////Bs6pm
|
||||
MwBmMwCMblj////////m4N1mMwBmMwC3p5z///////////90SSZmMwBmMwDm4N3////////Bs6pmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwD///////////90SSZmMwCY
|
||||
fWv///////////+jjH1mMwBmMwDLv7j////////m4N1mMwBmMwBmMwBmMwCAXULBs6rd1tH/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
60
SDL/Checkliste/frmEoriLink.vb
Normal file
60
SDL/Checkliste/frmEoriLink.vb
Normal file
@@ -0,0 +1,60 @@
|
||||
Public Class frmEoriLink
|
||||
Public link As String
|
||||
Dim printed As Boolean = False
|
||||
Public frmCheckliste As frmCheckliste
|
||||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If frmCheckliste.txtEori.Text <> "" Then
|
||||
WebBrowser1.Navigate(link)
|
||||
Label3.Text = frmCheckliste.txtFirma.Text
|
||||
Label4.Text = frmCheckliste.txtEori.Text
|
||||
frmCheckliste.lblEORIAbfrage.Text = ""
|
||||
frmCheckliste.picEORIAbfrage.Image = Nothing
|
||||
frmCheckliste.picEORIAbfrage.Visible = False
|
||||
Else
|
||||
MsgBox("Keine EORI-Nummer eingegeben!")
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||
|
||||
If Not printed Then
|
||||
Select Case MsgBox("Soll die EORI-Prüfung gedruckt werden?", vbYesNoCancel, "Drucken vergesssen?")
|
||||
Case vbYes
|
||||
WebBrowser1.ShowPrintDialog()
|
||||
frmCheckliste.eoriTrue()
|
||||
Me.Close()
|
||||
Case vbNo
|
||||
frmCheckliste.eoriTrue()
|
||||
Me.Close()
|
||||
Case vbCancel
|
||||
End Select
|
||||
Else
|
||||
frmCheckliste.eoriTrue()
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnNO_Click(sender As Object, e As EventArgs) Handles btnNO.Click
|
||||
Me.Close()
|
||||
frmCheckliste.eoriFalse()
|
||||
MsgBox("Bitte brechen Sie die Bearbeitung ab - EORI Nummer muss korrekt sein!", vbInformation)
|
||||
End Sub
|
||||
|
||||
Private Sub btnScrollDown_Click(sender As Object, e As EventArgs) Handles btnScrollDown.Click
|
||||
WebBrowser1.Navigate("javascript:window.scroll(0,document.body.scrollHeight);")
|
||||
End Sub
|
||||
|
||||
Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
|
||||
WebBrowser1.ShowPrintDialog()
|
||||
printed = True
|
||||
End Sub
|
||||
|
||||
Private Sub frmEoriLink_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
Me.Height = My.Computer.Screen.WorkingArea.Height
|
||||
Me.Top = 0
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
72
SDL/Checkliste/frmPrintView.Designer.vb
generated
Normal file
72
SDL/Checkliste/frmPrintView.Designer.vb
generated
Normal file
@@ -0,0 +1,72 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmPrintView
|
||||
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(frmPrintView))
|
||||
Me.ReportViewer1 = New Microsoft.Reporting.WinForms.ReportViewer()
|
||||
Me.btnReportPrint = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ReportViewer1
|
||||
'
|
||||
Me.ReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ReportViewer1.LocalReport.ReportEmbeddedResource = "UID.rptDetailsPrint.rdlc"
|
||||
Me.ReportViewer1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ReportViewer1.Name = "ReportViewer1"
|
||||
Me.ReportViewer1.Size = New System.Drawing.Size(802, 612)
|
||||
Me.ReportViewer1.TabIndex = 0
|
||||
'
|
||||
'btnReportPrint
|
||||
'
|
||||
Me.btnReportPrint.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnReportPrint.BackColor = System.Drawing.Color.White
|
||||
Me.btnReportPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnReportPrint.Image = Global.SDL.My.Resources.printer2
|
||||
Me.btnReportPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnReportPrint.Location = New System.Drawing.Point(670, 1)
|
||||
Me.btnReportPrint.Name = "btnReportPrint"
|
||||
Me.btnReportPrint.Size = New System.Drawing.Size(120, 61)
|
||||
Me.btnReportPrint.TabIndex = 1
|
||||
Me.btnReportPrint.Text = "DRUCKEN"
|
||||
Me.btnReportPrint.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnReportPrint.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
|
||||
Me.btnReportPrint.UseVisualStyleBackColor = False
|
||||
'
|
||||
'frmPrintView
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(802, 612)
|
||||
Me.Controls.Add(Me.btnReportPrint)
|
||||
Me.Controls.Add(Me.ReportViewer1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmPrintView"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Checkliste"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents btnReportPrint As System.Windows.Forms.Button
|
||||
Private WithEvents ReportViewer1 As Microsoft.Reporting.WinForms.ReportViewer
|
||||
End Class
|
||||
180
SDL/Checkliste/frmPrintView.resx
Normal file
180
SDL/Checkliste/frmPrintView.resx
Normal file
@@ -0,0 +1,180 @@
|
||||
<?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>
|
||||
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA
|
||||
AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fTu6+lm
|
||||
MwBmMwBmMwDd1tH////////////Uy8VmMwC3p5z39fRmMwCYfWv///+jjH1mMwDLv7jm4N1mMwBmMwDu
|
||||
6+nLv7hmMwB0SSbd1tH////u6+nm4N2MbliMblj////u6+m3p5xmMwBmMwC3p5z39fRmMwBmMwBmMwBm
|
||||
MwCjjH3///+AXULBs6ru6+lmMwBmMwB0SSbu6+n///////////+tmo1mMwC3p5zu6+mMbliYfWv///+t
|
||||
mo2tmo3///+YfWv39fR0SSZmMwCtmo3////////////Bs6pmMwCAXUL////////////u6+mtmo1mMwBm
|
||||
MwC3p5zm4N2YfWv///+YfWtmMwDBs6ru6+mAXUL////////Bs6rBs6ru6+lmMwDUy8XBs6pmMwCAXUL/
|
||||
//+tmo1mMwBmMwBmMwBmMwDu6+nBs6pmMwDBs6r39fRmMwBmMwBmMwDm4N3Uy8X39fRmMwBmMwCYfWv/
|
||||
//+tmo1mMwDu6+nLv7jd1tHd1tFmMwB0SSb39fSAXUJmMwD39fT///////////+3p5xmMwDd1tH/////
|
||||
///////Bs6pmMwBmMwBmMwCjjH3////u6+lmMwBmMwBmMwCtmo339fT////m4N2AXUJmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////u6+nBs6rBs6rBs6rBs6rU
|
||||
y8X////////////////////Uy8XBs6rBs6rUy8X////////////Uy8XBs6rBs6rBs6rBs6rBs6rBs6rB
|
||||
s6r///////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwB0SSbd1tH////////////Bs6pmMwBm
|
||||
MwCMblj////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////d1tFmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCAXUL////////////m4N1mMwBmMwBmMwD39fT////////m4N1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////d1tFmMwBmMwBmMwDd1tH///////+YfWtmMwBmMwDm4N3/
|
||||
//////////90SSZmMwBmMwDm4N3///////////90SSZmMwBmMwD39fT////m4N2MblhmMwBmMwB0SSb/
|
||||
///39fRmMwBmMwBmMwDUy8X////////Bs6pmMwBmMwDBs6r///////////+jjH1mMwBmMwDBs6r/////
|
||||
//////+jjH1mMwBmMwDUy8X////////u6+lmMwBmMwBmMwDm4N3///+MblhmMwBmMwC3p5z////////m
|
||||
4N1mMwBmMwCjjH3///////////+3p5xmMwBmMwCjjH3////////////Bs6pmMwBmMwC3p5z////////u
|
||||
6+lmMwBmMwBmMwDm4N3///+3p5xmMwBmMwCMblj///////////90SSZmMwB0SSb////////////Uy8Vm
|
||||
MwBmMwB0SSb////////////Uy8VmMwBmMwCAXULBs6rBs6p0SSZmMwBmMwB0SSb////////Bs6pmMwBm
|
||||
MwBmMwD39fT///////+jjH1mMwBmMwDm4N3////////39fRmMwBmMwBmMwDm4N3////////39fRmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////m4N1mMwBmMwBmMwDd1tH////////Bs6pmMwBmMwDL
|
||||
v7j///////////+MblhmMwBmMwDLv7j///////////+MblhmMwBmMwBmMwBmMwCMbljBs6rm4N3/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
43
SDL/Checkliste/frmPrintView.vb
Normal file
43
SDL/Checkliste/frmPrintView.vb
Normal file
@@ -0,0 +1,43 @@
|
||||
Imports System.IO
|
||||
Imports Microsoft.Reporting.WinForms
|
||||
Imports Gemeinsames
|
||||
|
||||
Public Class frmPrintView
|
||||
Public frmCheckliste As frmCheckliste
|
||||
Private reportviewer As ReportViewer = Me.ReportViewer1
|
||||
Public speedPrint As Boolean = False
|
||||
|
||||
|
||||
|
||||
Private Function boolToJaNein(ByVal wert As Boolean) As String
|
||||
If wert Then
|
||||
Return "ja"
|
||||
Else
|
||||
Return "nein"
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Sub frmPrintView_CausesValidationChanged(sender As Object, e As EventArgs) Handles Me.FormClosed
|
||||
frmCheckliste.BringToFront()
|
||||
End Sub
|
||||
|
||||
Private Sub frmDruckansicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
'Me.ReportViewer1.RefreshReport()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnReportPrint.Click
|
||||
If Me.ReportViewer1.PrintDialog() = Windows.Forms.DialogResult.OK Then Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ReportViewer1_RenderingComplete(sender As Object, e As RenderingCompleteEventArgs) Handles ReportViewer1.RenderingComplete
|
||||
If speedPrint Then
|
||||
btnReportPrint.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
157
SDL/Checkliste/frmUidLink.Designer.vb
generated
Normal file
157
SDL/Checkliste/frmUidLink.Designer.vb
generated
Normal file
@@ -0,0 +1,157 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmUidLink
|
||||
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(frmUidLink))
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.btnNO = New System.Windows.Forms.Button()
|
||||
Me.btnOK = New System.Windows.Forms.Button()
|
||||
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Image = Global.SDL.My.Resources.printer2
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(920, 790)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(189, 72)
|
||||
Me.Button1.TabIndex = 17
|
||||
Me.Button1.Text = "DRUCKEN"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(12, 718)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(39, 20)
|
||||
Me.Label4.TabIndex = 15
|
||||
Me.Label4.Text = "eori"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(342, 705)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(49, 20)
|
||||
Me.Label3.TabIndex = 14
|
||||
Me.Label3.Text = "firma"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(12, 696)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(84, 13)
|
||||
Me.Label2.TabIndex = 13
|
||||
Me.Label2.Text = "UID-Prüfung für:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 790)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(339, 13)
|
||||
Me.Label1.TabIndex = 12
|
||||
Me.Label1.Text = "Ist die UID Nummer VALID? (Auch Firmenwortlaut und Adresse prüfen)"
|
||||
'
|
||||
'btnNO
|
||||
'
|
||||
Me.btnNO.Image = Global.SDL.My.Resources.del
|
||||
Me.btnNO.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnNO.Location = New System.Drawing.Point(207, 809)
|
||||
Me.btnNO.Name = "btnNO"
|
||||
Me.btnNO.Size = New System.Drawing.Size(189, 53)
|
||||
Me.btnNO.TabIndex = 11
|
||||
Me.btnNO.Text = "NEIN"
|
||||
Me.btnNO.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnOK
|
||||
'
|
||||
Me.btnOK.Image = Global.SDL.My.Resources.ok
|
||||
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnOK.Location = New System.Drawing.Point(12, 809)
|
||||
Me.btnOK.Name = "btnOK"
|
||||
Me.btnOK.Size = New System.Drawing.Size(189, 53)
|
||||
Me.btnOK.TabIndex = 10
|
||||
Me.btnOK.Text = "JA"
|
||||
Me.btnOK.UseVisualStyleBackColor = True
|
||||
'
|
||||
'WebBrowser1
|
||||
'
|
||||
Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.WebBrowser1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
|
||||
Me.WebBrowser1.Name = "WebBrowser1"
|
||||
Me.WebBrowser1.Size = New System.Drawing.Size(1120, 693)
|
||||
Me.WebBrowser1.TabIndex = 9
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(471, 718)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(189, 72)
|
||||
Me.Button2.TabIndex = 18
|
||||
Me.Button2.Text = "LOGIN"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmUidLink
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1120, 880)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.btnNO)
|
||||
Me.Controls.Add(Me.btnOK)
|
||||
Me.Controls.Add(Me.WebBrowser1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmUidLink"
|
||||
Me.Text = "UID-Prüfung"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnNO As System.Windows.Forms.Button
|
||||
Friend WithEvents btnOK As System.Windows.Forms.Button
|
||||
Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
End Class
|
||||
180
SDL/Checkliste/frmUidLink.resx
Normal file
180
SDL/Checkliste/frmUidLink.resx
Normal file
@@ -0,0 +1,180 @@
|
||||
<?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>
|
||||
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAgAwAAMQOAADEDgAAAAAAAAAA
|
||||
AABmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////3
|
||||
9fR0SSZmMwCjjH3///////////////+YfWvBs6r///90SSajjH3///+tmo23p5z///+AXUJmMwDUy8X3
|
||||
9fRmMwCYfWv39fT////m4N3///9mMwBmMwBmMwCYfWv////39fS3p5xmMwB0SSb////Bs6pmMwBmMwBm
|
||||
MwCtmo3///+MbljLv7j39fRmMwBmMwDm4N3////////////Uy8VmMwDm4N3m4N2MbljBs6r///+Mblhm
|
||||
MwBmMwC3p5z///+tmo3///+AXUJmMwD39fT///////////+AXUKMblj////////////39fS3p5xmMwCY
|
||||
fWv///+Mblj////Bs6pmMwDu6+nUy8W3p5z///////+tmo1mMwBmMwDLv7j39fRmMwDd1tHLv7hmMwDU
|
||||
y8X39fRmMwBmMwBmMwBmMwD39fTLv7hmMwDLv7j///90SSZmMwDUy8Xm4N3///+jjH1mMwDBs6r///+M
|
||||
bliYfWv///+3p5xmMwBmMwDm4N3m4N1mMwCAXUL///+Mbli3p5z///////////////90SSbm4N3/////
|
||||
///////Lv7hmMwBmMwCAXUL///////+MblhmMwBmMwDUy8X////////m4N10SSZmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////d1tHBs6rBs6rBs6rB
|
||||
s6r39fT////////////////m4N3Bs6rBs6rUy8X////////////Bs6rBs6rBs6rBs6rBs6rBs6rBs6r3
|
||||
9fT///////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////d1tFmMwBm
|
||||
MwCMblj///////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3////////////////Uy8VmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////39fRmMwBmMwBmMwD39fT///////+3p5xmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwC3p5z////////////Lv7hmMwBmMwB0SSb39fT////m4N1mMwBmMwC3p5z/
|
||||
//////////+MblhmMwBmMwDUy8X////////Uy8VmMwBmMwCjjH3///////+tmo1mMwBmMwBmMwD39fT/
|
||||
///////m4N1mMwBmMwBmMwD39fT///////+MblhmMwCMblj///////////+3p5xmMwBmMwDBs6r/////
|
||||
///39fRmMwBmMwCAXUL///////////+AXUJmMwBmMwDd1tH///////////90SSZmMwBmMwDUy8X/////
|
||||
//+3p5xmMwBmMwD39fT////////Uy8VmMwBmMwCjjH3///////////+MblhmMwBmMwD39fT///////+M
|
||||
blhmMwBmMwDd1tH///////////+jjH1mMwBmMwC3p5z////////Lv7hmMwBmMwDUy8X////////u6+lm
|
||||
MwBmMwB0SSb///////////+3p5xmMwBmMwCtmo3Bs6qYfWtmMwBmMwBmMwD39fT////////////Bs6pm
|
||||
MwBmMwCMblj////////m4N1mMwBmMwC3p5z///////////90SSZmMwBmMwDm4N3////////Bs6pmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwD///////////90SSZmMwCY
|
||||
fWv///////////+jjH1mMwBmMwDLv7j////////m4N1mMwBmMwBmMwBmMwCAXULBs6rd1tH/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
55
SDL/Checkliste/frmUidLink.vb
Normal file
55
SDL/Checkliste/frmUidLink.vb
Normal file
@@ -0,0 +1,55 @@
|
||||
Public Class frmUidLink
|
||||
Public link As String
|
||||
|
||||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If frmCheckliste.txtUid.Text <> "" Then
|
||||
WebBrowser1.Navigate(link)
|
||||
Label3.Text = frmCheckliste.txtFirma.Text
|
||||
Label4.Text = frmCheckliste.txtUid.Text
|
||||
frmCheckliste.lblEORIAbfrage.Text = ""
|
||||
frmCheckliste.picUIDAbfrage.Image = Nothing
|
||||
frmCheckliste.picUIDAbfrage.Visible = False
|
||||
Else
|
||||
MsgBox("Keine UID-Nummer eingegeben!")
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||
frmCheckliste.eoriTrue()
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnNO.Click
|
||||
Me.Close()
|
||||
frmCheckliste.eoriFalse()
|
||||
MsgBox("Bitte brechen Sie die Bearbeitung ab - UID Nummer muss korrekt sein!", vbInformation)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
WebBrowser1.ShowPrintDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
|
||||
' WebBrowser1.Navigate("javascript:document.getElementById('tid').value='" & My.Resources.tid & "';")
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
' WebBrowser1.Navigate("javascript:document.getElementById('tid').value='" & My.Resources.tid & "';")
|
||||
WebBrowser1.Document.GetElementById("tid").InnerText = My.Resources.tid
|
||||
WebBrowser1.Document.GetElementById("benid").InnerText = My.Resources.benid
|
||||
WebBrowser1.Document.GetElementById("pin").InnerText = My.Resources.pin
|
||||
' WebBrowser1.Document.GetElementById("loginCommand").InvokeMember("submit ") = My.Resources.pin
|
||||
|
||||
' MsgBox(WebBrowser1.Document.Forms(1).Name)
|
||||
' WebBrowser1.AllowNavigation = True
|
||||
' WebBrowser1.Document.Forms(1).InvokeMember("submit")
|
||||
' Dim myForm As New WebBrowserForm(WebBrowser1)
|
||||
'myForm.Radiobox("direction", "sw")
|
||||
'myForm.Submit()
|
||||
End Sub
|
||||
End Class
|
||||
727
SDL/Checkliste/rptCheckliste.Designer.vb
generated
Normal file
727
SDL/Checkliste/rptCheckliste.Designer.vb
generated
Normal file
@@ -0,0 +1,727 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Public Class rptCheckliste
|
||||
Inherits GrapeCity.ActiveReports.SectionReport
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'NOTE: The following procedure is required by the ActiveReports Designer
|
||||
'It can be modified using the ActiveReports Designer.
|
||||
'Do not modify it using the code editor.
|
||||
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
|
||||
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
|
||||
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptCheckliste))
|
||||
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
|
||||
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
|
||||
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
|
||||
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblUID = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblEORI = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.lblInfo = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.cbxUID = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxEORI = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.cbxCMR = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxLieferschein = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxPackliste = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxCMRVers = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxCMRFracht = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.cbxVerzollt = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxCMRVersendung = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.cbxRG_UID = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxRGVersendung = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.cbxPassport = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxT1 = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.Label15 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.cbxUEBER_Bestimmungsort = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxUEBER_CMR = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxUEBER_Zollanm = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxUEBER_AURATR = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.Label17 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label19 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
|
||||
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
|
||||
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
|
||||
Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
|
||||
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
|
||||
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblUID, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblInfo, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxUID, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxEORI, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxCMR, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxLieferschein, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxPackliste, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxCMRVers, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxCMRFracht, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxVerzollt, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxCMRVersendung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxRG_UID, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxRGVersendung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxPassport, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxT1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxUEBER_Bestimmungsort, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxUEBER_CMR, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxUEBER_Zollanm, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxUEBER_AURATR, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label17, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label19, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
'
|
||||
'PageHeader
|
||||
'
|
||||
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Line3})
|
||||
Me.PageHeader.Height = 0.5000001!
|
||||
Me.PageHeader.Name = "PageHeader"
|
||||
'
|
||||
'picVERAG
|
||||
'
|
||||
Me.picVERAG.Height = 0.5000001!
|
||||
Me.picVERAG.HyperLink = Nothing
|
||||
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
|
||||
Me.picVERAG.Left = 4.212599!
|
||||
Me.picVERAG.Name = "picVERAG"
|
||||
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
|
||||
Me.picVERAG.Top = 0!
|
||||
Me.picVERAG.Width = 2.677166!
|
||||
'
|
||||
'lblText1
|
||||
'
|
||||
Me.lblText1.Height = 0.3464567!
|
||||
Me.lblText1.HyperLink = Nothing
|
||||
Me.lblText1.Left = 0.02598425!
|
||||
Me.lblText1.Name = "lblText1"
|
||||
Me.lblText1.Style = "font-size: 18pt; font-weight: bold"
|
||||
Me.lblText1.Text = "Checkliste"
|
||||
Me.lblText1.Top = 0.1535433!
|
||||
Me.lblText1.Width = 4.000394!
|
||||
'
|
||||
'Line3
|
||||
'
|
||||
Me.Line3.Height = 0.00008195639!
|
||||
Me.Line3.Left = 0!
|
||||
Me.Line3.LineWeight = 1.0!
|
||||
Me.Line3.Name = "Line3"
|
||||
Me.Line3.Top = 0.5000001!
|
||||
Me.Line3.Width = 6.889764!
|
||||
Me.Line3.X1 = 0!
|
||||
Me.Line3.X2 = 6.889764!
|
||||
Me.Line3.Y1 = 0.5000001!
|
||||
Me.Line3.Y2 = 0.5000821!
|
||||
'
|
||||
'Detail
|
||||
'
|
||||
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma, Me.Label2, Me.lblUID, Me.Label4, Me.lblEORI, Me.lblInfo, Me.Label10, Me.cbxUID, Me.cbxEORI, Me.Label11, Me.cbxCMR, Me.cbxLieferschein, Me.cbxPackliste, Me.cbxCMRVers, Me.cbxCMRFracht, Me.Label12, Me.cbxVerzollt, Me.cbxCMRVersendung, Me.Label13, Me.cbxRG_UID, Me.cbxRGVersendung, Me.Label14, Me.cbxPassport, Me.cbxT1, Me.Label15, Me.cbxUEBER_Bestimmungsort, Me.cbxUEBER_CMR, Me.cbxUEBER_Zollanm, Me.cbxUEBER_AURATR, Me.Label17, Me.Label18, Me.Label19, Me.Label1, Me.Line1, Me.SubReport})
|
||||
Me.Detail.Height = 8.342126!
|
||||
Me.Detail.Name = "Detail"
|
||||
'
|
||||
'lblFirma
|
||||
'
|
||||
Me.lblFirma.Height = 0.7728347!
|
||||
Me.lblFirma.HyperLink = Nothing
|
||||
Me.lblFirma.Left = 0.02598425!
|
||||
Me.lblFirma.Name = "lblFirma"
|
||||
Me.lblFirma.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; ddo-char-s" &
|
||||
"et: 0"
|
||||
Me.lblFirma.Text = "Z1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Z2" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Z3"
|
||||
Me.lblFirma.Top = 0.207874!
|
||||
Me.lblFirma.Width = 3.918898!
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Height = 0.1921262!
|
||||
Me.Label2.HyperLink = Nothing
|
||||
Me.Label2.Left = 0.02598425!
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: normal; ddo-char" &
|
||||
"-set: 0"
|
||||
Me.Label2.Text = "UID-Nr.:"
|
||||
Me.Label2.Top = 0.9807085!
|
||||
Me.Label2.Width = 1.583465!
|
||||
'
|
||||
'lblUID
|
||||
'
|
||||
Me.lblUID.Height = 0.1996062!
|
||||
Me.lblUID.HyperLink = Nothing
|
||||
Me.lblUID.Left = 0.02598413!
|
||||
Me.lblUID.Name = "lblUID"
|
||||
Me.lblUID.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; ddo-char-s" &
|
||||
"et: 0"
|
||||
Me.lblUID.Text = "AT123"
|
||||
Me.lblUID.Top = 1.172835!
|
||||
Me.lblUID.Width = 1.854331!
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Height = 0.1921262!
|
||||
Me.Label4.HyperLink = Nothing
|
||||
Me.Label4.Left = 1.880315!
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: normal; ddo-char" &
|
||||
"-set: 0"
|
||||
Me.Label4.Text = "EORI-Nr.:"
|
||||
Me.Label4.Top = 0.9807087!
|
||||
Me.Label4.Width = 1.583465!
|
||||
'
|
||||
'lblEORI
|
||||
'
|
||||
Me.lblEORI.Height = 0.1996063!
|
||||
Me.lblEORI.HyperLink = Nothing
|
||||
Me.lblEORI.Left = 1.880315!
|
||||
Me.lblEORI.Name = "lblEORI"
|
||||
Me.lblEORI.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; ddo-char-s" &
|
||||
"et: 0"
|
||||
Me.lblEORI.Text = "AT123"
|
||||
Me.lblEORI.Top = 1.172834!
|
||||
Me.lblEORI.Width = 2.332284!
|
||||
'
|
||||
'lblInfo
|
||||
'
|
||||
Me.lblInfo.Height = 2.787008!
|
||||
Me.lblInfo.HyperLink = Nothing
|
||||
Me.lblInfo.Left = 3.984646!
|
||||
Me.lblInfo.Name = "lblInfo"
|
||||
Me.lblInfo.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: normal; ddo-char" &
|
||||
"-set: 0"
|
||||
Me.lblInfo.Text = "Z1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Z2" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Z3"
|
||||
Me.lblInfo.Top = 0.2055118!
|
||||
Me.lblInfo.Width = 2.891733!
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.Height = 0.2519686!
|
||||
Me.Label10.HyperLink = Nothing
|
||||
Me.Label10.Left = 0.02598426!
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Style = "font-family: Microsoft Sans Serif; font-size: 14pt; font-weight: bold; text-decor" &
|
||||
"ation: underline; ddo-char-set: 0"
|
||||
Me.Label10.Text = "Alle Bedingungen m<>ssen erf<72>llt sein:"
|
||||
Me.Label10.Top = 3.338189!
|
||||
Me.Label10.Width = 5.396063!
|
||||
'
|
||||
'cbxUID
|
||||
'
|
||||
Me.cbxUID.Height = 0.2!
|
||||
Me.cbxUID.Left = 0.02598426!
|
||||
Me.cbxUID.Name = "cbxUID"
|
||||
Me.cbxUID.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxUID.Style = "font-size: 12pt"
|
||||
Me.cbxUID.Text = "UID - Pr<50>fung - Ausdruck / g<>ltig"
|
||||
Me.cbxUID.Top = 3.683071!
|
||||
Me.cbxUID.Width = 3.502362!
|
||||
'
|
||||
'cbxEORI
|
||||
'
|
||||
Me.cbxEORI.Height = 0.2!
|
||||
Me.cbxEORI.Left = 0.02598425!
|
||||
Me.cbxEORI.Name = "cbxEORI"
|
||||
Me.cbxEORI.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxEORI.Style = "font-size: 12pt"
|
||||
Me.cbxEORI.Text = "EORI - Pr<50>fung - Ausdruck / g<>ltig"
|
||||
Me.cbxEORI.Top = 3.925985!
|
||||
Me.cbxEORI.Width = 3.502362!
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.Height = 0.2102363!
|
||||
Me.Label11.HyperLink = Nothing
|
||||
Me.Label11.Left = 0.02598426!
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; text-decor" &
|
||||
"ation: underline; ddo-char-set: 0"
|
||||
Me.Label11.Text = "Versendungsbeleg:"
|
||||
Me.Label11.Top = 4.333071!
|
||||
Me.Label11.Width = 1.583465!
|
||||
'
|
||||
'cbxCMR
|
||||
'
|
||||
Me.cbxCMR.Height = 0.2!
|
||||
Me.cbxCMR.Left = 0.02598426!
|
||||
Me.cbxCMR.Name = "cbxCMR"
|
||||
Me.cbxCMR.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxCMR.Style = "font-size: 12pt"
|
||||
Me.cbxCMR.Text = "CMR Original / Zweitst<73>ck"
|
||||
Me.cbxCMR.Top = 4.566929!
|
||||
Me.cbxCMR.Width = 2.291733!
|
||||
'
|
||||
'cbxLieferschein
|
||||
'
|
||||
Me.cbxLieferschein.Height = 0.2!
|
||||
Me.cbxLieferschein.Left = 0.02598426!
|
||||
Me.cbxLieferschein.Name = "cbxLieferschein"
|
||||
Me.cbxLieferschein.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxLieferschein.Style = "font-size: 12pt"
|
||||
Me.cbxLieferschein.Text = "Lieferschein Original"
|
||||
Me.cbxLieferschein.Top = 5.285039!
|
||||
Me.cbxLieferschein.Width = 2.291733!
|
||||
'
|
||||
'cbxPackliste
|
||||
'
|
||||
Me.cbxPackliste.Height = 0.192126!
|
||||
Me.cbxPackliste.Left = 0.02598425!
|
||||
Me.cbxPackliste.Name = "cbxPackliste"
|
||||
Me.cbxPackliste.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxPackliste.Style = "font-size: 12pt"
|
||||
Me.cbxPackliste.Text = "Packliste Original"
|
||||
Me.cbxPackliste.Top = 5.532284!
|
||||
Me.cbxPackliste.Width = 2.291733!
|
||||
'
|
||||
'cbxCMRVers
|
||||
'
|
||||
Me.cbxCMRVers.Height = 0.2!
|
||||
Me.cbxCMRVers.Left = 0.4188977!
|
||||
Me.cbxCMRVers.Name = "cbxCMRVers"
|
||||
Me.cbxCMRVers.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxCMRVers.Style = "font-size: 12pt"
|
||||
Me.cbxCMRVers.Text = "mit Versenderbest<73>tigung"
|
||||
Me.cbxCMRVers.Top = 4.8063!
|
||||
Me.cbxCMRVers.Width = 2.291733!
|
||||
'
|
||||
'cbxCMRFracht
|
||||
'
|
||||
Me.cbxCMRFracht.Height = 0.2!
|
||||
Me.cbxCMRFracht.Left = 0.4188977!
|
||||
Me.cbxCMRFracht.Name = "cbxCMRFracht"
|
||||
Me.cbxCMRFracht.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxCMRFracht.Style = "font-size: 12pt"
|
||||
Me.cbxCMRFracht.Text = "mit Frachtf<74>hrerbest<73>tigung"
|
||||
Me.cbxCMRFracht.Top = 5.045669!
|
||||
Me.cbxCMRFracht.Width = 2.291733!
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.Height = 0.2102363!
|
||||
Me.Label12.HyperLink = Nothing
|
||||
Me.Label12.Left = 3.699213!
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; text-decor" &
|
||||
"ation: underline; ddo-char-set: 0"
|
||||
Me.Label12.Text = "Auf CMR"
|
||||
Me.Label12.Top = 4.333071!
|
||||
Me.Label12.Width = 1.583465!
|
||||
'
|
||||
'cbxVerzollt
|
||||
'
|
||||
Me.cbxVerzollt.Height = 0.2!
|
||||
Me.cbxVerzollt.Left = 3.699213!
|
||||
Me.cbxVerzollt.Name = "cbxVerzollt"
|
||||
Me.cbxVerzollt.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxVerzollt.Style = "font-size: 12pt"
|
||||
Me.cbxVerzollt.Text = "VERZOLLT Stempel"
|
||||
Me.cbxVerzollt.Top = 4.56693!
|
||||
Me.cbxVerzollt.Width = 2.291733!
|
||||
'
|
||||
'cbxCMRVersendung
|
||||
'
|
||||
Me.cbxCMRVersendung.Height = 0.2!
|
||||
Me.cbxCMRVersendung.Left = 3.699213!
|
||||
Me.cbxCMRVersendung.Name = "cbxCMRVersendung"
|
||||
Me.cbxCMRVersendung.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxCMRVersendung.Style = "font-size: 12pt"
|
||||
Me.cbxCMRVersendung.Text = "Versendung als ig-Lieferung / Stempel"
|
||||
Me.cbxCMRVersendung.Top = 4.806301!
|
||||
Me.cbxCMRVersendung.Width = 3.177165!
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.Height = 0.2102363!
|
||||
Me.Label13.HyperLink = Nothing
|
||||
Me.Label13.Left = 0.02598425!
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; text-decor" &
|
||||
"ation: underline; ddo-char-set: 0"
|
||||
Me.Label13.Text = "Auf Rechnung"
|
||||
Me.Label13.Top = 5.961024!
|
||||
Me.Label13.Width = 1.583465!
|
||||
'
|
||||
'cbxRG_UID
|
||||
'
|
||||
Me.cbxRG_UID.Height = 0.2!
|
||||
Me.cbxRG_UID.Left = 0.02598425!
|
||||
Me.cbxRG_UID.Name = "cbxRG_UID"
|
||||
Me.cbxRG_UID.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxRG_UID.Style = "font-size: 12pt"
|
||||
Me.cbxRG_UID.Text = "UID-Nummer des Empf<70>ngers"
|
||||
Me.cbxRG_UID.Top = 6.430315!
|
||||
Me.cbxRG_UID.Width = 2.774016!
|
||||
'
|
||||
'cbxRGVersendung
|
||||
'
|
||||
Me.cbxRGVersendung.Height = 0.2!
|
||||
Me.cbxRGVersendung.Left = 0.02598425!
|
||||
Me.cbxRGVersendung.Name = "cbxRGVersendung"
|
||||
Me.cbxRGVersendung.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxRGVersendung.Style = "font-size: 12pt"
|
||||
Me.cbxRGVersendung.Text = "Versendung als ig-Lieferung / Stempel"
|
||||
Me.cbxRGVersendung.Top = 6.194882!
|
||||
Me.cbxRGVersendung.Width = 3.166929!
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.Height = 0.2102363!
|
||||
Me.Label14.HyperLink = Nothing
|
||||
Me.Label14.Left = 3.699213!
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; text-decor" &
|
||||
"ation: underline; ddo-char-set: 0"
|
||||
Me.Label14.Text = "Sonstiges"
|
||||
Me.Label14.Top = 5.961024!
|
||||
Me.Label14.Width = 1.583465!
|
||||
'
|
||||
'cbxPassport
|
||||
'
|
||||
Me.cbxPassport.Height = 0.2!
|
||||
Me.cbxPassport.Left = 3.699213!
|
||||
Me.cbxPassport.Name = "cbxPassport"
|
||||
Me.cbxPassport.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxPassport.Style = "font-size: 12pt"
|
||||
Me.cbxPassport.Text = "Fahrer Passkopie"
|
||||
Me.cbxPassport.Top = 6.194882!
|
||||
Me.cbxPassport.Width = 2.291733!
|
||||
'
|
||||
'cbxT1
|
||||
'
|
||||
Me.cbxT1.Height = 0.2!
|
||||
Me.cbxT1.Left = 3.699213!
|
||||
Me.cbxT1.Name = "cbxT1"
|
||||
Me.cbxT1.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxT1.Style = "font-size: 12pt"
|
||||
Me.cbxT1.Text = "T1 oder TIR-CARNET - Kopie"
|
||||
Me.cbxT1.Top = 6.430315!
|
||||
Me.cbxT1.Width = 3.177165!
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.Height = 0.2622049!
|
||||
Me.Label15.HyperLink = Nothing
|
||||
Me.Label15.Left = 0.02598425!
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Style = "font-family: Microsoft Sans Serif; font-size: 14pt; font-weight: bold; text-decor" &
|
||||
"ation: underline; ddo-char-set: 0"
|
||||
Me.Label15.Text = "<EFBFBD>BEREINSTIMMUNG NOTWENDIG:"
|
||||
Me.Label15.Top = 6.98189!
|
||||
Me.Label15.Width = 2.781496!
|
||||
'
|
||||
'cbxUEBER_Bestimmungsort
|
||||
'
|
||||
Me.cbxUEBER_Bestimmungsort.Height = 0.2!
|
||||
Me.cbxUEBER_Bestimmungsort.Left = 0.02598425!
|
||||
Me.cbxUEBER_Bestimmungsort.Name = "cbxUEBER_Bestimmungsort"
|
||||
Me.cbxUEBER_Bestimmungsort.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxUEBER_Bestimmungsort.Style = "font-size: 12pt"
|
||||
Me.cbxUEBER_Bestimmungsort.Text = "Bestimmungsort in der Lieferkondition"
|
||||
Me.cbxUEBER_Bestimmungsort.Top = 7.50315!
|
||||
Me.cbxUEBER_Bestimmungsort.Width = 3.958662!
|
||||
'
|
||||
'cbxUEBER_CMR
|
||||
'
|
||||
Me.cbxUEBER_CMR.Height = 0.2!
|
||||
Me.cbxUEBER_CMR.Left = 0.02598425!
|
||||
Me.cbxUEBER_CMR.Name = "cbxUEBER_CMR"
|
||||
Me.cbxUEBER_CMR.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxUEBER_CMR.Style = "font-size: 12pt"
|
||||
Me.cbxUEBER_CMR.Text = "Empfangsort CMR / Lieferschein / Packliste"
|
||||
Me.cbxUEBER_CMR.Top = 7.267716!
|
||||
Me.cbxUEBER_CMR.Width = 3.958662!
|
||||
'
|
||||
'cbxUEBER_Zollanm
|
||||
'
|
||||
Me.cbxUEBER_Zollanm.Height = 0.2000005!
|
||||
Me.cbxUEBER_Zollanm.Left = 0.02598425!
|
||||
Me.cbxUEBER_Zollanm.Name = "cbxUEBER_Zollanm"
|
||||
Me.cbxUEBER_Zollanm.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxUEBER_Zollanm.Style = "font-size: 12pt"
|
||||
Me.cbxUEBER_Zollanm.Text = "Feld 8 - Zollanmeldung"
|
||||
Me.cbxUEBER_Zollanm.Top = 7.973623!
|
||||
Me.cbxUEBER_Zollanm.Width = 2.992914!
|
||||
'
|
||||
'cbxUEBER_AURATR
|
||||
'
|
||||
Me.cbxUEBER_AURATR.Height = 0.2!
|
||||
Me.cbxUEBER_AURATR.Left = 0.02598429!
|
||||
Me.cbxUEBER_AURATR.Name = "cbxUEBER_AURATR"
|
||||
Me.cbxUEBER_AURATR.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.cbxUEBER_AURATR.Style = "font-size: 12pt"
|
||||
Me.cbxUEBER_AURATR.Text = "EUR 1 / ATR (Feld 5 oder Feld 6)"
|
||||
Me.cbxUEBER_AURATR.Top = 7.738188!
|
||||
Me.cbxUEBER_AURATR.Width = 3.385827!
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.Height = 0.168504!
|
||||
Me.Label17.HyperLink = Nothing
|
||||
Me.Label17.Left = 4.267717!
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Style = "font-family: Microsoft Sans Serif; font-size: 10pt; font-weight: normal; text-ali" &
|
||||
"gn: center; ddo-char-set: 0"
|
||||
Me.Label17.Text = "Unterschrift des Sachbearbeiters"
|
||||
Me.Label17.Top = 8.173622!
|
||||
Me.Label17.Width = 2.437795!
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.Height = 0.168504!
|
||||
Me.Label18.HyperLink = Nothing
|
||||
Me.Label18.Left = 4.267717!
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Style = "font-family: Microsoft Sans Serif; font-size: 10pt; font-weight: normal; text-ali" &
|
||||
"gn: center; ddo-char-set: 0"
|
||||
Me.Label18.Text = ".................................................................."
|
||||
Me.Label18.Top = 8.040157!
|
||||
Me.Label18.Width = 2.437795!
|
||||
'
|
||||
'Label19
|
||||
'
|
||||
Me.Label19.Height = 0.168504!
|
||||
Me.Label19.HyperLink = Nothing
|
||||
Me.Label19.Left = 4.267717!
|
||||
Me.Label19.Name = "Label19"
|
||||
Me.Label19.Style = "font-family: Microsoft Sans Serif; font-size: 10pt; font-weight: normal; text-ali" &
|
||||
"gn: center; ddo-char-set: 0"
|
||||
Me.Label19.Text = "SB-Name"
|
||||
Me.Label19.Top = 7.973621!
|
||||
Me.Label19.Width = 2.437795!
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Height = 0.1661417!
|
||||
Me.Label1.HyperLink = Nothing
|
||||
Me.Label1.Left = 3.984646!
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Style = "font-family: Microsoft Sans Serif; font-size: 10pt; font-weight: normal; text-dec" &
|
||||
"oration: underline; ddo-char-set: 0"
|
||||
Me.Label1.Text = "Info:"
|
||||
Me.Label1.Top = 0.03937007!
|
||||
Me.Label1.Width = 1.583465!
|
||||
'
|
||||
'Line1
|
||||
'
|
||||
Me.Line1.Height = 0!
|
||||
Me.Line1.Left = 0!
|
||||
Me.Line1.LineWeight = 1.0!
|
||||
Me.Line1.Name = "Line1"
|
||||
Me.Line1.Top = 3.143701!
|
||||
Me.Line1.Width = 6.889764!
|
||||
Me.Line1.X1 = 0!
|
||||
Me.Line1.X2 = 6.889764!
|
||||
Me.Line1.Y1 = 3.143701!
|
||||
Me.Line1.Y2 = 3.143701!
|
||||
'
|
||||
'PageFooter
|
||||
'
|
||||
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2, Me.Label16})
|
||||
Me.PageFooter.Height = 0.8906825!
|
||||
Me.PageFooter.Name = "PageFooter"
|
||||
'
|
||||
'ReportInfo1
|
||||
'
|
||||
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
|
||||
Me.ReportInfo1.Height = 0.196063!
|
||||
Me.ReportInfo1.Left = 3.411811!
|
||||
Me.ReportInfo1.Name = "ReportInfo1"
|
||||
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
|
||||
Me.ReportInfo1.Top = 0.6940945!
|
||||
Me.ReportInfo1.Width = 3.478!
|
||||
'
|
||||
'lblDetails
|
||||
'
|
||||
Me.lblDetails.Height = 0.2!
|
||||
Me.lblDetails.HyperLink = Nothing
|
||||
Me.lblDetails.Left = 0.02598449!
|
||||
Me.lblDetails.Name = "lblDetails"
|
||||
Me.lblDetails.Style = "font-size: 8pt"
|
||||
Me.lblDetails.Text = ""
|
||||
Me.lblDetails.Top = 0.6901575!
|
||||
Me.lblDetails.Width = 3.187031!
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.Height = 0.196063!
|
||||
Me.Label8.HyperLink = Nothing
|
||||
Me.Label8.Left = 3.736615!
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Style = "font-size: 8pt"
|
||||
Me.Label8.Text = "VERAG"
|
||||
Me.Label8.Top = 0.6944882!
|
||||
Me.Label8.Width = 0.9224403!
|
||||
'
|
||||
'Line2
|
||||
'
|
||||
Me.Line2.Height = 0.0000821352!
|
||||
Me.Line2.Left = 0!
|
||||
Me.Line2.LineWeight = 1.0!
|
||||
Me.Line2.Name = "Line2"
|
||||
Me.Line2.Top = 0.6901575!
|
||||
Me.Line2.Width = 6.889764!
|
||||
Me.Line2.X1 = 0!
|
||||
Me.Line2.X2 = 6.889764!
|
||||
Me.Line2.Y1 = 0.6901575!
|
||||
Me.Line2.Y2 = 0.6902396!
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.Height = 0.638189!
|
||||
Me.Label16.HyperLink = Nothing
|
||||
Me.Label16.Left = 0.02598425!
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Style = "font-family: Microsoft Sans Serif; font-size: 18pt; font-weight: bold; text-decor" &
|
||||
"ation: none; ddo-char-set: 0"
|
||||
Me.Label16.Text = "Bei Nicht-<2D>bereinstimmung: Abfertigung verweigern !!!!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Mit VERAG Fiskal-Abteilun" &
|
||||
"g Kontakt aufnehmen."
|
||||
Me.Label16.Top = 0!
|
||||
Me.Label16.Width = 6.679529!
|
||||
'
|
||||
'SubReport
|
||||
'
|
||||
Me.SubReport.CloseBorder = False
|
||||
Me.SubReport.Height = 1.461811!
|
||||
Me.SubReport.Left = 0.02598426!
|
||||
Me.SubReport.Name = "SubReport"
|
||||
Me.SubReport.Report = Nothing
|
||||
Me.SubReport.ReportName = "SubReport1"
|
||||
Me.SubReport.Top = 1.68189!
|
||||
Me.SubReport.Width = 3.918898!
|
||||
'
|
||||
'rptCheckliste
|
||||
'
|
||||
Me.MasterReport = False
|
||||
Me.PageSettings.Margins.Bottom = 0.1968504!
|
||||
Me.PageSettings.Margins.Left = 0.5905512!
|
||||
Me.PageSettings.Margins.Right = 0.5905512!
|
||||
Me.PageSettings.Margins.Top = 0.5905512!
|
||||
Me.PageSettings.MirrorMargins = True
|
||||
Me.PageSettings.PaperHeight = 11.0!
|
||||
Me.PageSettings.PaperWidth = 8.5!
|
||||
Me.PrintWidth = 6.889764!
|
||||
Me.Sections.Add(Me.PageHeader)
|
||||
Me.Sections.Add(Me.Detail)
|
||||
Me.Sections.Add(Me.PageFooter)
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
|
||||
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
|
||||
"lic", "Heading2", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
|
||||
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblUID, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblInfo, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxUID, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxEORI, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxCMR, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxLieferschein, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxPackliste, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxCMRVers, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxCMRFracht, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxVerzollt, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxCMRVersendung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxRG_UID, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxRGVersendung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxPassport, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxT1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label15, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxUEBER_Bestimmungsort, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxUEBER_CMR, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxUEBER_Zollanm, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxUEBER_AURATR, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label17, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label19, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
|
||||
End Sub
|
||||
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
|
||||
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
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 Label15 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Label17 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
|
||||
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblEORI As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblInfo As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents cbxUID As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxEORI As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxCMR As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxLieferschein As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxPackliste As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxCMRVers As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxCMRFracht As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxVerzollt As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxCMRVersendung As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxRG_UID As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxRGVersendung As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxPassport As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxT1 As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxUEBER_Bestimmungsort As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxUEBER_CMR As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxUEBER_Zollanm As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxUEBER_AURATR As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents Label19 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
|
||||
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
|
||||
Public WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
Public WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label
|
||||
End Class
|
||||
284
SDL/Checkliste/rptCheckliste.resx
Normal file
284
SDL/Checkliste/rptCheckliste.resx
Normal file
@@ -0,0 +1,284 @@
|
||||
<?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>
|
||||
<data name="picVERAG.ImageData" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v
|
||||
cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw
|
||||
b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB
|
||||
AQEBCQIAAAAAAAAAAAAAADcjAAA3IwAAAQEBAQoPAgAAADcjAAACAjIjAACJUE5HDQoaCgAAAA1JSERS
|
||||
AAADhwAAAJEIBgAAAHCKzY0AAAABc1JHQgCuzhzpAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29mdHdh
|
||||
cmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAACK3SURBVHhe7d15vG/1vMdxKkVSIpIkTWbSrRAVMoVKbpnJ
|
||||
paRuklIeUeaIiFtCoitDuYZcQ1Ept8nQgCJFJYlbxm6R5nTfH8fu7HPOe5+z1m+vvb7T64/nP186+/P9
|
||||
rLV/+/dew/d7p9tvvx0AAAAA0Dg7CAAAAABoix0EAAAAALTFDgIAAAAA2mIHAQAAAABtsYMAAAAAgLbY
|
||||
QQAAAABAW+wgAAAAAKAtdhAAAAAA0BY7CAAAAABoix0EAAAAALTFDgIAAAAA2mIHAQAAAABtsYMAAAAA
|
||||
gLbYQQAAAABAW+wgAAAAAKAtdhAAAAAA0BY7CAAAAABoix3s406PfTsAAACANtxF1pYt5FXyZvmAHClf
|
||||
kdPkp3K5/F6u+aeb5PYCTdUf/iQxrwvkHDlVviFflJj/+2QfeZlsKRvJ6rKUuF5OxGWyodjBPlzBAAAA
|
||||
AIp2d9lcdpPDJYJQBKNbxYUozOxmuVROkA/KK+ThMlFodJlsKHZwcVTQ9uImnUo0ey1ZpHGYyIPkRnG9
|
||||
TmEncXXm4t/E1Y063FPccS/Rf4ibI4YXf5emrjL/US6Rs+UkiavLR8iBsos8Rx4lK4k7bmjDfuLOpRx9
|
||||
WtwcUL77SHzPjyB4vtwm7hzAcOLvxFclAvga4o7LIlxGG4odXBwVdGc5V9wEUzlKFmkcJnKMuB6n8HNZ
|
||||
RlyduSAc1o1wiDHFl4Qz5DDZWR4ny4s7nqjHKnKtuHMiR3+XuKDh5oLyrCNvku9JHFt3zDGe70tcOFxR
|
||||
3PH6B5fRhmIHl0RFPUPchFKJkzluzS7SPPSysbj+prKduDpzQjisG+EQqcWTHP8j+8smkvsFM/R3qLhj
|
||||
n7N4x8rNBWWIi047SgQRd3yR3l/kYFlNFjmGLp8NxQ52ocLij5WbTCrHyiLNQy9xxdr1NoV4BCvuUrs6
|
||||
c0I4rBvhELm5WmLRgydLCZ+RWLx1JR5Ddsc6d5uJmxPyFXep3y3xOeKOKfJznbxVlpM7jqXLZkOxg12o
|
||||
sMeLm0RKG8odjUMvzxPX01RiBSxXZ24Ih3UjHCJnv5B4T+Vu4o458vclcce2BN8VNyfkJz4jImBE0HDH
|
||||
Evm7SDaQfxxTl82GYge7UnHxAqWbQCqxAtD0XwZ0E0sSXyyupymcKK7OHBEO60Y4RAmukl2FR07L8lhx
|
||||
x7MkzxU3N+TjKRIrjLrjh7LEViAvF5vLhmIHu1Jx8Z5fbi+vxqM2C/9iYPF2F9fLVO64MlIAwmHdCIco
|
||||
yQ9lfXHHH/k5XdxxLMmFsrS4+SGtuFgUWya444ay7ety2VDsYB8qMFYKdYWncqYs/AuCmcWX39jQ0/Uy
|
||||
hc+LqzNXhMO6EQ5RmljA5tXizgHkY2txx69EsQm6myPSia1xYiN6d7xQh71cLhuCHexDxa0pub1M/WxZ
|
||||
+BcF3kHiepjCLRIv57s6c0U4rBvhEKU6QNx5gPTijk7ccXPHrURXCO+95iP2Kow9Ct2xQl2e57LZbNnB
|
||||
PlRYOGRaoTn4sbCK25KtJTlteP9RcXXmjHBYN8IhSkZAzFPc2XXHq2R7i5srxhV3DOPxcneMUJ/YH3Vd
|
||||
l89mww72oaLCqpLbCkgvkOm/MFjUf4nrXQp/E7uXS+YIh3UjHKJ0O4g7H5DG3SUWEHLHqmR/lpo+L0u0
|
||||
lBwn7vigXrEN3VIuo03KDvahgqa8S1zRqfxcWLltZo8T17dUYt8dV2fuCId1IxyidNfLQ8WdExjfW8Qd
|
||||
pxq8R9ycMY6azy0s3o4uo03KDvahgqbEl6icFjYJr5TpNWK+WLjH9SyFkq84Eg7rRjhEDc6SuKvgzguM
|
||||
577yV3HHqAY3SIlPANVgI7lV3HFB/eJphLu7nDYJO9iHipkunjl3RacSL0kvKwvX2brtxPUrlZLfVSAc
|
||||
1o1wiFrsKO68wHgOE3dsanKEuLlj7sRWIueJOx5oxx4up03CDvahYqaL1ap+K67oVF4nC9fZsgjLl4jr
|
||||
VQq/kZJXOSMc1o1wiFqU/llbugdLrMjtjk1N4u5VzNX1AHPj38UdC7Tlchnk3UM72IcKWVhuq3DFrdYV
|
||||
xNXaoj3E9SmV0q9mEw7rRjhETXYRd25g7h0r7pjU6MvieoDhxQWfGhc4wmSe5bJaX3awDxWysFgE5mJx
|
||||
Raeyr7haWxNfdOP9PtejFC6S0hcNIhzWjXCImsRnLts8je8J4o5HzTYW1wsMa3dx/UebPuuyWl92sA8V
|
||||
4sQ2Eq7oVK6Rmr7kTeoD4vqTyr+Kq7MkhMO6EQ5Rmwgq7vzA3MlpAbixfEdcLzCcWGQqp9eEkF7se7is
|
||||
y2t92ME+VIQTVyZjI3pXeCqlbpUwlNjw/iZxvUkhVs+r4Qo24bBuhEPU5qPizg/MjW3FHYcWPFNcTzCM
|
||||
6K/rO9r2JJfX+rCDfaiImWwpruhUYpP+2Kzf1dqCnDa8D08RV2dpCId1IxyiNrFoHI+WjiNem4g9l91x
|
||||
aEHcJGALlblzjLi+o23vdHmtDzvYh4pYnFPFFZ5KfDlyddYutw3vTxRXZ4kIh3UjHKJGjxF3jmBYu4rr
|
||||
f0teIq43mJ1YiOZ6cT1H205yea0PO9iHilicTcQVnko8VvlAcbXWKq4Q5/a+wwbiai0R4bBuhEPU6PXi
|
||||
zhEMJ1ZJ/524/rfkl8J+08N7rrh+A9e4vNaHHexDRSzJ18QVn8qR4uqs1fbi+pDK58XVWSrCYd0Ih6jR
|
||||
l8SdIxjO28X1vkWxoqbrESZ3hLheA+GBLrN1ZQf7UAFL8kj5u7jiU4gNWtcTV2tt4mpdXLVzfUghNgBe
|
||||
V1ytpSIc1o1wiBr9Qtw5gmHcT2KdA9f7Fv1e2G96WJeK6zUQnu4yW1d2sA8V0MVnxBWfSizO4uqszZ7i
|
||||
5p9KjavkEQ7rRjhEjW6T5cWdJ5i9j4nre8veJq5X6G91cT0GpuzoMltXdrAPFdBFbKNws7gJpBB3Mmt6
|
||||
781ZWa4WN/8U4irqauJqLRnhsG6EQ9RqI3HnCWbnIRJPKLmet+yvch9xPUM/sUe063HubpTz5YsS+27v
|
||||
LS+Wp0ssnPhwWVPi7+5Y4nvpgyQW6Xq8PFteLnvJB+XL8kMpbfGf/V1m68oO9qECujpM3ARSOU5cnbU4
|
||||
WNy8UzlAXJ2lyyUcvlfcBx9mp6Yl/wmHmG4HcecJZuer4vqdwslmLKVDxPUM/cS+3a6/ufmDHCU7Slw0
|
||||
KXlbk6XlwRLf+T4tOd18cT7mMltXdrAPFdBVpPPcnsGP1VRdraVbW3K6U/sniS/artbS5RIOY/EDVx8w
|
||||
JZdwuJUsHMJrsIrEle9t5B3yA3Hzz8W+4s4TTG5Tcb1O4deynJwzbSy1+F4ST5K53qG7uLnh+puDeDIv
|
||||
LpA8VSJQufprEL9bL5ALxfUhta+7zNaVHexDBfSR29WO2IfR1Vm6uGXv5pvKG8TVWQPCIUqRSzh8srj6
|
||||
ahRhMR5Lcn1ILc4HVzMmE08ZfE9cr1N4hURd8fvm/vdUPicL9w79XCaut6l9V2IRSldzrZaR3J7UC6e6
|
||||
zNaVHexDBfQRV1dzuxX7DHG1liq3vSWvkNis1dVaA8IhSkE4TOdlktPTHOEL4mrFZLYT1+cULpDpj/Dl
|
||||
dKcp7iytL9N7h+7ijlUsKOV6m9LREkHJ1dyCd4nrSyrnuczWlR3sQwX09UZxE0klHrmo5b2imEdcuXHz
|
||||
TOVV4mqtBeEQpSAcphULL7h+pHKGuDrRX3wpvlhcn1PYWqbXF3dzcgoU35Tp9aG72A7M9TSlU6TmR0i7
|
||||
iO/f0QfXnxSKC4dxF+lKcZNJZVtxtZYmtw3v41ns2q8kEQ5RCsJherGNkutJCueJqxH9vVZcj1M4U1yN
|
||||
R4r7/6fyJHF1YvG2ENfPVGItkVjt09XamniNIJd93S93ma0rO9iHCpjEa8RNJpUIMSWvohRy2/A+PE9c
|
||||
rTUhHKIUhMP04qp/Ll8eLhJXI/q5h8SqjK7HKcSiOK7O+0tOy/GfJTWtBj2Wl4rrZyoHiquzVceL69PY
|
||||
igyHcTfpUnETSqX0Zb1z2/A+Vupr4YOfcIhSEA7zcJq4voztcnH1oZ+c3jX6hrgap8SWUu6/SyX263N1
|
||||
YmY5fde7SWrcv3o2Iku4Xo3t1y6zdWUH+1ABk3qRuAmlEmE17r65WnN3L8ltoZ9WvgASDlEKwmEe9hHX
|
||||
l7H9r7j60F18Mf6buP6OLe5IP0pcnVNWlD+K++9T+Lm0vIjJJN4jrpcpxF0yV2PLYhN/16uxFXnnMMRj
|
||||
nD8WN6lUdhFXa+4+JG4+qXxLXJ01IhyiFITDPGwuri9ju0ZcfejuE+J6m8JnxNW4sN3F/fep7CSuTni5
|
||||
fI6H2Nze1di6P4vr15iKDYfh2eImlcpVUtq2C+tITkukx9XLDcTVWiPCIUpBOMzDfcX1ZWyEw9l5mNwq
|
||||
rrdji+8AXRcFiSekcnqtJ+5g17zd1dCOENfHFFiIxjtXXL/GVHQ4DKeLm1gq8ciPqzNXuW2wfIy4OmtF
|
||||
OEQpCId5iHexcwgVcTHU1Ydu4v0+19cUDhFX40yeL+7fSSW2OHN1YlFHievh2H4nrj7ksSjNL1xm68oO
|
||||
9qECZuuJ4iaWyp8knst3teYmt97F1ctYjc/VWivCIUpBOMxH3LVzvRkTC9JMLpdHg0NsJXAfcXXOJC5Q
|
||||
nC3u30shfh9WFlcrFpTLdji8bzizr4rr2Zh+7DJbV3awDxUwhJyuwIUSvmjHh/v3xdWfykfE1VozwiFK
|
||||
QTjMRw7h8BJxtWHxcgtWk3725xRww0Hi6sSCcggeoe/d6pZsKLF/ekqbuszWlR3sQwUM4dGSy95P4a+y
|
||||
irhac/ECcbWnElcvW1zSmHCIUhAO8/EXcb0Z0zniasPi5fRIZqw8uoK4OrvI6cL8DfIAcXVivlzCYSxs
|
||||
5OrDSFwmG4od7MMVPKHPiTsBU/mAuDpzEC+UXyau7lRi/yRXa+0IhygF4TAfri9jO1lcbZhZbou57CGu
|
||||
zq4eIbksqhM+Ka5OzJdLONxOXH0YictkQ7GDfbiCJxTvquW06mZcxbq/uFpTe4O4mlOJ9zTvKa7W2hEO
|
||||
UQrCYR7iTo/ry9i+KK4+zCynbSDindEh9maOQOb+/RQiqMYqsK5OzJNLOIzHkl19GInLZEOxg324gmfh
|
||||
o+JOwlQOF1dnSrHh/f+JqzeVCKuu1hYQDlEKwmEe4tE515exxf64rj54K0lcCHW9TGEHcXX2FRfBrxf3
|
||||
M1L4irg6MU8u4TDuOrv6MBKXyYZiB/twBc9CvLOW04fULZLb6pu5bXh/hbS8R1Eu4RCzV/ueTYTDPGwq
|
||||
ri9ja/mi3iTeLa6PKfxElhJX5yTitRD3c1LZRFydyCccssdhYi6TDcUO9uEKnqUDxZ2IqXxWXJ0p5Lbh
|
||||
fXiluFpbQTisB+FwHK2Hw9eI68vYthdXHxa1usSrJq6PKWwlrs5JxfZdsbiN+1kpnCauTuQTDtcQVx9G
|
||||
4jLZUOxgH67gWYp313JY5ntKrKKay+3z3Da8v1CWFldrKwiH9SAcjqP1cJjLO148FtbdkeJ6mMIZ4mqc
|
||||
rZzepwzPEVdn63IJhynXmYi/1a4mLOhyl9u6sIN96IfPhX3FTTSV+GV0dY4pl0eRpou9VFytLSEc1oNw
|
||||
OI6Ww2HskReP4ru+jClembiLuBqxoEfKbeL6mMITxdU5W7mtxHq+DPnobC0Ih4TDrqoLh/EO21XiJpvK
|
||||
48TVOob4QnGWuLpSiQ34Xa2tIRzWg3A4jpbD4ZPE9WRsPxJXHxZ1nLgepvB1cTUOJac9HMPLxdXZMsIh
|
||||
4bCr6sJh2FXcZFP5trg6x/AicTWlFF9yXK2tIRzWg3A4jpbD4QniejK2D4urDwvaQlz/UohXXOIupqtz
|
||||
KHEh+mxxPz+FobbrqAnhkHDYVZXhMB55yekRh5DiS81y8itx9aTyTXG1tohwWA/C4ThaDYcvE9ePFF4o
|
||||
rkbMF0HpXHH9S+HT4uocWuxf535+KrPd6L82hEPCYVdVhsPwUnETTuUH4uqcS3uLqyWVuHr5GHG1tohw
|
||||
WA/C4ThaDIfbSS4rTcf7hrFnn6sT871YXP9SiHNnTXF1zoVviKsjhdhb8h7i6mwR4ZBw2FW14TBeRo6X
|
||||
kt2kU9laXK1z4d6S08qt4WhxtbaKcFgPwuE4WgqHcU79p7g+pHKSuFoxXzzKeJm4/qUQv7uuzrkSK9ne
|
||||
Kq6WFN4prs4WEQ4Jh11VGw5D7OfjJp3KeTLWClqHiKshlbh6GXstulpbRTisB+FwHDWGw9gnLi7mPUxi
|
||||
Cf795FSJJy1cD1KKx1vdHDDf68X1LoW/yiri6pxLuWy5Eq6TVcXV2RrCIeGwq6rDYThT3MRTiQViXJ1D
|
||||
Wk9y2/D+MHG1toxwWA/CIWoXj+jFe+zu/MA88aX3z+L6l8LbxNU511aTv4mrKQW+f8xDOCQcdlV9ONxM
|
||||
3MRTiYVylhFX61COFfezU4krd/cTV2vLCIf1IByidm8Wd25gvveJ610Kf5AVxNU5hneJqyuFuFi+rrg6
|
||||
W0I4JBx2VX04DMeLm3wqO4mrcwg5bngffyRcra0jHNaDcIiaXSl3F3duYJ415AZx/UvhdeLqHEssBBMB
|
||||
1dWWwjHi6mwJ4ZBw2FUT4TBWyMzp/Y0r5K7iap2NHDe8j0eRWN3OIxzWg3CImm0r7rzAfEeJ610KsYVV
|
||||
Dnv8vVZcfalsIK7OVhAOCYddNREOw+fFNSCVeGnd1TkbOW54v5e4WkE4rAnhELU6Qtw5gfkeLTldgM5l
|
||||
4aDYc/oScTWm0Ppqu4RDwmFXzYTDeN48p+WVh34fIO5E5rbh/VzdIa0F4bAehEPU6BTJ4Q5U7r4lrn8p
|
||||
xBZeY62K3sX24upMZQtxdbaAcEg47KqZcBgOF9eEVPYXV+ck3ijuZ6T0SnG1Yh7CYT0Ih6jNyZJyQZNS
|
||||
PE1c/1KJ7VBcnanE6y4/EFdrCudI1ORqrR3hkHDYVVPhMJZXzumF8dikfmVxtfYR+xjltuH9hbK0uHox
|
||||
D+GwHoRD1ORI4Y7hksUduh+J62EKp4urM7XcVo1/vrg6a0c4JBx21VQ4DDktNR3eK67OPj4s7t9OiQUM
|
||||
loxwWA/CIWoQC4i9VNw5gEXFu32uj6k8QVydOfi6uJpTuFjmekuxHBEOCYddNRcO405dTnfZYqPYuKPp
|
||||
au3iwXKLuH87le+LqxULIhzWg3CIkt0ocZHxXuKOPxa1nFwurp8pfE1cnbl4mOS07sNrxNVZs1zC4eri
|
||||
6hsD4bCb5sJhiM18XTNSiT/Krs4u/lvcv5nS5uJqxYIIh/UgHKJEV8mBMpsLlK16g7iephArpT5CXJ05
|
||||
+YS4+lOIc395cXXWKpdwmPLvJeGwmybDYWzmGx8MriEp3CwPFFfr4uT2HH84XlytWBThsB6EQ5TiMvmo
|
||||
PFN4L3wy8Vjc1eL6i3LsJ+741iqXcLi+uPrGQDjspslwGHYT15BUYgNdV+dMYrWtWHXL/VupxNXLlL/0
|
||||
pcklHMZ7r/FlB5PLaen4uUA4rEcsFnaoPFUIh5P5gLjeoizxitG9xR3jGuUSDrcUV98YCIfdNBsOYyW2
|
||||
uILqmpJCPIsfz+S7Wp2XiPt3UvqcuFrh5RIO3y6uPmAK4bBOsd/u+2Udcccdi1pT4h1N10+U52Bxx7lG
|
||||
uYTDV4mrbwyEw26aDYfh5eKaksqXxNW5sNhYPqcX4UM8Gru2uHrhEQ5RCsJh3eKpj88KIXHJok+uhyhT
|
||||
bG82yWs9JcolHB4krr4xxFM+7umfXJwrrmdjazocxknyU3GNSWUDcbVOl+OG97NZVKdVhEOUgnDYhpvk
|
||||
ncIeh95jJIK06x3K9Slxx7s2uYTDE8TVh3y2fGk6HIZtxDUmlW+Jq3NKjhveXyeriqsXMyMcohSEw7b8
|
||||
UNYSdy607Nvi+oWy3SYlrPY6W7mEwz9L7e/pT+rj4no2tubDYfieuOakEquQujpDjhvex5VmVysWj3CI
|
||||
UhAO2/NH2Vjc+dCiZ4jrE+oQd2zcca9JLuEw8NnixSO3rl9jIxzKk8Q1J5XTxdX5EMlpE9nwJ1lRXL1Y
|
||||
PMIhSkE4bNO1Eo9SunOiJXGX43xxPUI9niju+Ncip3D4bnE1tu4j4vo1NsLhP8XjnK5Bqbilfr8m7v+b
|
||||
0p6ycJ3ohnCIUhAO2/U7uZ+486IVO4jrDepyprjjX4ujxc07hStlGXF1tizex3T9Ghvh8J9iIRjXoFR+
|
||||
JLGX4VR9ud3dDFfIcjK9j+iOcIhSEA7bFu/aTf971JK7Sfytc31BfbYWdx7U4HBxc07lZeLqbFXsOxtP
|
||||
47lejY1wOM0XxDUple0l6oo/yrksbztdhJuFe4juCIcoBeEQsfWTOzdqt4+4fqBOF0iti6XEnqZuzqn8
|
||||
WuLii6u1Rc8U16cUCIfTrCc5vdN3ocSVhLi64v73lH4mrDY1O4RDlIJwiLh71toWF/eS3FYHx9x7hbjz
|
||||
oXQ5boMWq3O6Wlt0mrgepUA4XMgR4hqVyq4SV1fc/5bSc8X1D90RDlEKwiHCq8SdH7U6WFwfULe4EHJX
|
||||
cedEyeLuv5tvaruJq7clO4vrTSqEw4WsLjeIa1YKt5ix1GLrD9c79EM4RCkIhwgzraRdo9jn8WZxfUD9
|
||||
9hJ3XpTsaeLmmoP9pNWn0baV3D5rCIdGbs9l52ZzcX1DP4RDlIJwiCmriTtHapPTyo4YXywMck9x50ap
|
||||
1hY311ycIbE4pKu9RvG+5QHyd3H9SIlwaNxbeM/AO15cz9Af4RClIBxiSmzr4M6Rmmwobu5oS3xxd+dH
|
||||
qWLriNz2yna+IbFqbK3vOMdFhz3kcnHzzwHhcAb7i2tYy+Lqxvri+oX+CIcoRS7hcCuJP6w1iL0DHySP
|
||||
ktiqKBYee6fEBbirxc0/B7FJsztHanKKuLmjLX+T2u6Ux2qsbq45is/Bz8su8jCJBRrdnHIXdwifIHvL
|
||||
SXKTuPnmhHA4gxUkNv91TWvV58T1CpMhHKIUuYTDJ4urrzbxJSjeD/qauD6kFI9+uZpr8Sxx80abPibu
|
||||
PCnVMeLmWYIb5TyJObxPdpfY8u0p8i+yjsRFt6kLcCuJ68GkIhfEv7uKxIW98Eh5jGwm8e7gjhLvT8ae
|
||||
kt+SyyTHx0aX5AKX27qwg33oh+fudeKa1qJ4WTaeV3d9wmRyCYeYO3GM3bEvDeEwnbhbeq24fqTwG3F1
|
||||
1iAWxPipuHmjTfEYZmxz5s6XEu0pbp7AdGe53NaFHexDPzx38bxzzs8Ej+lQcT3C5AiH9SMcDqvFcBji
|
||||
yvht4noytlhB29VYg9iqw80ZbfuiuPOlRI8VN0dgulNcbuvCDvahH16C2AzVNa4l18l9xfUHkyMc1o9w
|
||||
OKxWw2GId/1cT1KocaGIeC/ot+LmC2wk7rwpTSxKw4KLWJJjXW7rwg72oR9egnjM5GfimteKd4jrDWaH
|
||||
cFg/wuGwWg6H8Vh/Lu+uxHs3rsaSvUncXIFwsrjzpkRxJ9TNEZhyiMttXdjBPvTDSxEvmbrmtSD2+rmH
|
||||
uL5gdgiH9SMcDqvlcBjOFteXsdUWDmOBCe6mYEmeLu78Kc1Lxc0PmLK7y21d2ME+9MNL8gNxDazd68X1
|
||||
A7NHOKwf4XBYrYfDg8X1ZWy1hcNczm/k7UdyZ3HnUEli1c14XcjNEQibu9zWhR3sQz+8JPGlxDWwZr+W
|
||||
WjchzQHhsH6Ew2G1Hg5jmXTXl7HVFA5j+ftYjdvNE1jYi8SdR6X5lLj5AfF5uLzLbV3YwT70w0tzorhG
|
||||
1ioW43F9wDAIh/UjHA6r9XC4pbi+jK2mcPgFcXMEnEvlLuLOpZLE3nxufsAZLrN1ZQf7UAGl2VBcI2t0
|
||||
gcRiPK4PGAbhsH6Ew2G1Hg5jo2XXl7HVEg43Fje/lOI9/zUkety6R0hsfO76lNJu4s6n0pwgbn5o2z4u
|
||||
s3VlB/tQASX6krhm1mYbcfPHcAiH9SMcDqv1cJjL1f744u7qK82p4uaX0s7iam3VAeL6lNJVEu/tuXpL
|
||||
8nhx80O7YkXsNV1m68oO9qECSvQQuVVcU2vxXXFzx7AIh/UjHA6LcOj7MrYawuFW4uaW0g+FJ3YWtLz8
|
||||
Rly/UnqLuHpLc7S4+aFNx7m81ocd7ENFlOqT4ppai3h0yc0bwyIc1o9wOCzCoe/L2EoPh7EReLw64eaW
|
||||
0ibi6m3dC8X1K6W/SGyB4uotyWrCNi6YspnLa33YwT5URKnifYAbxDW2dMeJmzOGRzisH+FwWIRD35ex
|
||||
lR4OdxI3r5Q+La5WzHOauL6l9CFxtZbmxeLmh7Yc77JaX3awDxVSslz2mxpSPGv8aHHzxfAIh/UjHA6L
|
||||
cOj7MraSw2E8pniluHmlEnehVhVXL+aJ7ya5vdITS/6vKa7e0hwlbo5ow/WynstqfdnBPlRIyeJxgmvF
|
||||
NblUnxU3V8wNwmH9CIfDIhz6voyt5HC4v7g5pbSXuFqxoMPE9S+lz4irtTR3lXPEzRH1293ltEnYwT5U
|
||||
TOneKq7JJYorYGuJmyfmBuGwfoTDYREOfV/GVmo4vI/EXTo3p1QulBr2zRvDvSS2+nB9TKWmJ67i9+MS
|
||||
cfNEvY5xGW1SdrAPFVS6WMr4j+KaXZpDxc0Rc4dwWD/C4bAIh74vYys1HH5Y3HxSerq4WuHtIq6PKdW0
|
||||
VsMDJDb6d/NEfU6RZV1Gm5Qd7EMF1eD14hpekuvkvuLmh7lDOKwf4XBYhEPfl7GVGA7Xk3hCxs0nlWPF
|
||||
1YqZLS0/FtfPlDYXV2+JIiDGHW03T9TjeFne5bPZsIN9qKgaLCtXiGt8Kd4hbm6YW4TD+hEOh0U49H0Z
|
||||
W4nh8Mvi5pJKrHhey2ImY9tUXE9T+p64Wku1kpwobq4oX/xNX8Zls9myg32osFqU/CU/nt+/h7h5YW4R
|
||||
DutHOBwW4dD3ZWylhcPHi5tHSm8TVyu6OUZcX1PaVlytpYq7tHHz4DZx80V5fi/buEw2FDvYhwqsRfwC
|
||||
lXoLPh6LdXPC3CMc1o9wOCzCoe/L2EoLh2eIm0cqv5K7iasV3awu8UqM628q8T1wGXH1liwurvxM3JxR
|
||||
hnikPt65XllsJhuKHewjCqzI88QdkJxdLvFYrJsP5h7hsH6Ew2ERDn1fxlZSONxG3BxSiu8Lrlb0s6+4
|
||||
/qa0o7haSxffFfeUq8XNG3mKx9c/LmvLHcfTZbKh2ME+phdagTvLWeIOTq52EDcXjINwWD/C4bAIh74v
|
||||
YyslHMZdnIvEzSGVeI/L1Yr+lpPcVtb8jdR8VzjeRYxQHo8nuvkjDz+RCPP3lkWOo8tkQ7GDfbiCC7eF
|
||||
uIOUo5/KUuLmgXEQDutHOBwW4dD3ZWylhMPXiKs/lXi066HiasVkthLX65T2EVdrTeJO4kvkJOGdxPRu
|
||||
lNiW4k2yxM8Yl8mGYgf7cAVX4GRxBy43W4urH+MhHNaPcDgswqHvy9hKCIexD/FV4upP5f3iasXsfFNc
|
||||
v1OJRy9Ley93NlaTV8vX5VpxPcGwYo/1eArhQHma9Lpb7TLZUOxgH67gCmws7kDm5ExxtWNchMP6EQ6H
|
||||
RTj0fRlbCV983yqu9lQiqK4orlbMzoMltz0s3yuu1trFAo0bys5yuJwuPII6mbgjG2uDfEc+KfE4b9zY
|
||||
icWYXO87c5lsKHawD1dwJeKZ7Pjjmau7iqsb44rHMtzxQT1qWfAprkq6+Y2txpUA+4gvXq4vY4t37F19
|
||||
OYk7h672VJYXVyeGEVtyub6nwhZhC4rzP0L85vIi2UsOkiPlCxIbsp8m58kvJQLlNdOU+uhq3EmdmkPs
|
||||
iR7vQJ8rp8pX5Wj5iOwv8Rh8LFa1iawjc/b9wWWyodhBAAAAAEBb7CAAAAAAoC12EAAAAADQFjsIAAAA
|
||||
AGiLHQQAAAAAtMUOAgAAAADaYgcBAAAAAG2xgwAAAACAtthBAAAAAEBb7CAAAAAAoC12EAAAAADQFjsI
|
||||
AAAAAGiLHQQAAAAAtMUOAgAAAADaYgcBAAAAAC25/U7/D+Ks3UVbSRO/AAAAAElFTkSuQmCCCw==
|
||||
</value>
|
||||
</data>
|
||||
<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>
|
||||
7
SDL/Checkliste/rptCheckliste.vb
Normal file
7
SDL/Checkliste/rptCheckliste.vb
Normal file
@@ -0,0 +1,7 @@
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports GrapeCity.ActiveReports.Document
|
||||
|
||||
Public Class rptCheckliste
|
||||
|
||||
|
||||
End Class
|
||||
2713
SDL/Checkliste/rptDetailsPrint.rdlc
Normal file
2713
SDL/Checkliste/rptDetailsPrint.rdlc
Normal file
File diff suppressed because it is too large
Load Diff
105
SDL/Checkliste/subRptVM.Designer.vb
generated
Normal file
105
SDL/Checkliste/subRptVM.Designer.vb
generated
Normal file
@@ -0,0 +1,105 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Public Class subRptVM
|
||||
Inherits GrapeCity.ActiveReports.SectionReport
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'NOTE: The following procedure is required by the ActiveReports Designer
|
||||
'It can be modified using the ActiveReports Designer.
|
||||
'Do not modify it using the code editor.
|
||||
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptVM))
|
||||
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
|
||||
Me.txtBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
|
||||
Me.txtOfferte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
|
||||
CType(Me.txtBez, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
'
|
||||
'Detail
|
||||
'
|
||||
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBez, Me.txtDatum})
|
||||
Me.Detail.Height = 0.2208662!
|
||||
Me.Detail.Name = "Detail"
|
||||
'
|
||||
'txtBez
|
||||
'
|
||||
Me.txtBez.Height = 0.2208662!
|
||||
Me.txtBez.Left = 0!
|
||||
Me.txtBez.Name = "txtBez"
|
||||
Me.txtBez.Style = "font-size: 10pt; ddo-char-set: 1"
|
||||
Me.txtBez.Text = Nothing
|
||||
Me.txtBez.Top = 0!
|
||||
Me.txtBez.Width = 2.668898!
|
||||
'
|
||||
'txtDatum
|
||||
'
|
||||
Me.txtDatum.CanGrow = False
|
||||
Me.txtDatum.Height = 0.2208662!
|
||||
Me.txtDatum.Left = 2.668898!
|
||||
Me.txtDatum.Name = "txtDatum"
|
||||
Me.txtDatum.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
|
||||
Me.txtDatum.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
|
||||
Me.txtDatum.Text = Nothing
|
||||
Me.txtDatum.Top = 0!
|
||||
Me.txtDatum.Width = 1.261024!
|
||||
'
|
||||
'GroupHeader1
|
||||
'
|
||||
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtOfferte})
|
||||
Me.GroupHeader1.Height = 0.3251476!
|
||||
Me.GroupHeader1.Name = "GroupHeader1"
|
||||
'
|
||||
'txtOfferte
|
||||
'
|
||||
Me.txtOfferte.Height = 0.1688976!
|
||||
Me.txtOfferte.Left = 0!
|
||||
Me.txtOfferte.Name = "txtOfferte"
|
||||
Me.txtOfferte.Style = "font-size: 12pt; font-weight: bold; text-decoration: underline; ddo-char-set: 1"
|
||||
Me.txtOfferte.Text = "Vollmachten:"
|
||||
Me.txtOfferte.Top = 0!
|
||||
Me.txtOfferte.Width = 2.668898!
|
||||
'
|
||||
'GroupFooter1
|
||||
'
|
||||
Me.GroupFooter1.Height = 0!
|
||||
Me.GroupFooter1.Name = "GroupFooter1"
|
||||
'
|
||||
'subRptVM
|
||||
'
|
||||
Me.MasterReport = False
|
||||
Me.PageSettings.PaperHeight = 11.0!
|
||||
Me.PageSettings.PaperWidth = 8.5!
|
||||
Me.PrintWidth = 3.92979!
|
||||
Me.Sections.Add(Me.GroupHeader1)
|
||||
Me.Sections.Add(Me.Detail)
|
||||
Me.Sections.Add(Me.GroupFooter1)
|
||||
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.txtBez, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtOfferte, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
|
||||
End Sub
|
||||
Private WithEvents txtBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
|
||||
Private WithEvents txtOfferte As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
|
||||
End Class
|
||||
126
SDL/Checkliste/subRptVM.resx
Normal file
126
SDL/Checkliste/subRptVM.resx
Normal 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>
|
||||
40
SDL/Checkliste/subRptVM.vb
Normal file
40
SDL/Checkliste/subRptVM.vb
Normal file
@@ -0,0 +1,40 @@
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports GrapeCity.ActiveReports.Document
|
||||
|
||||
Public Class subRptVM
|
||||
|
||||
Dim Kdnr As Integer
|
||||
|
||||
Sub New(Kdnr As Integer)
|
||||
|
||||
' Dieser Aufruf ist f<>r den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.Kdnr = Kdnr
|
||||
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
|
||||
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
|
||||
If Me.Fields.Item("kdvma_Bezeichnung") IsNot Nothing AndAlso Me.Fields.Item("kdvma_Bezeichnung").Value IsNot Nothing Then txtBez.Text = Me.Fields.Item("kdvma_Bezeichnung").Value.ToString
|
||||
'If Me.Fields.Item("kdvm_erhalten_Datum") IsNot Nothing AndAlso Me.Fields.Item("kdvm_erhalten_Datum").Value IsNot Nothing Then txtDatum.Text = Me.Fields.Item("kdvm_erhalten_Datum").Value.ToString
|
||||
If Me.Fields.Item("kdvm_erhalten_Datum") IsNot Nothing AndAlso Me.Fields.Item("kdvm_erhalten_Datum").Value IsNot Nothing Then
|
||||
txtDatum.Text = If(IsDate(Me.Fields.Item("kdvm_erhalten_Datum").Value.ToString), CDate(Me.Fields.Item("kdvm_erhalten_Datum").Value.ToString).ToShortDateString, Me.Fields.Item("kdvm_erhalten_Datum").Value.ToString)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
|
||||
If Kdnr <= 0 Then Exit Sub
|
||||
|
||||
Dim where = ""
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' "
|
||||
Case Else : where = " AND art.kdvma_Firma<>'IMEX' "
|
||||
End Select
|
||||
|
||||
Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info " &
|
||||
" FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & Kdnr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND abf.[kdvm_erhalten]=1 " & where &
|
||||
" ORDER BY art.kdvma_id", "FMZOLL")
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
2
SDL/ClassDiagram1.cd
Normal file
2
SDL/ClassDiagram1.cd
Normal file
@@ -0,0 +1,2 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<ClassDiagram />
|
||||
221
SDL/Classes/ATLAS_Zabis/cATLAS_zbPos.vb
Normal file
221
SDL/Classes/ATLAS_Zabis/cATLAS_zbPos.vb
Normal file
@@ -0,0 +1,221 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cATLAS_zbPos_List
|
||||
Public LIST As New List(Of cATLAS_zbPos)
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(basman_nr, basman_nl, zbant_beznr, connArt)
|
||||
LOAD_LIST(basman_nr, basman_nl, zbant_beznr, connArt)
|
||||
'Wenn keine Enträge gefunden, dann mit History nochmal suchen
|
||||
If LIST.Count = 0 Then
|
||||
LOAD_LIST(basman_nr, basman_nl, zbant_beznr, True)
|
||||
End If
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST(basman_nr, basman_nl, zbant_beznr, connArt, Optional History = False)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Dim conn As SqlConnection
|
||||
Select Case connArt
|
||||
Case "ATLAS" : conn = cSqlDb.GetNewOpenConnectionATLAS
|
||||
Case "ATLAS_SBG" : conn = cSqlDb.GetNewOpenConnectionATLAS_SBG
|
||||
End Select
|
||||
Dim sqlstr = "SELECT * FROM [zbpos] WHERE basman_nr=@basman_nr AND basman_nl=@basman_nl AND zbant_beznr=@zbant_beznr "
|
||||
If History Then sqlstr &= "UNION SELECT * FROM zbhpos WHERE basman_nr=@basman_nr AND basman_nl=@basman_nl AND zbant_beznr=@zbant_beznr"
|
||||
Using cmd As New SqlCommand(sqlstr, conn)
|
||||
cmd.Parameters.AddWithValue("@basman_nr", basman_nr)
|
||||
cmd.Parameters.AddWithValue("@basman_nl", basman_nl)
|
||||
cmd.Parameters.AddWithValue("@zbant_beznr", zbant_beznr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cATLAS_zbPos
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
LIST.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cATLAS_zbPos
|
||||
Property basman_nr As Object = Nothing
|
||||
Property basman_nl As Object = Nothing
|
||||
Property zbant_beznr As Object = Nothing
|
||||
Property zbant_regnr As Object = Nothing
|
||||
Property zbant_korant As Object = Nothing
|
||||
Property zbant_antart As Object = Nothing
|
||||
Property zbpos_posnr As Object = Nothing
|
||||
Property zbpos_wanr As Object = Nothing
|
||||
Property zbpos_wazus1 As Object = Nothing
|
||||
Property zbpos_wazus2 As Object = Nothing
|
||||
Property zbpos_verf As Object = Nothing
|
||||
Property zbpos_zuverf As Object = Nothing
|
||||
Property zbpos_wabes As Object = Nothing
|
||||
Property zbpos_txhiab As Object = Nothing
|
||||
Property zbpos_txzus As Object = Nothing
|
||||
Property zbpos_vrbort As Object = Nothing
|
||||
Property zbpos_abgort As Object = Nothing
|
||||
Property zbpos_uland As Object = Nothing
|
||||
Property zbpos_eigm As Object = Nothing
|
||||
Property zbpos_rohm As Object = Nothing
|
||||
Property zbpos_stkanz As Object = Nothing
|
||||
Property zbpos_stkart As Object = Nothing
|
||||
Property zbpos_stkzei As Object = Nothing
|
||||
Property zbpos_prnw As Object = Nothing
|
||||
Property zbpos_prverm As Object = Nothing
|
||||
Property zbpos_prnwnr As Object = Nothing
|
||||
Property zbpos_beabeg As Object = Nothing
|
||||
Property zbpos_qunorm As Object = Nothing
|
||||
Property zbpos_besver As Object = Nothing
|
||||
Property zbpos_beding As Object = Nothing
|
||||
Property zbpos_zollw As Object = Nothing
|
||||
Property zbpos_eust As Object = Nothing
|
||||
Property zbpos_rpreis As Object = Nothing
|
||||
Property zbpos_rabatt As Object = Nothing
|
||||
Property zbpos_skonto As Object = Nothing
|
||||
Property zbpos_waenet As Object = Nothing
|
||||
Property zbpos_knet As Object = Nothing
|
||||
Property zbpos_kznet As Object = Nothing
|
||||
Property zbpos_netto As Object = Nothing
|
||||
Property zbpos_mzahl As Object = Nothing
|
||||
Property zbpos_waemz As Object = Nothing
|
||||
Property zbpos_kmzahl As Object = Nothing
|
||||
Property zbpos_kzzahl As Object = Nothing
|
||||
Property zbpos_wmahst As Object = Nothing
|
||||
Property zbpos_meast As Object = Nothing
|
||||
Property zbpos_mgestk As Object = Nothing
|
||||
Property zbpos_ahwert As Object = Nothing
|
||||
Property zbpos_wmzoll As Object = Nothing
|
||||
Property zbpos_mezoll As Object = Nothing
|
||||
Property zbpos_wmazol As Object = Nothing
|
||||
Property zbpos_meazol As Object = Nothing
|
||||
Property zbpos_stat As Object = Nothing
|
||||
Property zbpos_edat As Object = Nothing
|
||||
Property zbpos_adat As Object = Nothing
|
||||
Property zbpos_sb As Object = Nothing
|
||||
Property zbpos_zosatz As Object = Nothing
|
||||
Property zbpos_eusatz As Object = Nothing
|
||||
Property zbpos_vesatz As Object = Nothing
|
||||
Property zbpos_prnw3 As Object = Nothing
|
||||
Property zbpos_qmeast As Object = Nothing
|
||||
Property zbpos_qmezol As Object = Nothing
|
||||
Property zbpos_qmeazo As Object = Nothing
|
||||
Property zbpos_artnr As Object = Nothing
|
||||
Property zbpos_frsatz As Object = Nothing
|
||||
Property zbpos_eucode As Object = Nothing
|
||||
Property zbpos_artprs As Object = Nothing
|
||||
Property zbpos_kostst As Object = Nothing
|
||||
Property zbpos_menge As Object = Nothing
|
||||
Property zbpos_meinh As Object = Nothing
|
||||
Property zbpos_qmeinh As Object = Nothing
|
||||
Property zbpos_kzber As Object = Nothing
|
||||
Property zbpos_zolabg As Object = Nothing
|
||||
Property zbpos_euabg As Object = Nothing
|
||||
Property zbpos_kzabw As Object = Nothing
|
||||
Property zbpos_kontnr As Object = Nothing
|
||||
Property zbpos_kontnr2 As Object = Nothing
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("basman_nr", basman_nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("basman_nl", basman_nl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_beznr", zbant_beznr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_regnr", zbant_regnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_korant", zbant_korant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbant_antart", zbant_antart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_posnr", zbpos_posnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wanr", zbpos_wanr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wazus1", zbpos_wazus1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wazus2", zbpos_wazus2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_verf", zbpos_verf))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zuverf", zbpos_zuverf))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wabes", zbpos_wabes))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_txhiab", zbpos_txhiab))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_txzus", zbpos_txzus))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_vrbort", zbpos_vrbort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_abgort", zbpos_abgort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_uland", zbpos_uland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eigm", zbpos_eigm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_rohm", zbpos_rohm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stkanz", zbpos_stkanz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stkart", zbpos_stkart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stkzei", zbpos_stkzei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prnw", zbpos_prnw))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prverm", zbpos_prverm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prnwnr", zbpos_prnwnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_beabeg", zbpos_beabeg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qunorm", zbpos_qunorm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_besver", zbpos_besver))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_beding", zbpos_beding))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zollw", zbpos_zollw))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eust", zbpos_eust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_rpreis", zbpos_rpreis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_rabatt", zbpos_rabatt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_skonto", zbpos_skonto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_waenet", zbpos_waenet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_knet", zbpos_knet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kznet", zbpos_kznet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_netto", zbpos_netto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_mzahl", zbpos_mzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_waemz", zbpos_waemz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kmzahl", zbpos_kmzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kzzahl", zbpos_kzzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wmahst", zbpos_wmahst))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_meast", zbpos_meast))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_mgestk", zbpos_mgestk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_ahwert", zbpos_ahwert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wmzoll", zbpos_wmzoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_mezoll", zbpos_mezoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_wmazol", zbpos_wmazol))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_meazol", zbpos_meazol))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_stat", zbpos_stat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_edat", zbpos_edat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_adat", zbpos_adat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_sb", zbpos_sb))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zosatz", zbpos_zosatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eusatz", zbpos_eusatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_vesatz", zbpos_vesatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_prnw3", zbpos_prnw3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmeast", zbpos_qmeast))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmezol", zbpos_qmezol))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmeazo", zbpos_qmeazo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_artnr", zbpos_artnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_frsatz", zbpos_frsatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_eucode", zbpos_eucode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_artprs", zbpos_artprs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kostst", zbpos_kostst))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_menge", zbpos_menge))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_meinh", zbpos_meinh))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_qmeinh", zbpos_qmeinh))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kzber", zbpos_kzber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_zolabg", zbpos_zolabg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_euabg", zbpos_euabg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kzabw", zbpos_kzabw))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kontnr", zbpos_kontnr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zbpos_kontnr2", zbpos_kontnr2))
|
||||
Return list
|
||||
End Function
|
||||
End Class
|
||||
630
SDL/Classes/cCMR.vb
Normal file
630
SDL/Classes/cCMR.vb
Normal file
@@ -0,0 +1,630 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cCMR
|
||||
Property CMR_ID As Integer = -1
|
||||
Property CMR_Suchbegriff As Object = Nothing
|
||||
Property CMR_Absender_1 As Object = Nothing
|
||||
Property CMR_Absender_2 As Object = Nothing
|
||||
Property CMR_Absender_3 As Object = Nothing
|
||||
Property CMR_Absender_4 As Object = Nothing
|
||||
Property CMR_Absender_5 As Object = Nothing
|
||||
Property CMR_Empfänger_1 As Object = Nothing
|
||||
Property CMR_Empfänger_2 As Object = Nothing
|
||||
Property CMR_Empfänger_3 As Object = Nothing
|
||||
Property CMR_Empfänger_4 As Object = Nothing
|
||||
Property CMR_Empfänger_5 As Object = Nothing
|
||||
Property CMR_Auslieferung_Ort As Object = Nothing
|
||||
Property CMR_Auslieferung_Land As Object = Nothing
|
||||
Property CMR_Auslieferung As Object = Nothing
|
||||
Property CMR_Übernahme_Ort As Object = Nothing
|
||||
Property CMR_Übernahme_Land As Object = Nothing
|
||||
Property CMR_Übernahme_Datum As Object = Nothing
|
||||
Property CMR_Dokumente_1 As Object = Nothing
|
||||
Property CMR_Dokumente_2 As Object = Nothing
|
||||
Property CMR_Dokumente_3 As Object = Nothing
|
||||
|
||||
Property CMR_zeichen_1 As Object = Nothing
|
||||
Property CMR_zeichen_2 As Object = Nothing
|
||||
Property CMR_zeichen_3 As Object = Nothing
|
||||
Property CMR_zeichen_4 As Object = Nothing
|
||||
Property CMR_zeichen_5 As Object = Nothing
|
||||
Property CMR_zeichen_6 As Object = Nothing
|
||||
Property CMR_zeichen_7 As Object = Nothing
|
||||
Property CMR_zeichen_8 As Object = Nothing
|
||||
Property CMR_zeichen_9 As Object = Nothing
|
||||
Property CMR_anzahl_1 As Object = Nothing
|
||||
Property CMR_anzahl_2 As Object = Nothing
|
||||
Property CMR_anzahl_3 As Object = Nothing
|
||||
Property CMR_anzahl_4 As Object = Nothing
|
||||
Property CMR_anzahl_5 As Object = Nothing
|
||||
Property CMR_anzahl_6 As Object = Nothing
|
||||
Property CMR_anzahl_7 As Object = Nothing
|
||||
Property CMR_anzahl_8 As Object = Nothing
|
||||
Property CMR_anzahl_9 As Object = Nothing
|
||||
Property CMR_pkArt_1 As Object = Nothing
|
||||
Property CMR_pkArt_2 As Object = Nothing
|
||||
Property CMR_pkArt_3 As Object = Nothing
|
||||
Property CMR_pkArt_4 As Object = Nothing
|
||||
Property CMR_pkArt_5 As Object = Nothing
|
||||
Property CMR_pkArt_6 As Object = Nothing
|
||||
Property CMR_pkArt_7 As Object = Nothing
|
||||
Property CMR_pkArt_8 As Object = Nothing
|
||||
Property CMR_pkArt_9 As Object = Nothing
|
||||
Property CMR_TblLangKurz As Object = "K"
|
||||
|
||||
Property CMR_Ware_1 As Object = Nothing
|
||||
Property CMR_Statistiknr_1 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_1 As Object = Nothing
|
||||
Property CMR_Umfang_1 As Object = Nothing
|
||||
Property CMR_Ware_2 As Object = Nothing
|
||||
Property CMR_Statistiknr_2 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_2 As Object = Nothing
|
||||
Property CMR_Umfang_2 As Object = Nothing
|
||||
Property CMR_Ware_3 As Object = Nothing
|
||||
Property CMR_Statistiknr_3 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_3 As Object = Nothing
|
||||
Property CMR_Umfang_3 As Object = Nothing
|
||||
Property CMR_Ware_4 As Object = Nothing
|
||||
Property CMR_Statistiknr_4 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_4 As Object = Nothing
|
||||
Property CMR_Umfang_4 As Object = Nothing
|
||||
Property CMR_Ware_5 As Object = Nothing
|
||||
Property CMR_Statistiknr_5 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_5 As Object = Nothing
|
||||
Property CMR_Umfang_5 As Object = Nothing
|
||||
Property CMR_Ware_6 As Object = Nothing
|
||||
Property CMR_Statistiknr_6 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_6 As Object = Nothing
|
||||
Property CMR_Umfang_6 As Object = Nothing
|
||||
Property CMR_Ware_7 As Object = Nothing
|
||||
Property CMR_Statistiknr_7 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_7 As Object = Nothing
|
||||
Property CMR_Umfang_7 As Object = Nothing
|
||||
Property CMR_Ware_8 As Object = Nothing
|
||||
Property CMR_Statistiknr_8 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_8 As Object = Nothing
|
||||
Property CMR_Umfang_8 As Object = Nothing
|
||||
Property CMR_Klasse As Object = Nothing
|
||||
Property CMR_Ziffer As Object = Nothing
|
||||
Property CMR_Buchstabe As Object = Nothing
|
||||
Property CMR_ADR As Object = Nothing
|
||||
Property CMR_Ware_9 As Object = Nothing
|
||||
Property CMR_Statistiknr_9 As Object = Nothing
|
||||
Property CMR_Bruttogewicht_9 As Object = Nothing
|
||||
Property CMR_Umfang_9 As Object = Nothing
|
||||
Property CMR_Anweisungen_1 As Object = Nothing
|
||||
Property CMR_Anweisungen_2 As Object = Nothing
|
||||
Property CMR_Anweisungen_3 As Object = Nothing
|
||||
Property CMR_Anweisungen_4 As Object = Nothing
|
||||
Property CMR_Anweisungen_5 As Object = Nothing
|
||||
Property CMR_Anweisungen_6 As Object = Nothing
|
||||
Property CMR_Anweisungen_7 As Object = Nothing
|
||||
Property CMR_Rückerstattung As Object = Nothing
|
||||
Property CMR_Frachtzahlungsanweisung_Frei As Object = Nothing
|
||||
Property CMR_Frachtzahlungsanweisung_Unfrei As Object = Nothing
|
||||
Property CMR_Frachtführer_1 As Object = Nothing
|
||||
Property CMR_Frachtführer_2 As Object = Nothing
|
||||
Property CMR_Frachtführer_3 As Object = Nothing
|
||||
Property CMR_Frachtführer_4 As Object = Nothing
|
||||
Property CMR_Frachtführer_5 As Object = Nothing
|
||||
Property CMR_Nachf_Frachtführer_1 As Object = Nothing
|
||||
Property CMR_Nachf_Frachtführer_2 As Object = Nothing
|
||||
Property CMR_Nachf_Frachtführer_3 As Object = Nothing
|
||||
Property CMR_Nachf_Frachtführer_4 As Object = Nothing
|
||||
Property CMR_Nachf_Frachtführer_5 As Object = Nothing
|
||||
Property CMR_Bemerkungen_1 As Object = Nothing
|
||||
Property CMR_Bemerkungen_2 As Object = Nothing
|
||||
Property CMR_Bemerkungen_3 As Object = Nothing
|
||||
Property CMR_Bemerkungen_4 As Object = Nothing
|
||||
Property CMR_Bemerkungen_5 As Object = Nothing
|
||||
Property CMR_Vereinbarungen_1 As Object = Nothing
|
||||
Property CMR_Vereinbarungen_2 As Object = Nothing
|
||||
Property CMR_Ausgefertigt_in As Object = Nothing
|
||||
Property CMR_Ausgefertigt_am As Object = Nothing
|
||||
Property CMR_Ausgefertigt As Object = Nothing
|
||||
Property CMR_Stempel_Absender_1 As Object = Nothing
|
||||
Property CMR_Stempel_Absender_2 As Object = Nothing
|
||||
Property CMR_Stempel_Frachtführer_1 As Object = Nothing
|
||||
Property CMR_Stempel_Frachtführer_2 As Object = Nothing
|
||||
Property CMR_Empfangsbestätigung_Datum As Object = Nothing
|
||||
Property CMR_Stempel_Empfänger_1 As Object = Nothing
|
||||
Property CMR_Stempel_Empfänger_2 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_von_1 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_bis_1 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_km_1 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_von_2 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_bis_2 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_km_2 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_von_3 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_bis_3 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_km_3 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_von_4 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_bis_4 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_km_4 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_von_5 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_bis_5 As Object = Nothing
|
||||
Property CMR_Tarifentfernung_km_5 As Object = Nothing
|
||||
Property CMR_Kennzeichen_Kfz As Object = Nothing
|
||||
Property CMR_Nutzlast_Kfz As Object = Nothing
|
||||
Property CMR_Kennzeichen_Anhänger As Object = Nothing
|
||||
Property CMR_Nutzlast_Anhänger As Object = Nothing
|
||||
Property CMR_Erstellt_Datum As Object = Nothing
|
||||
Property CMR_Erstellt_Sachbearbeiter As Object = Nothing
|
||||
Property CMR_Geändert_Datum As Object = Nothing
|
||||
Property CMR_Geändert_Sachbearbeiter As Object = Nothing
|
||||
Property CMR_Gedruckt_Datum As Object = Nothing
|
||||
Property CMR_Gedruckt_Sachbearbeiter As Object = Nothing
|
||||
Property CMR_Firma As Object = Nothing
|
||||
Property EPBes_ID As Object = Nothing
|
||||
|
||||
|
||||
Property CMRPos As New List(Of cCMRPos)
|
||||
|
||||
Public _kurz As Boolean = True
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(CMR_ID As Integer)
|
||||
Me.CMR_ID = CMR_ID
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Function getMaxId() As Integer
|
||||
CMR_ID = SQL.getValueTxtBySql("SELECT ISNULL(MAX(CMR_ID),0)+1 FROM CMR", "FMZOLL")
|
||||
Return CMR_ID
|
||||
End Function
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_ID", CMR_ID, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Suchbegriff", CMR_Suchbegriff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_1", CMR_Absender_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_2", CMR_Absender_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_3", CMR_Absender_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_4", CMR_Absender_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_5", CMR_Absender_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_1", CMR_Empfänger_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_2", CMR_Empfänger_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_3", CMR_Empfänger_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_4", CMR_Empfänger_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_5", CMR_Empfänger_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Auslieferung_Ort", CMR_Auslieferung_Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Auslieferung_Land", CMR_Auslieferung_Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Auslieferung", CMR_Auslieferung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Übernahme_Ort", CMR_Übernahme_Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Übernahme_Land", CMR_Übernahme_Land))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Übernahme_Datum", CMR_Übernahme_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Dokumente_1", CMR_Dokumente_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Dokumente_2", CMR_Dokumente_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Dokumente_3", CMR_Dokumente_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_1", CMR_Ware_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_1", CMR_Statistiknr_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_1", CMR_Bruttogewicht_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_1", CMR_Umfang_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_2", CMR_Ware_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_2", CMR_Statistiknr_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_2", CMR_Bruttogewicht_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_2", CMR_Umfang_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_3", CMR_Ware_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_3", CMR_Statistiknr_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_3", CMR_Bruttogewicht_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_3", CMR_Umfang_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_4", CMR_Ware_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_4", CMR_Statistiknr_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_4", CMR_Bruttogewicht_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_4", CMR_Umfang_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_5", CMR_Ware_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_5", CMR_Statistiknr_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_5", CMR_Bruttogewicht_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_5", CMR_Umfang_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_6", CMR_Ware_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_6", CMR_Statistiknr_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_6", CMR_Bruttogewicht_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_6", CMR_Umfang_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_7", CMR_Ware_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_7", CMR_Statistiknr_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_7", CMR_Bruttogewicht_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_7", CMR_Umfang_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_8", CMR_Ware_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_8", CMR_Statistiknr_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_8", CMR_Bruttogewicht_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_8", CMR_Umfang_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Klasse", CMR_Klasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ziffer", CMR_Ziffer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Buchstabe", CMR_Buchstabe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_ADR", CMR_ADR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_9", CMR_Ware_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_9", CMR_Statistiknr_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_9", CMR_Bruttogewicht_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_9", CMR_Umfang_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_1", CMR_Anweisungen_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_2", CMR_Anweisungen_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_3", CMR_Anweisungen_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_4", CMR_Anweisungen_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_5", CMR_Anweisungen_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_6", CMR_Anweisungen_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_7", CMR_Anweisungen_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Rückerstattung", CMR_Rückerstattung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtzahlungsanweisung_Frei", CMR_Frachtzahlungsanweisung_Frei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtzahlungsanweisung_Unfrei", CMR_Frachtzahlungsanweisung_Unfrei))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_1", CMR_Frachtführer_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_2", CMR_Frachtführer_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_3", CMR_Frachtführer_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_4", CMR_Frachtführer_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_5", CMR_Frachtführer_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_1", CMR_Nachf_Frachtführer_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_2", CMR_Nachf_Frachtführer_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_3", CMR_Nachf_Frachtführer_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_4", CMR_Nachf_Frachtführer_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_5", CMR_Nachf_Frachtführer_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_1", CMR_Bemerkungen_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_2", CMR_Bemerkungen_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_3", CMR_Bemerkungen_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_4", CMR_Bemerkungen_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_5", CMR_Bemerkungen_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Vereinbarungen_1", CMR_Vereinbarungen_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Vereinbarungen_2", CMR_Vereinbarungen_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ausgefertigt_in", CMR_Ausgefertigt_in))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ausgefertigt_am", CMR_Ausgefertigt_am))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ausgefertigt", CMR_Ausgefertigt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Absender_1", CMR_Stempel_Absender_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Absender_2", CMR_Stempel_Absender_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Frachtführer_1", CMR_Stempel_Frachtführer_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Frachtführer_2", CMR_Stempel_Frachtführer_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfangsbestätigung_Datum", CMR_Empfangsbestätigung_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Empfänger_1", CMR_Stempel_Empfänger_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Empfänger_2", CMR_Stempel_Empfänger_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_1", CMR_Tarifentfernung_von_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_1", CMR_Tarifentfernung_bis_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_1", CMR_Tarifentfernung_km_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_2", CMR_Tarifentfernung_von_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_2", CMR_Tarifentfernung_bis_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_2", CMR_Tarifentfernung_km_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_3", CMR_Tarifentfernung_von_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_3", CMR_Tarifentfernung_bis_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_3", CMR_Tarifentfernung_km_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_4", CMR_Tarifentfernung_von_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_4", CMR_Tarifentfernung_bis_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_4", CMR_Tarifentfernung_km_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_5", CMR_Tarifentfernung_von_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_5", CMR_Tarifentfernung_bis_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_5", CMR_Tarifentfernung_km_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Kennzeichen_Kfz", CMR_Kennzeichen_Kfz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nutzlast_Kfz", CMR_Nutzlast_Kfz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Kennzeichen_Anhänger", CMR_Kennzeichen_Anhänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nutzlast_Anhänger", CMR_Nutzlast_Anhänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Erstellt_Datum", CMR_Erstellt_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Erstellt_Sachbearbeiter", CMR_Erstellt_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Geändert_Datum", CMR_Geändert_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Geändert_Sachbearbeiter", CMR_Geändert_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Gedruckt_Datum", CMR_Gedruckt_Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Gedruckt_Sachbearbeiter", CMR_Gedruckt_Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Firma", CMR_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EPBes_ID", EPBes_ID))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_1", CMR_zeichen_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_2", CMR_zeichen_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_3", CMR_zeichen_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_4", CMR_zeichen_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_5", CMR_zeichen_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_6", CMR_zeichen_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_7", CMR_zeichen_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_8", CMR_zeichen_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_9", CMR_zeichen_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_1", CMR_anzahl_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_2", CMR_anzahl_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_3", CMR_anzahl_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_4", CMR_anzahl_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_5", CMR_anzahl_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_6", CMR_anzahl_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_7", CMR_anzahl_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_8", CMR_anzahl_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_9", CMR_anzahl_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_1", CMR_pkArt_1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_2", CMR_pkArt_2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_3", CMR_pkArt_3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_4", CMR_pkArt_4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_5", CMR_pkArt_5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_6", CMR_pkArt_6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_7", CMR_pkArt_7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_8", CMR_pkArt_8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_9", CMR_pkArt_9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_TblLangKurz", CMR_TblLangKurz))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM CMR WHERE CMR_ID=@CMR_ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@CMR_ID", Me.CMR_ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each i In Me.getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
loadValuesInList()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub loadValuesInList()
|
||||
CMRPos.Clear()
|
||||
|
||||
Dim POS As New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_1
|
||||
POS.StatistikNr = CMR_Statistiknr_1
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_1
|
||||
POS.Umfang = CMR_Umfang_1
|
||||
POS.Zeichen = CMR_zeichen_1
|
||||
POS.Art = CMR_pkArt_1
|
||||
POS.Anzahl = CMR_anzahl_1
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_2
|
||||
POS.StatistikNr = CMR_Statistiknr_2
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_2
|
||||
POS.Umfang = CMR_Umfang_2
|
||||
POS.Zeichen = CMR_zeichen_2
|
||||
POS.Art = CMR_pkArt_2
|
||||
POS.Anzahl = CMR_anzahl_2
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_3
|
||||
POS.StatistikNr = CMR_Statistiknr_3
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_3
|
||||
POS.Umfang = CMR_Umfang_3
|
||||
POS.Zeichen = CMR_zeichen_3
|
||||
POS.Art = CMR_pkArt_3
|
||||
POS.Anzahl = CMR_anzahl_3
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_4
|
||||
POS.StatistikNr = CMR_Statistiknr_4
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_4
|
||||
POS.Umfang = CMR_Umfang_4
|
||||
POS.Zeichen = CMR_zeichen_4
|
||||
POS.Art = CMR_pkArt_4
|
||||
POS.Anzahl = CMR_anzahl_4
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_5
|
||||
POS.StatistikNr = CMR_Statistiknr_5
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_5
|
||||
POS.Umfang = CMR_Umfang_5
|
||||
POS.Zeichen = CMR_zeichen_5
|
||||
POS.Art = CMR_pkArt_5
|
||||
POS.Anzahl = CMR_anzahl_5
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_6
|
||||
POS.StatistikNr = CMR_Statistiknr_6
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_6
|
||||
POS.Umfang = CMR_Umfang_6
|
||||
POS.Zeichen = CMR_zeichen_6
|
||||
POS.Art = CMR_pkArt_6
|
||||
POS.Anzahl = CMR_anzahl_6
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_7
|
||||
POS.StatistikNr = CMR_Statistiknr_7
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_7
|
||||
POS.Umfang = CMR_Umfang_7
|
||||
POS.Zeichen = CMR_zeichen_7
|
||||
POS.Art = CMR_pkArt_7
|
||||
POS.Anzahl = CMR_anzahl_7
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_8
|
||||
POS.StatistikNr = CMR_Statistiknr_8
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_8
|
||||
POS.Umfang = CMR_Umfang_8
|
||||
POS.Zeichen = CMR_zeichen_8
|
||||
POS.Art = CMR_pkArt_8
|
||||
POS.Anzahl = CMR_anzahl_8
|
||||
CMRPos.Add(POS)
|
||||
|
||||
POS = New cCMRPos()
|
||||
POS.Bezeichnung = CMR_Ware_9
|
||||
POS.StatistikNr = CMR_Statistiknr_9
|
||||
POS.Bruttogewicht = CMR_Bruttogewicht_9
|
||||
POS.Umfang = CMR_Umfang_9
|
||||
POS.Zeichen = CMR_zeichen_9
|
||||
POS.Art = CMR_pkArt_9
|
||||
POS.Anzahl = CMR_anzahl_9
|
||||
CMRPos.Add(POS)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Function ilN(o As Object) As Object
|
||||
If Not o Is Nothing Then
|
||||
If o.ToString <> "" Then
|
||||
Return o
|
||||
End If
|
||||
End If
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
|
||||
If CMRPos.Count > 0 Then
|
||||
CMR_Ware_1 = ilN(CMRPos(0).Bezeichnung)
|
||||
CMR_Statistiknr_1 = ilN(CMRPos(0).StatistikNr)
|
||||
CMR_Bruttogewicht_1 = ilN(CMRPos(0).Bruttogewicht)
|
||||
CMR_Umfang_1 = ilN(CMRPos(0).Umfang)
|
||||
CMR_zeichen_1 = ilN(CMRPos(0).Zeichen)
|
||||
CMR_pkArt_1 = ilN(CMRPos(0).Art)
|
||||
CMR_anzahl_1 = ilN(CMRPos(0).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 1 Then
|
||||
CMR_Ware_2 = ilN(CMRPos(1).Bezeichnung)
|
||||
CMR_Statistiknr_2 = ilN(CMRPos(1).StatistikNr)
|
||||
CMR_Bruttogewicht_2 = ilN(CMRPos(1).Bruttogewicht)
|
||||
CMR_Umfang_2 = ilN(CMRPos(1).Umfang)
|
||||
CMR_zeichen_2 = ilN(CMRPos(1).Zeichen)
|
||||
CMR_pkArt_2 = ilN(CMRPos(1).Art)
|
||||
CMR_anzahl_2 = ilN(CMRPos(1).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 2 Then
|
||||
CMR_Ware_3 = ilN(CMRPos(2).Bezeichnung)
|
||||
CMR_Statistiknr_3 = ilN(CMRPos(2).StatistikNr)
|
||||
CMR_Bruttogewicht_3 = ilN(CMRPos(2).Bruttogewicht)
|
||||
CMR_Umfang_3 = ilN(CMRPos(2).Umfang)
|
||||
CMR_zeichen_3 = ilN(CMRPos(2).Zeichen)
|
||||
CMR_pkArt_3 = ilN(CMRPos(2).Art)
|
||||
CMR_anzahl_3 = ilN(CMRPos(2).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 3 Then
|
||||
CMR_Ware_4 = ilN(CMRPos(3).Bezeichnung)
|
||||
CMR_Statistiknr_4 = ilN(CMRPos(3).StatistikNr)
|
||||
CMR_Bruttogewicht_4 = ilN(CMRPos(3).Bruttogewicht)
|
||||
CMR_Umfang_4 = ilN(CMRPos(3).Umfang)
|
||||
CMR_zeichen_4 = ilN(CMRPos(3).Zeichen)
|
||||
CMR_pkArt_4 = ilN(CMRPos(3).Art)
|
||||
CMR_anzahl_4 = ilN(CMRPos(3).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 4 Then
|
||||
CMR_Ware_5 = ilN(CMRPos(4).Bezeichnung)
|
||||
CMR_Statistiknr_5 = ilN(CMRPos(4).StatistikNr)
|
||||
CMR_Bruttogewicht_5 = ilN(CMRPos(4).Bruttogewicht)
|
||||
CMR_Umfang_5 = ilN(CMRPos(4).Umfang)
|
||||
CMR_zeichen_5 = ilN(CMRPos(4).Zeichen)
|
||||
CMR_pkArt_5 = ilN(CMRPos(4).Art)
|
||||
CMR_anzahl_5 = ilN(CMRPos(4).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 5 Then
|
||||
CMR_Ware_6 = ilN(CMRPos(5).Bezeichnung)
|
||||
CMR_Statistiknr_6 = ilN(CMRPos(5).StatistikNr)
|
||||
CMR_Bruttogewicht_6 = ilN(CMRPos(5).Bruttogewicht)
|
||||
CMR_Umfang_6 = ilN(CMRPos(5).Umfang)
|
||||
CMR_zeichen_6 = ilN(CMRPos(5).Zeichen)
|
||||
CMR_pkArt_6 = ilN(CMRPos(5).Art)
|
||||
CMR_anzahl_6 = ilN(CMRPos(5).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 6 Then
|
||||
CMR_Ware_7 = ilN(CMRPos(6).Bezeichnung)
|
||||
CMR_Statistiknr_7 = ilN(CMRPos(6).StatistikNr)
|
||||
CMR_Bruttogewicht_7 = ilN(CMRPos(6).Bruttogewicht)
|
||||
CMR_Umfang_7 = ilN(CMRPos(6).Umfang)
|
||||
CMR_zeichen_7 = ilN(CMRPos(6).Zeichen)
|
||||
CMR_pkArt_7 = ilN(CMRPos(6).Art)
|
||||
CMR_anzahl_7 = ilN(CMRPos(6).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 7 Then
|
||||
CMR_Ware_8 = ilN(CMRPos(7).Bezeichnung)
|
||||
CMR_Statistiknr_8 = ilN(CMRPos(7).StatistikNr)
|
||||
CMR_Bruttogewicht_8 = ilN(CMRPos(7).Bruttogewicht)
|
||||
CMR_Umfang_8 = ilN(CMRPos(7).Umfang)
|
||||
CMR_zeichen_8 = ilN(CMRPos(7).Zeichen)
|
||||
CMR_pkArt_8 = ilN(CMRPos(7).Art)
|
||||
CMR_anzahl_8 = ilN(CMRPos(7).Anzahl)
|
||||
End If
|
||||
If CMRPos.Count > 8 Then
|
||||
CMR_Ware_9 = ilN(CMRPos(8).Bezeichnung)
|
||||
CMR_Statistiknr_9 = ilN(CMRPos(8).StatistikNr)
|
||||
CMR_Bruttogewicht_9 = ilN(CMRPos(8).Bruttogewicht)
|
||||
CMR_Umfang_9 = ilN(CMRPos(8).Umfang)
|
||||
CMR_zeichen_9 = ilN(CMRPos(8).Zeichen)
|
||||
CMR_pkArt_9 = ilN(CMRPos(8).Art)
|
||||
CMR_anzahl_9 = ilN(CMRPos(8).Anzahl)
|
||||
End If
|
||||
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM CMR WITH(updlock,serializable) WHERE CMR_ID=@CMR_ID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Me.CMR_ID = SQL.doSQLVarListID(Me.CMR_ID, sqlstr, "FMZOLL", True, list)
|
||||
Return CBool(Me.CMR_ID > 0)
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO CMR (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [CMR] WITH(updlock,serializable) WHERE CMR_ID=" & Me.CMR_ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [CMR] SET " & str & " WHERE CMR_ID=@CMR_ID ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cCMRPos
|
||||
Property Zeichen As String = ""
|
||||
Property Anzahl As String = ""
|
||||
Property Art As String = ""
|
||||
Property Bezeichnung As String = ""
|
||||
Property StatistikNr As String = ""
|
||||
Property Bruttogewicht As String = ""
|
||||
Property Umfang As String = ""
|
||||
End Class
|
||||
619
SDL/Classes/cEABeleg.vb
Normal file
619
SDL/Classes/cEABeleg.vb
Normal file
@@ -0,0 +1,619 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class EABelegPositionen
|
||||
Dim SQL As New SQL
|
||||
Property Mandant As String = "XXXX"
|
||||
Property Niederlassung As String = "XXX"
|
||||
Property Benutzer As Integer = -1
|
||||
Property BelegDat As DateTime = Now
|
||||
Property BelegNr As Integer = -1
|
||||
Property PreislistenPos As Integer = -1
|
||||
Property LeistungsNr As Integer = -1
|
||||
Property LeistungsBez As String = ""
|
||||
Property Leistungsbeschreibung As String = ""
|
||||
Property Abfertigungsart As Object = Nothing 'int
|
||||
Property PreislistenNr As Object = Nothing 'int
|
||||
Property PreistabellenNr As Object = Nothing 'int
|
||||
Property Preis As Double = 0
|
||||
Property TW1 As String = Nothing
|
||||
Property TW2 As String = Nothing
|
||||
Property Anzahl As Integer = 1
|
||||
Property Anzahlmultiplikator As Integer = 0
|
||||
Property Betrag As Double = 0
|
||||
Property Preisbindung As Integer = 0
|
||||
Property EABPo_Zeitstempel As DateTime = Now
|
||||
|
||||
Property FilialenNr As Integer = -1
|
||||
Property AbfertigungsNr As Integer = -1
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEABelegposition WITH(updlock,serializable) WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat AND PreislistenPos=@PreislistenPos AND LeistungsNr=@LeistungsNr AND FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD(Mandant As String, Niederlassung As String, Benutzer As Integer, BelegNr As Integer, BelegDat As Date, PreislistenPos As Integer, LeistungsNr As Integer) ' As EABeleg
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblEABelegposition] WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat AND PreislistenPos=@PreislistenPos AND LeistungsNr=@LeistungsNr AND FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr", conn)
|
||||
cmd.Parameters.AddWithValue("@Mandant", Mandant)
|
||||
cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
|
||||
cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
|
||||
cmd.Parameters.AddWithValue("@BelegNr", BelegNr)
|
||||
cmd.Parameters.AddWithValue("@BelegDat", BelegDat)
|
||||
cmd.Parameters.AddWithValue("@PreislistenPos", PreislistenPos)
|
||||
cmd.Parameters.AddWithValue("@LeistungsNr", LeistungsNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
|
||||
Me.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
|
||||
Me.Benutzer = cSqlDb.checkNullStr(dr.Item("Benutzer"))
|
||||
Me.BelegDat = cSqlDb.checkNullDate(dr.Item("BelegDat"))
|
||||
Me.BelegNr = cSqlDb.checkNullInteger(dr.Item("BelegNr"))
|
||||
|
||||
Me.PreislistenPos = cSqlDb.checkNullInteger(dr.Item("PreislistenPos"))
|
||||
Me.LeistungsNr = cSqlDb.checkNullInteger(dr.Item("LeistungsNr"))
|
||||
Me.LeistungsBez = cSqlDb.checkNullStr(dr.Item("LeistungsBez"))
|
||||
Me.Leistungsbeschreibung = cSqlDb.checkNullStr(dr.Item("Leistungsbeschreibung"))
|
||||
Me.Abfertigungsart = cSqlDb.checkNullInteger(dr.Item("Abfertigungsart"))
|
||||
Me.PreislistenNr = cSqlDb.checkNullInteger(dr.Item("PreislistenNr"))
|
||||
Me.PreistabellenNr = cSqlDb.checkNullInteger(dr.Item("PreistabellenNr"))
|
||||
Me.Preis = cSqlDb.checkNulDbl(dr.Item("Preis"))
|
||||
Me.TW1 = cSqlDb.checkNullStr(dr.Item("TW1"))
|
||||
Me.TW2 = cSqlDb.checkNullStr(dr.Item("TW2"))
|
||||
Me.Anzahl = cSqlDb.checkNullInteger(dr.Item("Anzahl"))
|
||||
Me.Anzahlmultiplikator = cSqlDb.checkNullStr(dr.Item("Anzahlmultiplikator"))
|
||||
Me.Betrag = cSqlDb.checkNulDbl(dr.Item("Betrag"))
|
||||
' MsgBox(cSqlDb.checkNulDbl(dr.Item("Betrag"))
|
||||
|
||||
Me.Preisbindung = cSqlDb.checkNullBool(dr.Item("Preisbindung"))
|
||||
Me.EABPo_Zeitstempel = cSqlDb.checkNullStr(dr.Item("EABPo_Zeitstempel"))
|
||||
|
||||
Me.FilialenNr = cSqlDb.checkNullInteger(dr.Item("FilialenNr"))
|
||||
Me.AbfertigungsNr = cSqlDb.checkNullInteger(dr.Item("AbfertigungsNr"))
|
||||
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer", Benutzer))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegDat", BelegDat.ToString("yyyy-MM-dd HH:mm:ss.fff"))) '.ToShortDateString))'("dd.MM.yyyy HH:mm")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegDat", BelegDat.ToShortDateString)) '.ToShortDateString))'("dd.MM.yyyy HH:mm")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegNr", BelegNr))
|
||||
|
||||
|
||||
' MsgBox(Mandant)
|
||||
' MsgBox(Niederlassung)
|
||||
' MsgBox(Benutzer)
|
||||
'MsgBox(BelegDat)
|
||||
' MsgBox(BelegNr)
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("PreislistenPos", PreislistenPos))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LeistungsNr", LeistungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LeistungsBez", LeistungsBez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Leistungsbeschreibung", Leistungsbeschreibung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Abfertigungsart", Abfertigungsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("PreislistenNr", PreislistenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("PreistabellenNr", PreistabellenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Preis", Preis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("TW1", TW1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("TW2", TW2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Anzahl", Anzahl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Anzahlmultiplikator", Anzahlmultiplikator))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Betrag", Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Preisbindung", Preisbindung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("AbfertigungsNr", AbfertigungsNr))
|
||||
|
||||
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EABPo_Zeitstempel", EABPo_Zeitstempel))
|
||||
'For Each p As System.Reflection.PropertyInfo In Me.GetType().GetProperties()
|
||||
'If p.CanRead Then
|
||||
'Dim name = p.Name
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2(name, p.GetValue(Me, Nothing)))
|
||||
' End If
|
||||
' Next
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblEABelegposition SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat AND PreislistenPos=@PreislistenPos AND LeistungsNr=@LeistungsNr AND FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblEABelegposition (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function UPDATE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Dim sqlstr = (" UPDATE tblEABelegposition SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat AND PreislistenPos=@PreislistenPos AND LeistungsNr=@LeistungsNr AND FilialenNr=@FilialenNr AND AbfertigungsNr=@AbfertigungsNr")
|
||||
|
||||
Using cmd As New SqlCommand(sqlstr, cSqlDb.GetNewOpenConnectionFMZOLL())
|
||||
For Each i In list
|
||||
cmd.Parameters.AddWithValue("@" & i.Text.Replace("-", "").Replace(" ", "") & "", IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
Next
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function INSERT() 'obj As Object, tablename As String, Optional conn_art As String = "SDL") As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Dim sqlstr = (" INSERT INTO tblEABelegposition (" & str & ") VALUES(" & values & ") ")
|
||||
MsgBox(sqlstr)
|
||||
Using cmd As New SqlCommand(sqlstr, cSqlDb.GetNewOpenConnectionFMZOLL())
|
||||
For Each i In list
|
||||
cmd.Parameters.AddWithValue("@" & i.Text.Replace("-", "").Replace(" ", "") & "", IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
Next
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class EABeleg
|
||||
Dim SQL As New SQL
|
||||
|
||||
Property Mandant As String = "XXXX"
|
||||
Property Niederlassung As String = "XXX"
|
||||
Property Benutzer As Integer = -1
|
||||
Property BelegDat As DateTime = Now
|
||||
Property BelegNr As Integer = -1
|
||||
Property Belegart As Integer = 1
|
||||
Property FilialenNr As Integer = -1
|
||||
Property AbfertigungsNr As Integer = -1
|
||||
Property Ordnungsbegriff As String = ""
|
||||
Property KundenNr As Integer = -1
|
||||
Property Name1 As String = ""
|
||||
Property Name2 As String = ""
|
||||
Property Straße As String = ""
|
||||
Property LandKz As String = ""
|
||||
Property PLZ As String = ""
|
||||
Property Ort As String = ""
|
||||
Property UstIdKz As String = ""
|
||||
Property UstIdNr As String = ""
|
||||
Property Frachtführer As String = ""
|
||||
Property FrachtführerKundenNr As Integer = -1
|
||||
Property LKW_Kennzeichen As String = ""
|
||||
Property Fahrer As String = ""
|
||||
Property Passnummer As String = ""
|
||||
Property PreislistenNr As String = ""
|
||||
Property Steuerschlüssel As String = ""
|
||||
Property DruckDatumUhrzeit As Object = Nothing
|
||||
Property storniert As Boolean = False
|
||||
Property Stornogrund As String = ""
|
||||
Property gebucht As Boolean = False
|
||||
Property gebuchtStorno As Boolean = False
|
||||
Property SgutKompl As Object = Nothing
|
||||
Property rksv_id As Integer = Nothing
|
||||
Property rksv_BelegId As Integer = Nothing
|
||||
Property rksv_jws As String = Nothing
|
||||
Property rksv_qr As String = Nothing
|
||||
Property rksv_umsatz As Double = Nothing
|
||||
Property rksv_aktiv As Boolean = False
|
||||
Property Beleg_TYP As String = Nothing
|
||||
Property Auftraggeber_KdAuftragsnummer As Object = Nothing
|
||||
Property Auftraggeber_Provision As Object = Nothing
|
||||
|
||||
Property LKW_Id As Object = Nothing
|
||||
Property LKW_Beleg As Object = Nothing
|
||||
Property Benutzer_LG As Object = Nothing
|
||||
|
||||
|
||||
Property POS As New List(Of EABelegPositionen)
|
||||
|
||||
Public Sub New(Mandant As String, Niederlassung As String, Benutzer As Integer)
|
||||
Me.Mandant = Mandant
|
||||
Me.Niederlassung = Niederlassung
|
||||
Me.Benutzer = Benutzer
|
||||
End Sub
|
||||
|
||||
Public Sub New(op As String, Mandant As String, Niederlassung As String, Benutzer As Integer, BelegNr As Integer, BelegDat As Date)
|
||||
Select Case op
|
||||
Case "LOAD" : LOAD(Mandant, Niederlassung, Benutzer, BelegNr, BelegDat)
|
||||
Case "INSERT"
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD(Mandant As String, Niederlassung As String, Benutzer As Integer, BelegNr As Integer, BelegDat As Date, Optional loadPosAswell As Boolean = True) ' As EABeleg
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblEABelegnummer] WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat", conn)
|
||||
cmd.Parameters.AddWithValue("@Mandant", Mandant)
|
||||
cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
|
||||
cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
|
||||
cmd.Parameters.AddWithValue("@BelegNr", BelegNr)
|
||||
cmd.Parameters.AddWithValue("@BelegDat", BelegDat.ToShortDateString)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
|
||||
Me.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
|
||||
Me.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
|
||||
Me.Benutzer = cSqlDb.checkNullInteger(dr.Item("Benutzer"))
|
||||
Me.BelegDat = cSqlDb.checkNullDate(dr.Item("BelegDat"))
|
||||
Me.BelegNr = cSqlDb.checkNullInteger(dr.Item("BelegNr"))
|
||||
Me.Belegart = cSqlDb.checkNullInteger(dr.Item("Belegart"))
|
||||
Me.FilialenNr = cSqlDb.checkNullInteger(dr.Item("FilialenNr"))
|
||||
Me.AbfertigungsNr = cSqlDb.checkNullInteger(dr.Item("AbfertigungsNr"))
|
||||
Me.Ordnungsbegriff = cSqlDb.checkNullStr(dr.Item("Ordnungsbegriff"))
|
||||
Me.KundenNr = cSqlDb.checkNullInteger(dr.Item("KundenNr"))
|
||||
Me.Name1 = cSqlDb.checkNullStr(dr.Item("Name1"))
|
||||
Me.Name2 = cSqlDb.checkNullStr(dr.Item("Name2"))
|
||||
Me.Straße = cSqlDb.checkNullStr(dr.Item("Straße"))
|
||||
Me.LandKz = cSqlDb.checkNullStr(dr.Item("LandKz"))
|
||||
Me.PLZ = cSqlDb.checkNullStr(dr.Item("PLZ"))
|
||||
Me.Ort = cSqlDb.checkNullStr(dr.Item("Ort"))
|
||||
Me.UstIdKz = cSqlDb.checkNullStr(dr.Item("UstIdKz"))
|
||||
Me.UstIdNr = cSqlDb.checkNullStr(dr.Item("UstIdNr"))
|
||||
Me.Frachtführer = cSqlDb.checkNullStr(dr.Item("Frachtführer"))
|
||||
Me.FrachtführerKundenNr = cSqlDb.checkNullInteger(dr.Item("FrachtführerKundenNr"))
|
||||
Me.LKW_Kennzeichen = cSqlDb.checkNullStr(dr.Item("LKW Kennzeichen"))
|
||||
Me.Fahrer = cSqlDb.checkNullStr(dr.Item("Fahrer"))
|
||||
Me.Passnummer = cSqlDb.checkNullStr(dr.Item("Passnummer"))
|
||||
Me.PreislistenNr = cSqlDb.checkNullInteger(dr.Item("PreislistenNr"))
|
||||
Me.Steuerschlüssel = cSqlDb.checkNullInteger(dr.Item("Steuerschlüssel"))
|
||||
Me.DruckDatumUhrzeit = cSqlDb.checkNullDateNothing(dr.Item("DruckDatumUhrzeit"))
|
||||
Me.storniert = cSqlDb.checkNullStr(dr.Item("storniert"))
|
||||
Me.Stornogrund = cSqlDb.checkNullStr(dr.Item("Stornogrund"))
|
||||
Me.gebucht = cSqlDb.checkNullBool(dr.Item("gebucht"))
|
||||
Me.gebuchtStorno = cSqlDb.checkNullBool(dr.Item("gebuchtStorno"))
|
||||
Me.SgutKompl = cSqlDb.checkNullReturnValue(dr.Item("SgutKompl"), Nothing)
|
||||
Me.rksv_BelegId = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegId"), Nothing)
|
||||
Me.rksv_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_id"), Nothing)
|
||||
|
||||
Me.rksv_jws = cSqlDb.checkNullReturnValue(dr.Item("rksv_jws"), Nothing)
|
||||
Me.rksv_qr = cSqlDb.checkNullReturnValue(dr.Item("rksv_qr"), Nothing)
|
||||
Me.rksv_umsatz = cSqlDb.checkNullReturnValue(dr.Item("rksv_umsatz"), Nothing)
|
||||
Me.rksv_aktiv = cSqlDb.checkNullReturnValue(dr.Item("rksv_aktiv"), False)
|
||||
Me.Beleg_TYP = cSqlDb.checkNullReturnValue(dr.Item("Beleg_TYP"), Nothing)
|
||||
|
||||
Me.Auftraggeber_KdAuftragsnummer = cSqlDb.checkNullReturnValue(dr.Item("Auftraggeber_KdAuftragsnummer"), Nothing)
|
||||
Me.Auftraggeber_Provision = cSqlDb.checkNullReturnValue(dr.Item("Auftraggeber_Provision"), Nothing)
|
||||
Me.LKW_Id = cSqlDb.checkNullReturnValue(dr.Item("LKW_Id"), Nothing)
|
||||
Me.LKW_Beleg = cSqlDb.checkNullReturnValue(dr.Item("LKW_Beleg"), Nothing)
|
||||
Me.Benutzer_LG = cSqlDb.checkNullReturnValue(dr.Item("Benutzer_LG"), Nothing)
|
||||
|
||||
If loadPosAswell Then POS = LOAD_POS_List(Mandant, Niederlassung, Benutzer, BelegNr, BelegDat)
|
||||
' MsgBox(POS.Count)
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function LOAD_POS_List(Mandant As String, Niederlassung As String, Benutzer As Integer, BelegNr As Integer, BelegDat As Date) As List(Of EABelegPositionen)
|
||||
Dim ll As New List(Of EABelegPositionen)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM [tblEABelegposition] WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ", conn)
|
||||
cmd.Parameters.AddWithValue("@Mandant", Mandant)
|
||||
cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
|
||||
cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
|
||||
cmd.Parameters.AddWithValue("@BelegNr", BelegNr)
|
||||
cmd.Parameters.AddWithValue("@BelegDat", BelegDat.ToShortDateString)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New EABelegPositionen
|
||||
l.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
|
||||
l.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
|
||||
l.Benutzer = cSqlDb.checkNullStr(dr.Item("Benutzer"))
|
||||
l.BelegDat = cSqlDb.checkNullDate(dr.Item("BelegDat"))
|
||||
l.BelegNr = cSqlDb.checkNullStr(dr.Item("BelegNr"))
|
||||
|
||||
l.PreislistenPos = cSqlDb.checkNullInteger(dr.Item("PreislistenPos"))
|
||||
l.LeistungsNr = cSqlDb.checkNullInteger(dr.Item("LeistungsNr"))
|
||||
l.LeistungsBez = cSqlDb.checkNullStr(dr.Item("LeistungsBez"))
|
||||
l.Leistungsbeschreibung = cSqlDb.checkNullStr(dr.Item("Leistungsbeschreibung"))
|
||||
l.Abfertigungsart = cSqlDb.checkNullInteger(dr.Item("Abfertigungsart"))
|
||||
l.PreislistenNr = cSqlDb.checkNullInteger(dr.Item("PreislistenNr"))
|
||||
l.PreistabellenNr = cSqlDb.checkNullInteger(dr.Item("PreistabellenNr"))
|
||||
l.Preis = cSqlDb.checkNulDbl(dr.Item("Preis"))
|
||||
l.TW1 = cSqlDb.checkNullStr(dr.Item("TW1"))
|
||||
l.TW2 = cSqlDb.checkNullStr(dr.Item("TW2"))
|
||||
l.Anzahl = cSqlDb.checkNullInteger(dr.Item("Anzahl"))
|
||||
l.Anzahlmultiplikator = cSqlDb.checkNullStr(dr.Item("Anzahlmultiplikator"))
|
||||
l.Betrag = cSqlDb.checkNulDbl(dr.Item("Betrag"))
|
||||
l.Preisbindung = cSqlDb.checkNullBool(dr.Item("Preisbindung"))
|
||||
l.EABPo_Zeitstempel = cSqlDb.checkNullStr(dr.Item("EABPo_Zeitstempel"))
|
||||
l.AbfertigungsNr = cSqlDb.checkNullInteger(dr.Item("AbfertigungsNr"))
|
||||
l.FilialenNr = cSqlDb.checkNullInteger(dr.Item("FilialenNr"))
|
||||
ll.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ll
|
||||
End Function
|
||||
|
||||
Public Function SAVE(Optional savePOSaswell As Boolean = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list = getParameterList()
|
||||
If Me.BelegNr < 0 Then
|
||||
Me.BelegNr = SQL.getValueTxtBySql("SELECT isNull(MAX(BelegNr)+1,1) as BelegNr FROM tblEABelegnummer WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer ", "FMZOLL", list)
|
||||
For Each p In Me.POS : p.BelegNr = BelegNr : Next ' Alle POS durchlaufen, BelgNr ersetzen
|
||||
list = getParameterList() 'BelegNr neu laden
|
||||
End If
|
||||
|
||||
SQL.doSQL(" BEGIN TRAN IF EXISTS(SELECT * FROM tblEABelegnummer WITH(updlock,serializable) WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" ELSE " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" COMMIT TRAN", "FMZOLL", , list)
|
||||
' MsgBox(POS.Count)
|
||||
If savePOSaswell Then SAVE_POS_List()
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function SAVE_POS_List() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If POS.Count = 0 Then Return True
|
||||
Dim b As Boolean = True
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
SQL.doSQL(" DELETE FROM tblEABelegposition WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ", "FMZOLL", , list)
|
||||
|
||||
For Each p In POS
|
||||
If p.SAVE() = False Then b = False
|
||||
Next
|
||||
Return b
|
||||
End Function
|
||||
|
||||
Public Function DEL_POS_List() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If POS.Count = 0 Then Return True
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Return SQL.doSQL(" DELETE FROM tblEABelegposition WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ", "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
DEL_POS_List()
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Return SQL.doSQL(" DELETE FROM tblEABelegnummer WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ", "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String 'obj As Object, tablename As String, Optional conn_art As String = "SDL") As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
Dim name = i.Text
|
||||
If name = "LKWKennzeichen" Then name = "LKW Kennzeichen"
|
||||
str &= "[" & name & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblEABelegnummer (" & str & ") VALUES(" & values & ") ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer", Benutzer))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegDat", BelegDat.ToString("yyyy-MM-dd HH:mm:ss.fff"))) '.ToString("dd.MM.yyyy HH:mm")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegDat", BelegDat.ToShortDateString)) '.ToString("dd.MM.yyyy HH:mm")))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Belegart", Belegart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Ordnungsbegriff", Ordnungsbegriff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Name1", Name1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Name2", Name2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Straße", Straße))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LandKz", LandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("PLZ", PLZ))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Ort", Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("UstIdKz", UstIdKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("UstIdNr", UstIdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Frachtführer", Frachtführer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("FrachtführerKundenNr", FrachtführerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LKWKennzeichen", LKW_Kennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Fahrer", Fahrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Passnummer", Passnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("PreislistenNr", PreislistenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Steuerschlüssel", Steuerschlüssel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("DruckDatumUhrzeit", IIf(DruckDatumUhrzeit Is Nothing, DBNull.Value, CDate(DruckDatumUhrzeit))))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("storniert", storniert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Stornogrund", Stornogrund))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("gebucht", gebucht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("gebuchtStorno", gebuchtStorno))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("SgutKompl", SgutKompl))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_id", rksv_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_BelegId", rksv_BelegId))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_jws", rksv_jws))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_qr", rksv_qr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_umsatz", rksv_umsatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_aktiv", rksv_aktiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Beleg_TYP", Beleg_TYP))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Auftraggeber_KdAuftragsnummer", Auftraggeber_KdAuftragsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Auftraggeber_Provision", Auftraggeber_Provision))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LKW_Id", LKW_Id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LKW_Beleg", LKW_Beleg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer_LG", Benutzer_LG))
|
||||
|
||||
'For Each p As System.Reflection.PropertyInfo In Me.GetType().GetProperties()
|
||||
'If p.CanRead Then
|
||||
'Dim name = p.Name
|
||||
' If name = "LKW_Kennzeichen" Then name = "LKW Kennzeichen"
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2(name, p.GetValue(Me, Nothing)))
|
||||
' End If
|
||||
' Next
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
Dim name = i.Text
|
||||
If name = "LKWKennzeichen" Then name = "LKW Kennzeichen"
|
||||
str &= "[" & name & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE tblEABelegnummer SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function INSERT() 'obj As Object, tablename As String, Optional conn_art As String = "SDL") As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
Dim name = i.Text
|
||||
If name = "LKWKennzeichen" Then name = "LKW Kennzeichen"
|
||||
str &= "[" & name & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Dim sqlstr = (" INSERT INTO tblEABelegnummer (" & str & ") VALUES(" & values & ") ")
|
||||
|
||||
Using cmd As New SqlCommand(sqlstr, cSqlDb.GetNewOpenConnectionFMZOLL())
|
||||
For Each i In list
|
||||
cmd.Parameters.AddWithValue("@" & i.Text.Replace("-", "").Replace(" ", "") & "", IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
Next
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function UPDATE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
Dim name = i.Text
|
||||
If name = "LKWKennzeichen" Then name = "LKW Kennzeichen"
|
||||
str &= "[" & name & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Dim sqlstr = (" UPDATE tblEABelegnummer SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND BelegNr=@BelegNr AND CAST(BelegDat as date)=@BelegDat ")
|
||||
|
||||
Using cmd As New SqlCommand(sqlstr, cSqlDb.GetNewOpenConnectionFMZOLL())
|
||||
For Each i In list
|
||||
cmd.Parameters.AddWithValue("@" & i.Text.Replace("-", "").Replace(" ", "") & "", IIf(i.Value Is Nothing, DBNull.Value, i.Value))
|
||||
Next
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
138
SDL/Classes/cEP0735_Versand.vb
Normal file
138
SDL/Classes/cEP0735_Versand.vb
Normal file
@@ -0,0 +1,138 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cEP0735_Versand
|
||||
Property ID As Integer
|
||||
Property TicketNr As Object = Nothing
|
||||
Property ANMELDUNG1 As Object = Nothing
|
||||
Property ANMELDUNG2 As Object = Nothing
|
||||
Property VersenderAusführerNr As Object = Nothing
|
||||
Property VersenderAusführer As Object = Nothing
|
||||
Property Vordrucke1 As Object = Nothing
|
||||
Property Vordrucke2 As Object = Nothing
|
||||
Property Positionen As Object = Nothing
|
||||
Property PackstückeInsgesamt As Object = Nothing
|
||||
Property EmpfängerNr As Object = Nothing
|
||||
Property Empfänger As Object = Nothing
|
||||
Property Handelsland As Object = Nothing
|
||||
Property AnmelderVertreterNr As Object = Nothing
|
||||
Property Anmelder As Object = Nothing
|
||||
Property Vertreter As Object = Nothing
|
||||
Property VersendungsAusfuhrland As Object = Nothing
|
||||
Property VersendungsAusfuhrlandCode As Object = Nothing
|
||||
Property Ursprungsland As Object = Nothing
|
||||
Property BestimmungslandCodeA As Object = Nothing
|
||||
Property BestimmungslandCodeB As Object = Nothing
|
||||
Property KennzeichenAbgang As Object = Nothing
|
||||
Property StaatszugehörigkeitAbgang As Object = Nothing
|
||||
Property Container As Object = Nothing
|
||||
Property LieferbedingungCode As Object = Nothing
|
||||
Property Lieferbedingung As Object = Nothing
|
||||
Property KennzeichenGrenze As Object = Nothing
|
||||
Property StaatszugehörigkeitGrenze As Object = Nothing
|
||||
Property Ladeort As Object = Nothing
|
||||
Property Währung As Object = Nothing
|
||||
Property Rechnungsbetrag As Object = Nothing
|
||||
Property Umrechnungskurs As Object = Nothing
|
||||
Property Geschäftsart As Object = Nothing
|
||||
Property VerkehrszweigGrenze As Object = Nothing
|
||||
Property InländischerVerkehrszweig As Object = Nothing
|
||||
Property Entladeort As Object = Nothing
|
||||
Property Eingangszollstelle As Object = Nothing
|
||||
Property Warenort As Object = Nothing
|
||||
Property Packstücke As Object = Nothing
|
||||
Property Warenbezeichnung As Object = Nothing
|
||||
Property PositionsNr As Object = Nothing
|
||||
Property Warennummer1 As Object = Nothing
|
||||
Property Warennummer2 As Object = Nothing
|
||||
Property Warennummer3 As Object = Nothing
|
||||
Property Warennummer4 As Object = Nothing
|
||||
Property Warennummer5 As Object = Nothing
|
||||
Property UrsprungslandCode As Object = Nothing
|
||||
Property Rohmasse As Object = Nothing
|
||||
Property Präferenz As Object = Nothing
|
||||
Property Verfahren As Object = Nothing
|
||||
Property Eigenmasse As Object = Nothing
|
||||
Property Kontingent As Object = Nothing
|
||||
Property SumAnmeldungVorpapier As Object = Nothing
|
||||
Property BesondereMasseinheit As Object = Nothing
|
||||
Property Vorsteuerabzug As Object = Nothing
|
||||
Property BesondereVermerke As Object = Nothing
|
||||
Property BesondereVermerkeZeile1 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag1 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis1 As Object = Nothing
|
||||
Property BesondereVermerkeZeile2 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag2 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis2 As Object = Nothing
|
||||
Property BesondereVermerkeZeile3 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag3 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis3 As Object = Nothing
|
||||
Property StatistischerWert As Object = Nothing
|
||||
Property Summe As Object = Nothing
|
||||
Property Zahlungsaufschub As Object = Nothing
|
||||
Property Lagerbezeichnung As Object = Nothing
|
||||
Property AngabenFürVerbuchungszwecke As Object = Nothing
|
||||
Property Ort As Object = Nothing
|
||||
Property Datum As Object = Nothing
|
||||
Property Unterschrift As Object = Nothing
|
||||
Property ErstelltDatum As Object = Nothing
|
||||
Property ErstelltSachbearbeiter As Object = Nothing
|
||||
Property GeändertDatum As Object = Nothing
|
||||
Property GeändertSachbearbeiter As Object = Nothing
|
||||
Property GedrucktDatum As Object = Nothing
|
||||
Property GedrucktSachbearbeiter As Object = Nothing
|
||||
Property FilialenNr As Object = Nothing
|
||||
Property AbfertigungsNr As Object = Nothing
|
||||
Property UnterNr As Object = Nothing
|
||||
Property Formular As Object = Nothing
|
||||
Property Zulassungsinhaber As Object = Nothing
|
||||
Property Bewilligungsnummer As Object = Nothing
|
||||
Property Ordnungsnummer As Object = Nothing
|
||||
Property Rechnungspositionsbetrag As Object = Nothing
|
||||
Property ANMELDUNG3 As Object = Nothing
|
||||
Property Ladelisten As Object = Nothing
|
||||
Property Bestimmungsland As Object = Nothing
|
||||
Property Hauptverpflichteter As Object = Nothing
|
||||
Property HauptverpflichteterVertretenDurch As Object = Nothing
|
||||
Property HauptverpflichteterOrtDatum As Object = Nothing
|
||||
Property Durchgangszollstelle1 As Object = Nothing
|
||||
Property Durchgangszollstelle2 As Object = Nothing
|
||||
Property Durchgangszollstelle3 As Object = Nothing
|
||||
Property Durchgangszollstelle4 As Object = Nothing
|
||||
Property Durchgangszollstelle5 As Object = Nothing
|
||||
Property Durchgangszollstelle6 As Object = Nothing
|
||||
Property Sicherheit1 As Object = Nothing
|
||||
Property Sicherheit2 As Object = Nothing
|
||||
Property SicherheitCode As Object = Nothing
|
||||
Property Bestimmungsstelle As Object = Nothing
|
||||
Property HauptverpflichteterNr As Object = Nothing
|
||||
Property Skontobetrag As Object = Nothing
|
||||
Property Artikelpreis As Object = Nothing
|
||||
|
||||
Property POS As New List(Of cEP0735_Versand_Pos)
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cEP0735_Versand_Pos
|
||||
Property Packstücke As Object = Nothing
|
||||
Property Warenbezeichnung As Object = Nothing
|
||||
Property PositionsNr As Object = Nothing
|
||||
Property Warennummer1 As Object = Nothing
|
||||
Property Warennummer2 As Object = Nothing
|
||||
Property Warennummer3 As Object = Nothing
|
||||
Property Warennummer4 As Object = Nothing
|
||||
Property Warennummer5 As Object = Nothing
|
||||
Property UrsprungslandCode As Object = Nothing
|
||||
Property Rohmasse As Object = Nothing
|
||||
Property Präferenz As Object = Nothing
|
||||
Property Verfahren As Object = Nothing
|
||||
Property Eigenmasse As Object = Nothing
|
||||
Property Kontingent As Object = Nothing
|
||||
Property SumAnmeldungVorpapier As Object = Nothing
|
||||
Property BesondereMasseinheit As Object = Nothing
|
||||
Property Vorsteuerabzug As Object = Nothing
|
||||
Property BesondereVermerke As Object = Nothing
|
||||
|
||||
|
||||
End Class
|
||||
621
SDL/Classes/cEPBes.vb
Normal file
621
SDL/Classes/cEPBes.vb
Normal file
@@ -0,0 +1,621 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cEPBes
|
||||
Property ID As Integer
|
||||
Property ANMELDUNG1 As Object = Nothing
|
||||
Property ANMELDUNG2 As Object = Nothing
|
||||
Property VersenderAusführerNr As Object = Nothing
|
||||
Property VersenderAusführer As Object = Nothing
|
||||
Property Vordrucke1 As Object = Nothing
|
||||
Property Vordrucke2 As Object = Nothing
|
||||
Property Positionen As Object = Nothing
|
||||
Property EmpfängerNr As Object = Nothing
|
||||
Property Empfänger As Object = Nothing
|
||||
Property Handelsland As Object = Nothing
|
||||
Property AnmelderVertreterNr As Object = Nothing
|
||||
Property Anmelder As Object = Nothing
|
||||
Property Vertreter As Object = Nothing
|
||||
Property VersendungsAusfuhrland As Object = Nothing
|
||||
Property VersendungsAusfuhrlandCode As Object = Nothing
|
||||
Property Ursprungsland As Object = Nothing
|
||||
Property BestimmungslandCodeA As Object = Nothing
|
||||
Property BestimmungslandCodeB As Object = Nothing
|
||||
Property KennzeichenAnkunft As Object = Nothing
|
||||
Property StaatszugehörigkeitAnkunft As Object = Nothing
|
||||
Property Container As Object = Nothing
|
||||
Property LieferbedingungCode As Object = Nothing
|
||||
Property Lieferbedingung As Object = Nothing
|
||||
Property KennzeichenGrenze As Object = Nothing
|
||||
Property StaatszugehörigkeitGrenze As Object = Nothing
|
||||
Property Währung As Object = Nothing
|
||||
Property Rechnungsbetrag As Object = Nothing
|
||||
Property Umrechnungskurs As Object = Nothing
|
||||
Property Geschäftsart As Object = Nothing
|
||||
Property VerkehrszweigGrenze As Object = Nothing
|
||||
Property InländischerVerkehrszweig As Object = Nothing
|
||||
Property Entladeort As Object = Nothing
|
||||
Property Eingangszollstelle As Object = Nothing
|
||||
Property Warenort As Object = Nothing
|
||||
Property Packstücke As Object = Nothing
|
||||
Property Warenbezeichnung As Object = Nothing
|
||||
Property PositionsNr As Object = Nothing
|
||||
Property Warennummer1 As Object = Nothing
|
||||
Property Warennummer2 As Object = Nothing
|
||||
Property Warennummer3 As Object = Nothing
|
||||
Property Warennummer4 As Object = Nothing
|
||||
Property Warennummer5 As Object = Nothing
|
||||
Property UrsprungslandCode As Object = Nothing
|
||||
Property Rohmasse As Object = Nothing
|
||||
Property Präferenz As Object = Nothing
|
||||
Property Verfahren As Object = Nothing
|
||||
Property Eigenmasse As Object = Nothing
|
||||
Property Kontingent As Object = Nothing
|
||||
Property SumAnmeldungVorpapier As Object = Nothing
|
||||
Property BesondereMasseinheit As Object = Nothing
|
||||
Property Vorsteuerabzug As Object = Nothing
|
||||
Property BesondereVermerke As Object = Nothing
|
||||
Property BesondereVermerkeZeile1 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag1 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis1 As Object = Nothing
|
||||
Property BesondereVermerkeZeile2 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag2 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis2 As Object = Nothing
|
||||
Property BesondereVermerkeZeile3 As Object = Nothing
|
||||
Property BesondereVermerkeBetrag3 As Object = Nothing
|
||||
Property BesondereVermerkeHinweis3 As Object = Nothing
|
||||
Property StatistischerWert As Object = Nothing
|
||||
Property Summe As Object = Nothing
|
||||
Property Zahlungsaufschub As Object = Nothing
|
||||
Property Lagerbezeichnung As Object = Nothing
|
||||
Property AngabenFürVerbuchungszwecke As Object = Nothing
|
||||
Property Ort As Object = Nothing
|
||||
Property Datum As Object = Nothing
|
||||
Property Unterschrift As Object = Nothing
|
||||
Property ErstelltDatum As Object = Nothing
|
||||
Property ErstelltSachbearbeiter As Object = Nothing
|
||||
Property GeändertDatum As Object = Nothing
|
||||
Property GeändertSachbearbeiter As Object = Nothing
|
||||
Property GedrucktDatum As Object = Nothing
|
||||
Property GedrucktSachbearbeiter As Object = Nothing
|
||||
Property FilialenNr As Object = Nothing
|
||||
Property AbfertigungsNr As Object = Nothing
|
||||
Property UnterNr As Object = Nothing
|
||||
Property Formular As Object = Nothing
|
||||
Property Zulassungsinhaber As Object = Nothing
|
||||
Property Bewilligungsnummer As Object = Nothing
|
||||
Property Ordnungsnummer As Object = Nothing
|
||||
Property Rechnungspositionsbetrag As Object = Nothing
|
||||
Property ANMELDUNG3 As Object = Nothing
|
||||
Property Ladelisten As Object = Nothing
|
||||
Property Bestimmungsland As Object = Nothing
|
||||
Property Hauptverpflichteter As Object = Nothing
|
||||
Property HauptverpflichteterVertretenDurch As Object = Nothing
|
||||
Property HauptverpflichteterOrtDatum As Object = Nothing
|
||||
Property Durchgangszollstelle1 As Object = Nothing
|
||||
Property Durchgangszollstelle2 As Object = Nothing
|
||||
Property Durchgangszollstelle3 As Object = Nothing
|
||||
Property Durchgangszollstelle4 As Object = Nothing
|
||||
Property Durchgangszollstelle5 As Object = Nothing
|
||||
Property Durchgangszollstelle6 As Object = Nothing
|
||||
Property Sicherheit As Object = Nothing
|
||||
Property SicherheitCode As Object = Nothing
|
||||
Property Bestimmungsstelle As Object = Nothing
|
||||
Property HauptverpflichteterNr As Object = Nothing
|
||||
Property Skontobetrag As Object = Nothing
|
||||
Property Artikelpreis As Object = Nothing
|
||||
Property Bemessungsgrundlage As Object = Nothing
|
||||
|
||||
|
||||
Property POS As New List(Of cEPBesPos)
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(ID As Integer)
|
||||
Me.ID = ID
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
|
||||
Function getMaxId() As Integer
|
||||
ID = SQL.getValueTxtBySql("SELECT ISNULL(MAX(ID),0)+1 FROM EPBes", "FMZOLL")
|
||||
Return ID
|
||||
End Function
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ID", ID)) ', , True)) ' nicht Primary, weil ID nicht Auto vergeben wird
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ANMELDUNG1", ANMELDUNG1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ANMELDUNG2", ANMELDUNG2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VersenderAusführerNr", VersenderAusführerNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VersenderAusführer", VersenderAusführer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vordrucke1", Vordrucke1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vordrucke2", Vordrucke2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Positionen", Positionen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerNr", EmpfängerNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger", Empfänger))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Handelsland", Handelsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnmelderVertreterNr", AnmelderVertreterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmelder", Anmelder))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vertreter", Vertreter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VersendungsAusfuhrland", VersendungsAusfuhrland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VersendungsAusfuhrlandCode", VersendungsAusfuhrlandCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ursprungsland", Ursprungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BestimmungslandCodeA", BestimmungslandCodeA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BestimmungslandCodeB", BestimmungslandCodeB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennzeichenAnkunft", KennzeichenAnkunft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("StaatszugehörigkeitAnkunft", StaatszugehörigkeitAnkunft))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Container", Container))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LieferbedingungCode", LieferbedingungCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferbedingung", Lieferbedingung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennzeichenGrenze", KennzeichenGrenze))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("StaatszugehörigkeitGrenze", StaatszugehörigkeitGrenze))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währung", Währung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geschäftsart", Geschäftsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VerkehrszweigGrenze", VerkehrszweigGrenze))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("InländischerVerkehrszweig", InländischerVerkehrszweig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Entladeort", Entladeort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eingangszollstelle", Eingangszollstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warenort", Warenort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warenbezeichnung", Warenbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PositionsNr", PositionsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer1", Warennummer1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer2", Warennummer2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer3", Warennummer3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer4", Warennummer4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer5", Warennummer5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UrsprungslandCode", UrsprungslandCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Präferenz", Präferenz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verfahren", Verfahren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eigenmasse", Eigenmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontingent", Kontingent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SumAnmeldungVorpapier", SumAnmeldungVorpapier))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereMasseinheit", BesondereMasseinheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorsteuerabzug", Vorsteuerabzug))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerke", BesondereVermerke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeZeile1", BesondereVermerkeZeile1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeBetrag1", BesondereVermerkeBetrag1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeHinweis1", BesondereVermerkeHinweis1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeZeile2", BesondereVermerkeZeile2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeBetrag2", BesondereVermerkeBetrag2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeHinweis2", BesondereVermerkeHinweis2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeZeile3", BesondereVermerkeZeile3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeBetrag3", BesondereVermerkeBetrag3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerkeHinweis3", BesondereVermerkeHinweis3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("StatistischerWert", StatistischerWert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Summe", Summe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsaufschub", Zahlungsaufschub))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lagerbezeichnung", Lagerbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AngabenFürVerbuchungszwecke", AngabenFürVerbuchungszwecke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ort", Ort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Unterschrift", Unterschrift))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltDatum", ErstelltDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltSachbearbeiter", ErstelltSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GeändertDatum", GeändertDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GeändertSachbearbeiter", GeändertSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GedrucktDatum", GedrucktDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GedrucktSachbearbeiter", GedrucktSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Formular", Formular))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zulassungsinhaber", Zulassungsinhaber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bewilligungsnummer", Bewilligungsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ordnungsnummer", Ordnungsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungspositionsbetrag", Rechnungspositionsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ANMELDUNG3", ANMELDUNG3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ladelisten", Ladelisten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungsland", Bestimmungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hauptverpflichteter", Hauptverpflichteter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HauptverpflichteterVertretenDurch", HauptverpflichteterVertretenDurch))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HauptverpflichteterOrtDatum", HauptverpflichteterOrtDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle1", Durchgangszollstelle1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle2", Durchgangszollstelle2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle3", Durchgangszollstelle3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle4", Durchgangszollstelle4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle5", Durchgangszollstelle5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Durchgangszollstelle6", Durchgangszollstelle6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sicherheit", Sicherheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SicherheitCode", SicherheitCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungsstelle", Bestimmungsstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HauptverpflichteterNr", HauptverpflichteterNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Skontobetrag", Skontobetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Artikelpreis", Artikelpreis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemessungsgrundlage", Bemessungsgrundlage))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
POS.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM EPBes WHERE ID=@ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@ID", Me.ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each i In Me.getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
dr.Close()
|
||||
LOAD_LIST()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
Try
|
||||
POS.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM EPBesPOS WHERE EPBes_ID=@ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@ID", ID)
|
||||
' cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cEPBesPos
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
POS.Add(l)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM EPBes WITH(updlock,serializable) WHERE ID=@ID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
If SQL.doSQLVarList(sqlstr, "FMZOLL", , list) Then
|
||||
|
||||
DELETE_POS()
|
||||
For Each p In POS
|
||||
p.SAVE(ID)
|
||||
Next
|
||||
Return True
|
||||
End If
|
||||
|
||||
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [EPBes] WITH(updlock,serializable) WHERE ID=" & Me.ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE_POS() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [EPBesPOS] WITH(updlock,serializable) WHERE EPBes_ID=" & Me.ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO EPBes (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [EPBes] SET " & str & " WHERE ID=@ID ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cEPBesPos
|
||||
|
||||
|
||||
Property EPBes_ID As Integer
|
||||
|
||||
Property Packstücke As Object = Nothing
|
||||
Property Warenbezeichnung As Object = Nothing
|
||||
Property PositionsNr As Object = Nothing
|
||||
Property Warennummer1 As Object = Nothing
|
||||
Property Warennummer2 As Object = Nothing
|
||||
Property Warennummer3 As Object = Nothing
|
||||
Property Warennummer4 As Object = Nothing
|
||||
Property Warennummer5 As Object = Nothing
|
||||
Property UrsprungslandCode As Object = Nothing
|
||||
Property Rohmasse As Object = Nothing
|
||||
Property Präferenz As Object = Nothing
|
||||
Property Verfahren As Object = Nothing
|
||||
Property Eigenmasse As Object = Nothing
|
||||
Property Kontingent As Object = Nothing
|
||||
Property SumAnmeldungVorpapier As Object = Nothing
|
||||
Property BesondereMasseinheit As Object = Nothing
|
||||
Property Vorsteuerabzug As Object = Nothing
|
||||
Property Bemessungsgrundlage As Object = Nothing
|
||||
Property BesondereVermerke As Object = Nothing
|
||||
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EPBes_ID", EPBes_ID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warenbezeichnung", Warenbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PositionsNr", PositionsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer1", Warennummer1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer2", Warennummer2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer3", Warennummer3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer4", Warennummer4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warennummer5", Warennummer5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UrsprungslandCode", UrsprungslandCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Präferenz", Präferenz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verfahren", Verfahren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eigenmasse", Eigenmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontingent", Kontingent))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SumAnmeldungVorpapier", SumAnmeldungVorpapier))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereMasseinheit", BesondereMasseinheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorsteuerabzug", Vorsteuerabzug))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BesondereVermerke", BesondereVermerke))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(id) As Boolean
|
||||
Me.EPBes_ID = id
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Return SQL.doSQLVarList(getInsertCmd(), "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO EPBesPOS (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Class cBerechnungsbogen
|
||||
|
||||
Property ID As Object = Nothing
|
||||
Property ErstelltDatum As Object = Nothing
|
||||
Property ErstelltSachbearbeiter As Object = Nothing
|
||||
Property GeändertDatum As Object = Nothing
|
||||
Property GeändertSachbearbeiter As Object = Nothing
|
||||
Property GedrucktDatum As Object = Nothing
|
||||
Property GedrucktSachbearbeiter As Object = Nothing
|
||||
Property Index As Object = Nothing
|
||||
Property AbsenderKundenNr As Object = Nothing
|
||||
Property AbsenderAdresse As Object = Nothing
|
||||
Property AbsenderOffertenNr As Object = Nothing
|
||||
Property EmpfängerKundenNr As Object = Nothing
|
||||
Property EmpfängerAdresse As Object = Nothing
|
||||
Property EmpfängerOffertenNr As Object = Nothing
|
||||
Property VermittlerKundenNr As Object = Nothing
|
||||
Property VermittlerAdresse As Object = Nothing
|
||||
Property VermittlerOffertenNr As Object = Nothing
|
||||
Property Bemerkungen As Object = Nothing
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Sperre As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(ID As Integer)
|
||||
Me.ID = ID
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ID", ID)) ', , True)) ' nicht Primary, weil ID nicht Auto vergeben wird
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltDatum", ErstelltDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErstelltSachbearbeiter", ErstelltSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GeändertDatum", GeändertDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GeändertSachbearbeiter", GeändertSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GedrucktDatum", GedrucktDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GedrucktSachbearbeiter", GedrucktSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Index", Index))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", AbsenderKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderAdresse", AbsenderAdresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOffertenNr", AbsenderOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", EmpfängerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerAdresse", EmpfängerAdresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOffertenNr", EmpfängerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", VermittlerKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerAdresse", VermittlerAdresse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOffertenNr", VermittlerOffertenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkungen", Bemerkungen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sperre", Sperre))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Berechnungsbogen WHERE ID=@ID ", conn)
|
||||
cmd.Parameters.AddWithValue("@ID", Me.ID)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each i In Me.getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Berechnungsbogen WITH(updlock,serializable) WHERE ID=@ID) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [Berechnungsbogen] WITH(updlock,serializable) WHERE ID=" & Me.ID
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
|
||||
End Function
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Berechnungsbogen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Berechnungsbogen] SET " & str & " WHERE ID=@ID ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
114
SDL/Classes/cEmailBenachrichtigung.vb
Normal file
114
SDL/Classes/cEmailBenachrichtigung.vb
Normal file
@@ -0,0 +1,114 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cEmailBenachrichtigungList
|
||||
Property eb_KundenNr As Object = Nothing
|
||||
Property eb_ebartId As Object = Nothing
|
||||
Public LIST As New List(Of cEmailBenachrichtigung)
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(eb_KundenNr, eb_ebartId)
|
||||
Me.eb_KundenNr = eb_KundenNr
|
||||
Me.eb_ebartId = eb_ebartId
|
||||
LOAD(Me.eb_KundenNr, Me.eb_ebartId)
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
Public Sub ADD(eb_EMail As String, Optional cc As Boolean = False, Optional bcc As Boolean = False)
|
||||
Dim l As New cEmailBenachrichtigung
|
||||
l.eb_KundenNr = eb_KundenNr
|
||||
l.eb_ebartId = eb_ebartId
|
||||
l.eb_EMail = eb_EMail
|
||||
l.eb_cc = cc
|
||||
l.eb_bcc = bcc
|
||||
LIST.Add(l)
|
||||
End Sub
|
||||
Public Sub LOAD(eb_KundenNr, eb_ebartId)
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblEmailBenachrichtigung WHERE eb_KundenNr=@eb_KundenNr and eb_ebartId=@eb_ebartId ", conn)
|
||||
cmd.Parameters.AddWithValue("@eb_KundenNr", eb_KundenNr)
|
||||
cmd.Parameters.AddWithValue("@eb_ebartId", eb_ebartId)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cEmailBenachrichtigung
|
||||
l.eb_KundenNr = dr.Item("eb_KundenNr")
|
||||
l.eb_ebartId = dr.Item("eb_ebartId")
|
||||
l.eb_EMail = dr.Item("eb_EMail")
|
||||
l.eb_cc = dr.Item("eb_cc")
|
||||
l.eb_bcc = dr.Item("eb_bcc")
|
||||
LIST.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
Function SAVE()
|
||||
If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "FMZOLL") Then
|
||||
For Each l In LIST
|
||||
If Not l.INSERT() Then Return False
|
||||
Next
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
End Class
|
||||
Public Class cEmailBenachrichtigung
|
||||
Property eb_KundenNr As Object = Nothing
|
||||
Property eb_ebartId As Object = Nothing
|
||||
Property eb_EMail As Object = Nothing
|
||||
Property eb_cc As Boolean = False
|
||||
Property eb_bcc As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_KundenNr", eb_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_ebartId", eb_ebartId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_EMail", eb_EMail))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_cc", eb_cc))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eb_bcc", eb_bcc))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblEmailBenachrichtigung (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
End Class
|
||||
85
SDL/Classes/cFinanzOnlineWebService.vb
Normal file
85
SDL/Classes/cFinanzOnlineWebService.vb
Normal file
@@ -0,0 +1,85 @@
|
||||
Imports SDL.at.gv.bmf.finanzonlineLogin
|
||||
|
||||
|
||||
' Aufruf des Webservice von FinanzOnline zur prüfung der UID-Nummer
|
||||
' Aufgrund von verzögerten Bestätigungen wurd diese Funktion deaktiviert!!!
|
||||
|
||||
Public Class cFinanzOnlineWebService
|
||||
' Private tid As String = My.Resources.tid
|
||||
' Private benid As String = My.Resources.benid
|
||||
' Private pin As String = My.Resources.pin
|
||||
|
||||
Shared tid As String = "1000103u3032"
|
||||
Shared benid As String = "webserv99"
|
||||
Shared pin As String = "webserv99"
|
||||
|
||||
|
||||
Shared SESSION_ID As String = ""
|
||||
|
||||
Shared Function Call_Web_Service_MethodUID_Login() As Integer
|
||||
Dim CallWebService As New SDL.at.gv.bmf.finanzonlineLogin.sessionService
|
||||
Try
|
||||
Dim rc = ""
|
||||
Dim msg = ""
|
||||
SESSION_ID = CallWebService.login(tid, benid, pin, "ATU53187000", rc, msg)
|
||||
MsgBox("msg " & msg)
|
||||
MsgBox(SESSION_ID)
|
||||
Return rc
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return -99
|
||||
End Function
|
||||
|
||||
Shared Function Call_Web_Service_MethodUID_Abfrage(ByRef session As String, ByVal txtFirma As String, ByVal txtUid As String) As String
|
||||
Dim CallWebService As New SDL.at.gv.bmf.finanzonline.uidAbfrageService
|
||||
Try
|
||||
' Return CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "")
|
||||
'Dim s() As Object = CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "")
|
||||
|
||||
Dim msg As String
|
||||
Dim name As String
|
||||
Dim adrz1 As String
|
||||
Dim adrz2 As String
|
||||
Dim adrz3 As String
|
||||
Dim adrz4 As String
|
||||
Dim adrz5 As String
|
||||
Dim adrz6 As String
|
||||
|
||||
|
||||
Dim returnInt As Integer = CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid, at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item2, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
|
||||
|
||||
If returnInt = 0 Then
|
||||
Dim firma As String = name & vbNewLine & adrz1
|
||||
If adrz2 <> "" Then firma = firma & vbNewLine & adrz2
|
||||
If adrz3 <> "" Then firma = firma & vbNewLine & adrz3
|
||||
If adrz4 <> "" Then firma = firma & vbNewLine & adrz4
|
||||
If adrz5 <> "" Then firma = firma & vbNewLine & adrz5
|
||||
If adrz6 <> "" Then firma = firma & vbNewLine & adrz6
|
||||
|
||||
' frmUIDCheck.firmaUIDFinanzOnline = firma
|
||||
' frmUIDCheck.firmaUIDProgramm = txtFirma
|
||||
' frmUIDCheck.uidnr = txtUid
|
||||
' frmUIDCheck.Show()
|
||||
Else
|
||||
MsgBox(returnInt)
|
||||
End If
|
||||
Return returnInt
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return "-1"
|
||||
End Function
|
||||
Shared Function Call_Web_Service_MethodUID_Logout(ByRef sessionid As String) As String
|
||||
Dim CallWebService As New SDL.at.gv.bmf.finanzonlineLogin.sessionService
|
||||
Try
|
||||
Dim msg = ""
|
||||
Dim sGetValue As String = CallWebService.logout(tid, benid, sessionid, msg)
|
||||
Return sGetValue
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
115
SDL/Classes/cFiskal_Daten.vb
Normal file
115
SDL/Classes/cFiskal_Daten.vb
Normal file
@@ -0,0 +1,115 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cFiskal_Daten
|
||||
Property fisk_KundenNr As Integer
|
||||
Property fisk_schreibenFA As Boolean = False
|
||||
Property fisk_schreibenSB As Boolean = False
|
||||
Property fisk_schreibenCMR As Boolean = False
|
||||
Property fisk_schreibenFA_Adr As Object = Nothing
|
||||
Property fisk_schreibenSB_Adr As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(KundenNr)
|
||||
Me.fisk_KundenNr = KundenNr
|
||||
LOAD()
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_KundenNr", fisk_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenFA", fisk_schreibenFA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenSB", fisk_schreibenSB))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenCMR", fisk_schreibenCMR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenFA_Adr", fisk_schreibenFA_Adr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fisk_schreibenSB_Adr", fisk_schreibenSB_Adr))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblFiskal_Daten WITH(updlock,serializable) WHERE fisk_KundenNr=@fisk_KundenNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblFiskal_Daten WHERE fisk_KundenNr=@fisk_KundenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@fisk_KundenNr", fisk_KundenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblFiskal_Daten] SET " & str & " WHERE fisk_KundenNr=@fisk_KundenNr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblFiskal_Daten (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
234
SDL/Classes/cFormularVorlagen.vb
Normal file
234
SDL/Classes/cFormularVorlagen.vb
Normal file
@@ -0,0 +1,234 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cFormularVorlagen
|
||||
Property tblform_id As Integer
|
||||
Property tblform_KundenNr As Object = Nothing
|
||||
Property tblform_art As Object = Nothing
|
||||
Property tblform_begriff As Object = Nothing
|
||||
Property tblform_Sachbearbeiter As Object = Nothing
|
||||
Property tblform_letzeAenderung As Object = Nothing
|
||||
|
||||
Property VALUES As New List(Of cFormularVorlagenValues)
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(tblform_id)
|
||||
Me.tblform_id = tblform_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblform_id", tblform_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblform_KundenNr", tblform_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblform_art", tblform_art))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblform_begriff", tblform_begriff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblform_letzeAenderung", tblform_letzeAenderung))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblFormulareVorlagen WITH(updlock,serializable) WHERE tblform_id=@tblform_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Dim id = SQL.doSQLVarListID(tblform_id, sqlstr, "FMZOLL", , list)
|
||||
Me.tblform_id = id
|
||||
Return id > 0
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblFormulareVorlagen WHERE tblform_id=@tblform_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@tblform_id", tblform_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LOAD_VALUES()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Function LOADByBemerkung(tblform_art, tblform_begriff) As cFormularVorlagen
|
||||
Try
|
||||
Dim FORM As New cFormularVorlagen
|
||||
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblFormulareVorlagen WHERE tblform_art=@tblform_art and tblform_begriff=@tblform_begriff ", conn)
|
||||
cmd.Parameters.AddWithValue("@tblform_art", tblform_art)
|
||||
cmd.Parameters.AddWithValue("@tblform_begriff", tblform_begriff)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In FORM.getParameterList()
|
||||
Dim propInfo As PropertyInfo = FORM.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(FORM, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(FORM, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
FORM.LOAD_VALUES()
|
||||
dr.Close()
|
||||
Return FORM
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD_VALUES()
|
||||
Try
|
||||
VALUES.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblFormulareVorlagenValues WHERE tblfv_tblformId=@tblform_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@tblform_id", tblform_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim v As New cFormularVorlagenValues
|
||||
v.tblfv_tblformId = tblform_id
|
||||
v.tblfv_name = If(dr.Item("tblfv_name") Is DBNull.Value, Nothing, dr.Item("tblfv_name"))
|
||||
v.tblfv_wert = If(dr.Item("tblfv_wert") Is DBNull.Value, Nothing, dr.Item("tblfv_wert"))
|
||||
VALUES.Add(v)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function SAVE_VALUES() As Boolean
|
||||
If SQL.doSQL("DELETE FROM tblFormulareVorlagenValues WHERE tblfv_tblformId='" & tblform_id & "'", "FMZOLL") Then
|
||||
For Each v In VALUES
|
||||
If Not v.INSERT() Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function DELETE() As Boolean
|
||||
Return SQL.doSQL("DELETE FROM tblFormulareVorlagenValues WHERE tblfv_tblformId='" & tblform_id & "'; " &
|
||||
"DELETE FROM tblFormulareVorlagen WHERE tblform_id='" & tblform_id & "'; ", "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblFormulareVorlagen] SET " & str & " WHERE tblform_id=@tblform_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblFormulareVorlagen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cFormularVorlagenValues
|
||||
Property tblfv_tblformId As Integer
|
||||
Property tblfv_name As Object = Nothing
|
||||
Property tblfv_wert As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
Sub New(tblfv_tblformId, tblfv_name, tblfv_wert)
|
||||
Me.tblfv_tblformId = tblfv_tblformId
|
||||
Me.tblfv_name = tblfv_name
|
||||
Me.tblfv_wert = tblfv_wert
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblfv_tblformId", tblfv_tblformId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblfv_name", tblfv_name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblfv_wert", tblfv_wert))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return SQL.doSQLVarList(" INSERT INTO tblFormulareVorlagenValues (" & str & ") VALUES(" & values & ") ", "FMZOLL", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Class
|
||||
912
SDL/Classes/cGenWord.vb
Normal file
912
SDL/Classes/cGenWord.vb
Normal file
@@ -0,0 +1,912 @@
|
||||
Imports Microsoft.Office.Interop
|
||||
|
||||
Public Class cGenWord
|
||||
Dim SQL As New SQL
|
||||
Dim kundenSQL As New kundenSQL
|
||||
|
||||
Function openWord(pfadWord As String, visibleWord As Boolean, ByRef oWord As Microsoft.Office.Interop.Word.Application) As Microsoft.Office.Interop.Word.Document
|
||||
If Not My.Computer.FileSystem.DirectoryExists(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\Datentmp\") Then
|
||||
My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\Datentmp\")
|
||||
End If
|
||||
' Dim tmpPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\tmp\tmpWord_" & Now.ToString("yyyyMMdd_HHmmss") & ".doc"
|
||||
Dim tmpPath As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("tmpWord", ".docx", True, False)
|
||||
|
||||
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document
|
||||
Try
|
||||
oWord.Visible = visibleWord 'Word sehen zum Test?
|
||||
' MsgBox(pfadWord)
|
||||
odoc = oWord.Documents.Open(pfadWord)
|
||||
odoc.SaveAs(tmpPath)
|
||||
odoc.Activate()
|
||||
|
||||
' odoc.Save()
|
||||
|
||||
Return odoc
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getWordRetourniert_SI(kdNr As Integer, datum As Date, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
Dim pfadWord = ""
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck), oWord)
|
||||
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
odoc.FormFields("Anzahl").Range.Text = dt.Rows.Count
|
||||
odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then
|
||||
If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("SERIE-Nr"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(4).Range.Text = ""
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
odoc.Save()
|
||||
odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
|
||||
Public Function genUebernahmebestaetigung(dt As DataTable, kdNr As Integer, sachbearbeiter As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Uebernahmebestätigung\ÜBERNAHMEBESTÄTIGUNG.dotx"
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
Dim kfzTmp = ""
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" And r("KartenNr").ToString <> "" Then
|
||||
If cSqlDb.checkNullStr(r("KfzKennzeichen")) <> kfzTmp Then
|
||||
kfzTmp = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = kfzTmp
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = ""
|
||||
End If
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
' oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
|
||||
Sub print(odoc As Microsoft.Office.Interop.Word.Document, PrinterName As String)
|
||||
odoc.Application.WordBasic.FilePrintSetup(Printer:=PrinterName, DoNotSetAsSysDefault:=1)
|
||||
odoc.Application.PrintOut() ': odoc.Close()
|
||||
odoc.Application.Quit()
|
||||
End Sub
|
||||
|
||||
Public Function genAbholbereit(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & If(KUNDE.Name_2, "")
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
Dim kfzTmp = ""
|
||||
' MsgBox(dt.Rows.Count)
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Or r("KartenNr").ToString <> "" Then
|
||||
If cSqlDb.checkNullStr(r("KfzKennzeichen")) <> kfzTmp Then
|
||||
kfzTmp = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = kfzTmp
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = ""
|
||||
End If
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
' MsgBox(cSqlDb.checkNullStr(r("KarteBoxBezeichnung")))
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genAbholbereitHUGO(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_HUGO_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_HUGO_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_HUGO_RO.dotx"
|
||||
'Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
|
||||
Public Function genAbholbereitCZ(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
' odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
|
||||
Public Function genAbholbereitIDS(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, verlaengerung As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
If verlaengerung Then
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\IDS\Abholbereit_IDS_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\IDS\Abholbereit_IDS_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\IDS\Abholbereit_IDS_RO.dotx"
|
||||
' Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
Else
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_RO.dotx"
|
||||
' Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
End If
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If verlaengerung Then
|
||||
odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
End If
|
||||
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
If verlaengerung Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
End If
|
||||
|
||||
' oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r(2))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genAbholbereitMSE(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, verlaengerung As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
If verlaengerung Then
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\MSE\Abholbereit_MSE_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\MSE\Abholbereit_MSE_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\MSE\Abholbereit_MSE_RO.dotx"
|
||||
' Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
Else
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_RO.dotx"
|
||||
' Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
End If
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
If verlaengerung Then
|
||||
odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
End If
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
If verlaengerung Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
End If
|
||||
|
||||
' oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r(2))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genAbholbereitUTA(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, verlaengerung As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
If verlaengerung Then
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\UTA\Abholbereit_UTA_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\UTA\Abholbereit_UTA_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\UTA\Abholbereit_UTA_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\UTA\Abholbereit_UTA_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
Else
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_YU.dotx"
|
||||
Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\Abholbereit_TR.dotx"
|
||||
' Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
End If
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
If verlaengerung Then odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
If verlaengerung Then
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
Else
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KarteBoxBezeichnung"))
|
||||
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
oTable.Rows(i + 1).Cells(4).Range.Text = cSqlDb.checkNullStr(r("PIN"))
|
||||
End If
|
||||
|
||||
' oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r(2))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genAbholbereitPL(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
Select Case language
|
||||
Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\PL\Abholbereit_PL_DE.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\PL\Abholbereit_PL_YU.dotx"
|
||||
' Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\PL\Abholbereit_PL_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\PL\Abholbereit_PL_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
' odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
|
||||
Dim MSEKdNr = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr).MSEKundenNr
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
' oTable.Rows(i + 1).Cells(2).Range.Text = MSEKdNr
|
||||
|
||||
' oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r(2))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genAbholbereitCZPL(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, GueltigBis As String, autodruck As Boolean, Optional PrinterName As String = "", Optional AuftragsNr As Integer = 0, Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
pfadWord = ""
|
||||
Select Case language
|
||||
' Case "DE" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_IDS_YU.dotx.dotx"
|
||||
Case "YU" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ+PL_YU.dotx"
|
||||
' Case "RO" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\PL\Abholbereit_PL_RO.dotx"
|
||||
Case "TR" : pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Abholbereit\CZ\Abholbereit_CZ+PL_TR.dotx"
|
||||
Case Else : MsgBox("Keine Sprache ausgewählt!") : Return odoc
|
||||
End Select
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Adresse1").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
|
||||
odoc.FormFields("Adresse2").Range.Text = KUNDE.Straße
|
||||
odoc.FormFields("Adresse3").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
|
||||
If KUNDE.Telefax <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "FAX: " & KUNDE.Telefax
|
||||
ElseIf KUNDE.E_Mail <> "" Then
|
||||
odoc.FormFields("Adresse5").Range.Text = "E-Mail: " & KUNDE.E_Mail
|
||||
End If
|
||||
|
||||
' odoc.FormFields("GueltigBis").Range.Text = GueltigBis
|
||||
|
||||
' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
|
||||
' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##")
|
||||
|
||||
|
||||
Dim MSEKdNr = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr).MSEKundenNr
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
|
||||
' oTable.Rows(i + 1).Cells(2).Range.Text = MSEKdNr
|
||||
|
||||
' oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r(2))
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
Public Function genBestellung_MAN(dt As DataTable, kdNr As Integer, sachbearbeiter As String, language As String, autodruck As Boolean, Optional PrinterName As String = "", Optional ByRef pfadWord As String = "", Optional visible As Boolean = True) As Microsoft.Office.Interop.Word.Document
|
||||
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
|
||||
Try
|
||||
|
||||
pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Bestellfomulare\Bestellung_MAN_Abgasplakette.dotx "
|
||||
|
||||
|
||||
Dim oWord As New Microsoft.Office.Interop.Word.Application
|
||||
odoc = openWord(pfadWord, (Not autodruck And visible), oWord)
|
||||
|
||||
' Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=210 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
|
||||
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
|
||||
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
|
||||
' Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
|
||||
|
||||
Dim oTable As Word.Table
|
||||
|
||||
odoc.FormFields("Kunde").Range.Text = KUNDE.Ordnungsbegriff
|
||||
|
||||
odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
odoc.FormFields("Datum").Range.Text = Now.ToShortDateString
|
||||
odoc.FormFields("KundenNr").Range.Text = KUNDE.AdressenNr
|
||||
odoc.FormFields("KundenNr2").Range.Text = KUNDE.AdressenNr
|
||||
|
||||
|
||||
If odoc.Range.Bookmarks.Exists("TabelleKarten") Then
|
||||
If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then
|
||||
oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1)
|
||||
Dim i = 1
|
||||
For Each r As DataRow In dt.Rows
|
||||
If r("KfzKennzeichen").ToString <> "" Then
|
||||
|
||||
oTable.Rows(i + 1).Cells(1).Range.Text = i
|
||||
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
|
||||
|
||||
If i < dt.Rows.Count Then oTable.Rows.Add()
|
||||
i += 1
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
MessageBox.Show("Textmarke nicht vorhanden!")
|
||||
End If
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
If autodruck Then
|
||||
Dim t As New Threading.Thread(Sub()
|
||||
print(odoc, PrinterName)
|
||||
End Sub)
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString)
|
||||
End Try
|
||||
Return odoc
|
||||
End Function
|
||||
|
||||
End Class
|
||||
130
SDL/Classes/cGeschaeftsjahr.vb
Normal file
130
SDL/Classes/cGeschaeftsjahr.vb
Normal file
@@ -0,0 +1,130 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class cGeschaeftsjahr
|
||||
Property Mandant As String = ""
|
||||
Property Niederlassung As String = ""
|
||||
Property Benutzer As Integer = -1
|
||||
Property Geschäftsjahr As Integer = -1
|
||||
Property LfdBelegNr As Integer = 0
|
||||
Property LfdJournalNr As Integer = 0
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New(Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer)
|
||||
Me.Mandant = Mandant
|
||||
Me.Niederlassung = Niederlassung
|
||||
Me.Benutzer = Benutzer
|
||||
Me.Geschäftsjahr = Geschäftsjahr
|
||||
LOAD(Mandant, Niederlassung, Benutzer, Geschäftsjahr)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function INCREASE_BELEG() As Integer
|
||||
If LfdBelegNr > 0 Then
|
||||
LfdBelegNr += 1
|
||||
Else
|
||||
LfdBelegNr = 1
|
||||
End If
|
||||
SAVE()
|
||||
Return LfdBelegNr
|
||||
End Function
|
||||
Public Function INCREASE_JOURNAL() As Integer
|
||||
If LfdJournalNr > 0 Then
|
||||
LfdJournalNr += 1
|
||||
Else
|
||||
LfdJournalNr = 1
|
||||
End If
|
||||
SAVE()
|
||||
Return LfdJournalNr
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblGeschäftsjahr] WITH(updlock,serializable) WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblGeschäftsjahr WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr ", conn)
|
||||
cmd.Parameters.AddWithValue("@Mandant", Mandant)
|
||||
cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
|
||||
cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
|
||||
cmd.Parameters.AddWithValue("@Geschäftsjahr", Geschäftsjahr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
|
||||
Me.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
|
||||
Me.Benutzer = cSqlDb.checkNullStr(dr.Item("Benutzer"))
|
||||
Me.Geschäftsjahr = cSqlDb.checkNullInteger(dr.Item("Geschäftsjahr"))
|
||||
Me.LfdBelegNr = cSqlDb.checkNullInteger(dr.Item("LfdBelegNr"))
|
||||
Me.LfdJournalNr = cSqlDb.checkNullInteger(dr.Item("LfdJournalNr"))
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer", Benutzer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Geschäftsjahr", Geschäftsjahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdBelegNr", LfdBelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdJournalNr", LfdJournalNr))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblGeschäftsjahr] SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [tblGeschäftsjahr] (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
188
SDL/Classes/cKassenbuch.vb
Normal file
188
SDL/Classes/cKassenbuch.vb
Normal file
@@ -0,0 +1,188 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class cKassenbuch
|
||||
Property Mandant As String = "VERA"
|
||||
Property Niederlassung As String = "SUB"
|
||||
Property Benutzer As Integer = -1
|
||||
Property Geschäftsjahr As Integer = IIf(Now.Month = 1, Now.Year - 1, Now.Year)
|
||||
Property JournalNr As Integer = -1
|
||||
Property Buchungsdatum As Object = Nothing
|
||||
Property BelegDat As Object = Nothing
|
||||
Property BelegNr As Integer = -1
|
||||
Property Belegart As Integer = 1
|
||||
Property Buchungstext As String = ""
|
||||
Property Betrag As Double = 0.0
|
||||
Property Währung As Integer = 900
|
||||
Property Kurs As Integer = 1
|
||||
Property Eingabeart As Integer = 0
|
||||
Property Konto As Integer = -1
|
||||
Property Soll As Double = 0.0
|
||||
Property Haben As Double = 0.0
|
||||
Property Steuer As Integer = 0
|
||||
Property Steuerbetrag As Double = 0.0
|
||||
Property Referenz As String = ""
|
||||
Property Belegverbuchung As Boolean = False
|
||||
Property gebucht As Boolean = False
|
||||
Property rksv_id As Object = Nothing
|
||||
Property rksv_BelegId As Object = Nothing
|
||||
Property rksv_aktiv As Boolean = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New(Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer, JournalNr As Integer)
|
||||
Me.Mandant = Mandant
|
||||
Me.Niederlassung = Niederlassung
|
||||
Me.Benutzer = Benutzer
|
||||
Me.Geschäftsjahr = Geschäftsjahr
|
||||
Me.JournalNr = JournalNr
|
||||
End Sub
|
||||
|
||||
Public Sub New(op As String, Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer, JournalNr As Integer)
|
||||
Select Case op
|
||||
Case "LOAD" : LOAD(Mandant, Niederlassung, Benutzer, Geschäftsjahr, JournalNr)
|
||||
Case "INSERT"
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblKassenbuch] WITH(updlock,serializable) WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND JournalNr=@JournalNr ) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
' MsgBox(getInsertCmd())
|
||||
Return SQL.doSQL(getInsertCmd(), "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer, JournalNr As Integer)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblKassenbuch WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND JournalNr=@JournalNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@Mandant", Mandant)
|
||||
cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
|
||||
cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
|
||||
cmd.Parameters.AddWithValue("@Geschäftsjahr", Geschäftsjahr)
|
||||
cmd.Parameters.AddWithValue("@JournalNr", JournalNr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
|
||||
Me.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
|
||||
Me.Benutzer = cSqlDb.checkNullStr(dr.Item("Benutzer"))
|
||||
Me.Geschäftsjahr = cSqlDb.checkNullInteger(dr.Item("Geschäftsjahr"))
|
||||
Me.JournalNr = cSqlDb.checkNullInteger(dr.Item("JournalNr"))
|
||||
|
||||
Me.Buchungsdatum = cSqlDb.checkNullDate(dr.Item("Buchungsdatum"))
|
||||
Me.BelegDat = cSqlDb.checkNullDate(dr.Item("BelegDat"))
|
||||
Me.BelegNr = cSqlDb.checkNullInteger(dr.Item("BelegNr"))
|
||||
Me.Belegart = cSqlDb.checkNullInteger(dr.Item("Belegart"))
|
||||
Me.Buchungstext = cSqlDb.checkNullStr(dr.Item("Buchungstext"))
|
||||
Me.Betrag = cSqlDb.checkNulDbl(dr.Item("Betrag"))
|
||||
Me.Währung = cSqlDb.checkNullInteger(dr.Item("Währung"))
|
||||
Me.Kurs = cSqlDb.checkNullInteger(dr.Item("Kurs"))
|
||||
Me.Eingabeart = cSqlDb.checkNullInteger(dr.Item("Eingabeart"))
|
||||
Me.Konto = cSqlDb.checkNullInteger(dr.Item("Konto"))
|
||||
Me.Soll = cSqlDb.checkNulDbl(dr.Item("Soll"))
|
||||
Me.Haben = cSqlDb.checkNulDbl(dr.Item("Haben"))
|
||||
Me.Steuer = cSqlDb.checkNullInteger(dr.Item("Steuer"))
|
||||
Me.Steuerbetrag = cSqlDb.checkNulDbl(dr.Item("Steuerbetrag"))
|
||||
Me.Referenz = cSqlDb.checkNullStr(dr.Item("Referenz"))
|
||||
Me.Belegverbuchung = cSqlDb.checkNullBool(dr.Item("Belegverbuchung"))
|
||||
Me.gebucht = cSqlDb.checkNullBool(dr.Item("gebucht"))
|
||||
Me.rksv_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_id"), Nothing)
|
||||
Me.rksv_BelegId = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegId"), Nothing)
|
||||
Me.rksv_aktiv = cSqlDb.checkNullReturnValue(dr.Item("rksv_aktiv"), False)
|
||||
|
||||
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Mandant", Mandant))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Niederlassung", Niederlassung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer", Benutzer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Geschäftsjahr", Geschäftsjahr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("JournalNr", JournalNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Buchungsdatum", Buchungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegDat", BelegDat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Belegart", Belegart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Buchungstext", Buchungstext))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Betrag", Betrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Währung", Währung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Kurs", Kurs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Eingabeart", Eingabeart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Konto", Konto))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Soll", Soll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Haben", Haben))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Steuer", Steuer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Steuerbetrag", Steuerbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Referenz", Referenz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Belegverbuchung", Belegverbuchung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("gebucht", gebucht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_id", rksv_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_BelegId", rksv_BelegId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_aktiv", rksv_aktiv))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblKassenbuch] SET " & str & " WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr AND JournalNr=@JournalNr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [tblKassenbuch] (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
1502
SDL/Classes/cRKSV.vb
Normal file
1502
SDL/Classes/cRKSV.vb
Normal file
File diff suppressed because it is too large
Load Diff
282
SDL/Classes/cRKSV_Kasse.vb
Normal file
282
SDL/Classes/cRKSV_Kasse.vb
Normal file
@@ -0,0 +1,282 @@
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class cRKSV_Kasse
|
||||
|
||||
Property rksv_id As Integer = -1
|
||||
Property rksv_bez As String = ""
|
||||
Property rksv_CompanyGUID As String = ""
|
||||
|
||||
Property rksv_firma As String = ""
|
||||
Property rksv_startdatum As Object = Nothing
|
||||
Property rksv_aktiv As Boolean = True
|
||||
Property rksv_BelegIdZaehler As Integer = 0
|
||||
Property rksv_Umsatzzaehler As Double = 0.0
|
||||
Property rksv_lastJWS As String = ""
|
||||
Property rksv_lastQR As String = ""
|
||||
Property rksv_lastBeleg As String = ""
|
||||
Property rksv_ITG_id As Object = Nothing
|
||||
Property rksv_AesKey As Object = Nothing
|
||||
Property rksv_KassaGuid As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Public Sub New()
|
||||
|
||||
End Sub
|
||||
Public Sub New(rksv_id)
|
||||
LOAD(rksv_id)
|
||||
End Sub
|
||||
|
||||
Public Function INCREASE_BELEG_UMSATZ(umsatz) As Integer
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(" UPDATE [tblRKSV_Kassen] SET rksv_BelegIdZaehler=isnull(rksv_BelegIdZaehler,0)+1, rksv_Umsatzzaehler=isnull(rksv_Umsatzzaehler,0)+@umsatz, rksv_lastBeleg=getDate() WHERE rksv_id=@rksv_id; SELECT TOP 1 rksv_BelegIdZaehler,rksv_Umsatzzaehler,rksv_lastJWS,rksv_lastBeleg FROM tblRKSV_Kassen WHERE rksv_id=@rksv_id", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
|
||||
cmd.Parameters.AddWithValue("@umsatz", umsatz)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.rksv_BelegIdZaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegIdZaehler"), Nothing)
|
||||
Me.rksv_Umsatzzaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_Umsatzzaehler"), Nothing)
|
||||
Me.rksv_lastBeleg = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastBeleg"), Nothing)
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return Me.rksv_BelegIdZaehler
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
If False Then
|
||||
|
||||
If rksv_BelegIdZaehler > 0 Then
|
||||
rksv_BelegIdZaehler += 1
|
||||
Else
|
||||
rksv_BelegIdZaehler = 1
|
||||
End If
|
||||
|
||||
If rksv_Umsatzzaehler > 0 Then
|
||||
rksv_Umsatzzaehler += umsatz
|
||||
Else
|
||||
rksv_Umsatzzaehler = umsatz
|
||||
End If
|
||||
' rksv_lastJWS = JWS
|
||||
SAVE()
|
||||
End If
|
||||
Return -1
|
||||
End Function
|
||||
Public Function DECREASE_BELEG_UMSATZ(rksv_BelegIdZaehler_old, umsatz) As Integer
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(" UPDATE [tblRKSV_Kassen] SET rksv_BelegIdZaehler=@rksv_BelegIdZaehler, rksv_Umsatzzaehler=isnull(rksv_Umsatzzaehler,0)+@umsatz, rksv_lastBeleg=getDate() WHERE rksv_id=@rksv_id; SELECT TOP 1 rksv_BelegIdZaehler,rksv_Umsatzzaehler,rksv_lastJWS,rksv_lastBeleg FROM tblRKSV_Kassen WHERE rksv_id=@rksv_id", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
|
||||
cmd.Parameters.AddWithValue("@rksv_BelegIdZaehler", rksv_BelegIdZaehler_old)
|
||||
cmd.Parameters.AddWithValue("@umsatz", umsatz)
|
||||
cmd.CommandTimeout = 180
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.rksv_BelegIdZaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegIdZaehler"), Nothing)
|
||||
Me.rksv_Umsatzzaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_Umsatzzaehler"), Nothing)
|
||||
Me.rksv_lastBeleg = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastBeleg"), Nothing)
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return Me.rksv_BelegIdZaehler
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
If False Then
|
||||
|
||||
If rksv_BelegIdZaehler > 0 Then
|
||||
rksv_BelegIdZaehler += 1
|
||||
Else
|
||||
rksv_BelegIdZaehler = 1
|
||||
End If
|
||||
|
||||
If rksv_Umsatzzaehler > 0 Then
|
||||
rksv_Umsatzzaehler += umsatz
|
||||
Else
|
||||
rksv_Umsatzzaehler = umsatz
|
||||
End If
|
||||
' rksv_lastJWS = JWS
|
||||
SAVE()
|
||||
End If
|
||||
Return -1
|
||||
End Function
|
||||
Public Function INCREASE_ONLY_BELEG_UMSATZ(umsatz) As Integer
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(" UPDATE [tblRKSV_Kassen] SET rksv_Umsatzzaehler=isnull(rksv_Umsatzzaehler,0)+@umsatz, rksv_lastBeleg=getDate() WHERE rksv_id=@rksv_id; SELECT TOP 1 rksv_BelegIdZaehler,rksv_Umsatzzaehler,rksv_lastJWS,rksv_lastBeleg FROM tblRKSV_Kassen WHERE rksv_id=@rksv_id", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
|
||||
cmd.Parameters.AddWithValue("@umsatz", umsatz)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.rksv_BelegIdZaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegIdZaehler"), Nothing)
|
||||
Me.rksv_Umsatzzaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_Umsatzzaehler"), Nothing)
|
||||
Me.rksv_lastBeleg = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastBeleg"), Nothing)
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return Me.rksv_BelegIdZaehler
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
If False Then
|
||||
|
||||
If rksv_BelegIdZaehler > 0 Then
|
||||
rksv_BelegIdZaehler += 1
|
||||
Else
|
||||
rksv_BelegIdZaehler = 1
|
||||
End If
|
||||
|
||||
If rksv_Umsatzzaehler > 0 Then
|
||||
rksv_Umsatzzaehler += umsatz
|
||||
Else
|
||||
rksv_Umsatzzaehler = umsatz
|
||||
End If
|
||||
' rksv_lastJWS = JWS
|
||||
SAVE()
|
||||
End If
|
||||
Return -1
|
||||
End Function
|
||||
|
||||
Public Function SET_LAST_QR_JWS(JWS, qr) As Boolean
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(" UPDATE [tblRKSV_Kassen] SET rksv_lastJWS=@jws,rksv_lastQR=@qr WHERE rksv_id=@rksv_id; SELECT TOP 1 rksv_lastJWS,rksv_lastQR FROM tblRKSV_Kassen WHERE rksv_id=@rksv_id", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
|
||||
cmd.Parameters.AddWithValue("@JWS", JWS)
|
||||
cmd.Parameters.AddWithValue("@qr", qr)
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
Me.rksv_lastJWS = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastJWS"), Nothing)
|
||||
Me.rksv_lastQR = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastQR"), Nothing)
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblRKSV_Kassen] WITH(updlock,serializable) WHERE rksv_id=@rksv_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
'MsgBox(sqlstr)
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD(rksv_id As Integer)
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblRKSV_Kassen WHERE rksv_id=@rksv_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
|
||||
Me.rksv_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_id"), Nothing)
|
||||
Me.rksv_bez = cSqlDb.checkNullReturnValue(dr.Item("rksv_bez"), Nothing)
|
||||
Me.rksv_CompanyGUID = cSqlDb.checkNullReturnValue(dr.Item("rksv_CompanyGUID"), Nothing)
|
||||
|
||||
Me.rksv_firma = cSqlDb.checkNullReturnValue(dr.Item("rksv_firma"), Nothing)
|
||||
Me.rksv_startdatum = cSqlDb.checkNullReturnValue(dr.Item("rksv_startdatum"), Nothing)
|
||||
Me.rksv_aktiv = cSqlDb.checkNullReturnValue(dr.Item("rksv_aktiv"), Nothing)
|
||||
Me.rksv_BelegIdZaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_BelegIdZaehler"), Nothing)
|
||||
Me.rksv_Umsatzzaehler = cSqlDb.checkNullReturnValue(dr.Item("rksv_Umsatzzaehler"), Nothing)
|
||||
Me.rksv_lastJWS = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastJWS"), Nothing)
|
||||
Me.rksv_lastQR = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastQR"), Nothing)
|
||||
Me.rksv_lastBeleg = cSqlDb.checkNullReturnValue(dr.Item("rksv_lastBeleg"), Nothing)
|
||||
Me.rksv_ITG_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_ITG_id"), Nothing)
|
||||
Me.rksv_AesKey = cSqlDb.checkNullReturnValue(dr.Item("rksv_AesKey"), Nothing)
|
||||
Me.rksv_KassaGuid = cSqlDb.checkNullReturnValue(dr.Item("rksv_KassaGuid"), Nothing)
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
'Return Nothing
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
' Return Nothing
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_id", rksv_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_bez", rksv_bez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_CompanyGUID", rksv_CompanyGUID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_firma", rksv_firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_startdatum", rksv_startdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_aktiv", rksv_aktiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_BelegIdZaehler", rksv_BelegIdZaehler))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_Umsatzzaehler", rksv_Umsatzzaehler))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_lastJWS", rksv_lastJWS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_lastQR", rksv_lastQR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_lastBeleg", rksv_lastBeleg))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_ITG_id", rksv_ITG_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_AesKey", rksv_AesKey))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_KassaGuid", rksv_KassaGuid))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblRKSV_Kassen] SET " & str & " WHERE rksv_id=@rksv_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO [tblRKSV_Kassen] (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
302
SDL/Classes/cSDL.vb
Normal file
302
SDL/Classes/cSDL.vb
Normal file
@@ -0,0 +1,302 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cSDLLeistung
|
||||
Property KundenNr As Integer
|
||||
Property KfzKennzeichen As String = ""
|
||||
Property SDLNr As Integer
|
||||
Property History As Integer
|
||||
|
||||
|
||||
Public LIST As New List(Of cSDL)
|
||||
Dim SQL As New SQL
|
||||
'Dim listTodelete As New List(Of cOfferte)
|
||||
|
||||
Sub New(KundenNr, KfzKennzeichen, SDLNr)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.KfzKennzeichen = KfzKennzeichen
|
||||
Me.SDLNr = SDLNr
|
||||
|
||||
LOAD_LIST()
|
||||
End Sub
|
||||
Public Sub CLEAR()
|
||||
LIST.Clear()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_LIST()
|
||||
Try
|
||||
LIST.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM SDL WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND AND History=@History ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen)
|
||||
cmd.Parameters.AddWithValue("@SDLNr", SDLNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cSDL(dr.Item("KundenNr"), dr.Item("KfzKennzeichen"), dr.Item("SDLNr"), dr.Item("History"))
|
||||
LIST.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Function SAVE() As Boolean
|
||||
SAVE = True
|
||||
For Each l In LIST
|
||||
If Not l.SAVE() Then SAVE = False
|
||||
Next
|
||||
End Function
|
||||
'Function SAVE()
|
||||
' If SQL.doSQLVarList("DELETE FROM tblEmailBenachrichtigung WHERE eb_KundenNr=" & Me.eb_KundenNr & " and eb_ebartId=" & Me.eb_ebartId & " ", "SDL") Then
|
||||
' For Each l In LIST
|
||||
' If Not l.INSERT() Then Return False
|
||||
' Next
|
||||
' Return True
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
'End Function
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cSDL
|
||||
Property KundenNr As Integer
|
||||
Property KfzKennzeichen As String = ""
|
||||
Property SDLNr As Integer
|
||||
Property History As Integer
|
||||
Property RefKundenNr As Object = Nothing
|
||||
Property MSE_Kd_Nr As Object = Nothing
|
||||
Property TELEPASS_Kd_Nr As Object = Nothing
|
||||
Property CLIENT_Nr As Object = Nothing
|
||||
Property BestellNr As Object = Nothing
|
||||
Property Bestelldatum As Object = Nothing
|
||||
Property Lieferdatum As Object = Nothing
|
||||
Property Ausstellungsdatum As Object = Nothing
|
||||
Property Umstellungsdatum As Object = Nothing
|
||||
Property KartenNr As Object = Nothing
|
||||
Property PAN_Nr As Object = Nothing
|
||||
Property VIACARD As Object = Nothing
|
||||
Property MOTORWAY_CARD_Nr As Object = Nothing
|
||||
Property CARD_Nr As Object = Nothing
|
||||
Property KartenSchlüsselNr As Object = Nothing
|
||||
Property FREJUS_CARD_Nr As Object = Nothing
|
||||
Property ECO As Object = Nothing
|
||||
Property GültigBis As Object = Nothing
|
||||
Property OBUID As Object = Nothing
|
||||
Property SERIE_Nr As Object = Nothing
|
||||
Property TELEPASS_Nr As Object = Nothing
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Partner As Object = Nothing
|
||||
Property BenutzerNr As Object = Nothing
|
||||
Property PIN As Object = Nothing
|
||||
Property FlottenPIN As Object = Nothing
|
||||
Property MasterPIN As Object = Nothing
|
||||
Property VertragsNr As Object = Nothing
|
||||
Property Vertragsabschlussdatum As Object = Nothing
|
||||
Property Kategorie As Object = Nothing
|
||||
Property Schadstoffklasse As Object = Nothing
|
||||
Property Status As Object = Nothing
|
||||
Property Ersatzkarte As Object = Nothing
|
||||
Property Gesperrt As Object = Nothing
|
||||
Property Defekt As Object = Nothing
|
||||
Property Verloren As Object = Nothing
|
||||
Property Gestohlen As Object = Nothing
|
||||
Property Erfassungsdatum As Object = Nothing
|
||||
Property Änderungsdatum As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
Property Retourniert As Object = Nothing
|
||||
Property RetourniertAm As Object = Nothing
|
||||
|
||||
Property GesperrtAm As Object = Nothing
|
||||
Property DefektAm As Object = Nothing
|
||||
Property VerlorenAm As Object = Nothing
|
||||
Property GestohlenAm As Object = Nothing
|
||||
Property ErsatzkarteAm As Object = Nothing
|
||||
Property TelepassErsatzkarte As Object = Nothing
|
||||
Property TelepassErsatzkarteAm As Object = Nothing
|
||||
Property Archiviert As Boolean = False
|
||||
Property LKWAbgemeldet As Boolean = False
|
||||
Property LKWAbgemeldetAM As Object = Nothing
|
||||
|
||||
Property Fahrer As Object = Nothing
|
||||
Property Kaution As Object = Nothing
|
||||
Property BelegNr As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(KundenNr, KfzKennzeichen, SDLNr, History)
|
||||
Me.KundenNr = KundenNr
|
||||
Me.KfzKennzeichen = KfzKennzeichen
|
||||
Me.SDLNr = SDLNr
|
||||
Me.History = History
|
||||
LOAD()
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KfzKennzeichen", KfzKennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SDLNr", SDLNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("History", History))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RefKundenNr", RefKundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MSE-Kd-Nr", MSE_Kd_Nr, "MSE_Kd_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TELEPASS-Kd-Nr", TELEPASS_Kd_Nr, "TELEPASS_Kd_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CLIENT-Nr", CLIENT_Nr, "CLIENT_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BestellNr", BestellNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestelldatum", Bestelldatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferdatum", Lieferdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ausstellungsdatum", Ausstellungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umstellungsdatum", Umstellungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PAN-Nr", PAN_Nr, "PAN_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VIACARD", VIACARD))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MOTORWAY-CARD-Nr", MOTORWAY_CARD_Nr, "MOTORWAY_CARD_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CARD-Nr", CARD_Nr, "CARD_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenSchlüsselNr", KartenSchlüsselNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FREJUS-CARD-Nr", FREJUS_CARD_Nr, "FREJUS_CARD_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ECO", ECO))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GültigBis", GültigBis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBUID", OBUID))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SERIE-Nr", SERIE_Nr, "SERIE_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TELEPASS-Nr", TELEPASS_Nr, "TELEPASS_Nr"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Partner", Partner))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BenutzerNr", BenutzerNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PIN", PIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FlottenPIN", FlottenPIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MasterPIN", MasterPIN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VertragsNr", VertragsNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vertragsabschlussdatum", Vertragsabschlussdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kategorie", Kategorie))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Schadstoffklasse", Schadstoffklasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ersatzkarte", Ersatzkarte))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt", Gesperrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Defekt", Defekt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verloren", Verloren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gestohlen", Gestohlen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Änderungsdatum", Änderungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Retourniert", Retourniert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RetourniertAm", RetourniertAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GesperrtAm", GesperrtAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DefektAm", DefektAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VerlorenAm", VerlorenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GestohlenAm", GestohlenAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErsatzkarteAm", ErsatzkarteAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TelepassErsatzkarte", TelepassErsatzkarte))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TelepassErsatzkarteAm", TelepassErsatzkarteAm))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Archiviert", Archiviert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKWAbgemeldet", LKWAbgemeldet))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKWAbgemeldetAM", LKWAbgemeldetAM))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fahrer", Fahrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kaution", Kaution))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM SDL WITH(updlock,serializable) WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "SDL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM SDL WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History ", conn)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
|
||||
cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen)
|
||||
cmd.Parameters.AddWithValue("@SDLNr", SDLNr)
|
||||
cmd.Parameters.AddWithValue("@History", History)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [SDL] SET " & str & " WHERE KundenNr=@KundenNr AND KfzKennzeichen=@KfzKennzeichen AND SDLNr=@SDLNr AND History=@History ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO SDL (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
377
SDL/Classes/cSDLAbholung.vb
Normal file
377
SDL/Classes/cSDLAbholung.vb
Normal file
@@ -0,0 +1,377 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cSDLAbholung
|
||||
|
||||
Property sdlAb_Id As Integer
|
||||
|
||||
Property sdlAb_Erfasst As Object = Now
|
||||
Property sdlAb_ErfassungSachbearbeiter As Object = Nothing
|
||||
Property sdlAb_ErfassungSachbearbeiterId As Object = Nothing
|
||||
Property sdlAb_ErfassungVermerk As Object = Nothing
|
||||
|
||||
Property sdlAb_AbholungLKWKz As Object = Nothing
|
||||
Property sdlAb_AbholungFahrername As Object = Nothing
|
||||
Property sdlAb_AbholungKdNr As Object = Nothing
|
||||
Property sdlAb_AbholungFirma As Object = Nothing
|
||||
Property sdlAb_AbholungFahrerSMS As Object = Nothing
|
||||
Property sdlAb_Abholung As Object = Nothing
|
||||
Property sdlAb_AbholungSachbearbeiter As Object = Nothing
|
||||
Property sdlAb_AbholungSachbearbeiterId As Object = Nothing
|
||||
Property sdlAb_Abgeholt As Boolean = False
|
||||
Property sdlAb_Storniert As Boolean = False
|
||||
Property sdlAb_AbholungVermerk As Object = Nothing
|
||||
|
||||
Property sdlAb_FahrerAbholAuftrag As Object = Nothing
|
||||
Property sdlAb_AbholungFremdDL As Boolean = False
|
||||
|
||||
|
||||
Property POS As New List(Of cSDLAbholungPositionen)
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(sdlAb_Id)
|
||||
Me.sdlAb_Id = sdlAb_Id
|
||||
LOAD()
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_Id", sdlAb_Id, , True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_Erfasst", sdlAb_Erfasst))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_ErfassungSachbearbeiter", sdlAb_ErfassungSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_ErfassungSachbearbeiterId", sdlAb_ErfassungSachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_ErfassungVermerk", sdlAb_ErfassungVermerk))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungLKWKz", sdlAb_AbholungLKWKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungFahrername", sdlAb_AbholungFahrername))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungKdNr", sdlAb_AbholungKdNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungFirma", sdlAb_AbholungFirma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungFahrerSMS", sdlAb_AbholungFahrerSMS))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_Abholung", sdlAb_Abholung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungSachbearbeiter", sdlAb_AbholungSachbearbeiter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungSachbearbeiterId", sdlAb_AbholungSachbearbeiterId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_Abgeholt", sdlAb_Abgeholt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_Storniert", sdlAb_Storniert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungVermerk", sdlAb_AbholungVermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_FahrerAbholAuftrag", sdlAb_FahrerAbholAuftrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAb_AbholungFremdDL", sdlAb_AbholungFremdDL))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSDLAbholung WITH(updlock,serializable) WHERE sdlAb_Id=@sdlAb_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim id = SQL.doSQLVarListID(sdlAb_Id, sqlstr, "SDL", , list)
|
||||
|
||||
If id > 0 Then
|
||||
Me.sdlAb_Id = id
|
||||
Return SAVE_POS()
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean
|
||||
If DELETE_POS() Then
|
||||
Return SQL.doSQL(" DELETE FROM tblSDLAbholung WHERE sdlAb_Id=" & sdlAb_Id & " ", "SDL")
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function DELETE_POS() As Boolean
|
||||
Return SQL.doSQL(" DELETE FROM tblSDLAbholungPositionen WHERE sdlAbp_sdlAb_Id=" & sdlAb_Id & " ", "SDL")
|
||||
End Function
|
||||
|
||||
Public Function SAVE_POS() As Boolean
|
||||
SAVE_POS = True
|
||||
If Not DELETE_POS() Then Return False
|
||||
For Each p In POS
|
||||
p.sdlAbp_sdlAb_Id = Me.sdlAb_Id
|
||||
If Not p.SAVE() Then SAVE_POS = False
|
||||
Next
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSDLAbholung WHERE sdlAb_Id=@sdlAb_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@sdlAb_Id", sdlAb_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
LOAD_POS()
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_POS()
|
||||
Try
|
||||
POS.Clear()
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSDLAbholungPositionen WHERE sdlAbp_sdlAb_Id=@sdlAb_Id ORDER BY sdlAbp_KfzKennzeichen,sdlAbp_SDLNr", conn)
|
||||
cmd.Parameters.AddWithValue("@sdlAb_Id", sdlAb_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim P As New cSDLAbholungPositionen
|
||||
For Each l In P.getParameterList()
|
||||
Dim propInfo As PropertyInfo = P.GetType.GetProperty(l.Scalarvariable)
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(P, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(P, dr.Item(l.Text))
|
||||
End If
|
||||
Next
|
||||
POS.Add(P)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblSDLAbholung] SET " & str & " WHERE sdlAb_Id=@sdlAb_Id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblSDLAbholung (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SET_ABHOLUNG(sdlAb_Abgeholt As Boolean, Optional sdlAb_AbholungVermerk As Object = Nothing, Optional sdlAb_FahrerAbholAuftrag As Object = Nothing) As Boolean
|
||||
Me.sdlAb_Abgeholt = sdlAb_Abgeholt
|
||||
If Me.sdlAb_Abgeholt Then
|
||||
Me.sdlAb_Abholung = Now
|
||||
Me.sdlAb_AbholungSachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id
|
||||
Me.sdlAb_AbholungSachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
Else
|
||||
Me.sdlAb_Abholung = Nothing
|
||||
Me.sdlAb_AbholungSachbearbeiterId = Nothing
|
||||
Me.sdlAb_AbholungSachbearbeiter = Nothing
|
||||
End If
|
||||
Me.sdlAb_AbholungVermerk = sdlAb_AbholungVermerk
|
||||
|
||||
If sdlAb_FahrerAbholAuftrag IsNot Nothing Then Me.sdlAb_FahrerAbholAuftrag = sdlAb_FahrerAbholAuftrag
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SET_FAHRERABHOLUNG(sdlAb_FahrerAbholAuftrag As Boolean, Optional sdlAb_AbholungVermerk As Object = Nothing) As Boolean
|
||||
Me.sdlAb_FahrerAbholAuftrag = sdlAb_FahrerAbholAuftrag
|
||||
Me.sdlAb_AbholungVermerk = sdlAb_AbholungVermerk
|
||||
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
Public Function SET_BEMERKUNG(sdlAb_AbholungVermerk As Object) As Boolean
|
||||
|
||||
Me.sdlAb_AbholungVermerk = sdlAb_AbholungVermerk
|
||||
|
||||
Return SAVE()
|
||||
End Function
|
||||
Public Function SET_STORNO() As Boolean
|
||||
Me.sdlAb_Storniert = Not Me.sdlAb_Storniert
|
||||
Return SAVE()
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cSDLAbholungPositionen
|
||||
|
||||
Property sdlAbp_Id As Integer
|
||||
Property sdlAbp_sdlAb_Id As Object = Nothing
|
||||
Property sdlAbp_KundenNr As Object = Nothing
|
||||
Property sdlAbp_KfzKennzeichen As Object = Nothing
|
||||
Property sdlAbp_SDLNr As Object = Nothing
|
||||
Property sdlAbp_History As Object = Nothing
|
||||
Property sdlAbp_KarteBoxBezeichnung As Object = Nothing
|
||||
Property sdlAbp_KartenNr As Object = Nothing
|
||||
Property sdlAbp_PIN As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
Sub New(sdlAbp_Id)
|
||||
Me.sdlAbp_Id = sdlAbp_Id
|
||||
LOAD()
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_Id", sdlAbp_Id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_sdlAb_Id", sdlAbp_sdlAb_Id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_KundenNr", sdlAbp_KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_KfzKennzeichen", sdlAbp_KfzKennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_SDLNr", sdlAbp_SDLNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_History", sdlAbp_History))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_KarteBoxBezeichnung", sdlAbp_KarteBoxBezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_KartenNr", sdlAbp_KartenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sdlAbp_PIN", sdlAbp_PIN))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSDLAbholungPositionen WITH(updlock,serializable) WHERE sdlAbp_Id=@sdlAbp_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
Dim id = SQL.doSQLVarListID(sdlAbp_Id, sqlstr, "SDL", , list)
|
||||
Me.sdlAbp_Id = id
|
||||
Return (id > 0)
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean
|
||||
Return SQL.doSQL(" DELETE FROM tblSDLAbholungPositionen WHERE sdlAbp_Id=" & sdlAbp_Id & " ", "SDL")
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblSDLAbholungPositionen WHERE sdlAbp_Id=@sdlAbp_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@sdlAbp_Id", sdlAbp_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblSDLAbholungPositionen] SET " & str & " WHERE sdlAbp_Id=@sdlAbp_Id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblSDLAbholungPositionen (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
136
SDL/Classes/cVERAG_Card.vb
Normal file
136
SDL/Classes/cVERAG_Card.vb
Normal file
@@ -0,0 +1,136 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cVERAG_Card
|
||||
|
||||
Property KartenNr As Integer
|
||||
Property KundenNr As Object = Nothing
|
||||
Property KfzKennzeichen As Object = Nothing
|
||||
Property Fahrer As Object = Nothing
|
||||
Property Datum As Object = Nothing
|
||||
Property Kaution As Object = Nothing
|
||||
Property BelegNr As Object = Nothing
|
||||
Property Ersatzkarte As Object = Nothing
|
||||
Property Gesperrt As Object = Nothing
|
||||
Property Defekt As Object = Nothing
|
||||
Property Verloren As Object = Nothing
|
||||
Property Gestohlen As Object = Nothing
|
||||
Property Vermerk As Object = Nothing
|
||||
Property Erfassungsdatum As Object = Nothing
|
||||
Property Änderungsdatum As Object = Nothing
|
||||
Property Sachbearbeiter As Object = Nothing
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(KartenNr)
|
||||
Me.KartenNr = KartenNr
|
||||
LOAD()
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KfzKennzeichen", KfzKennzeichen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fahrer", Fahrer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum", Datum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kaution", Kaution))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ersatzkarte", Ersatzkarte))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesperrt", Gesperrt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Defekt", Defekt))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verloren", Verloren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gestohlen", Gestohlen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Änderungsdatum", Änderungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Kartenpool WITH(updlock,serializable) WHERE KartenNr=@KartenNr) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "SDL", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM Kartenpool WHERE KartenNr=@KartenNr ", conn)
|
||||
cmd.Parameters.AddWithValue("@KartenNr", KartenNr)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [Kartenpool] SET " & str & " WHERE KartenNr=@KartenNr ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO Kartenpool (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
450
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.Designer.vb
generated
Normal file
450
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.Designer.vb
generated
Normal file
@@ -0,0 +1,450 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrCntlATLAS_AES
|
||||
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.SplitContainer = New System.Windows.Forms.SplitContainer()
|
||||
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
|
||||
Me.btnAllgemein = New System.Windows.Forms.Button()
|
||||
Me.btnAdressen = New System.Windows.Forms.Button()
|
||||
Me.btnSicherheit = New System.Windows.Forms.Button()
|
||||
Me.btnAktiveVeredelung = New System.Windows.Forms.Button()
|
||||
Me.btnPositionen = New System.Windows.Forms.Button()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.lblBezugsnummer = New System.Windows.Forms.Label()
|
||||
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
|
||||
Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer.Panel1.SuspendLayout()
|
||||
Me.SplitContainer.SuspendLayout()
|
||||
Me.MyFlowLayoutPanel1.SuspendLayout()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.cntxtBezugsnr.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.MenuStrip.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SplitContainer
|
||||
'
|
||||
Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
|
||||
Me.SplitContainer.IsSplitterFixed = True
|
||||
Me.SplitContainer.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.SplitContainer.Name = "SplitContainer"
|
||||
Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer.Panel1
|
||||
'
|
||||
Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1)
|
||||
Me.SplitContainer.Panel1.Controls.Add(Me.pnl)
|
||||
'
|
||||
'SplitContainer.Panel2
|
||||
'
|
||||
Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.SplitContainer.Size = New System.Drawing.Size(934, 687)
|
||||
Me.SplitContainer.SplitterDistance = 72
|
||||
Me.SplitContainer.SplitterWidth = 1
|
||||
Me.SplitContainer.TabIndex = 0
|
||||
'
|
||||
'MyFlowLayoutPanel1
|
||||
'
|
||||
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAdressen)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSicherheit)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAktiveVeredelung)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.Button5)
|
||||
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1)
|
||||
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
|
||||
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72)
|
||||
Me.MyFlowLayoutPanel1.TabIndex = 0
|
||||
'
|
||||
'btnAllgemein
|
||||
'
|
||||
Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue
|
||||
Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.btnAllgemein.Image = Global.SDL.My.Resources.android_note12
|
||||
Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAllgemein.Location = New System.Drawing.Point(2, 2)
|
||||
Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAllgemein.Name = "btnAllgemein"
|
||||
Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.btnAllgemein.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAllgemein.TabIndex = 0
|
||||
Me.btnAllgemein.Text = "Allgemein"
|
||||
Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAllgemein.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnAdressen
|
||||
'
|
||||
Me.btnAdressen.BackColor = System.Drawing.Color.White
|
||||
Me.btnAdressen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAdressen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAdressen.Image = Global.SDL.My.Resources.house1
|
||||
Me.btnAdressen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAdressen.Location = New System.Drawing.Point(81, 2)
|
||||
Me.btnAdressen.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAdressen.Name = "btnAdressen"
|
||||
Me.btnAdressen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnAdressen.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAdressen.TabIndex = 1
|
||||
Me.btnAdressen.Text = "Adressen"
|
||||
Me.btnAdressen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAdressen.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnSicherheit
|
||||
'
|
||||
Me.btnSicherheit.BackColor = System.Drawing.Color.White
|
||||
Me.btnSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSicherheit.Image = Global.SDL.My.Resources.sicherheit1
|
||||
Me.btnSicherheit.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnSicherheit.Location = New System.Drawing.Point(160, 2)
|
||||
Me.btnSicherheit.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnSicherheit.Name = "btnSicherheit"
|
||||
Me.btnSicherheit.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnSicherheit.Size = New System.Drawing.Size(81, 67)
|
||||
Me.btnSicherheit.TabIndex = 2
|
||||
Me.btnSicherheit.Text = "Sicherheit"
|
||||
Me.btnSicherheit.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSicherheit.UseVisualStyleBackColor = False
|
||||
Me.btnSicherheit.Visible = False
|
||||
'
|
||||
'btnAktiveVeredelung
|
||||
'
|
||||
Me.btnAktiveVeredelung.BackColor = System.Drawing.Color.White
|
||||
Me.btnAktiveVeredelung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAktiveVeredelung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAktiveVeredelung.Image = Global.SDL.My.Resources.aktiveVeredelung1
|
||||
Me.btnAktiveVeredelung.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAktiveVeredelung.Location = New System.Drawing.Point(245, 2)
|
||||
Me.btnAktiveVeredelung.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAktiveVeredelung.Name = "btnAktiveVeredelung"
|
||||
Me.btnAktiveVeredelung.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3)
|
||||
Me.btnAktiveVeredelung.Size = New System.Drawing.Size(94, 67)
|
||||
Me.btnAktiveVeredelung.TabIndex = 3
|
||||
Me.btnAktiveVeredelung.Text = "Pass. Veredel."
|
||||
Me.btnAktiveVeredelung.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAktiveVeredelung.UseVisualStyleBackColor = False
|
||||
Me.btnAktiveVeredelung.Visible = False
|
||||
'
|
||||
'btnPositionen
|
||||
'
|
||||
Me.btnPositionen.BackColor = System.Drawing.Color.White
|
||||
Me.btnPositionen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnPositionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPositionen.Image = Global.SDL.My.Resources.list_new_small2
|
||||
Me.btnPositionen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnPositionen.Location = New System.Drawing.Point(343, 2)
|
||||
Me.btnPositionen.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnPositionen.Name = "btnPositionen"
|
||||
Me.btnPositionen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnPositionen.Size = New System.Drawing.Size(81, 67)
|
||||
Me.btnPositionen.TabIndex = 4
|
||||
Me.btnPositionen.Text = "Positionen"
|
||||
Me.btnPositionen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnPositionen.UseVisualStyleBackColor = False
|
||||
Me.btnPositionen.Visible = False
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.BackColor = System.Drawing.Color.White
|
||||
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Image = Global.SDL.My.Resources.android_note12
|
||||
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button5.Location = New System.Drawing.Point(428, 2)
|
||||
Me.Button5.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.Button5.Size = New System.Drawing.Size(81, 67)
|
||||
Me.Button5.TabIndex = 5
|
||||
Me.Button5.Text = "Referenzen"
|
||||
Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.Button5.UseVisualStyleBackColor = False
|
||||
Me.Button5.Visible = False
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.pnl.Controls.Add(Me.Label6)
|
||||
Me.pnl.Controls.Add(Me.cboStammreferenz)
|
||||
Me.pnl.Controls.Add(Me.cboDakosyAction)
|
||||
Me.pnl.Controls.Add(Me.Button1)
|
||||
Me.pnl.Controls.Add(Me.Label4)
|
||||
Me.pnl.Controls.Add(Me.Label5)
|
||||
Me.pnl.Controls.Add(Me.Label2)
|
||||
Me.pnl.Controls.Add(Me.Label3)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pnl.Location = New System.Drawing.Point(573, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(361, 72)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'cboDakosyAction
|
||||
'
|
||||
Me.cboDakosyAction._allowedValuesFreiText = Nothing
|
||||
Me.cboDakosyAction._allowFreiText = False
|
||||
Me.cboDakosyAction._value = ""
|
||||
Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboDakosyAction.FormattingEnabled = True
|
||||
Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48)
|
||||
Me.cboDakosyAction.Name = "cboDakosyAction"
|
||||
Me.cboDakosyAction.Size = New System.Drawing.Size(158, 21)
|
||||
Me.cboDakosyAction.TabIndex = 1
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.BackColor = System.Drawing.Color.White
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button1.Location = New System.Drawing.Point(200, 5)
|
||||
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(159, 42)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.Text = "An DAKOSY senden -->"
|
||||
Me.Button1.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(8, 24)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(60, 13)
|
||||
Me.Label4.TabIndex = 9
|
||||
Me.Label4.Text = "Rohmasse:"
|
||||
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.Label5.Location = New System.Drawing.Point(100, 21)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(95, 18)
|
||||
Me.Label5.TabIndex = 10
|
||||
Me.Label5.Text = "0 kg"
|
||||
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'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(8, 8)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(59, 13)
|
||||
Me.Label2.TabIndex = 7
|
||||
Me.Label2.Text = "Positionen:"
|
||||
Me.Label2.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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.Label3.Location = New System.Drawing.Point(103, 5)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(92, 18)
|
||||
Me.Label3.TabIndex = 8
|
||||
Me.Label3.Text = "1"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.White
|
||||
Me.Label1.Location = New System.Drawing.Point(581, 7)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(82, 13)
|
||||
Me.Label1.TabIndex = 5
|
||||
Me.Label1.Text = "Bezugsnummer:"
|
||||
'
|
||||
'lblBezugsnummer
|
||||
'
|
||||
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
|
||||
Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr
|
||||
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblBezugsnummer.Location = New System.Drawing.Point(738, 1)
|
||||
Me.lblBezugsnummer.Name = "lblBezugsnummer"
|
||||
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
|
||||
Me.lblBezugsnummer.TabIndex = 6
|
||||
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
|
||||
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'cntxtBezugsnr
|
||||
'
|
||||
Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem})
|
||||
Me.cntxtBezugsnr.Name = "cntxtBezugsnr"
|
||||
Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26)
|
||||
Me.cntxtBezugsnr.Text = "Bezugsnr"
|
||||
'
|
||||
'NeueBezugsnummerVergebenToolStripMenuItem
|
||||
'
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem"
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.lblBezugsnummer)
|
||||
Me.Panel1.Controls.Add(Me.MenuStrip)
|
||||
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(934, 25)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'MenuStrip
|
||||
'
|
||||
Me.MenuStrip.BackColor = System.Drawing.Color.White
|
||||
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem})
|
||||
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip.Name = "MenuStrip"
|
||||
Me.MenuStrip.Size = New System.Drawing.Size(934, 24)
|
||||
Me.MenuStrip.TabIndex = 0
|
||||
'
|
||||
'OptionenToolStripMenuItem
|
||||
'
|
||||
Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem})
|
||||
Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
|
||||
Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
|
||||
Me.OptionenToolStripMenuItem.Text = "Optionen"
|
||||
'
|
||||
'SpeichernToolStripMenuItem
|
||||
'
|
||||
Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
|
||||
Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
|
||||
Me.SpeichernToolStripMenuItem.Text = "Speichern"
|
||||
'
|
||||
'LadenToolStripMenuItem
|
||||
'
|
||||
Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem"
|
||||
Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
|
||||
Me.LadenToolStripMenuItem.Text = "Laden ..."
|
||||
'
|
||||
'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(8, 51)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(57, 13)
|
||||
Me.Label6.TabIndex = 16
|
||||
Me.Label6.Text = "Stammref.:"
|
||||
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'cboStammreferenz
|
||||
'
|
||||
Me.cboStammreferenz._allowedValuesFreiText = Nothing
|
||||
Me.cboStammreferenz._allowFreiText = False
|
||||
Me.cboStammreferenz._value = ""
|
||||
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboStammreferenz.FormattingEnabled = True
|
||||
Me.cboStammreferenz.Location = New System.Drawing.Point(71, 48)
|
||||
Me.cboStammreferenz.Name = "cboStammreferenz"
|
||||
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
|
||||
Me.cboStammreferenz.TabIndex = 15
|
||||
'
|
||||
'usrCntlATLAS_AES
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Controls.Add(Me.SplitContainer)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Name = "usrCntlATLAS_AES"
|
||||
Me.Size = New System.Drawing.Size(934, 712)
|
||||
Me.SplitContainer.Panel1.ResumeLayout(False)
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer.ResumeLayout(False)
|
||||
Me.MyFlowLayoutPanel1.ResumeLayout(False)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.cntxtBezugsnr.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.MenuStrip.ResumeLayout(False)
|
||||
Me.MenuStrip.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
|
||||
Friend WithEvents btnAllgemein As System.Windows.Forms.Button
|
||||
Friend WithEvents btnAdressen As System.Windows.Forms.Button
|
||||
Friend WithEvents btnSicherheit As System.Windows.Forms.Button
|
||||
Friend WithEvents btnAktiveVeredelung As System.Windows.Forms.Button
|
||||
Friend WithEvents btnPositionen As System.Windows.Forms.Button
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents SpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents LadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
|
||||
End Class
|
||||
129
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.resx
Normal file
129
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.resx
Normal file
@@ -0,0 +1,129 @@
|
||||
<?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="cntxtBezugsnr.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</metadata>
|
||||
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
408
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.vb
Normal file
408
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.vb
Normal file
@@ -0,0 +1,408 @@
|
||||
Imports DAKOSY_Worker
|
||||
Imports Tamir
|
||||
Imports Tamir.SharpSsh
|
||||
|
||||
Public Class usrCntlATLAS_AES
|
||||
|
||||
Property ALLG As usrCntlATLAS_AES_Allg
|
||||
Property ADRESSEN As usrCntlATLAS_AES_Adressen
|
||||
Property POSITIONEN As usrCntlATLAS_AES_Positionen
|
||||
|
||||
Property PASS_VEREDELUNG As usrCntlATLAS_AES_PassiveVeredelung
|
||||
|
||||
|
||||
Property Jahr2Stellig As Integer
|
||||
Property zusatz As String
|
||||
Property BezugsNr As String = ""
|
||||
|
||||
|
||||
Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
|
||||
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
|
||||
|
||||
|
||||
Dim cDy_ART As String = "EX"
|
||||
|
||||
Dim AES As cDakosyAES = Nothing
|
||||
Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing
|
||||
|
||||
|
||||
Property isSTAMMREF As Boolean = False
|
||||
Property STAMMREF As String = ""
|
||||
|
||||
Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Me.cDy_ART = If(ART = "NCTS", "T2", ART)
|
||||
|
||||
Me.Jahr2Stellig = Jahr2Stellig
|
||||
Me.zusatz = zusatz
|
||||
|
||||
Me.AVISO = AVISO
|
||||
Me.SENDUNG = SENDUNG
|
||||
Me.DY_ANM = DY_ANM
|
||||
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
|
||||
If DY_ANM IsNot Nothing Then
|
||||
Me.AES = DAKOSY_Worker.cDakosyAES.LOADByAnmIDFull(DY_ANM.dy_Id, True)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub New(AES As cDakosyAES, Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
InitializeComponent()
|
||||
Me.AES = AES
|
||||
DY_ANM = New cDakosy_Zollanmeldungen(AES.aes_dyaAnmID)
|
||||
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
|
||||
If DY_ANM.dy_AvisoId > 0 Then
|
||||
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||
AVISO = AV.LesenAviso(DY_ANM.dy_AvisoId, "")
|
||||
End If
|
||||
If DY_ANM.dy_SendungsId > 0 Then
|
||||
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_ANM.dy_SendungsId)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub New(ART As String, AvisoId As Integer, SENDUNGS_ID As Integer, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.cDy_ART = If(ART <> "", ART, "EX")
|
||||
|
||||
If AvisoId > 0 Then
|
||||
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||
AVISO = AV.LesenAviso(AvisoId, "")
|
||||
End If
|
||||
If SENDUNGS_ID > 0 Then
|
||||
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SENDUNGS_ID)
|
||||
End If
|
||||
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
|
||||
Me.Jahr2Stellig = Jahr2Stellig
|
||||
Me.zusatz = zusatz
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
Sub New(ART As String, Aviso As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.cDy_ART = If(ART <> "", ART, "EX")
|
||||
Me.AVISO = Aviso
|
||||
Me.SENDUNG = SENDUNG
|
||||
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
|
||||
Me.Jahr2Stellig = Jahr2Stellig
|
||||
Me.zusatz = zusatz
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
|
||||
Function getBezugsnr(ByRef BezugsNr)
|
||||
BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
|
||||
zusatz = "A"
|
||||
'Soloagne bis die Bezugsnummer noch nicht existiert
|
||||
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
|
||||
BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "/" & zusatz
|
||||
If zusatz.Length = 1 Then
|
||||
zusatz = Chr(Asc(zusatz.ToString) + 1)
|
||||
Else
|
||||
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
|
||||
End If
|
||||
If zusatz = "Z" Then zusatz = "AA"
|
||||
End While
|
||||
lblBezugsnummer.Text = BezugsNr
|
||||
Return BezugsNr
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
cboDakosyAction.Items.Clear()
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND))
|
||||
cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE)
|
||||
|
||||
ADRESSEN = New usrCntlATLAS_AES_Adressen(AES) ')
|
||||
ALLG = New usrCntlATLAS_AES_Allg(AES)
|
||||
POSITIONEN = New usrCntlATLAS_AES_Positionen(AES)
|
||||
PASS_VEREDELUNG = New usrCntlATLAS_AES_PassiveVeredelung(AES)
|
||||
|
||||
If AES Is Nothing Then ' NEUE ZOLLANMELDUNG
|
||||
Try
|
||||
|
||||
BezugsNr = getBezugsnr(BezugsNr)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.StackTrace)
|
||||
End Try
|
||||
AES = cDakosyAES.LOADByBezugsNr(BezugsNr, True)
|
||||
If AES Is Nothing Then
|
||||
'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist
|
||||
AES = New cDakosyAES()
|
||||
loaddataFromAVISO(AES)
|
||||
End If
|
||||
|
||||
Else
|
||||
' AES is ot nothing
|
||||
Me.BezugsNr = AES.aes_ObjectName
|
||||
'MsgBox(AES.ncts_Hauptverpflichteter_Name)
|
||||
|
||||
End If
|
||||
|
||||
' If AES.ncts_ArtAnmeldung Is Nothing Or AES.ncts_ArtAnmeldung = "" Then
|
||||
'AES.ncts_ArtAnmeldung = "T2"
|
||||
'End If
|
||||
|
||||
|
||||
'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s
|
||||
Me.SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
Me.SplitContainer.Panel2.Controls.Add(POSITIONEN)
|
||||
Me.SplitContainer.Panel2.Controls.Add(ADRESSEN)
|
||||
|
||||
' MsgBox(AES.ncts_Hauptverpflichteter_Name)
|
||||
'Werte setzen:
|
||||
ADRESSEN.setValues(AES)
|
||||
ALLG.setValues(AES)
|
||||
POSITIONEN.setValues(AES)
|
||||
PASS_VEREDELUNG.setValues(AES)
|
||||
|
||||
'Controls wieder entfernen:
|
||||
Me.SplitContainer.Panel2.Controls.Clear()
|
||||
|
||||
|
||||
|
||||
'If ALLG.txtRechnungspreis.Text = "" Then ALLG.txtRechnungspreis.Text = BezugsNr
|
||||
|
||||
|
||||
|
||||
' ADRESSEN.CreateControl()
|
||||
For Each c In MyFlowLayoutPanel1.Controls
|
||||
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
|
||||
AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick
|
||||
End If
|
||||
Next
|
||||
|
||||
SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
lblBezugsnummer.Text = BezugsNr
|
||||
|
||||
|
||||
|
||||
|
||||
ALLG.Dock = DockStyle.Fill
|
||||
ADRESSEN.Dock = DockStyle.Fill
|
||||
POSITIONEN.Dock = DockStyle.Fill
|
||||
PASS_VEREDELUNG.Dock = DockStyle.Fill
|
||||
'
|
||||
'
|
||||
AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse)
|
||||
Label5.Text = rohmasse.ToString("N2") & " kg"
|
||||
End Sub
|
||||
AddHandler POSITIONEN.PosAnzChanged, Sub(anz)
|
||||
Label3.Text = anz
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
Sub buttonClick(sender As Object, e As EventArgs) 'HANDLED
|
||||
Dim btn As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button)
|
||||
|
||||
For Each c In MyFlowLayoutPanel1.Controls
|
||||
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
|
||||
DirectCast(c, System.Windows.Forms.Button).BackColor = Drawing.Color.White
|
||||
DirectCast(c, System.Windows.Forms.Button).ForeColor = Drawing.Color.Black
|
||||
End If
|
||||
Next
|
||||
|
||||
btn.BackColor = Drawing.Color.SteelBlue 'Drawing.Color.FromArgb(0, 54, 128)
|
||||
btn.ForeColor = Drawing.Color.White
|
||||
|
||||
|
||||
SplitContainer.Panel2.Controls.Clear()
|
||||
|
||||
If btn Is btnAllgemein Then
|
||||
SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
ElseIf btn Is btnAdressen Then
|
||||
SplitContainer.Panel2.Controls.Add(ADRESSEN)
|
||||
ElseIf btn Is btnPositionen Then
|
||||
SplitContainer.Panel2.Controls.Add(POSITIONEN)
|
||||
ElseIf btn Is btnAktiveVeredelung Then
|
||||
SplitContainer.Panel2.Controls.Add(PASS_VEREDELUNG)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub loaddataFromAVISO(ByRef cdy As cDakosyAES)
|
||||
Try
|
||||
|
||||
'==> VORBLENDUNG:
|
||||
|
||||
' Dim cdy As New cDakosyAES
|
||||
cdy.aes_ObjectName = BezugsNr
|
||||
' cdy.aes_AbgangsDienststellennummer = "DE004102"
|
||||
' cdy.aes_VersendungsLandCode = "DE"
|
||||
cdy.aes_dyaArt = cDy_ART
|
||||
If AVISO IsNot Nothing Then
|
||||
' cdy.aes_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr
|
||||
' cdy.aes_Befoerderungsmittel_KennzeichenGrenzueberschreitend = "X"
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(712255) ' VERAG Neuhaus
|
||||
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(712255) ' VERAG Neuhaus
|
||||
|
||||
|
||||
If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
|
||||
Dim AD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Frächter_KdNr) ' Befoerderer
|
||||
Dim KD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cKunde(AVISO.Frächter_KdNr) ' Befoerderer
|
||||
|
||||
Else
|
||||
' cdy.aes_SumA_Befoerderer_Name = If(AVISO.Frächter, "")
|
||||
End If
|
||||
|
||||
If False Then
|
||||
|
||||
If SENDUNG IsNot Nothing Then
|
||||
Dim p As New DAKOSY_Worker.cDakosy_AES_Warenposition
|
||||
p.aesWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
|
||||
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
|
||||
Dim pk As New DAKOSY_Worker.cDakosy_AES_WarenpositionPackstuecke
|
||||
pk.aesWpPk_PackstueckeAnzahl = SENDUNG.tblSnd_Colli
|
||||
pk.aesWpPk_Verpackungsart = "PK"
|
||||
p.aesWP_PACKSTUECKE.Add(pk)
|
||||
End If
|
||||
p.aesWP_Rohmasse = SENDUNG.tblSnd_Gewicht
|
||||
p.aesWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
|
||||
cdy.aes_WARENPOS.Add(p)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
cdy.aes_BefoerderungsmittelAbgangKennzeichen = AVISO.LKW_Nr
|
||||
cdy.aes_BefoerderungsmittelAbgangStaatCode = AVISO.LKW_Nationalitaet
|
||||
cdy.aes_Ausfuhrland = "DE"
|
||||
|
||||
cdy.aes_VerkehrszweigGrenze = "3"
|
||||
cdy.aes_VerkehrszweigInland = "3"
|
||||
cdy.aes_BefoerderungsmittelAbgangArtCode = "33"
|
||||
cdy.aes_BefoerderungsmittelGrenzeArtCode = "33"
|
||||
cdy.aes_BefoerderungsmittelGrenzeKennzeichen = AVISO.LKW_Nr
|
||||
cdy.aes_BefoerderungsmittelGrenzeStaatCode = AVISO.LKW_Nationalitaet
|
||||
|
||||
cdy.aes_Rechnungwaehrung = "EUR"
|
||||
|
||||
' NCTS= cdy
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub setValue(AES)
|
||||
BezugsNr = AES.ncts_ObjectName
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub loadDYZollanmeldungen(Optional Status As String = "") ' + Speichern
|
||||
If DY_ANM Is Nothing Then
|
||||
DY_ANM = New cDakosy_Zollanmeldungen(AES.aes_dyaAnmID)
|
||||
End If
|
||||
DY_ANM.dy_ART = ALLG.AES_ART 'cDy_ART
|
||||
DY_ANM.dy_BezugsNr = BezugsNr
|
||||
DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID)
|
||||
DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID)
|
||||
'Status?
|
||||
DY_ANM.SAVE() 'Speichern, ID wird erzeugt
|
||||
|
||||
End Sub
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
Me.Refresh()
|
||||
|
||||
If vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der Dakosy Software möglich.", vbYesNoCancel) Then
|
||||
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
|
||||
loadDYZollanmeldungen()
|
||||
|
||||
If AES IsNot Nothing Then
|
||||
'Dim cDY As New cDakosyAES(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
|
||||
AES.aes_dyaAnmID = DY_ANM.dy_Id
|
||||
AES.aes_Erstellung_SB = DY_ANM.dy_Erstellung_SB
|
||||
AES.aes_LetzteBearbeitung = Now
|
||||
AES.aes_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
|
||||
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungAES(AES, Me, DY_ANM)
|
||||
|
||||
If Not AES.SAVE_ALL() Then Exit Sub
|
||||
|
||||
Dim saveFile = ""
|
||||
If DAKOSY_Interface_SEND.generateVersandanmeldungAES(AES, saveFile, cboDakosyAction._value) Then
|
||||
If saveFile <> "" Then
|
||||
If Not cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id) Then
|
||||
MsgBox("Sendefehler!")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
DY_ANM.UPDATE_DATA()
|
||||
Me.FindForm.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
|
||||
|
||||
Me.Refresh()
|
||||
|
||||
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID))
|
||||
loadDYZollanmeldungen()
|
||||
|
||||
If AES IsNot Nothing Then
|
||||
'Dim cDY As New cDakosyAES(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
|
||||
AES.aes_dyaAnmID = DY_ANM.dy_Id
|
||||
AES.aes_Erstellung_SB = DY_ANM.dy_Erstellung_SB
|
||||
AES.aes_LetzteBearbeitung = Now
|
||||
AES.aes_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
|
||||
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungAES(AES, Me, DY_ANM)
|
||||
|
||||
If Not AES.SAVE_ALL() Then
|
||||
'gespeichert
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
DY_ANM.UPDATE_DATA()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click
|
||||
BezugsNr = getBezugsnr(BezugsNr)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
144
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Adressen.Designer.vb
generated
Normal file
144
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Adressen.Designer.vb
generated
Normal file
@@ -0,0 +1,144 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrCntlATLAS_AES_Adressen
|
||||
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.pnl = New System.Windows.Forms.Panel()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.usrCntl_Subunternehmer = New SDL.usrCntlAdresse()
|
||||
Me.usrCntl_Ausfuehrer = New SDL.usrCntlAdresse()
|
||||
Me.usrCntl_Verfahrensinhaber = New SDL.usrCntlAdresse()
|
||||
Me.usrCntl_VertreterAnmelder = New SDL.usrCntlAdresse()
|
||||
Me.usrCntl_Empfaenger = New SDL.usrCntlAdresse()
|
||||
Me.usrCntl_Anmelder = New SDL.usrCntlAdresse()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Subunternehmer)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Ausfuehrer)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Verfahrensinhaber)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_VertreterAnmelder)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Empfaenger)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Anmelder)
|
||||
Me.pnl.Controls.Add(Me.PictureBox2)
|
||||
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(907, 628)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'PictureBox2
|
||||
'
|
||||
Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.lorry_motion
|
||||
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(421, 73)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(58, 34)
|
||||
Me.PictureBox2.TabIndex = 49
|
||||
Me.PictureBox2.TabStop = False
|
||||
'
|
||||
'usrCntl_Subunternehmer
|
||||
'
|
||||
Me.usrCntl_Subunternehmer._Titel = "Subunternehmer:"
|
||||
Me.usrCntl_Subunternehmer.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Subunternehmer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Subunternehmer.Location = New System.Drawing.Point(17, 465)
|
||||
Me.usrCntl_Subunternehmer.Name = "usrCntl_Subunternehmer"
|
||||
Me.usrCntl_Subunternehmer.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntl_Subunternehmer.TabIndex = 50
|
||||
'
|
||||
'usrCntl_Ausfuehrer
|
||||
'
|
||||
Me.usrCntl_Ausfuehrer._Titel = "Ausführer:"
|
||||
Me.usrCntl_Ausfuehrer.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Ausfuehrer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Ausfuehrer.Location = New System.Drawing.Point(17, 21)
|
||||
Me.usrCntl_Ausfuehrer.Name = "usrCntl_Ausfuehrer"
|
||||
Me.usrCntl_Ausfuehrer.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntl_Ausfuehrer.TabIndex = 5
|
||||
'
|
||||
'usrCntl_Verfahrensinhaber
|
||||
'
|
||||
Me.usrCntl_Verfahrensinhaber._Titel = "Verfahrensinhaber:"
|
||||
Me.usrCntl_Verfahrensinhaber.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Verfahrensinhaber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Verfahrensinhaber.Location = New System.Drawing.Point(482, 176)
|
||||
Me.usrCntl_Verfahrensinhaber.Name = "usrCntl_Verfahrensinhaber"
|
||||
Me.usrCntl_Verfahrensinhaber.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntl_Verfahrensinhaber.TabIndex = 4
|
||||
'
|
||||
'usrCntl_VertreterAnmelder
|
||||
'
|
||||
Me.usrCntl_VertreterAnmelder._Titel = "Vertreter des Anmelders:"
|
||||
Me.usrCntl_VertreterAnmelder.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_VertreterAnmelder.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_VertreterAnmelder.Location = New System.Drawing.Point(17, 307)
|
||||
Me.usrCntl_VertreterAnmelder.Name = "usrCntl_VertreterAnmelder"
|
||||
Me.usrCntl_VertreterAnmelder.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntl_VertreterAnmelder.TabIndex = 3
|
||||
'
|
||||
'usrCntl_Empfaenger
|
||||
'
|
||||
Me.usrCntl_Empfaenger._Titel = "Empfänger:"
|
||||
Me.usrCntl_Empfaenger.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Empfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Empfaenger.Location = New System.Drawing.Point(482, 21)
|
||||
Me.usrCntl_Empfaenger.Name = "usrCntl_Empfaenger"
|
||||
Me.usrCntl_Empfaenger.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntl_Empfaenger.TabIndex = 2
|
||||
'
|
||||
'usrCntl_Anmelder
|
||||
'
|
||||
Me.usrCntl_Anmelder._Titel = "Anmelder:"
|
||||
Me.usrCntl_Anmelder.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Anmelder.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Anmelder.Location = New System.Drawing.Point(17, 176)
|
||||
Me.usrCntl_Anmelder.Name = "usrCntl_Anmelder"
|
||||
Me.usrCntl_Anmelder.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntl_Anmelder.TabIndex = 1
|
||||
'
|
||||
'usrCntlATLAS_AES_Adressen
|
||||
'
|
||||
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.pnl)
|
||||
Me.Name = "usrCntlATLAS_AES_Adressen"
|
||||
Me.Size = New System.Drawing.Size(907, 628)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents usrCntl_Empfaenger As SDL.usrCntlAdresse
|
||||
Friend WithEvents usrCntl_Anmelder As SDL.usrCntlAdresse
|
||||
Friend WithEvents usrCntl_Verfahrensinhaber As SDL.usrCntlAdresse
|
||||
Friend WithEvents usrCntl_VertreterAnmelder As SDL.usrCntlAdresse
|
||||
Friend WithEvents usrCntl_Ausfuehrer As SDL.usrCntlAdresse
|
||||
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents usrCntl_Subunternehmer As SDL.usrCntlAdresse
|
||||
|
||||
End Class
|
||||
120
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Adressen.resx
Normal file
120
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Adressen.resx
Normal 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>
|
||||
142
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Adressen.vb
Normal file
142
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Adressen.vb
Normal file
@@ -0,0 +1,142 @@
|
||||
Public Class usrCntlATLAS_AES_Adressen
|
||||
' Dim OWNER As Control
|
||||
Dim NCTS_OUT As DAKOSY_Worker.cDakosyAES = Nothing
|
||||
'Sub New(OWNER As Control, NCTS_OUT As DAKOSY_Worker.cDakosyAES)
|
||||
Sub New(NCTS_OUT As DAKOSY_Worker.cDakosyAES)
|
||||
InitializeComponent()
|
||||
'Me.OWNER = OWNER
|
||||
Me.NCTS_OUT = NCTS_OUT
|
||||
End Sub
|
||||
|
||||
Public Sub usrCntlATLAS_NCTS_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
' usrCntlSumA_Befoerderer.initME()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyAES)
|
||||
NCTS.aes_AusfuehrerTeilnehmerName = cProgramFunctions.isLeerNothing(usrCntl_Ausfuehrer.kdFirma.Text)
|
||||
NCTS.aes_AusfuehrerTeilnehmerStrasse = cProgramFunctions.isLeerNothing(usrCntl_Ausfuehrer.txtStrasse.Text)
|
||||
NCTS.aes_AusfuehrerTeilnehmerPLZ = cProgramFunctions.isLeerNothing(usrCntl_Ausfuehrer.txtPlz.Text)
|
||||
NCTS.aes_AusfuehrerTeilnehmerOrt = cProgramFunctions.isLeerNothing(usrCntl_Ausfuehrer.txtOrt.Text)
|
||||
NCTS.aes_AusfuehrerTeilnehmerLandCode = cProgramFunctions.isLeerNothing(usrCntl_Ausfuehrer.sbLand._value)
|
||||
NCTS.aes_AusfuehrerTeilnehmerEORI = cProgramFunctions.isLeerNothing(usrCntl_Ausfuehrer.txtEORI.Text)
|
||||
NCTS.aes_AusfuehrerTeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl_Ausfuehrer.txtEORINL.Text)
|
||||
NCTS.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter = cProgramFunctions.isLeerNothing(usrCntl_Ausfuehrer.txtAnsprechpartner.Text)
|
||||
|
||||
|
||||
NCTS.aes_AnmelderTeilnehmerName = cProgramFunctions.isLeerNothing(usrCntl_Anmelder.kdFirma.Text)
|
||||
NCTS.aes_AnmelderTeilnehmerStrasse = cProgramFunctions.isLeerNothing(usrCntl_Anmelder.txtStrasse.Text)
|
||||
NCTS.aes_AnmelderTeilnehmerPLZ = cProgramFunctions.isLeerNothing(usrCntl_Anmelder.txtPlz.Text)
|
||||
NCTS.aes_AnmelderTeilnehmerOrt = cProgramFunctions.isLeerNothing(usrCntl_Anmelder.txtOrt.Text)
|
||||
NCTS.aes_AnmelderTeilnehmerLandCode = cProgramFunctions.isLeerNothing(usrCntl_Anmelder.sbLand._value)
|
||||
NCTS.aes_AnmelderTeilnehmerEORI = cProgramFunctions.isLeerNothing(usrCntl_Anmelder.txtEORI.Text)
|
||||
NCTS.aes_AnmelderTeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl_Anmelder.txtEORINL.Text)
|
||||
NCTS.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter = cProgramFunctions.isLeerNothing(usrCntl_Anmelder.txtAnsprechpartner.Text)
|
||||
|
||||
NCTS.aes_EmpfaengerTeilnehmerName = cProgramFunctions.isLeerNothing(usrCntl_Empfaenger.kdFirma.Text)
|
||||
NCTS.aes_EmpfaengerTeilnehmerStrasse = cProgramFunctions.isLeerNothing(usrCntl_Empfaenger.txtStrasse.Text)
|
||||
NCTS.aes_EmpfaengerTeilnehmerPLZ = cProgramFunctions.isLeerNothing(usrCntl_Empfaenger.txtPlz.Text)
|
||||
NCTS.aes_EmpfaengerTeilnehmerOrt = cProgramFunctions.isLeerNothing(usrCntl_Empfaenger.txtOrt.Text)
|
||||
NCTS.aes_EmpfaengerTeilnehmerLandCode = cProgramFunctions.isLeerNothing(usrCntl_Empfaenger.sbLand._value)
|
||||
NCTS.aes_EmpfaengerTeilnehmerEORI = cProgramFunctions.isLeerNothing(usrCntl_Empfaenger.txtEORI.Text)
|
||||
NCTS.aes_EmpfaengerTeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl_Empfaenger.txtEORINL.Text)
|
||||
'NCTS.aes_EmpfaengerTeilnehmerAnsprechpartnerSachbearbeiter = cProgramFunctions.isLeerNothing(usrCntl_Empfaenger.txtAnsprechpartner.Text)
|
||||
|
||||
NCTS.aes_VertreterAnmelderTeilnehmerName = cProgramFunctions.isLeerNothing(usrCntl_VertreterAnmelder.kdFirma.Text)
|
||||
NCTS.aes_VertreterAnmelderTeilnehmerStrasse = cProgramFunctions.isLeerNothing(usrCntl_VertreterAnmelder.txtStrasse.Text)
|
||||
NCTS.aes_VertreterAnmelderTeilnehmerPLZ = cProgramFunctions.isLeerNothing(usrCntl_VertreterAnmelder.txtPlz.Text)
|
||||
NCTS.aes_VertreterAnmelderTeilnehmerOrt = cProgramFunctions.isLeerNothing(usrCntl_VertreterAnmelder.txtOrt.Text)
|
||||
NCTS.aes_VertreterAnmelderTeilnehmerLandCode = cProgramFunctions.isLeerNothing(usrCntl_VertreterAnmelder.sbLand._value)
|
||||
NCTS.aes_VertreterAnmelderTeilnehmerEORI = cProgramFunctions.isLeerNothing(usrCntl_VertreterAnmelder.txtEORI.Text)
|
||||
NCTS.aes_VertreterAnmelderTeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl_VertreterAnmelder.txtEORINL.Text)
|
||||
NCTS.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter = cProgramFunctions.isLeerNothing(usrCntl_VertreterAnmelder.txtAnsprechpartner.Text)
|
||||
|
||||
NCTS.aes_SubunternehmerTeilnehmerName = cProgramFunctions.isLeerNothing(usrCntl_Subunternehmer.kdFirma.Text)
|
||||
NCTS.aes_SubunternehmerTeilnehmerStrasse = cProgramFunctions.isLeerNothing(usrCntl_Subunternehmer.txtStrasse.Text)
|
||||
NCTS.aes_SubunternehmerTeilnehmerPLZ = cProgramFunctions.isLeerNothing(usrCntl_Subunternehmer.txtPlz.Text)
|
||||
NCTS.aes_SubunternehmerTeilnehmerOrt = cProgramFunctions.isLeerNothing(usrCntl_Subunternehmer.txtOrt.Text)
|
||||
NCTS.aes_SubunternehmerTeilnehmerLandCode = cProgramFunctions.isLeerNothing(usrCntl_Subunternehmer.sbLand._value)
|
||||
NCTS.aes_SubunternehmerTeilnehmerEORI = cProgramFunctions.isLeerNothing(usrCntl_Subunternehmer.txtEORI.Text)
|
||||
NCTS.aes_SubunternehmerTeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl_Subunternehmer.txtEORINL.Text)
|
||||
NCTS.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter = cProgramFunctions.isLeerNothing(usrCntl_Subunternehmer.txtAnsprechpartner.Text)
|
||||
|
||||
'NCTS.aes_VerfahrensinhaberPVTeilnehmerName = cProgramFunctions.isLeerNothing(usrCntl_Verfahrensinhaber.kdFirma.Text)
|
||||
'NCTS.aes_VerfahrensinhaberPVTeilnehmerStrasse = cProgramFunctions.isLeerNothing(usrCntl_Verfahrensinhaber.txtStrasse.Text)
|
||||
'NCTS.aes_VerfahrensinhaberPVTeilnehmerPLZ = cProgramFunctions.isLeerNothing(usrCntl_Verfahrensinhaber.txtPlz.Text)
|
||||
'NCTS.aes_VerfahrensinhaberPVTeilnehmerOrt = cProgramFunctions.isLeerNothing(usrCntl_Verfahrensinhaber.txtOrt.Text)
|
||||
' NCTS.aes_VerfahrensinhaberPVTeilnehmerLandCode = cProgramFunctions.isLeerNothing(usrCntl_Verfahrensinhaber.sbLand._value)
|
||||
NCTS.aes_VerfahrensinhaberPVTeilnehmerEORI = cProgramFunctions.isLeerNothing(usrCntl_Verfahrensinhaber.txtEORI.Text)
|
||||
NCTS.aes_VerfahrensinhaberPVTeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl_Verfahrensinhaber.txtEORINL.Text)
|
||||
NCTS.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter = cProgramFunctions.isLeerNothing(usrCntl_Verfahrensinhaber.txtAnsprechpartner.Text)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyAES)
|
||||
usrCntl_Ausfuehrer.kdFirma.Text = NCTS.aes_AusfuehrerTeilnehmerName
|
||||
usrCntl_Ausfuehrer.txtStrasse.Text = NCTS.aes_AusfuehrerTeilnehmerStrasse
|
||||
usrCntl_Ausfuehrer.txtPlz.Text = NCTS.aes_AusfuehrerTeilnehmerPLZ
|
||||
usrCntl_Ausfuehrer.txtOrt.Text = NCTS.aes_AusfuehrerTeilnehmerOrt
|
||||
usrCntl_Ausfuehrer.txtEORI.Text = NCTS.aes_AusfuehrerTeilnehmerEORI
|
||||
usrCntl_Ausfuehrer.txtEORINL.Text = NCTS.aes_AusfuehrerTeilnehmerNLNR
|
||||
usrCntl_Ausfuehrer.sbLand.SET_VALUE(NCTS.aes_AusfuehrerTeilnehmerLandCode)
|
||||
usrCntl_Ausfuehrer.txtAnsprechpartner.Text = NCTS.aes_AusfuehrerTeilnehmerAnsprechpartnerSachbearbeiter
|
||||
|
||||
usrCntl_Anmelder.kdFirma.Text = NCTS.aes_AnmelderTeilnehmerName
|
||||
usrCntl_Anmelder.txtStrasse.Text = NCTS.aes_AnmelderTeilnehmerStrasse
|
||||
usrCntl_Anmelder.txtPlz.Text = NCTS.aes_AnmelderTeilnehmerPLZ
|
||||
usrCntl_Anmelder.txtOrt.Text = NCTS.aes_AnmelderTeilnehmerOrt
|
||||
usrCntl_Anmelder.txtEORI.Text = NCTS.aes_AnmelderTeilnehmerEORI
|
||||
usrCntl_Anmelder.txtEORINL.Text = NCTS.aes_AnmelderTeilnehmerNLNR
|
||||
usrCntl_Anmelder.sbLand.SET_VALUE(NCTS.aes_AnmelderTeilnehmerLandCode)
|
||||
usrCntl_Anmelder.txtAnsprechpartner.Text = NCTS.aes_AnmelderTeilnehmerAnsprechpartnerSachbearbeiter
|
||||
|
||||
usrCntl_Empfaenger.kdFirma.Text = NCTS.aes_EmpfaengerTeilnehmerName
|
||||
usrCntl_Empfaenger.txtStrasse.Text = NCTS.aes_EmpfaengerTeilnehmerStrasse
|
||||
usrCntl_Empfaenger.txtPlz.Text = NCTS.aes_EmpfaengerTeilnehmerPLZ
|
||||
usrCntl_Empfaenger.txtOrt.Text = NCTS.aes_EmpfaengerTeilnehmerOrt
|
||||
usrCntl_Empfaenger.txtEORI.Text = NCTS.aes_EmpfaengerTeilnehmerEORI
|
||||
usrCntl_Empfaenger.txtEORINL.Text = NCTS.aes_EmpfaengerTeilnehmerNLNR
|
||||
usrCntl_Empfaenger.sbLand.SET_VALUE(NCTS.aes_EmpfaengerTeilnehmerLandCode)
|
||||
' usrCntl_Empfaenger.txtAnsprechpartner.Text = NCTS.aes_EmpfaengerTeilnehmerAnsprechpartnerSachbearbeiter
|
||||
|
||||
usrCntl_VertreterAnmelder.kdFirma.Text = NCTS.aes_VertreterAnmelderTeilnehmerName
|
||||
usrCntl_VertreterAnmelder.txtStrasse.Text = NCTS.aes_VertreterAnmelderTeilnehmerStrasse
|
||||
usrCntl_VertreterAnmelder.txtPlz.Text = NCTS.aes_VertreterAnmelderTeilnehmerPLZ
|
||||
usrCntl_VertreterAnmelder.txtOrt.Text = NCTS.aes_VertreterAnmelderTeilnehmerOrt
|
||||
usrCntl_VertreterAnmelder.txtEORI.Text = NCTS.aes_VertreterAnmelderTeilnehmerEORI
|
||||
usrCntl_VertreterAnmelder.txtEORINL.Text = NCTS.aes_VertreterAnmelderTeilnehmerNLNR
|
||||
usrCntl_VertreterAnmelder.sbLand.SET_VALUE(NCTS.aes_VertreterAnmelderTeilnehmerLandCode)
|
||||
usrCntl_VertreterAnmelder.txtAnsprechpartner.Text = NCTS.aes_VertreterAnmelderTeilnehmerAnsprechpartnerSachbearbeiter
|
||||
|
||||
usrCntl_Subunternehmer.kdFirma.Text = NCTS.aes_SubunternehmerTeilnehmerName
|
||||
usrCntl_Subunternehmer.txtStrasse.Text = NCTS.aes_SubunternehmerTeilnehmerStrasse
|
||||
usrCntl_Subunternehmer.txtPlz.Text = NCTS.aes_SubunternehmerTeilnehmerPLZ
|
||||
usrCntl_Subunternehmer.txtOrt.Text = NCTS.aes_SubunternehmerTeilnehmerOrt
|
||||
usrCntl_Subunternehmer.txtEORI.Text = NCTS.aes_SubunternehmerTeilnehmerEORI
|
||||
usrCntl_Subunternehmer.txtEORINL.Text = NCTS.aes_SubunternehmerTeilnehmerNLNR
|
||||
usrCntl_Subunternehmer.sbLand.SET_VALUE(NCTS.aes_SubunternehmerTeilnehmerLandCode)
|
||||
usrCntl_Subunternehmer.txtAnsprechpartner.Text = NCTS.aes_SubunternehmerTeilnehmerAnsprechpartnerSachbearbeiter
|
||||
|
||||
'usrCntl_Verfahrensinhaber.kdFirma.Text = NCTS.aes_VerfahrensinhaberpvTeilnehmerName
|
||||
'usrCntl_Verfahrensinhaber.txtStrasse.Text = NCTS.aes_VerfahrensinhaberpvTeilnehmerStrasse
|
||||
' usrCntl_Verfahrensinhaber.txtPlz.Text = NCTS.aes_VerfahrensinhaberpvTeilnehmerPLZ
|
||||
'usrCntl_Verfahrensinhaber.txtOrt.Text = NCTS.aes_VerfahrensinhaberpvTeilnehmerOrt
|
||||
usrCntl_Verfahrensinhaber.txtEORI.Text = NCTS.aes_VerfahrensinhaberPVTeilnehmerEORI
|
||||
usrCntl_Verfahrensinhaber.txtEORINL.Text = NCTS.aes_VerfahrensinhaberPVTeilnehmerNLNR
|
||||
' usrCntl_Verfahrensinhaber.sbLand.SET_VALUE(NCTS.aes_VerfahrensinhaberpvTeilnehmerLandCode)
|
||||
usrCntl_Verfahrensinhaber.txtAnsprechpartner.Text = NCTS.aes_VerfahrensinhaberPVTeilnehmerAnsprechpartnerSachbearbeiter
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
1445
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Allg.Designer.vb
generated
Normal file
1445
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Allg.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
120
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Allg.resx
Normal file
120
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Allg.resx
Normal 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>
|
||||
463
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Allg.vb
Normal file
463
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Allg.vb
Normal file
@@ -0,0 +1,463 @@
|
||||
Public Class usrCntlATLAS_AES_Allg
|
||||
Property AES_ART = "EX"
|
||||
|
||||
Dim AES As DAKOSY_Worker.cDakosyAES = Nothing
|
||||
|
||||
|
||||
Sub New(AES As DAKOSY_Worker.cDakosyAES)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.AES = AES
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub usrCntlATLAS_AES_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
|
||||
|
||||
sbAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbAusgangsZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbTatAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
|
||||
|
||||
sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute2.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute3.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute4.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute5.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute6.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute7.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbBestimmungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbAusfuhrLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbKennzeichenGrenzeLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
sbKennzeichenAbgangLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
txtRechnungspreisWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
|
||||
|
||||
|
||||
' AddHandler sbAusfuhrZollstelleID.VALUE_CHANGED, Sub()
|
||||
' 'If sbAusfuhrZollstelleID.DR IsNot Nothing Then
|
||||
' If sbAusfuhrLand._value = "" Then sbAusfuhrLand.SET_VALUE(sbAusfuhrZollstelleID.DR("Land"))
|
||||
' End If
|
||||
' End Sub
|
||||
AddHandler sbTatAusfuhrZollstelleID.VALUE_CHANGED, Sub()
|
||||
If sbTatAusfuhrZollstelleID.DR IsNot Nothing Then
|
||||
If sbBestimmungsland._value = "" Then sbBestimmungsland.SET_VALUE(sbTatAusfuhrZollstelleID.DR("Land"))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
' LIST_BGW = (New SQL).loadCboBySqlWithListItem("SELECT [basncd_dstnr],[basncd_name] +' (' +[basncd_alpha]+')' FROM [atlas].[dbo].[basncd] where [basncd_gbdat] >= getdate() order by [basncd_alpha], [basncd_name]", False, "ATLAS")
|
||||
|
||||
|
||||
cboVerkehrszweigInland.Items.Clear()
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
|
||||
cboVerkehrszweigInland.changeItem("3")
|
||||
|
||||
cboVerkehrszweigGrenze.Items.Clear()
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
|
||||
cboVerkehrszweigGrenze.changeItem("3")
|
||||
|
||||
|
||||
cboBesondereUmstaende.Items.Clear()
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Post- und Expresssendungen", "A"))
|
||||
cboBesondereUmstaende.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zugelassende Wirtschaftsbeteiligte", "E"))
|
||||
cboBesondereUmstaende.changeItem("3")
|
||||
|
||||
|
||||
cboArtGrenzUeberschreitung.Items.Clear()
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
|
||||
cboArtGrenzUeberschreitung.changeItem("33")
|
||||
|
||||
|
||||
cboArtAbgangUeberschreitung.Items.Clear()
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
|
||||
cboArtAbgangUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
|
||||
cboArtAbgangUeberschreitung.changeItem("33")
|
||||
|
||||
|
||||
cboZahlungsweiseBefKosten.Items.Clear()
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Barzahlung", "A"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B - Kreditkartenzahlung", "B"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Zahlung mit Scheck", "C"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - andere", "D"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("H - Elektr.Geldtransfer", "H"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Y - Kontoinhaber = Beförderer", "Y"))
|
||||
cboZahlungsweiseBefKosten.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - nicht vorausbezahlt", "Z"))
|
||||
cboZahlungsweiseBefKosten.changeItem("D")
|
||||
|
||||
|
||||
cboLieferbedingungen.Items.Clear()
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CFR - Kosten und Fracht", "CFR"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CIF - Kosten, Versicherung und Fracht", "CIF"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CIP - Fracht und Versicherung bezahlt bis", "CIP"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CPT - Fracht bezahlt bis", "CPT"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAF - Frei Grenze", "DAF"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAP - Geliefert benannter Ort", "DAP"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAT - Geliefert Terminal", "DAT"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DDP - Geliefert verzollt", "DDP"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DDU - Geliefert unverzollt", "DDU"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DEQ - Geliefert ab Kai", "DEQ"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DES - Geliefert ab Schiff", "DES"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXW - Ab Werk", "EXW"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FAS - Frei längsseits Schiff", "FAS"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FCA - Frei Frachtführer", "FCA"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FOB - Frei an Bord", "FOB"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("XXX - Andere Lieferbedingungen als vorstehend angegeben", "XXX"))
|
||||
cboLieferbedingungen.changeItem("")
|
||||
|
||||
cboGeschaeftsArt.Items.Clear()
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("11 - Endgültiger Kauf/Verkauf", "11"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Ansichts- oder Probesendungen, Sendungen mit Rückgaberecht und Kommissionsgeschäfte (einschließlich Konsignationslager)", "12"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("13 - Kompensationsgeschäfte (Tauschhandel)", "13"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("14 - Finanzierungsleasing (Mietkauf)", "14"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19 - Sonstige Geschäfte mit Eigentumsübertragung und mit Gegenleistung", "19"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("21 - Rücksendung von Waren", "21"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("22 - Ersatz für zurückgesandte Waren", "22"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Ersatz für nicht zurückgesandte Waren (z. B. wegen Garantie)", "23"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("29 - Sonstige Rücksendung und sonstige unentgeltliche Ersatzlieferung von Waren", "29"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Warenlieferungen im Rahmen von durch die Europäische Gemeinschaft ganz oder teilweise finanzierten Hilfsprogrammen", "31"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Andere Hilfslieferungen öffentlicher Stellen (z. B. militärische und humanitäre Hilfslieferungen Deutschlands)", "32"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Sonstige Hilfslieferungen (von privaten oder von nicht öffentlichen Stellen)", "33"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Sonstige Geschäfte mit Eigentumsübertragung, jedoch ohne Gegenleistung in Form von finanziellen Leistungen oder Sachleistungen", "34"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("41 - Warensendung zur Lohnveredelung, die voraussichtlich in das ursprüngliche Ausfuhrland zurückgelangen", "41"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("42 - Warensendung zur Lohnveredelung, die voraussichtlich nicht in das ursprüngliche Ausfuhrland zurückgelangen", "42"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("51 - Warensendung nach Lohnveredelung, die in das ursprüngliche Ausfuhrland zurückgelangen", "51"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("52 - Warensendung nach Lohnveredelung, die nicht in das ursprüngliche Ausfuhrland zurückgelangen", "52"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("67 - Warensendungen zur und nach Reparatur", "67"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("69 - Vorübergehende Warenverkehre (für nationale Zwecke); ausgenommen die unter Schlüsselnummer 41, 42, 51, 52 und 91 zu erfassenden Warensendungen - sonstige vorübergehende Warenverkehre bis einschließlich 24 Monaten", "69"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("71 - Für militärische Zwecke", "71"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("72 - für zivile Zwecke (z.B. Airbus, ausgenommen die unter Schlüsselnummer 11 bis 14 oder 19 zu erfassenden Warenbewegungen)", "72"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("81 - Geschäfte mit Lieferung von Baumaterial und technischen Ausrüstungen im Rahmen von Hoch- oder Tiefbauarbeiten als Teil eines Generalvertrags, bei denen keine einzelnen Waren in Rechnung gestellt werden, sondern eine einzige Rechnung den Gesamtwert der Waren erfasst.", "81"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("91 - Andere Geschäfte - vorübergehende Warenverkehre über 24 Monate (z.B. Miete, Leihe und Operate Leasing)", "91"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("92 - Lagerverkehr für ausländische Rechnung", "92"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("99 - Andere Geschäfte - nicht anderweitig erfasst", "99"))
|
||||
cboGeschaeftsArt.changeItem("")
|
||||
|
||||
|
||||
txtAnmeldeDatum._value = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
|
||||
Dim ART_UEB As List(Of DAKOSY_Worker.cAnmArtenUeberfuehrung.cAnmArtUeberfuehrung) = DAKOSY_Worker.cAnmArtenUeberfuehrung.LOAD
|
||||
cboArtVerfahrenUeberfuehrung.Items.Clear()
|
||||
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
For Each a In ART_UEB
|
||||
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(a.Code & "/" & a.Qualifier & " - " & a.Description, a.Code & "/" & a.Qualifier))
|
||||
Next
|
||||
|
||||
|
||||
Dim BETKONST As List(Of DAKOSY_Worker.cBeteiligtenKonstellationen.cBeteiligtenKonstellation) = DAKOSY_Worker.cBeteiligtenKonstellationen.LOAD
|
||||
cboBeteiligtenKostellation.Items.Clear()
|
||||
cboBeteiligtenKostellation.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
For Each a In BETKONST
|
||||
cboBeteiligtenKostellation.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(a.Code & " - " & a.Description, a.Code))
|
||||
Next
|
||||
|
||||
|
||||
'btnAllgemein_Click(btnT2, New EventArgs)
|
||||
|
||||
' setValues(AES)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
MsgBox(sbAusfuhrZollstelleID._value)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub getValues(ByRef AES As DAKOSY_Worker.cDakosyAES)
|
||||
AES.aes_AnmeldeArtAusfuhrCode = cProgramFunctions.isLeerNothing(AES_ART)
|
||||
AES.aes_AusgangszollstelleID = cProgramFunctions.isLeerNothing(sbAusgangsZollstelle._value)
|
||||
AES.aes_AusfuhrZollstelleID = cProgramFunctions.isLeerNothing(sbAusfuhrZollstelleID._value)
|
||||
AES.aes_TatsaechlicheAusgangZollstelleID = cProgramFunctions.isLeerNothing(sbTatAusfuhrZollstelleID._value)
|
||||
|
||||
AES.aes_AnmeldedatumZeit = cProgramFunctions.isLeerNothing(txtAnmeldeDatum._value)
|
||||
|
||||
If cboArtVerfahrenUeberfuehrung._value IsNot Nothing Then
|
||||
If cboArtVerfahrenUeberfuehrung._value.Contains("/") Then
|
||||
Dim Split = cboArtVerfahrenUeberfuehrung._value.Split("/")
|
||||
AES.aes_AnmeldeArtVerfahrensCode = Split(0)
|
||||
AES.aes_AnmeldeArtUeberfuehrungCode = Split(1)
|
||||
End If
|
||||
End If
|
||||
AES.aes_BeteiligteKonstellation = cProgramFunctions.isLeerNothing(cboBeteiligtenKostellation._value)
|
||||
|
||||
AES.aes_Ausfuhrland = cProgramFunctions.isLeerNothing(sbAusfuhrLand._value)
|
||||
AES.aes_BestimmungslandCode = cProgramFunctions.isLeerNothing(sbBestimmungsland._value)
|
||||
|
||||
AES.aes_GestellungsfristAnfangDatumZeit = cProgramFunctions.isLeerNothing(txtGestellungsfristAnfang._value)
|
||||
AES.aes_GestellungsfristEndeDatumZeit = cProgramFunctions.isLeerNothing(txtGestellungsfristEnde._value)
|
||||
|
||||
AES.aes_BefoerderungsrouteLand1 = cProgramFunctions.isLeerNothing(sbRoute1._value)
|
||||
AES.aes_BefoerderungsrouteLand2 = cProgramFunctions.isLeerNothing(sbRoute2._value)
|
||||
AES.aes_BefoerderungsrouteLand3 = cProgramFunctions.isLeerNothing(sbRoute3._value)
|
||||
AES.aes_BefoerderungsrouteLand4 = cProgramFunctions.isLeerNothing(sbRoute4._value)
|
||||
AES.aes_BefoerderungsrouteLand5 = cProgramFunctions.isLeerNothing(sbRoute5._value)
|
||||
AES.aes_BefoerderungsrouteLand6 = cProgramFunctions.isLeerNothing(sbRoute6._value)
|
||||
AES.aes_BefoerderungsrouteLand7 = cProgramFunctions.isLeerNothing(sbRoute7._value)
|
||||
AES.aes_BefoerderungsrouteLand8 = cProgramFunctions.isLeerNothing(sbRoute8._value)
|
||||
AES.aes_BefoerderungsrouteLand9 = cProgramFunctions.isLeerNothing(sbRoute9._value)
|
||||
|
||||
AES.aes_Vermerk = cProgramFunctions.isLeerNothing(txtVermerk.Text)
|
||||
|
||||
'----> genauer:::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
' AES.aes_LadeortOrt = cProgramFunctions.isLeerNothing(txtLadeort.Text)
|
||||
|
||||
|
||||
AES.aes_BefoerderungsmittelAbgangKennzeichen = cProgramFunctions.isLeerNothing(txtKennzeichenAbgang._value)
|
||||
AES.aes_BefoerderungsmittelAbgangStaatCode = cProgramFunctions.isLeerNothing(sbKennzeichenAbgangLand._value)
|
||||
AES.aes_BefoerderungsmittelGrenzeKennzeichen = cProgramFunctions.isLeerNothing(txtKennzeichenGrenze._value)
|
||||
AES.aes_BefoerderungsmittelGrenzeStaatCode = cProgramFunctions.isLeerNothing(sbKennzeichenGrenzeLand._value)
|
||||
AES.aes_BefoerderungsmittelGrenzeArtCode = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
|
||||
AES.aes_BefoerderungsmittelAbgangArtCode = cProgramFunctions.isLeerNothing(cboArtAbgangUeberschreitung._value)
|
||||
|
||||
AES.aes_VerkehrszweigInland = cProgramFunctions.isLeerNothing(cboVerkehrszweigInland._value)
|
||||
AES.aes_VerkehrszweigGrenze = cProgramFunctions.isLeerNothing(cboVerkehrszweigGrenze._value)
|
||||
AES.aes_BesondereUmstaende = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value)
|
||||
AES.aes_Zahlungsweisebefoerderungskosten = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value)
|
||||
|
||||
AES.aes_Rechnungspreis = cProgramFunctions.isLeerNothingDbl(txtRechnungspreis._value)
|
||||
AES.aes_Rechnungwaehrung = cProgramFunctions.isLeerNothing(txtRechnungspreisWaehrung._value)
|
||||
AES.aes_GeschaeftartCode = cProgramFunctions.isLeerNothing(cboGeschaeftsArt._value)
|
||||
|
||||
|
||||
|
||||
AES.aes_LieferbedingungenCode = cProgramFunctions.isLeerNothing(cboLieferbedingungen._value)
|
||||
If cboLieferbedingungen._value = "XXX" Then
|
||||
AES.aes_LieferbedingungenText = cProgramFunctions.isLeerNothing(txtLieferbedingungText.Text)
|
||||
AES.aes_LieferbedingungenOrt = Nothing
|
||||
Else
|
||||
AES.aes_LieferbedingungenText = Nothing
|
||||
AES.aes_LieferbedingungenOrt = cProgramFunctions.isLeerNothing(txtLieferbedingungort._value)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setValues(AES As DAKOSY_Worker.cDakosyAES)
|
||||
If AES Is Nothing Then Exit Sub
|
||||
|
||||
' AES_ART = If(AES.aes_AnmeldeArtAusfuhrCode, "EX")
|
||||
|
||||
sbAusgangsZollstelle.SET_VALUE(AES.aes_AusgangszollstelleID)
|
||||
sbAusfuhrZollstelleID.SET_VALUE(AES.aes_AusfuhrZollstelleID)
|
||||
sbTatAusfuhrZollstelleID.SET_VALUE(AES.aes_TatsaechlicheAusgangZollstelleID)
|
||||
|
||||
txtAnmeldeDatum._value = If(AES.aes_AnmeldedatumZeit, "")
|
||||
|
||||
cboArtVerfahrenUeberfuehrung.changeItem(If(AES.aes_AnmeldeArtVerfahrensCode, "") & "/" & If(AES.aes_AnmeldeArtUeberfuehrungCode, ""))
|
||||
cboBeteiligtenKostellation.changeItem(If(AES.aes_BeteiligteKonstellation, ""))
|
||||
|
||||
sbAusfuhrLand.SET_VALUE(AES.aes_Ausfuhrland)
|
||||
sbBestimmungsland.SET_VALUE(AES.aes_BestimmungslandCode)
|
||||
|
||||
txtGestellungsfristAnfang._value = If(AES.aes_GestellungsfristAnfangDatumZeit, "")
|
||||
txtGestellungsfristEnde._value = If(AES.aes_GestellungsfristEndeDatumZeit, "")
|
||||
|
||||
sbRoute1.SET_VALUE(If(AES.aes_BefoerderungsrouteLand1, ""))
|
||||
sbRoute2.SET_VALUE(If(AES.aes_BefoerderungsrouteLand2, ""))
|
||||
sbRoute3.SET_VALUE(If(AES.aes_BefoerderungsrouteLand3, ""))
|
||||
sbRoute4.SET_VALUE(If(AES.aes_BefoerderungsrouteLand4, ""))
|
||||
sbRoute5.SET_VALUE(If(AES.aes_BefoerderungsrouteLand5, ""))
|
||||
sbRoute6.SET_VALUE(If(AES.aes_BefoerderungsrouteLand6, ""))
|
||||
sbRoute7.SET_VALUE(If(AES.aes_BefoerderungsrouteLand7, ""))
|
||||
sbRoute8.SET_VALUE(If(AES.aes_BefoerderungsrouteLand8, ""))
|
||||
sbRoute9.SET_VALUE(If(AES.aes_BefoerderungsrouteLand9, ""))
|
||||
|
||||
txtVermerk.Text = If(AES.aes_Vermerk, "")
|
||||
|
||||
|
||||
'----> genauer:::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
' AES.aes_LadeortOrt = cProgramFunctions.isLeerNothing(txtLadeort.Text)
|
||||
|
||||
|
||||
txtKennzeichenAbgang._value = If(AES.aes_BefoerderungsmittelAbgangKennzeichen, "")
|
||||
sbKennzeichenAbgangLand.SET_VALUE(If(AES.aes_BefoerderungsmittelAbgangStaatCode, ""))
|
||||
txtKennzeichenGrenze._value = If(AES.aes_BefoerderungsmittelGrenzeKennzeichen, "")
|
||||
sbKennzeichenGrenzeLand.SET_VALUE(If(AES.aes_BefoerderungsmittelGrenzeStaatCode, ""))
|
||||
cboArtGrenzUeberschreitung.changeItem(If(AES.aes_BefoerderungsmittelGrenzeArtCode, ""))
|
||||
cboArtAbgangUeberschreitung.changeItem(If(AES.aes_BefoerderungsmittelAbgangArtCode, ""))
|
||||
|
||||
|
||||
cboVerkehrszweigInland.changeItem(If(AES.aes_VerkehrszweigInland, ""))
|
||||
cboVerkehrszweigGrenze.changeItem(If(AES.aes_VerkehrszweigGrenze, ""))
|
||||
cboBesondereUmstaende.changeItem(If(AES.aes_BesondereUmstaende, ""))
|
||||
cboZahlungsweiseBefKosten.changeItem(If(AES.aes_Zahlungsweisebefoerderungskosten, ""))
|
||||
|
||||
|
||||
txtRechnungspreis._value = If(AES.aes_Rechnungspreis, "")
|
||||
txtRechnungspreisWaehrung.SET_VALUE(If(AES.aes_Rechnungwaehrung, ""))
|
||||
cboGeschaeftsArt.changeItem(If(AES.aes_GeschaeftartCode, ""))
|
||||
|
||||
|
||||
cboLieferbedingungen.changeItem(If(AES.aes_LieferbedingungenCode, ""))
|
||||
txtLieferbedingungText.Text = If(AES.aes_LieferbedingungenText, "")
|
||||
txtLieferbedingungort.Text = If(AES.aes_LieferbedingungenOrt, "")
|
||||
|
||||
|
||||
|
||||
AES_ART = If(AES.aes_AnmeldeArtAusfuhrCode, "EX")
|
||||
|
||||
Select Case AES_ART
|
||||
Case "CO" : initButton(btnCo)
|
||||
Case "EX" : initButton(btnEX)
|
||||
Case "EU" : initButton(btnEU)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnCo.Click, btnEU.Click, btnEX.Click
|
||||
initButton(sender)
|
||||
End Sub
|
||||
|
||||
Sub initButton(sender As Button)
|
||||
setBtn(btnCo, False)
|
||||
setBtn(btnEU, False)
|
||||
setBtn(btnEX, False)
|
||||
|
||||
If sender Is btnCo Then
|
||||
AES_ART = "CO" : txtArtDetail.Text = "Gemeinschaftsware"
|
||||
ElseIf sender Is btnEU Then
|
||||
AES_ART = "EU" : txtArtDetail.Text = "Ausfhur in ein EFTA-Land"
|
||||
ElseIf sender Is btnEX Then
|
||||
AES_ART = "EX" : txtArtDetail.Text = "Ausfuhr aus Drittland"
|
||||
End If
|
||||
setBtn(sender, True)
|
||||
End Sub
|
||||
|
||||
Sub setBtn(btn As Button, value As Boolean)
|
||||
If value Then
|
||||
btn.BackColor = Color.OrangeRed
|
||||
btn.ForeColor = Color.White
|
||||
Else
|
||||
btn.BackColor = Color.White
|
||||
btn.ForeColor = Color.Black
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub lklRoutenauswahl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklRoutenauswahl.LinkClicked
|
||||
Dim frmRoutenauswahl As New frmRoutenauswahl
|
||||
If frmRoutenauswahl.ShowDialog(Me) = DialogResult.OK Then
|
||||
If frmRoutenauswahl.ROUTE.Count > 0 Then sbRoute1.SET_VALUE(frmRoutenauswahl.ROUTE(0)) Else sbRoute1.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 1 Then sbRoute2.SET_VALUE(frmRoutenauswahl.ROUTE(1)) Else sbRoute2.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 2 Then sbRoute3.SET_VALUE(frmRoutenauswahl.ROUTE(2)) Else sbRoute3.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 3 Then sbRoute4.SET_VALUE(frmRoutenauswahl.ROUTE(3)) Else sbRoute4.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 4 Then sbRoute5.SET_VALUE(frmRoutenauswahl.ROUTE(4)) Else sbRoute5.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 5 Then sbRoute6.SET_VALUE(frmRoutenauswahl.ROUTE(5)) Else sbRoute6.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 6 Then sbRoute7.SET_VALUE(frmRoutenauswahl.ROUTE(6)) Else sbRoute7.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 7 Then sbRoute8.SET_VALUE(frmRoutenauswahl.ROUTE(7)) Else sbRoute8.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 8 Then sbRoute9.SET_VALUE(frmRoutenauswahl.ROUTE(8)) Else sbRoute9.SET_VALUE("")
|
||||
|
||||
|
||||
If frmRoutenauswahl.BESTIMMUNGSLAND <> "" Then sbBestimmungsland.SET_VALUE(frmRoutenauswahl.BESTIMMUNGSLAND)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
||||
txtKennzeichenGrenze.Text = txtKennzeichenAbgang.Text
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
txtKennzeichenAbgang.Text = txtKennzeichenGrenze.Text
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub sbVersendungsLand_TextChanged() Handles sbAusfuhrLand.VALUE_CHANGED
|
||||
If sbAusfuhrLand._value <> "" And txtLadeort.Text = "" Then
|
||||
txtLadeort.Text = sbAusfuhrLand._value
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub cboLieferbedingungen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLieferbedingungen.SelectedIndexChanged
|
||||
If cboLieferbedingungen._value = "XXX" Then
|
||||
txtLieferbedingungText.Enabled = True
|
||||
txtLieferbedingungort.Enabled = False
|
||||
Else
|
||||
txtLieferbedingungText.Enabled = False
|
||||
txtLieferbedingungort.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub sbKennzeichenAbgangLand_TextChanged() Handles sbKennzeichenAbgangLand.VALUE_CHANGED
|
||||
If txtKennzeichenAbgang.Text = "" Then Exit Sub
|
||||
If txtKennzeichenAbgang.Text = sbKennzeichenGrenzeLand.Text Then
|
||||
If sbKennzeichenGrenzeLand._value = "" Then
|
||||
sbKennzeichenGrenzeLand.SET_VALUE(sbKennzeichenAbgangLand._value)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
777
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_PassiveVeredelung.Designer.vb
generated
Normal file
777
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_PassiveVeredelung.Designer.vb
generated
Normal file
@@ -0,0 +1,777 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrCntlATLAS_AES_PassiveVeredelung
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlATLAS_AES_PassiveVeredelung))
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.sbPkTyp = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.txtPkMarke = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtPkAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.dgvPackstuecke = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.PkCode = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Typ = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Marke = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Label20 = New System.Windows.Forms.Label()
|
||||
Me.Label24 = New System.Windows.Forms.Label()
|
||||
Me.Label23 = New System.Windows.Forms.Label()
|
||||
Me.lklBearbeitungAbbrechenPK = New System.Windows.Forms.LinkLabel()
|
||||
Me.MySearchBox1 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
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.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
|
||||
Me.MySearchBox2 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.MyDatagridview2 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.LinkLabel2 = New System.Windows.Forms.LinkLabel()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.dgvPackstuecke, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.MySearchBox2)
|
||||
Me.pnl.Controls.Add(Me.Button4)
|
||||
Me.pnl.Controls.Add(Me.Button5)
|
||||
Me.pnl.Controls.Add(Me.MyTextBox3)
|
||||
Me.pnl.Controls.Add(Me.MyTextBox4)
|
||||
Me.pnl.Controls.Add(Me.Label5)
|
||||
Me.pnl.Controls.Add(Me.MyDatagridview2)
|
||||
Me.pnl.Controls.Add(Me.Label6)
|
||||
Me.pnl.Controls.Add(Me.Label7)
|
||||
Me.pnl.Controls.Add(Me.Label8)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel2)
|
||||
Me.pnl.Controls.Add(Me.MySearchBox1)
|
||||
Me.pnl.Controls.Add(Me.Button1)
|
||||
Me.pnl.Controls.Add(Me.Button3)
|
||||
Me.pnl.Controls.Add(Me.MyTextBox1)
|
||||
Me.pnl.Controls.Add(Me.MyTextBox2)
|
||||
Me.pnl.Controls.Add(Me.Label1)
|
||||
Me.pnl.Controls.Add(Me.MyDatagridview1)
|
||||
Me.pnl.Controls.Add(Me.Label2)
|
||||
Me.pnl.Controls.Add(Me.Label3)
|
||||
Me.pnl.Controls.Add(Me.Label4)
|
||||
Me.pnl.Controls.Add(Me.LinkLabel1)
|
||||
Me.pnl.Controls.Add(Me.sbPkTyp)
|
||||
Me.pnl.Controls.Add(Me.Button2)
|
||||
Me.pnl.Controls.Add(Me.btn)
|
||||
Me.pnl.Controls.Add(Me.txtPkMarke)
|
||||
Me.pnl.Controls.Add(Me.txtPkAnzahl)
|
||||
Me.pnl.Controls.Add(Me.Label18)
|
||||
Me.pnl.Controls.Add(Me.dgvPackstuecke)
|
||||
Me.pnl.Controls.Add(Me.Label20)
|
||||
Me.pnl.Controls.Add(Me.Label24)
|
||||
Me.pnl.Controls.Add(Me.Label23)
|
||||
Me.pnl.Controls.Add(Me.lklBearbeitungAbbrechenPK)
|
||||
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(907, 628)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'sbPkTyp
|
||||
'
|
||||
Me.sbPkTyp._allowFreitext = False
|
||||
Me.sbPkTyp._AllowSetValue = False
|
||||
Me.sbPkTyp._autoSizeGross = False
|
||||
Me.sbPkTyp._hideIfListEmpty = True
|
||||
Me.sbPkTyp._value = Nothing
|
||||
Me.sbPkTyp.conn_art = "FMZOLL"
|
||||
Me.sbPkTyp.dgvpos = "LEFT"
|
||||
Me.sbPkTyp.DISPLAY_PARAM = Nothing
|
||||
Me.sbPkTyp.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbPkTyp.key_visible = False
|
||||
Me.sbPkTyp.KEYPARAM = Nothing
|
||||
Me.sbPkTyp.Location = New System.Drawing.Point(187, 151)
|
||||
Me.sbPkTyp.Name = "sbPkTyp"
|
||||
Me.sbPkTyp.searchActive = True
|
||||
Me.sbPkTyp.Size = New System.Drawing.Size(198, 20)
|
||||
Me.sbPkTyp.SQL_ORDER_BY = Nothing
|
||||
Me.sbPkTyp.SQL_SELECT = Nothing
|
||||
Me.sbPkTyp.SQL_WHERE = Nothing
|
||||
Me.sbPkTyp.SQL_WhereParamList = Nothing
|
||||
Me.sbPkTyp.TabIndex = 82
|
||||
Me.sbPkTyp.usrcntl = Nothing
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
|
||||
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.Location = New System.Drawing.Point(643, 29)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(30, 20)
|
||||
Me.Button2.TabIndex = 79
|
||||
Me.Button2.TabStop = False
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.BackgroundImage = Global.SDL.My.Resources.plus
|
||||
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(643, 151)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(30, 20)
|
||||
Me.btn.TabIndex = 84
|
||||
Me.btn.TabStop = False
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtPkMarke
|
||||
'
|
||||
Me.txtPkMarke._DateTimeOnly = False
|
||||
Me.txtPkMarke._numbersOnly = False
|
||||
Me.txtPkMarke._numbersOnlyKommastellen = ""
|
||||
Me.txtPkMarke._Prozent = False
|
||||
Me.txtPkMarke._ShortDateNew = False
|
||||
Me.txtPkMarke._ShortDateOnly = False
|
||||
Me.txtPkMarke._TimeOnly = False
|
||||
Me.txtPkMarke._value = "ohne"
|
||||
Me.txtPkMarke._Waehrung = False
|
||||
Me.txtPkMarke.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtPkMarke.Location = New System.Drawing.Point(384, 151)
|
||||
Me.txtPkMarke.MaxLength = 42
|
||||
Me.txtPkMarke.MaxLineLength = -1
|
||||
Me.txtPkMarke.MaxLines_Warning = ""
|
||||
Me.txtPkMarke.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPkMarke.Name = "txtPkMarke"
|
||||
Me.txtPkMarke.Size = New System.Drawing.Size(257, 20)
|
||||
Me.txtPkMarke.TabIndex = 83
|
||||
Me.txtPkMarke.Text = "ohne"
|
||||
'
|
||||
'txtPkAnzahl
|
||||
'
|
||||
Me.txtPkAnzahl._DateTimeOnly = False
|
||||
Me.txtPkAnzahl._numbersOnly = True
|
||||
Me.txtPkAnzahl._numbersOnlyKommastellen = ""
|
||||
Me.txtPkAnzahl._Prozent = False
|
||||
Me.txtPkAnzahl._ShortDateNew = False
|
||||
Me.txtPkAnzahl._ShortDateOnly = False
|
||||
Me.txtPkAnzahl._TimeOnly = False
|
||||
Me.txtPkAnzahl._value = ""
|
||||
Me.txtPkAnzahl._Waehrung = False
|
||||
Me.txtPkAnzahl.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtPkAnzahl.Location = New System.Drawing.Point(108, 151)
|
||||
Me.txtPkAnzahl.MaxLength = 5
|
||||
Me.txtPkAnzahl.MaxLineLength = -1
|
||||
Me.txtPkAnzahl.MaxLines_Warning = ""
|
||||
Me.txtPkAnzahl.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPkAnzahl.Name = "txtPkAnzahl"
|
||||
Me.txtPkAnzahl.Size = New System.Drawing.Size(80, 20)
|
||||
Me.txtPkAnzahl.TabIndex = 81
|
||||
Me.txtPkAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label18.Location = New System.Drawing.Point(23, 29)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(78, 13)
|
||||
Me.Label18.TabIndex = 77
|
||||
Me.Label18.Text = "Packstücke:"
|
||||
Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'dgvPackstuecke
|
||||
'
|
||||
Me.dgvPackstuecke.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvPackstuecke.AllowUserToAddRows = False
|
||||
Me.dgvPackstuecke.AllowUserToDeleteRows = False
|
||||
Me.dgvPackstuecke.AllowUserToResizeColumns = False
|
||||
Me.dgvPackstuecke.AllowUserToResizeRows = False
|
||||
Me.dgvPackstuecke.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvPackstuecke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvPackstuecke.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.PkCode, Me.Anzahl, Me.Typ, Me.Marke})
|
||||
Me.dgvPackstuecke.Location = New System.Drawing.Point(108, 29)
|
||||
Me.dgvPackstuecke.MultiSelect = False
|
||||
Me.dgvPackstuecke.Name = "dgvPackstuecke"
|
||||
Me.dgvPackstuecke.ReadOnly = True
|
||||
Me.dgvPackstuecke.RowHeadersVisible = False
|
||||
Me.dgvPackstuecke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvPackstuecke.Size = New System.Drawing.Size(533, 121)
|
||||
Me.dgvPackstuecke.TabIndex = 78
|
||||
Me.dgvPackstuecke.TabStop = False
|
||||
'
|
||||
'PkCode
|
||||
'
|
||||
Me.PkCode.HeaderText = "Code"
|
||||
Me.PkCode.Name = "PkCode"
|
||||
Me.PkCode.ReadOnly = True
|
||||
Me.PkCode.Visible = False
|
||||
'
|
||||
'Anzahl
|
||||
'
|
||||
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle3
|
||||
Me.Anzahl.HeaderText = "Anzahl"
|
||||
Me.Anzahl.Name = "Anzahl"
|
||||
Me.Anzahl.ReadOnly = True
|
||||
Me.Anzahl.Width = 80
|
||||
'
|
||||
'Typ
|
||||
'
|
||||
Me.Typ.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.Typ.HeaderText = "Typ"
|
||||
Me.Typ.Name = "Typ"
|
||||
Me.Typ.ReadOnly = True
|
||||
Me.Typ.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.Typ.Width = 200
|
||||
'
|
||||
'Marke
|
||||
'
|
||||
Me.Marke.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.Marke.HeaderText = "Marke"
|
||||
Me.Marke.Name = "Marke"
|
||||
Me.Marke.ReadOnly = True
|
||||
'
|
||||
'Label20
|
||||
'
|
||||
Me.Label20.AutoSize = True
|
||||
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!)
|
||||
Me.Label20.Location = New System.Drawing.Point(640, 136)
|
||||
Me.Label20.Name = "Label20"
|
||||
Me.Label20.Size = New System.Drawing.Size(33, 12)
|
||||
Me.Label20.TabIndex = 80
|
||||
Me.Label20.Text = "(Enter)"
|
||||
'
|
||||
'Label24
|
||||
'
|
||||
Me.Label24.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label24.Location = New System.Drawing.Point(184, 170)
|
||||
Me.Label24.Name = "Label24"
|
||||
Me.Label24.Size = New System.Drawing.Size(233, 13)
|
||||
Me.Label24.TabIndex = 86
|
||||
Me.Label24.Text = "Bitte angeben!"
|
||||
Me.Label24.Visible = False
|
||||
'
|
||||
'Label23
|
||||
'
|
||||
Me.Label23.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label23.Location = New System.Drawing.Point(105, 170)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(153, 13)
|
||||
Me.Label23.TabIndex = 85
|
||||
Me.Label23.Text = "Bitte angeben!"
|
||||
Me.Label23.Visible = False
|
||||
'
|
||||
'lklBearbeitungAbbrechenPK
|
||||
'
|
||||
Me.lklBearbeitungAbbrechenPK.AutoSize = True
|
||||
Me.lklBearbeitungAbbrechenPK.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.lklBearbeitungAbbrechenPK.Location = New System.Drawing.Point(523, 171)
|
||||
Me.lklBearbeitungAbbrechenPK.Name = "lklBearbeitungAbbrechenPK"
|
||||
Me.lklBearbeitungAbbrechenPK.Size = New System.Drawing.Size(118, 13)
|
||||
Me.lklBearbeitungAbbrechenPK.TabIndex = 87
|
||||
Me.lklBearbeitungAbbrechenPK.TabStop = True
|
||||
Me.lklBearbeitungAbbrechenPK.Text = "Bearbeitung abbrechen"
|
||||
Me.lklBearbeitungAbbrechenPK.Visible = False
|
||||
'
|
||||
'MySearchBox1
|
||||
'
|
||||
Me.MySearchBox1._allowFreitext = False
|
||||
Me.MySearchBox1._AllowSetValue = False
|
||||
Me.MySearchBox1._autoSizeGross = False
|
||||
Me.MySearchBox1._hideIfListEmpty = True
|
||||
Me.MySearchBox1._value = Nothing
|
||||
Me.MySearchBox1.conn_art = "FMZOLL"
|
||||
Me.MySearchBox1.dgvpos = "LEFT"
|
||||
Me.MySearchBox1.DISPLAY_PARAM = Nothing
|
||||
Me.MySearchBox1.INVISIBLE_COLUMNS = Nothing
|
||||
Me.MySearchBox1.key_visible = False
|
||||
Me.MySearchBox1.KEYPARAM = Nothing
|
||||
Me.MySearchBox1.Location = New System.Drawing.Point(187, 353)
|
||||
Me.MySearchBox1.Name = "MySearchBox1"
|
||||
Me.MySearchBox1.searchActive = True
|
||||
Me.MySearchBox1.Size = New System.Drawing.Size(198, 20)
|
||||
Me.MySearchBox1.SQL_ORDER_BY = Nothing
|
||||
Me.MySearchBox1.SQL_SELECT = Nothing
|
||||
Me.MySearchBox1.SQL_WHERE = Nothing
|
||||
Me.MySearchBox1.SQL_WhereParamList = Nothing
|
||||
Me.MySearchBox1.TabIndex = 93
|
||||
Me.MySearchBox1.usrcntl = Nothing
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(643, 231)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(30, 20)
|
||||
Me.Button1.TabIndex = 90
|
||||
Me.Button1.TabStop = False
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.BackgroundImage = Global.SDL.My.Resources.plus
|
||||
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Location = New System.Drawing.Point(643, 353)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(30, 20)
|
||||
Me.Button3.TabIndex = 95
|
||||
Me.Button3.TabStop = False
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'MyTextBox1
|
||||
'
|
||||
Me.MyTextBox1._DateTimeOnly = False
|
||||
Me.MyTextBox1._numbersOnly = False
|
||||
Me.MyTextBox1._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox1._Prozent = False
|
||||
Me.MyTextBox1._ShortDateNew = False
|
||||
Me.MyTextBox1._ShortDateOnly = False
|
||||
Me.MyTextBox1._TimeOnly = False
|
||||
Me.MyTextBox1._value = "ohne"
|
||||
Me.MyTextBox1._Waehrung = False
|
||||
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox1.Location = New System.Drawing.Point(384, 353)
|
||||
Me.MyTextBox1.MaxLength = 42
|
||||
Me.MyTextBox1.MaxLineLength = -1
|
||||
Me.MyTextBox1.MaxLines_Warning = ""
|
||||
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox1.Name = "MyTextBox1"
|
||||
Me.MyTextBox1.Size = New System.Drawing.Size(257, 20)
|
||||
Me.MyTextBox1.TabIndex = 94
|
||||
Me.MyTextBox1.Text = "ohne"
|
||||
'
|
||||
'MyTextBox2
|
||||
'
|
||||
Me.MyTextBox2._DateTimeOnly = False
|
||||
Me.MyTextBox2._numbersOnly = True
|
||||
Me.MyTextBox2._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox2._Prozent = False
|
||||
Me.MyTextBox2._ShortDateNew = False
|
||||
Me.MyTextBox2._ShortDateOnly = False
|
||||
Me.MyTextBox2._TimeOnly = False
|
||||
Me.MyTextBox2._value = ""
|
||||
Me.MyTextBox2._Waehrung = False
|
||||
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox2.Location = New System.Drawing.Point(108, 353)
|
||||
Me.MyTextBox2.MaxLength = 5
|
||||
Me.MyTextBox2.MaxLineLength = -1
|
||||
Me.MyTextBox2.MaxLines_Warning = ""
|
||||
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox2.Name = "MyTextBox2"
|
||||
Me.MyTextBox2.Size = New System.Drawing.Size(80, 20)
|
||||
Me.MyTextBox2.TabIndex = 92
|
||||
Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(23, 231)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(78, 13)
|
||||
Me.Label1.TabIndex = 88
|
||||
Me.Label1.Text = "Packstücke:"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'MyDatagridview1
|
||||
'
|
||||
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.MyDatagridview1.AllowUserToAddRows = False
|
||||
Me.MyDatagridview1.AllowUserToDeleteRows = False
|
||||
Me.MyDatagridview1.AllowUserToResizeColumns = False
|
||||
Me.MyDatagridview1.AllowUserToResizeRows = False
|
||||
Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
|
||||
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4})
|
||||
Me.MyDatagridview1.Location = New System.Drawing.Point(108, 231)
|
||||
Me.MyDatagridview1.MultiSelect = False
|
||||
Me.MyDatagridview1.Name = "MyDatagridview1"
|
||||
Me.MyDatagridview1.ReadOnly = True
|
||||
Me.MyDatagridview1.RowHeadersVisible = False
|
||||
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.MyDatagridview1.Size = New System.Drawing.Size(533, 121)
|
||||
Me.MyDatagridview1.TabIndex = 89
|
||||
Me.MyDatagridview1.TabStop = False
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.HeaderText = "Code"
|
||||
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
|
||||
Me.DataGridViewTextBoxColumn1.ReadOnly = True
|
||||
Me.DataGridViewTextBoxColumn1.Visible = False
|
||||
'
|
||||
'DataGridViewTextBoxColumn2
|
||||
'
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl"
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
Me.DataGridViewTextBoxColumn2.ReadOnly = True
|
||||
Me.DataGridViewTextBoxColumn2.Width = 80
|
||||
'
|
||||
'DataGridViewTextBoxColumn3
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn3.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.DataGridViewTextBoxColumn3.HeaderText = "Typ"
|
||||
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
|
||||
Me.DataGridViewTextBoxColumn3.ReadOnly = True
|
||||
Me.DataGridViewTextBoxColumn3.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DataGridViewTextBoxColumn3.Width = 200
|
||||
'
|
||||
'DataGridViewTextBoxColumn4
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.DataGridViewTextBoxColumn4.HeaderText = "Marke"
|
||||
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
|
||||
Me.DataGridViewTextBoxColumn4.ReadOnly = True
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!)
|
||||
Me.Label2.Location = New System.Drawing.Point(640, 338)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(33, 12)
|
||||
Me.Label2.TabIndex = 91
|
||||
Me.Label2.Text = "(Enter)"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label3.Location = New System.Drawing.Point(184, 372)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(233, 13)
|
||||
Me.Label3.TabIndex = 97
|
||||
Me.Label3.Text = "Bitte angeben!"
|
||||
Me.Label3.Visible = False
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label4.Location = New System.Drawing.Point(105, 372)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(153, 13)
|
||||
Me.Label4.TabIndex = 96
|
||||
Me.Label4.Text = "Bitte angeben!"
|
||||
Me.Label4.Visible = False
|
||||
'
|
||||
'LinkLabel1
|
||||
'
|
||||
Me.LinkLabel1.AutoSize = True
|
||||
Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel1.Location = New System.Drawing.Point(523, 373)
|
||||
Me.LinkLabel1.Name = "LinkLabel1"
|
||||
Me.LinkLabel1.Size = New System.Drawing.Size(118, 13)
|
||||
Me.LinkLabel1.TabIndex = 98
|
||||
Me.LinkLabel1.TabStop = True
|
||||
Me.LinkLabel1.Text = "Bearbeitung abbrechen"
|
||||
Me.LinkLabel1.Visible = False
|
||||
'
|
||||
'MySearchBox2
|
||||
'
|
||||
Me.MySearchBox2._allowFreitext = False
|
||||
Me.MySearchBox2._AllowSetValue = False
|
||||
Me.MySearchBox2._autoSizeGross = False
|
||||
Me.MySearchBox2._hideIfListEmpty = True
|
||||
Me.MySearchBox2._value = Nothing
|
||||
Me.MySearchBox2.conn_art = "FMZOLL"
|
||||
Me.MySearchBox2.dgvpos = "LEFT"
|
||||
Me.MySearchBox2.DISPLAY_PARAM = Nothing
|
||||
Me.MySearchBox2.INVISIBLE_COLUMNS = Nothing
|
||||
Me.MySearchBox2.key_visible = False
|
||||
Me.MySearchBox2.KEYPARAM = Nothing
|
||||
Me.MySearchBox2.Location = New System.Drawing.Point(187, 548)
|
||||
Me.MySearchBox2.Name = "MySearchBox2"
|
||||
Me.MySearchBox2.searchActive = True
|
||||
Me.MySearchBox2.Size = New System.Drawing.Size(198, 20)
|
||||
Me.MySearchBox2.SQL_ORDER_BY = Nothing
|
||||
Me.MySearchBox2.SQL_SELECT = Nothing
|
||||
Me.MySearchBox2.SQL_WHERE = Nothing
|
||||
Me.MySearchBox2.SQL_WhereParamList = Nothing
|
||||
Me.MySearchBox2.TabIndex = 104
|
||||
Me.MySearchBox2.usrcntl = Nothing
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.BackgroundImage = CType(resources.GetObject("Button4.BackgroundImage"), System.Drawing.Image)
|
||||
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.Location = New System.Drawing.Point(643, 426)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(30, 20)
|
||||
Me.Button4.TabIndex = 101
|
||||
Me.Button4.TabStop = False
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.BackgroundImage = Global.SDL.My.Resources.plus
|
||||
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Location = New System.Drawing.Point(643, 548)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(30, 20)
|
||||
Me.Button5.TabIndex = 106
|
||||
Me.Button5.TabStop = False
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'MyTextBox3
|
||||
'
|
||||
Me.MyTextBox3._DateTimeOnly = False
|
||||
Me.MyTextBox3._numbersOnly = False
|
||||
Me.MyTextBox3._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox3._Prozent = False
|
||||
Me.MyTextBox3._ShortDateNew = False
|
||||
Me.MyTextBox3._ShortDateOnly = False
|
||||
Me.MyTextBox3._TimeOnly = False
|
||||
Me.MyTextBox3._value = "ohne"
|
||||
Me.MyTextBox3._Waehrung = False
|
||||
Me.MyTextBox3.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox3.Location = New System.Drawing.Point(384, 548)
|
||||
Me.MyTextBox3.MaxLength = 42
|
||||
Me.MyTextBox3.MaxLineLength = -1
|
||||
Me.MyTextBox3.MaxLines_Warning = ""
|
||||
Me.MyTextBox3.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox3.Name = "MyTextBox3"
|
||||
Me.MyTextBox3.Size = New System.Drawing.Size(257, 20)
|
||||
Me.MyTextBox3.TabIndex = 105
|
||||
Me.MyTextBox3.Text = "ohne"
|
||||
'
|
||||
'MyTextBox4
|
||||
'
|
||||
Me.MyTextBox4._DateTimeOnly = False
|
||||
Me.MyTextBox4._numbersOnly = True
|
||||
Me.MyTextBox4._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox4._Prozent = False
|
||||
Me.MyTextBox4._ShortDateNew = False
|
||||
Me.MyTextBox4._ShortDateOnly = False
|
||||
Me.MyTextBox4._TimeOnly = False
|
||||
Me.MyTextBox4._value = ""
|
||||
Me.MyTextBox4._Waehrung = False
|
||||
Me.MyTextBox4.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox4.Location = New System.Drawing.Point(108, 548)
|
||||
Me.MyTextBox4.MaxLength = 5
|
||||
Me.MyTextBox4.MaxLineLength = -1
|
||||
Me.MyTextBox4.MaxLines_Warning = ""
|
||||
Me.MyTextBox4.MaxLines_Warning_Label = Nothing
|
||||
Me.MyTextBox4.Name = "MyTextBox4"
|
||||
Me.MyTextBox4.Size = New System.Drawing.Size(80, 20)
|
||||
Me.MyTextBox4.TabIndex = 103
|
||||
Me.MyTextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(23, 426)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(78, 13)
|
||||
Me.Label5.TabIndex = 99
|
||||
Me.Label5.Text = "Packstücke:"
|
||||
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'MyDatagridview2
|
||||
'
|
||||
Me.MyDatagridview2.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.MyDatagridview2.AllowUserToAddRows = False
|
||||
Me.MyDatagridview2.AllowUserToDeleteRows = False
|
||||
Me.MyDatagridview2.AllowUserToResizeColumns = False
|
||||
Me.MyDatagridview2.AllowUserToResizeRows = False
|
||||
Me.MyDatagridview2.BackgroundColor = System.Drawing.Color.White
|
||||
Me.MyDatagridview2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.MyDatagridview2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8})
|
||||
Me.MyDatagridview2.Location = New System.Drawing.Point(108, 426)
|
||||
Me.MyDatagridview2.MultiSelect = False
|
||||
Me.MyDatagridview2.Name = "MyDatagridview2"
|
||||
Me.MyDatagridview2.ReadOnly = True
|
||||
Me.MyDatagridview2.RowHeadersVisible = False
|
||||
Me.MyDatagridview2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.MyDatagridview2.Size = New System.Drawing.Size(533, 121)
|
||||
Me.MyDatagridview2.TabIndex = 100
|
||||
Me.MyDatagridview2.TabStop = False
|
||||
'
|
||||
'DataGridViewTextBoxColumn5
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn5.HeaderText = "Code"
|
||||
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
|
||||
Me.DataGridViewTextBoxColumn5.ReadOnly = True
|
||||
Me.DataGridViewTextBoxColumn5.Visible = False
|
||||
'
|
||||
'DataGridViewTextBoxColumn6
|
||||
'
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
Me.DataGridViewTextBoxColumn6.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.DataGridViewTextBoxColumn6.HeaderText = "Anzahl"
|
||||
Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
|
||||
Me.DataGridViewTextBoxColumn6.ReadOnly = True
|
||||
Me.DataGridViewTextBoxColumn6.Width = 80
|
||||
'
|
||||
'DataGridViewTextBoxColumn7
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn7.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.DataGridViewTextBoxColumn7.HeaderText = "Typ"
|
||||
Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7"
|
||||
Me.DataGridViewTextBoxColumn7.ReadOnly = True
|
||||
Me.DataGridViewTextBoxColumn7.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DataGridViewTextBoxColumn7.Width = 200
|
||||
'
|
||||
'DataGridViewTextBoxColumn8
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn8.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.DataGridViewTextBoxColumn8.HeaderText = "Marke"
|
||||
Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
|
||||
Me.DataGridViewTextBoxColumn8.ReadOnly = True
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!)
|
||||
Me.Label6.Location = New System.Drawing.Point(640, 533)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(33, 12)
|
||||
Me.Label6.TabIndex = 102
|
||||
Me.Label6.Text = "(Enter)"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label7.Location = New System.Drawing.Point(184, 567)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(233, 13)
|
||||
Me.Label7.TabIndex = 108
|
||||
Me.Label7.Text = "Bitte angeben!"
|
||||
Me.Label7.Visible = False
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label8.Location = New System.Drawing.Point(105, 567)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(153, 13)
|
||||
Me.Label8.TabIndex = 107
|
||||
Me.Label8.Text = "Bitte angeben!"
|
||||
Me.Label8.Visible = False
|
||||
'
|
||||
'LinkLabel2
|
||||
'
|
||||
Me.LinkLabel2.AutoSize = True
|
||||
Me.LinkLabel2.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.LinkLabel2.Location = New System.Drawing.Point(523, 568)
|
||||
Me.LinkLabel2.Name = "LinkLabel2"
|
||||
Me.LinkLabel2.Size = New System.Drawing.Size(118, 13)
|
||||
Me.LinkLabel2.TabIndex = 109
|
||||
Me.LinkLabel2.TabStop = True
|
||||
Me.LinkLabel2.Text = "Bearbeitung abbrechen"
|
||||
Me.LinkLabel2.Visible = False
|
||||
'
|
||||
'usrCntlATLAS_AES_PassiveVeredelung
|
||||
'
|
||||
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.pnl)
|
||||
Me.Name = "usrCntlATLAS_AES_PassiveVeredelung"
|
||||
Me.Size = New System.Drawing.Size(907, 628)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
CType(Me.dgvPackstuecke, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents MySearchBox2 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents MyTextBox4 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents MyDatagridview2 As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel
|
||||
Friend WithEvents MySearchBox1 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
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 Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
|
||||
Friend WithEvents sbPkTyp As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents btn As System.Windows.Forms.Button
|
||||
Friend WithEvents txtPkMarke As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtPkAnzahl As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label18 As System.Windows.Forms.Label
|
||||
Friend WithEvents dgvPackstuecke As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents PkCode As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents Anzahl As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents Typ As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents Marke As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents Label20 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label24 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label23 As System.Windows.Forms.Label
|
||||
Friend WithEvents lklBearbeitungAbbrechenPK As System.Windows.Forms.LinkLabel
|
||||
|
||||
End Class
|
||||
199
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_PassiveVeredelung.resx
Normal file
199
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_PassiveVeredelung.resx
Normal file
@@ -0,0 +1,199 @@
|
||||
<?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="Button4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
|
||||
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
|
||||
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
|
||||
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
|
||||
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
|
||||
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
|
||||
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
|
||||
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
|
||||
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="DataGridViewTextBoxColumn5.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DataGridViewTextBoxColumn6.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DataGridViewTextBoxColumn7.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DataGridViewTextBoxColumn8.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<data name="Button1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
|
||||
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
|
||||
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
|
||||
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
|
||||
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
|
||||
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
|
||||
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
|
||||
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
|
||||
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="DataGridViewTextBoxColumn1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DataGridViewTextBoxColumn2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DataGridViewTextBoxColumn3.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DataGridViewTextBoxColumn4.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<data name="Button2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
|
||||
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
|
||||
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
|
||||
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
|
||||
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
|
||||
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
|
||||
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
|
||||
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
|
||||
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="PkCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Typ.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Marke.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
</root>
|
||||
37
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_PassiveVeredelung.vb
Normal file
37
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_PassiveVeredelung.vb
Normal file
@@ -0,0 +1,37 @@
|
||||
Public Class usrCntlATLAS_AES_PassiveVeredelung
|
||||
' Dim OWNER As Control
|
||||
Dim NCTS_OUT As DAKOSY_Worker.cDakosyAES = Nothing
|
||||
'Sub New(OWNER As Control, NCTS_OUT As DAKOSY_Worker.cDakosyAES)
|
||||
Sub New(NCTS_OUT As DAKOSY_Worker.cDakosyAES)
|
||||
InitializeComponent()
|
||||
'Me.OWNER = OWNER
|
||||
Me.NCTS_OUT = NCTS_OUT
|
||||
End Sub
|
||||
|
||||
Public Sub usrCntlATLAS_NCTS_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
' usrCntlSumA_Befoerderer.initME()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyAES)
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub setValues(NCTS As DAKOSY_Worker.cDakosyAES)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
1409
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Position.Designer.vb
generated
Normal file
1409
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Position.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
223
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Position.resx
Normal file
223
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Position.resx
Normal file
@@ -0,0 +1,223 @@
|
||||
<?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="Button4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
|
||||
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
|
||||
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
|
||||
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
|
||||
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
|
||||
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
|
||||
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
|
||||
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
|
||||
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="VpReferenz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="VpZusatz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<data name="Button3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
|
||||
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
|
||||
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
|
||||
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
|
||||
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
|
||||
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
|
||||
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
|
||||
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
|
||||
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Button2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
|
||||
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
|
||||
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
|
||||
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
|
||||
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
|
||||
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
|
||||
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
|
||||
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
|
||||
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="UlCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DataGridViewComboBoxColumn1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlReferenz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlZusatz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="PkCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Typ.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Marke.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="VpReferenz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="VpZusatz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DataGridViewComboBoxColumn1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlReferenz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlZusatz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="PkCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Typ.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Marke.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
</root>
|
||||
292
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Position.vb
Normal file
292
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Position.vb
Normal file
@@ -0,0 +1,292 @@
|
||||
Public Class usrCntlATLAS_AES_Position
|
||||
'' Public Event ADD()
|
||||
' Public Event REMOVE(id)
|
||||
|
||||
' Public Event NEXT_POS()
|
||||
' Public Event PREV_POS()
|
||||
Dim WARE As DAKOSY_Worker.cDakosy_AES_Warenposition = Nothing
|
||||
Event RohmasseChanged(rohmasse As Double)
|
||||
Dim id As Integer = -1
|
||||
|
||||
Dim PK_EDIT = -1
|
||||
Dim UL_EDIT = -1
|
||||
Dim VP_EDIT = -1
|
||||
|
||||
Sub New(id)
|
||||
InitializeComponent()
|
||||
Me.id = id
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(id As Integer, WARE As DAKOSY_Worker.cDakosy_AES_Warenposition)
|
||||
InitializeComponent()
|
||||
Me.id = id
|
||||
Me.WARE = WARE
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub usrCntlATLAS_NCTS_Position_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
' cboColliMenge.Items.Clear()
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VQ", "VQ"))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VG", "VG"))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VL", "VL"))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VR", "VR"))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VY", "VY"))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VO", "VO"))
|
||||
|
||||
|
||||
' Me.Parent.KeyDown += New KeyEventHandler(usrCntlATLAS_NCTS_Position_KeyDown)
|
||||
|
||||
sbPkTyp.initSearchBox(Me.FindForm, " [Code] ,[Description] as Verpackungsart, Code + ' ' + Description as display FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbUlArten.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art,Code + ' ' + Description as display FROM tbl_DY_ZollDE_C0014_VorpapierArten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbExportAusLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
|
||||
|
||||
|
||||
cboVpTyp.Items.Clear()
|
||||
For Each v In (New cVorpapierTypen).LIST
|
||||
cboVpTyp.Items.Add(v)
|
||||
Next
|
||||
cboVpTyp.changeItem("OHNE")
|
||||
|
||||
|
||||
setvalue(WARE)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub setvalue(WARE As DAKOSY_Worker.cDakosy_AES_Warenposition)
|
||||
If WARE IsNot Nothing Then
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
addPackstuecke()
|
||||
End Sub
|
||||
|
||||
Sub addPackstuecke()
|
||||
Label23.Visible = False
|
||||
Label24.Visible = False
|
||||
If sbPkTyp._value = "" Then Label24.Visible = True : sbPkTyp.Focus() : Exit Sub
|
||||
If txtPkAnzahl.Text = "" Then Label23.Visible = True : txtPkAnzahl.Focus() : Exit Sub
|
||||
|
||||
If PK_EDIT >= 0 Then
|
||||
dgvPackstuecke.Rows.RemoveAt(PK_EDIT)
|
||||
dgvPackstuecke.Rows.Insert(PK_EDIT, sbPkTyp._value, txtPkAnzahl.Text, sbPkTyp.Text, txtPkMarke.Text)
|
||||
PK_EDIT = -1
|
||||
btn.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenPK.Visible = False
|
||||
Else
|
||||
dgvPackstuecke.Rows.Add(sbPkTyp._value, txtPkAnzahl.Text, sbPkTyp.Text, txtPkMarke.Text)
|
||||
End If
|
||||
sbPkTyp.SET_VALUE("") : txtPkAnzahl.Text = "" : txtPkMarke.Text = "ohne"
|
||||
dgvPackstuecke.FirstDisplayedScrollingRowIndex = dgvPackstuecke.RowCount - 1
|
||||
dgvPackstuecke.ClearSelection()
|
||||
txtPkAnzahl.Focus()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
addUnterlage()
|
||||
End Sub
|
||||
|
||||
Sub addUnterlage()
|
||||
Label22.Visible = False
|
||||
If sbUlArten._value = "" Then Label22.Visible = True : sbUlArten.Focus() : Exit Sub
|
||||
|
||||
If UL_EDIT >= 0 Then
|
||||
dgvUnterlage.Rows.RemoveAt(UL_EDIT)
|
||||
dgvUnterlage.Rows.Insert(UL_EDIT, sbUlArten._value, sbUlArten.Text, txtUlReferenz.Text, txtUlZusatz.Text)
|
||||
UL_EDIT = -1
|
||||
Button1.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenUl.Visible = False
|
||||
Else
|
||||
dgvUnterlage.Rows.Add(sbUlArten._value, sbUlArten.Text, txtUlReferenz.Text, txtUlZusatz.Text)
|
||||
End If
|
||||
|
||||
txtUlZusatz.Text = "" : txtUlReferenz.Text = "" : sbUlArten.SET_VALUE("")
|
||||
dgvUnterlage.FirstDisplayedScrollingRowIndex = dgvUnterlage.RowCount - 1
|
||||
dgvUnterlage.ClearSelection()
|
||||
sbUlArten.Focus()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub PackstueckeKeyDown(sender As Object, e As KeyEventArgs) Handles sbPkTyp.KeyDown, txtPkAnzahl.KeyDown, txtPkMarke.KeyDown
|
||||
If e.KeyCode = Keys.Return Then addPackstuecke()
|
||||
e.Handled = True
|
||||
End Sub
|
||||
|
||||
Private Sub UnterlageKeyDown(sender As Object, e As KeyEventArgs) Handles txtUlZusatz.KeyDown, txtUlReferenz.KeyDown, sbUlArten.KeyDown
|
||||
If e.KeyCode = Keys.Return Then addUnterlage()
|
||||
e.Handled = True
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
If dgvPackstuecke.SelectedRows.Count > 0 Then
|
||||
If MsgBox("Möchten Sie den Eintrag in 'Packstücke' wirklich löschen?", vbYesNoCancel) = vbYes Then
|
||||
dgvPackstuecke.Rows.Remove(dgvPackstuecke.SelectedRows(0))
|
||||
End If
|
||||
End If
|
||||
dgvPackstuecke.ClearSelection()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
If dgvUnterlage.SelectedRows.Count > 0 Then
|
||||
If MsgBox("Möchten Sie den Eintrag in 'Unterlagen' wirklich löschen?", vbYesNoCancel) = vbYes Then
|
||||
dgvUnterlage.Rows.Remove(dgvUnterlage.SelectedRows(0))
|
||||
End If
|
||||
End If
|
||||
dgvUnterlage.ClearSelection()
|
||||
End Sub
|
||||
|
||||
Private Sub MyTextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtWarenwert.TextChanged
|
||||
If IsNumeric(txtWarenwert._value) Then
|
||||
Label5.Text = CDbl(txtWarenwert._value).ToString("C2")
|
||||
Else
|
||||
Label5.Text = CDbl(0).ToString("C2")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
addVorpapier()
|
||||
End Sub
|
||||
Sub addVorpapier()
|
||||
Label38.Visible = False
|
||||
If txtVpReferenz.Text = "" Then Label38.Visible = True : txtVpReferenz.Focus() : Exit Sub
|
||||
|
||||
If VP_EDIT >= 0 Then
|
||||
dgvVorpapier.Rows.RemoveAt(VP_EDIT)
|
||||
dgvVorpapier.Rows.Insert(VP_EDIT, txtVpReferenz.Text, txtVpZusatz.Text)
|
||||
VP_EDIT = -1
|
||||
Button5.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenVP.Visible = False
|
||||
Else
|
||||
dgvVorpapier.Rows.Add(txtVpReferenz.Text, txtVpZusatz.Text)
|
||||
End If
|
||||
|
||||
txtVpReferenz.Text = "" : txtVpZusatz.Text = ""
|
||||
dgvVorpapier.FirstDisplayedScrollingRowIndex = dgvVorpapier.RowCount - 1
|
||||
dgvVorpapier.ClearSelection()
|
||||
txtVpReferenz.Focus()
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
If dgvVorpapier.SelectedRows.Count > 0 Then
|
||||
If MsgBox("Möchten Sie den Eintrag in 'Vorpapiere' wirklich löschen?", vbYesNoCancel) = vbYes Then
|
||||
dgvVorpapier.Rows.Remove(dgvVorpapier.SelectedRows(0))
|
||||
End If
|
||||
End If
|
||||
dgvVorpapier.ClearSelection()
|
||||
End Sub
|
||||
|
||||
Private Sub txtVpReferenz_KeyDown(sender As Object, e As KeyEventArgs) Handles txtVpReferenz.KeyDown, txtVpZusatz.KeyDown
|
||||
If e.KeyCode = Keys.Return Then addVorpapier()
|
||||
e.Handled = True
|
||||
End Sub
|
||||
|
||||
Private Sub txtRohmasse_TextChanged(sender As Object, e As EventArgs) Handles txtRohmasse.TextChanged
|
||||
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0))
|
||||
End Sub
|
||||
|
||||
Private Sub dgvPackstuecke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPackstuecke.CellDoubleClick
|
||||
If e.RowIndex < 0 Then Exit Sub
|
||||
editableRowPK(e.RowIndex)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub editableRowPK(index As Integer)
|
||||
txtPkAnzahl.Text = dgvPackstuecke.Rows(index).Cells("Anzahl").Value
|
||||
sbPkTyp.SET_VALUE(dgvPackstuecke.Rows(index).Cells("PkCode").Value)
|
||||
txtPkMarke.Text = dgvPackstuecke.Rows(index).Cells("Marke").Value
|
||||
PK_EDIT = index
|
||||
btn.BackgroundImage = My.Resources.stift
|
||||
lklBearbeitungAbbrechenPK.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub lklBearbeitungAbbrechenPK_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenPK.LinkClicked
|
||||
PK_EDIT = -1
|
||||
txtPkAnzahl.Text = ""
|
||||
sbPkTyp.SET_VALUE("")
|
||||
txtPkMarke.Text = ""
|
||||
btn.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenPK.Visible = False
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub dgvUnterlage_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUnterlage.CellDoubleClick
|
||||
If e.RowIndex < 0 Then Exit Sub
|
||||
editableRowUL(e.RowIndex)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub editableRowUL(index As Integer)
|
||||
txtUlReferenz.Text = dgvUnterlage.Rows(index).Cells("UlReferenz").Value
|
||||
sbUlArten.SET_VALUE(dgvUnterlage.Rows(index).Cells("UlCode").Value)
|
||||
txtUlZusatz.Text = dgvUnterlage.Rows(index).Cells("UlZusatz").Value
|
||||
UL_EDIT = index
|
||||
Button1.BackgroundImage = My.Resources.stift
|
||||
lklBearbeitungAbbrechenUl.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub lklBearbeitungAbbrechenUl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenUl.LinkClicked
|
||||
UL_EDIT = -1
|
||||
txtUlReferenz.Text = ""
|
||||
sbUlArten.SET_VALUE("")
|
||||
txtUlZusatz.Text = ""
|
||||
Button1.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenUl.Visible = False
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvVorpapier_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVorpapier.CellDoubleClick
|
||||
If e.RowIndex < 0 Then Exit Sub
|
||||
editableRowVP(e.RowIndex)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub editableRowVP(index As Integer)
|
||||
txtVpReferenz.Text = dgvVorpapier.Rows(index).Cells("VpReferenz").Value
|
||||
txtVpZusatz.Text = dgvVorpapier.Rows(index).Cells("VpZusatz").Value
|
||||
|
||||
VP_EDIT = index
|
||||
Button5.BackgroundImage = My.Resources.stift
|
||||
lklBearbeitungAbbrechenVP.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub lklBearbeitungAbbrechenVP_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenVP.LinkClicked
|
||||
VP_EDIT = -1
|
||||
txtVpReferenz.Text = ""
|
||||
txtVpZusatz.Text = ""
|
||||
Button5.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenVP.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub dgvPackstuecke_CellContentClick(sender As Object, e As EventArgs) Handles dgvPackstuecke.LostFocus
|
||||
dgvPackstuecke.ClearSelection()
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEmportAusLand.CheckedChanged
|
||||
sbExportAusLand.Enabled = cbxEmportAusLand.Checked
|
||||
End Sub
|
||||
|
||||
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged
|
||||
Label7.Visible = False
|
||||
If IsNumeric(txtRohmasse._value) And IsNumeric(txtEigenmasse._value) Then
|
||||
If CDbl(txtRohmasse._value) < CDbl(txtEigenmasse._value) Then
|
||||
Label7.Visible = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
181
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Positionen.Designer.vb
generated
Normal file
181
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Positionen.Designer.vb
generated
Normal file
@@ -0,0 +1,181 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrCntlATLAS_AES_Positionen
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.dgvPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.index = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.ID = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Ware = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Timer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.MyPanel1.SuspendLayout()
|
||||
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.MyPanel2)
|
||||
Me.pnl.Controls.Add(Me.MyPanel1)
|
||||
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(928, 501)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'MyPanel2
|
||||
'
|
||||
Me.MyPanel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.MyPanel2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyPanel2.Location = New System.Drawing.Point(214, 0)
|
||||
Me.MyPanel2.Name = "MyPanel2"
|
||||
Me.MyPanel2.Size = New System.Drawing.Size(714, 501)
|
||||
Me.MyPanel2.TabIndex = 1
|
||||
'
|
||||
'MyPanel1
|
||||
'
|
||||
Me.MyPanel1.Controls.Add(Me.Button1)
|
||||
Me.MyPanel1.Controls.Add(Me.btn)
|
||||
Me.MyPanel1.Controls.Add(Me.dgvPositionen)
|
||||
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MyPanel1.Name = "MyPanel1"
|
||||
Me.MyPanel1.Size = New System.Drawing.Size(214, 501)
|
||||
Me.MyPanel1.TabIndex = 0
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.BackgroundImage = Global.SDL.My.Resources.del
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(159, 478)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(28, 23)
|
||||
Me.Button1.TabIndex = 3
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.btn.BackgroundImage = Global.SDL.My.Resources.plus
|
||||
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(186, 478)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(28, 23)
|
||||
Me.btn.TabIndex = 2
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvPositionen
|
||||
'
|
||||
Me.dgvPositionen.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvPositionen.AllowUserToAddRows = False
|
||||
Me.dgvPositionen.AllowUserToDeleteRows = False
|
||||
Me.dgvPositionen.AllowUserToResizeColumns = False
|
||||
Me.dgvPositionen.AllowUserToResizeRows = False
|
||||
Me.dgvPositionen.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvPositionen.ColumnHeadersVisible = False
|
||||
Me.dgvPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.index, Me.ID, Me.Ware})
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvPositionen.DefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.dgvPositionen.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvPositionen.Location = New System.Drawing.Point(0, 0)
|
||||
Me.dgvPositionen.MultiSelect = False
|
||||
Me.dgvPositionen.Name = "dgvPositionen"
|
||||
Me.dgvPositionen.ReadOnly = True
|
||||
Me.dgvPositionen.RowHeadersVisible = False
|
||||
Me.dgvPositionen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
|
||||
Me.dgvPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvPositionen.Size = New System.Drawing.Size(214, 501)
|
||||
Me.dgvPositionen.TabIndex = 5
|
||||
'
|
||||
'index
|
||||
'
|
||||
Me.index.HeaderText = "index"
|
||||
Me.index.Name = "index"
|
||||
Me.index.ReadOnly = True
|
||||
Me.index.Visible = False
|
||||
'
|
||||
'ID
|
||||
'
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
Me.ID.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.ID.HeaderText = "ID"
|
||||
Me.ID.Name = "ID"
|
||||
Me.ID.ReadOnly = True
|
||||
Me.ID.Width = 30
|
||||
'
|
||||
'Ware
|
||||
'
|
||||
Me.Ware.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.Ware.HeaderText = "Ware"
|
||||
Me.Ware.Name = "Ware"
|
||||
Me.Ware.ReadOnly = True
|
||||
'
|
||||
'Timer
|
||||
'
|
||||
Me.Timer.Enabled = True
|
||||
Me.Timer.Interval = 1000
|
||||
'
|
||||
'usrCntlATLAS_NCTS_Positionen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Name = "usrCntlATLAS_NCTS_Positionen"
|
||||
Me.Size = New System.Drawing.Size(928, 501)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.MyPanel1.ResumeLayout(False)
|
||||
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
|
||||
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents btn As System.Windows.Forms.Button
|
||||
Friend WithEvents dgvPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents Timer As System.Windows.Forms.Timer
|
||||
Friend WithEvents index As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents ID As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents Ware As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
|
||||
End Class
|
||||
132
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Positionen.resx
Normal file
132
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Positionen.resx
Normal file
@@ -0,0 +1,132 @@
|
||||
<?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="index.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="ID.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Ware.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
228
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Positionen.vb
Normal file
228
SDL/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Positionen.vb
Normal file
@@ -0,0 +1,228 @@
|
||||
Public Class usrCntlATLAS_AES_Positionen
|
||||
|
||||
Dim NCTS As DAKOSY_Worker.cDakosyAES = Nothing
|
||||
|
||||
Dim POS As New List(Of usrCntlATLAS_AES_Position)
|
||||
Dim sectionChangeBLOCK = False
|
||||
Dim gesRohmasse = 0
|
||||
|
||||
Event RohmasseChanged(gesRohmasse As Double)
|
||||
Event PosAnzChanged(anzahlPos As Double)
|
||||
|
||||
|
||||
Sub New(NCTS)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.NCTS = NCTS
|
||||
End Sub
|
||||
Private Sub usrCntlATLAS_ncts_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
addItem()
|
||||
'setValues(NCTS.ncts_WARENPOS)
|
||||
End Sub
|
||||
|
||||
Public Sub setValues(ncts_POS As DAKOSY_Worker.cDakosyAES)
|
||||
If ncts_POS Is Nothing Then Exit Sub
|
||||
POS.Clear()
|
||||
|
||||
For Each p In ncts_POS.aes_WARENPOS
|
||||
addItem(p) 'MyPanel2.Controls.Add()
|
||||
Next
|
||||
MyPanel2.Controls.Clear()
|
||||
MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub initListBox(Optional selectedIndex = -1)
|
||||
If dgvPositionen.ColumnCount <= 0 Then Exit Sub
|
||||
If selectedIndex >= 0 Then sectionChangeBLOCK = True
|
||||
Dim cnt As Integer = 1
|
||||
dgvPositionen.Rows.Clear()
|
||||
For Each p In POS
|
||||
p.lblPosNr.Text = cnt
|
||||
dgvPositionen.Rows.Add(POS.IndexOf(p), cnt, p.txtWarenbezeichnung.Text)
|
||||
cnt += 1
|
||||
Next
|
||||
If selectedIndex >= 0 Then
|
||||
' MyListBox1.SetSelected(selectedIndex, True)
|
||||
' sectionChangeBLOCK = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dgvPositionen_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvPositionen.KeyDown
|
||||
If e.KeyCode = Keys.Delete Then
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MyListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles dgvPositionen.SelectionChanged
|
||||
Try
|
||||
|
||||
If sectionChangeBLOCK Then Exit Sub
|
||||
MyPanel2.Controls.Clear()
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value))
|
||||
POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
|
||||
' Try : DirectCast(MyPanel2.Controls(0), usrCntlATLAS_aes_Position).txtWarenbezeichnung.Focus() : Catch : End Try
|
||||
' initListBox(MyListBox1.SelectedIndex())
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlATLAS_aes_Position_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
||||
If e.Control = True Then
|
||||
If e.KeyCode = Keys.Oemplus Then addItem()
|
||||
If e.KeyCode = Keys.OemMinus Then
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
|
||||
Try
|
||||
If keyData = (Keys.Control Or Keys.Add) Then
|
||||
'RaiseEvent a() : Return True
|
||||
addItem()
|
||||
Return True
|
||||
ElseIf keyData = (Keys.Control Or Keys.Subtract) Then
|
||||
'RaiseEvent REMOVE(ID) : Return True
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
Return True
|
||||
ElseIf keyData = Keys.PageUp Then
|
||||
'RaiseEvent PREV_POS() : Return True
|
||||
PREV_POS()
|
||||
Return True
|
||||
ElseIf keyData = Keys.PageDown Then
|
||||
'RaiseEvent NEXT_POS() : Return True
|
||||
NEXT_POS()
|
||||
Return True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
addItem()
|
||||
End Sub
|
||||
|
||||
|
||||
Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_AES_Warenposition = Nothing) As usrCntlATLAS_AES_Position
|
||||
Dim u = New usrCntlATLAS_AES_Position(POS.Count, POSTMP)
|
||||
|
||||
AddHandler u.RohmasseChanged, Sub(r)
|
||||
gesRohmasse = 0
|
||||
For Each p In POS
|
||||
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
|
||||
Next
|
||||
RaiseEvent RohmasseChanged(gesRohmasse)
|
||||
End Sub
|
||||
u.Dock = DockStyle.Fill
|
||||
' AddHandler u.ADD, AddressOf addItem
|
||||
' AddHandler u.REMOVE, AddressOf removeItem
|
||||
' AddHandler u.NEXT_POS, AddressOf NEXT_POS
|
||||
' AddHandler u.PREV_POS, AddressOf PREV_POS
|
||||
POS.Add(u)
|
||||
initListBox()
|
||||
dgvPositionen.ClearSelection()
|
||||
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
|
||||
RaiseEvent PosAnzChanged(POS.Count)
|
||||
Return u
|
||||
End Function
|
||||
|
||||
Sub removeItem(index)
|
||||
If index < 0 Then Exit Sub
|
||||
'If index < 0 Then Exit Sub
|
||||
If dgvPositionen.Rows.Count > index Then
|
||||
If vbYes = MsgBox("Möchten Sie die Position wirklich löschen?", vbYesNoCancel) Then
|
||||
dgvPositionen.ClearSelection()
|
||||
POS.RemoveAt(index)
|
||||
initListBox()
|
||||
If dgvPositionen.Rows.Count > index Then
|
||||
dgvPositionen.Rows(index).Selected = True 'SetSelected(index, True)
|
||||
ElseIf dgvPositionen.Rows.Count > 0 Then
|
||||
dgvPositionen.Rows(0).Selected = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
RaiseEvent PosAnzChanged(POS.Count)
|
||||
End Sub
|
||||
|
||||
Sub NEXT_POS()
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
If dgvPositionen.RowCount > dgvPositionen.SelectedRows(0).Index + 1 Then
|
||||
Dim i = dgvPositionen.SelectedRows(0).Index
|
||||
dgvPositionen.ClearSelection()
|
||||
dgvPositionen.Rows(i + 1).Selected = True
|
||||
' POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Sub PREV_POS()
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
If dgvPositionen.SelectedRows(0).Index > 0 Then
|
||||
Dim i = dgvPositionen.SelectedRows(0).Index
|
||||
dgvPositionen.ClearSelection()
|
||||
dgvPositionen.Rows(i - 1).Selected = True
|
||||
' POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
|
||||
refreshDGV()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub refreshDGV()
|
||||
With dgvPositionen
|
||||
If dgvPositionen.ColumnCount = 0 Then Exit Sub
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
Dim index = r.Cells("index").Value
|
||||
'r.Cells("ID").Value = POS(index)..Text
|
||||
If POS.Count > index Then
|
||||
r.Cells("Ware").Value = POS(index).txtWarenbezeichnung.Text
|
||||
End If
|
||||
Next
|
||||
End With
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub getValues(ByRef NCTS As DAKOSY_Worker.cDakosyAES)
|
||||
' Dim POSITIONEN As List(Of DAKOSY_Worker.cDakosy_NCTSOut_Warenposition)
|
||||
NCTS.aes_WARENPOS.Clear()
|
||||
|
||||
Dim cnt As Integer = 1
|
||||
For Each P In POS
|
||||
Dim POSITION As New DAKOSY_Worker.cDakosy_AES_Warenposition
|
||||
|
||||
NCTS.aes_WARENPOS.Add(POSITION)
|
||||
cnt += 1
|
||||
Next
|
||||
' NCTS.ncts_WARENPOS
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MyPanel2_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyPanel2.ControlAdded
|
||||
Try : DirectCast(e.Control, usrCntlATLAS_aes_Position).txtWarenbezeichnung.Focus() : Catch : End Try
|
||||
End Sub
|
||||
End Class
|
||||
492
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb
generated
Normal file
492
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb
generated
Normal file
@@ -0,0 +1,492 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrCntlATLAS_EZA
|
||||
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.SplitContainer = New System.Windows.Forms.SplitContainer()
|
||||
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
|
||||
Me.btnAllgemein = New System.Windows.Forms.Button()
|
||||
Me.btnAdressen = New System.Windows.Forms.Button()
|
||||
Me.btnAktiveVeredelung = New System.Windows.Forms.Button()
|
||||
Me.btnPositionen = New System.Windows.Forms.Button()
|
||||
Me.btnDV1 = New System.Windows.Forms.Button()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.lblBezugsnummer = New System.Windows.Forms.Label()
|
||||
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.txtDyMandant = New System.Windows.Forms.Label()
|
||||
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
|
||||
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
|
||||
Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.EZAIDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer.Panel1.SuspendLayout()
|
||||
Me.SplitContainer.SuspendLayout()
|
||||
Me.MyFlowLayoutPanel1.SuspendLayout()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.cntxtBezugsnr.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.MenuStrip.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SplitContainer
|
||||
'
|
||||
Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
|
||||
Me.SplitContainer.IsSplitterFixed = True
|
||||
Me.SplitContainer.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.SplitContainer.Name = "SplitContainer"
|
||||
Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer.Panel1
|
||||
'
|
||||
Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1)
|
||||
Me.SplitContainer.Panel1.Controls.Add(Me.pnl)
|
||||
'
|
||||
'SplitContainer.Panel2
|
||||
'
|
||||
Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.SplitContainer.Size = New System.Drawing.Size(934, 687)
|
||||
Me.SplitContainer.SplitterDistance = 72
|
||||
Me.SplitContainer.SplitterWidth = 1
|
||||
Me.SplitContainer.TabIndex = 0
|
||||
'
|
||||
'MyFlowLayoutPanel1
|
||||
'
|
||||
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAdressen)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAktiveVeredelung)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnDV1)
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.Button5)
|
||||
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1)
|
||||
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
|
||||
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72)
|
||||
Me.MyFlowLayoutPanel1.TabIndex = 0
|
||||
'
|
||||
'btnAllgemein
|
||||
'
|
||||
Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue
|
||||
Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.btnAllgemein.Image = Global.SDL.My.Resources.android_note12
|
||||
Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAllgemein.Location = New System.Drawing.Point(2, 2)
|
||||
Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAllgemein.Name = "btnAllgemein"
|
||||
Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.btnAllgemein.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAllgemein.TabIndex = 0
|
||||
Me.btnAllgemein.Text = "Allgemein"
|
||||
Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAllgemein.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnAdressen
|
||||
'
|
||||
Me.btnAdressen.BackColor = System.Drawing.Color.White
|
||||
Me.btnAdressen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAdressen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAdressen.Image = Global.SDL.My.Resources.house1
|
||||
Me.btnAdressen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAdressen.Location = New System.Drawing.Point(81, 2)
|
||||
Me.btnAdressen.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAdressen.Name = "btnAdressen"
|
||||
Me.btnAdressen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnAdressen.Size = New System.Drawing.Size(75, 67)
|
||||
Me.btnAdressen.TabIndex = 1
|
||||
Me.btnAdressen.Text = "Adressen"
|
||||
Me.btnAdressen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAdressen.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnAktiveVeredelung
|
||||
'
|
||||
Me.btnAktiveVeredelung.BackColor = System.Drawing.Color.White
|
||||
Me.btnAktiveVeredelung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnAktiveVeredelung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAktiveVeredelung.Image = Global.SDL.My.Resources.aktiveVeredelung1
|
||||
Me.btnAktiveVeredelung.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnAktiveVeredelung.Location = New System.Drawing.Point(160, 2)
|
||||
Me.btnAktiveVeredelung.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnAktiveVeredelung.Name = "btnAktiveVeredelung"
|
||||
Me.btnAktiveVeredelung.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3)
|
||||
Me.btnAktiveVeredelung.Size = New System.Drawing.Size(94, 67)
|
||||
Me.btnAktiveVeredelung.TabIndex = 3
|
||||
Me.btnAktiveVeredelung.Text = "Pass. Veredel."
|
||||
Me.btnAktiveVeredelung.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnAktiveVeredelung.UseVisualStyleBackColor = False
|
||||
Me.btnAktiveVeredelung.Visible = False
|
||||
'
|
||||
'btnPositionen
|
||||
'
|
||||
Me.btnPositionen.BackColor = System.Drawing.Color.White
|
||||
Me.btnPositionen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnPositionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPositionen.Image = Global.SDL.My.Resources.list_new_small2
|
||||
Me.btnPositionen.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnPositionen.Location = New System.Drawing.Point(258, 2)
|
||||
Me.btnPositionen.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnPositionen.Name = "btnPositionen"
|
||||
Me.btnPositionen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
|
||||
Me.btnPositionen.Size = New System.Drawing.Size(81, 67)
|
||||
Me.btnPositionen.TabIndex = 4
|
||||
Me.btnPositionen.Text = "Positionen"
|
||||
Me.btnPositionen.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnPositionen.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnDV1
|
||||
'
|
||||
Me.btnDV1.BackColor = System.Drawing.Color.White
|
||||
Me.btnDV1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.btnDV1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDV1.Image = Global.SDL.My.Resources.moneybag1
|
||||
Me.btnDV1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnDV1.Location = New System.Drawing.Point(343, 2)
|
||||
Me.btnDV1.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnDV1.Name = "btnDV1"
|
||||
Me.btnDV1.Padding = New System.Windows.Forms.Padding(0, 2, 0, 3)
|
||||
Me.btnDV1.Size = New System.Drawing.Size(94, 67)
|
||||
Me.btnDV1.TabIndex = 6
|
||||
Me.btnDV1.Text = "D.V.1"
|
||||
Me.btnDV1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnDV1.UseVisualStyleBackColor = False
|
||||
Me.btnDV1.Visible = False
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.BackColor = System.Drawing.Color.White
|
||||
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Image = Global.SDL.My.Resources.android_note12
|
||||
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button5.Location = New System.Drawing.Point(441, 2)
|
||||
Me.Button5.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3)
|
||||
Me.Button5.Size = New System.Drawing.Size(81, 67)
|
||||
Me.Button5.TabIndex = 5
|
||||
Me.Button5.Text = "Referenzen"
|
||||
Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.Button5.UseVisualStyleBackColor = False
|
||||
Me.Button5.Visible = False
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.pnl.Controls.Add(Me.Label6)
|
||||
Me.pnl.Controls.Add(Me.cboDakosyAction)
|
||||
Me.pnl.Controls.Add(Me.cboStammreferenz)
|
||||
Me.pnl.Controls.Add(Me.Button1)
|
||||
Me.pnl.Controls.Add(Me.Label4)
|
||||
Me.pnl.Controls.Add(Me.Label5)
|
||||
Me.pnl.Controls.Add(Me.Label2)
|
||||
Me.pnl.Controls.Add(Me.Label3)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.pnl.Location = New System.Drawing.Point(573, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(361, 72)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'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(8, 51)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(57, 13)
|
||||
Me.Label6.TabIndex = 14
|
||||
Me.Label6.Text = "Stammref.:"
|
||||
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'cboDakosyAction
|
||||
'
|
||||
Me.cboDakosyAction._allowedValuesFreiText = Nothing
|
||||
Me.cboDakosyAction._allowFreiText = False
|
||||
Me.cboDakosyAction._value = ""
|
||||
Me.cboDakosyAction.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboDakosyAction.FormattingEnabled = True
|
||||
Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48)
|
||||
Me.cboDakosyAction.Name = "cboDakosyAction"
|
||||
Me.cboDakosyAction.Size = New System.Drawing.Size(158, 21)
|
||||
Me.cboDakosyAction.TabIndex = 1
|
||||
'
|
||||
'cboStammreferenz
|
||||
'
|
||||
Me.cboStammreferenz._allowedValuesFreiText = Nothing
|
||||
Me.cboStammreferenz._allowFreiText = False
|
||||
Me.cboStammreferenz._value = ""
|
||||
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cboStammreferenz.FormattingEnabled = True
|
||||
Me.cboStammreferenz.Location = New System.Drawing.Point(71, 48)
|
||||
Me.cboStammreferenz.Name = "cboStammreferenz"
|
||||
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
|
||||
Me.cboStammreferenz.TabIndex = 13
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.BackColor = System.Drawing.Color.White
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button1.Location = New System.Drawing.Point(200, 5)
|
||||
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(159, 42)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.Text = "An DAKOSY senden -->"
|
||||
Me.Button1.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(8, 24)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(60, 13)
|
||||
Me.Label4.TabIndex = 9
|
||||
Me.Label4.Text = "Rohmasse:"
|
||||
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.Label5.Location = New System.Drawing.Point(100, 21)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(95, 18)
|
||||
Me.Label5.TabIndex = 10
|
||||
Me.Label5.Text = "0 kg"
|
||||
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'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(8, 8)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(59, 13)
|
||||
Me.Label2.TabIndex = 7
|
||||
Me.Label2.Text = "Positionen:"
|
||||
Me.Label2.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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.Label3.Location = New System.Drawing.Point(103, 5)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(92, 18)
|
||||
Me.Label3.TabIndex = 8
|
||||
Me.Label3.Text = "1"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.White
|
||||
Me.Label1.Location = New System.Drawing.Point(581, 7)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(82, 13)
|
||||
Me.Label1.TabIndex = 5
|
||||
Me.Label1.Text = "Bezugsnummer:"
|
||||
'
|
||||
'lblBezugsnummer
|
||||
'
|
||||
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
|
||||
Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr
|
||||
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblBezugsnummer.Location = New System.Drawing.Point(738, 1)
|
||||
Me.lblBezugsnummer.Name = "lblBezugsnummer"
|
||||
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
|
||||
Me.lblBezugsnummer.TabIndex = 6
|
||||
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
|
||||
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'cntxtBezugsnr
|
||||
'
|
||||
Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem})
|
||||
Me.cntxtBezugsnr.Name = "cntxtBezugsnr"
|
||||
Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26)
|
||||
Me.cntxtBezugsnr.Text = "Bezugsnr"
|
||||
'
|
||||
'NeueBezugsnummerVergebenToolStripMenuItem
|
||||
'
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem"
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22)
|
||||
Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.txtDyMandant)
|
||||
Me.Panel1.Controls.Add(Me.txtDyNiederlassung)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.lblBezugsnummer)
|
||||
Me.Panel1.Controls.Add(Me.MenuStrip)
|
||||
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(934, 25)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'txtDyMandant
|
||||
'
|
||||
Me.txtDyMandant.BackColor = System.Drawing.Color.White
|
||||
Me.txtDyMandant.Location = New System.Drawing.Point(443, 7)
|
||||
Me.txtDyMandant.Name = "txtDyMandant"
|
||||
Me.txtDyMandant.Size = New System.Drawing.Size(48, 13)
|
||||
Me.txtDyMandant.TabIndex = 21
|
||||
Me.txtDyMandant.Text = "VERG"
|
||||
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'txtDyNiederlassung
|
||||
'
|
||||
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
|
||||
Me.txtDyNiederlassung.Location = New System.Drawing.Point(497, 7)
|
||||
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
|
||||
Me.txtDyNiederlassung.Size = New System.Drawing.Size(42, 13)
|
||||
Me.txtDyNiederlassung.TabIndex = 20
|
||||
Me.txtDyNiederlassung.Text = "SUB"
|
||||
'
|
||||
'MenuStrip
|
||||
'
|
||||
Me.MenuStrip.BackColor = System.Drawing.Color.White
|
||||
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem, Me.ToolStripMenuItem1})
|
||||
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip.Name = "MenuStrip"
|
||||
Me.MenuStrip.Size = New System.Drawing.Size(934, 24)
|
||||
Me.MenuStrip.TabIndex = 0
|
||||
'
|
||||
'OptionenToolStripMenuItem
|
||||
'
|
||||
Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem})
|
||||
Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
|
||||
Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
|
||||
Me.OptionenToolStripMenuItem.Text = "Optionen"
|
||||
'
|
||||
'SpeichernToolStripMenuItem
|
||||
'
|
||||
Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
|
||||
Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.SpeichernToolStripMenuItem.Text = "Speichern"
|
||||
'
|
||||
'LadenToolStripMenuItem
|
||||
'
|
||||
Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem"
|
||||
Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.LadenToolStripMenuItem.Text = "Laden ..."
|
||||
Me.LadenToolStripMenuItem.Visible = False
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EZAIDToolStripMenuItem})
|
||||
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(24, 20)
|
||||
Me.ToolStripMenuItem1.Text = "?"
|
||||
'
|
||||
'EZAIDToolStripMenuItem
|
||||
'
|
||||
Me.EZAIDToolStripMenuItem.Name = "EZAIDToolStripMenuItem"
|
||||
Me.EZAIDToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.EZAIDToolStripMenuItem.Text = "EZA ID"
|
||||
'
|
||||
'usrCntlATLAS_EZA
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Controls.Add(Me.SplitContainer)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Name = "usrCntlATLAS_EZA"
|
||||
Me.Size = New System.Drawing.Size(934, 712)
|
||||
Me.SplitContainer.Panel1.ResumeLayout(False)
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer.ResumeLayout(False)
|
||||
Me.MyFlowLayoutPanel1.ResumeLayout(False)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.cntxtBezugsnr.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.MenuStrip.ResumeLayout(False)
|
||||
Me.MenuStrip.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
|
||||
Friend WithEvents btnAllgemein As System.Windows.Forms.Button
|
||||
Friend WithEvents btnAdressen As System.Windows.Forms.Button
|
||||
Friend WithEvents btnAktiveVeredelung As System.Windows.Forms.Button
|
||||
Friend WithEvents btnPositionen As System.Windows.Forms.Button
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents SpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents LadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents txtDyMandant As System.Windows.Forms.Label
|
||||
Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label
|
||||
Friend WithEvents btnDV1 As System.Windows.Forms.Button
|
||||
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents EZAIDToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
126
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.resx
Normal file
126
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.resx
Normal 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="cntxtBezugsnr.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</metadata>
|
||||
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
531
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
Normal file
531
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
Normal file
@@ -0,0 +1,531 @@
|
||||
Imports DAKOSY_Worker
|
||||
Imports Tamir
|
||||
Imports Tamir.SharpSsh
|
||||
|
||||
Public Class usrCntlATLAS_EZA
|
||||
|
||||
Property ALLG As usrCntlATLAS_EZA_Allg
|
||||
Property ADRESSEN As usrCntlATLAS_EZA_Adressen
|
||||
Property POSITIONEN As usrCntlATLAS_EZA_Positionen
|
||||
Property DV1 As usrCntlATLAS_EZA_DV1
|
||||
|
||||
|
||||
|
||||
Property Jahr2Stellig As Integer
|
||||
Property zusatz As String
|
||||
Property BezugsNr As String = ""
|
||||
Dim sentToDakosy = False
|
||||
|
||||
|
||||
Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
|
||||
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
|
||||
|
||||
|
||||
Dim cDy_ART As String = "EZA"
|
||||
|
||||
Dim EZA As cDakosyEZA = Nothing
|
||||
Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing
|
||||
|
||||
Property isSTAMMREF As Boolean = False
|
||||
Property STAMMREF As String = ""
|
||||
|
||||
|
||||
Sub New(DY_ANM As cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Me.cDy_ART = If(ART = "NCTS", "T2", ART)
|
||||
|
||||
Me.Jahr2Stellig = Jahr2Stellig
|
||||
Me.zusatz = zusatz
|
||||
|
||||
Me.AVISO = AVISO
|
||||
Me.SENDUNG = SENDUNG
|
||||
Me.DY_ANM = DY_ANM
|
||||
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
|
||||
If DY_ANM IsNot Nothing Then
|
||||
Me.EZA = DAKOSY_Worker.cDakosyEZA.LOADByAnmIDFull(DY_ANM.dy_Id, True)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub New(EZA As cDakosyEZA, Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
InitializeComponent()
|
||||
Me.EZA = EZA
|
||||
DY_ANM = New cDakosy_Zollanmeldungen(EZA.eza_dyaAnmID)
|
||||
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
|
||||
If DY_ANM.dy_AvisoId > 0 Then
|
||||
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||
AVISO = AV.LesenAviso(DY_ANM.dy_AvisoId, "")
|
||||
End If
|
||||
If DY_ANM.dy_SendungsId > 0 Then
|
||||
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_ANM.dy_SendungsId)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub New(ART As String, AvisoId As Integer, SENDUNGS_ID As Integer, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.cDy_ART = If(ART <> "", ART, "EX")
|
||||
|
||||
If AvisoId > 0 Then
|
||||
Dim AV As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||
AVISO = AV.LesenAviso(AvisoId, "")
|
||||
End If
|
||||
If SENDUNGS_ID > 0 Then
|
||||
SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SENDUNGS_ID)
|
||||
End If
|
||||
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
|
||||
Me.Jahr2Stellig = Jahr2Stellig
|
||||
Me.zusatz = zusatz
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
Sub New(ART As String, Aviso As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "")
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.cDy_ART = If(ART <> "", ART, "EX")
|
||||
Me.AVISO = Aviso
|
||||
Me.SENDUNG = SENDUNG
|
||||
|
||||
Me.Jahr2Stellig = Jahr2Stellig
|
||||
Me.zusatz = zusatz
|
||||
|
||||
|
||||
Me.isSTAMMREF = isSTAMMREF
|
||||
Me.STAMMREF = STAMMREF
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
End Sub
|
||||
|
||||
|
||||
Function getBezugsnr(ByRef BezugsNr)
|
||||
BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
|
||||
zusatz = "A"
|
||||
'Soloagne bis die Bezugsnummer noch nicht existiert
|
||||
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
|
||||
BezugsNr = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "/" & zusatz
|
||||
If zusatz.Length = 1 Then
|
||||
zusatz = Chr(Asc(zusatz.ToString) + 1)
|
||||
Else
|
||||
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
|
||||
End If
|
||||
If zusatz = "Z" Then zusatz = "AA"
|
||||
End While
|
||||
lblBezugsnummer.Text = BezugsNr
|
||||
Return BezugsNr
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
cboDakosyAction.Items.Clear()
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL))
|
||||
cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND))
|
||||
cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE)
|
||||
|
||||
ADRESSEN = New usrCntlATLAS_EZA_Adressen(EZA)
|
||||
ALLG = New usrCntlATLAS_EZA_Allg(EZA)
|
||||
POSITIONEN = New usrCntlATLAS_EZA_Positionen(EZA)
|
||||
DV1 = New usrCntlATLAS_EZA_DV1(EZA)
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "VERAG" : txtDyMandant.Text = "VERG"
|
||||
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
'Case "SUB" : txtDyNiederlassung.Text = "VERG"
|
||||
'Case "SUW" : txtDyNiederlassung.Text = "ATIL"
|
||||
''Case "SBG" : txtDyNiederlassung.Text = "IMEX"
|
||||
'Case "NEU" : txtDyNiederlassung.Text = "IMEX"
|
||||
'Case "NKD" : txtDyNiederlassung.Text = "IMEX"
|
||||
'End Select
|
||||
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
|
||||
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
|
||||
End Select
|
||||
|
||||
|
||||
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' and dySr_visible=1", False, "FMZOLL", True)
|
||||
cboStammreferenz.changeItem("")
|
||||
|
||||
|
||||
If isSTAMMREF Then
|
||||
Me.BezugsNr = "STAMMREFERENZ"
|
||||
If EZA Is Nothing Then EZA = New cDakosyEZA
|
||||
EZA.eza_ObjectName = BezugsNr
|
||||
Button1.Enabled = False
|
||||
cboDakosyAction.Enabled = False
|
||||
Else
|
||||
If EZA Is Nothing Then ' NEUE ZOLLANMELDUNG
|
||||
|
||||
Dim kdnr As Object = Nothing
|
||||
If SENDUNG IsNot Nothing AndAlso SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
|
||||
kdnr = SENDUNG.tblSnd_EmpfaengerKdNr
|
||||
End If
|
||||
Dim f As New frmDakosyStammreferenz("DE", "EZA", False, kdnr)
|
||||
Dim Stammreferenz = Nothing
|
||||
If f.ShowDialog(Me) Then
|
||||
Stammreferenz = f.STAMMREF
|
||||
sentToDakosy = f.sentToDakosy
|
||||
End If
|
||||
Try
|
||||
|
||||
BezugsNr = getBezugsnr(BezugsNr)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
EZA = cDakosyEZA.LOADByBezugsNr(BezugsNr, True)
|
||||
If EZA Is Nothing Then
|
||||
'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist
|
||||
EZA = cDakosyEZA.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist!
|
||||
|
||||
|
||||
If EZA IsNot Nothing Then
|
||||
'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben
|
||||
EZA.eza_dyaAnmID = -1
|
||||
EZA.eza_Id = -1
|
||||
Else
|
||||
EZA = New cDakosyEZA
|
||||
End If
|
||||
|
||||
'Wenn bei der Stammref eine andere NL ausgewählt wurde, wird dies hier korrigiert (zb. IMEX / GLOBAL!):
|
||||
If f.nl <> txtDyNiederlassung.Text Then
|
||||
txtDyNiederlassung.Text = f.nl
|
||||
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' and dySr_visible=1", False, "FMZOLL", True)
|
||||
|
||||
End If
|
||||
|
||||
loaddataFromAVISO(EZA)
|
||||
cboStammreferenz.changeItem(Stammreferenz)
|
||||
|
||||
|
||||
End If
|
||||
'eza_OUT
|
||||
|
||||
Else
|
||||
' eza_OUT is ot nothing
|
||||
Me.BezugsNr = EZA.eza_ObjectName
|
||||
'MsgBox(eza_OUT.eza_Hauptverpflichteter_Name)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
' If EZA.ncts_ArtAnmeldung Is Nothing Or EZA.ncts_ArtAnmeldung = "" Then
|
||||
'EZA.ncts_ArtAnmeldung = "T2"
|
||||
'End If
|
||||
|
||||
|
||||
'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s
|
||||
Me.SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
Me.SplitContainer.Panel2.Controls.Add(POSITIONEN)
|
||||
Me.SplitContainer.Panel2.Controls.Add(ADRESSEN)
|
||||
Me.SplitContainer.Panel2.Controls.Add(DV1)
|
||||
|
||||
AddHandler ALLG.DV1_changed, Sub(dv1)
|
||||
btnDV1.Visible = dv1
|
||||
End Sub
|
||||
|
||||
' MsgBox(EZA.ncts_Hauptverpflichteter_Name)
|
||||
'Werte setzen:
|
||||
ADRESSEN.setValues(EZA)
|
||||
ALLG.setValues(EZA)
|
||||
POSITIONEN.setValues(EZA)
|
||||
DV1.setValues(EZA)
|
||||
|
||||
'Controls wieder entfernen:
|
||||
Me.SplitContainer.Panel2.Controls.Clear()
|
||||
|
||||
|
||||
|
||||
'If ALLG.txtRechnungspreis.Text = "" Then ALLG.txtRechnungspreis.Text = BezugsNr
|
||||
|
||||
|
||||
|
||||
' ADRESSEN.CreateControl()
|
||||
For Each c In MyFlowLayoutPanel1.Controls
|
||||
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
|
||||
AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick
|
||||
End If
|
||||
Next
|
||||
|
||||
SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
lblBezugsnummer.Text = BezugsNr
|
||||
|
||||
ALLG.Dock = DockStyle.Fill
|
||||
ADRESSEN.Dock = DockStyle.Fill
|
||||
POSITIONEN.Dock = DockStyle.Fill
|
||||
DV1.Dock = DockStyle.Fill
|
||||
|
||||
AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse)
|
||||
Label5.Text = rohmasse.ToString("N2") & " kg"
|
||||
End Sub
|
||||
AddHandler POSITIONEN.PosAnzChanged, Sub(anz)
|
||||
Label3.Text = anz
|
||||
End Sub
|
||||
|
||||
If sentToDakosy Then
|
||||
|
||||
Me.Button1.PerformClick()
|
||||
Me.FindForm.Close()
|
||||
|
||||
End If
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then
|
||||
Me.FindForm.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub buttonClick(sender As Object, e As EventArgs) 'HANDLED
|
||||
Dim btn As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button)
|
||||
|
||||
For Each c In MyFlowLayoutPanel1.Controls
|
||||
If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then
|
||||
DirectCast(c, System.Windows.Forms.Button).BackColor = Drawing.Color.White
|
||||
DirectCast(c, System.Windows.Forms.Button).ForeColor = Drawing.Color.Black
|
||||
End If
|
||||
Next
|
||||
|
||||
btn.BackColor = Drawing.Color.SteelBlue 'Drawing.Color.FromArgb(0, 54, 128)
|
||||
btn.ForeColor = Drawing.Color.White
|
||||
|
||||
|
||||
SplitContainer.Panel2.Controls.Clear()
|
||||
|
||||
If btn Is btnAllgemein Then
|
||||
SplitContainer.Panel2.Controls.Add(ALLG)
|
||||
ElseIf btn Is btnAdressen Then
|
||||
SplitContainer.Panel2.Controls.Add(ADRESSEN)
|
||||
ElseIf btn Is btnPositionen Then
|
||||
SplitContainer.Panel2.Controls.Add(POSITIONEN)
|
||||
ElseIf btn Is btnDV1 Then
|
||||
SplitContainer.Panel2.Controls.Add(DV1)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub loaddataFromAVISO(ByRef cdy As cDakosyEZA)
|
||||
Try
|
||||
|
||||
'==> VORBLENDUNG:
|
||||
|
||||
' Dim cdy As New cDakosyEZA
|
||||
cdy.EZA_ObjectName = BezugsNr
|
||||
' cdy.EZA_AbgangsDienststellennummer = "DE004102"
|
||||
' cdy.EZA_VersendungsLandCode = "DE"
|
||||
cdy.EZA_dyaArt = cDy_ART
|
||||
If AVISO IsNot Nothing Then
|
||||
' cdy.EZA_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr
|
||||
' cdy.EZA_Befoerderungsmittel_KennzeichenGrenzueberschreitend = "X"
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
' Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(712255) ' VERAG Neuhaus
|
||||
' Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(712255) ' VERAG Neuhaus
|
||||
If False Then
|
||||
|
||||
If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
|
||||
Dim AD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Frächter_KdNr) ' Befoerderer
|
||||
Dim KD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cKunde(AVISO.Frächter_KdNr) ' Befoerderer
|
||||
Else
|
||||
' cdy.EZA_SumA_Befoerderer_Name = If(AVISO.Frächter, "")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If SENDUNG IsNot Nothing Then
|
||||
Dim p As New DAKOSY_Worker.cDakosy_EZA_Warenposition
|
||||
p.ezaWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
|
||||
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then
|
||||
' Dim pk As New DAKOSY_Worker.cDakosy_EZA_WarenpositionPackstuecke
|
||||
' pk.EZAWpPk_PackstueckeAnzahl = SENDUNG.tblSnd_Colli
|
||||
' pk.EZAWpPk_Verpackungsart = "PK"
|
||||
' p.EZAWP_PACKSTUECKE.Add(pk)
|
||||
End If
|
||||
p.ezaWP_Rohmasse = SENDUNG.tblSnd_Gewicht
|
||||
p.ezaWP_Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
|
||||
cdy.eza_WARENPOS.Add(p)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If SENDUNG.tblSnd_Abfertigungsart_ID = 1 Then
|
||||
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
|
||||
|
||||
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
AD.ezaAd_AdressCode = SENDUNG.tblSnd_EmpfaengerKdNr
|
||||
AD.ezaAd_AdressTyp = "CN"
|
||||
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
|
||||
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
|
||||
|
||||
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
|
||||
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
|
||||
|
||||
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
|
||||
AD.ezaAd_PLZ = ADFmzoll.PLZ
|
||||
AD.ezaAd_Ort = ADFmzoll.Ort
|
||||
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
|
||||
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
|
||||
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
|
||||
|
||||
cdy.eza_ADRESSEN.Add(AD)
|
||||
End If
|
||||
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
|
||||
|
||||
Dim AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
AD.ezaAd_AdressCode = SENDUNG.tblSnd_AbsenderKdNr
|
||||
AD.ezaAd_AdressTyp = "CZ"
|
||||
Dim ADFmzoll As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
|
||||
Dim KDFmzoll As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr)
|
||||
|
||||
AD.ezaAd_NameFirma1 = ADFmzoll.Name_1
|
||||
AD.ezaAd_NameFirma2 = ADFmzoll.Name_2
|
||||
|
||||
AD.ezaAd_StrasseHausNr1 = ADFmzoll.Straße
|
||||
AD.ezaAd_PLZ = ADFmzoll.PLZ
|
||||
AD.ezaAd_Ort = ADFmzoll.Ort
|
||||
AD.ezaAd_LandCode = cProgramFunctions.getISO2Land(ADFmzoll.LandKz)
|
||||
AD.ezaAd_TeilnehmerEORI = KDFmzoll.EORITIN
|
||||
AD.ezaAd_TeilnehmerNLNR = KDFmzoll.EORITIN_NL
|
||||
|
||||
cdy.eza_ADRESSEN.Add(AD)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
cdy.eza_KennzeichenNameBefoerderungsmittelAnkunft = AVISO.LKW_Nr
|
||||
cdy.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = AVISO.LKW_Nationalitaet
|
||||
'cdy.EZA_BefoerderungsmittelGrenzeKennzeichen = AVISO.LKW_Nr
|
||||
'cdy.EZA_Ausfuhrland = "DE"
|
||||
|
||||
' cdy.EZA_VerkehrszweigGrenze = "3"
|
||||
' cdy.EZA_VerkehrszweigInland = "3"
|
||||
' cdy.eza_BeförderungsmittelGrenzeArt = "33"
|
||||
|
||||
' cdy.EZA_Rechnungwaehrung = "EUR"
|
||||
|
||||
' NCTS= cdy
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub setValue(EZA)
|
||||
BezugsNr = EZA.ncts_ObjectName
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub loadDYZollanmeldungen(Optional Status As String = "") ' + Speichern
|
||||
If DY_ANM Is Nothing Then
|
||||
DY_ANM = New cDakosy_Zollanmeldungen(EZA.EZA_dyaAnmID)
|
||||
End If
|
||||
DY_ANM.dy_ART = ALLG.EZA_ART 'cDy_ART
|
||||
DY_ANM.dy_BezugsNr = BezugsNr
|
||||
DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID)
|
||||
DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID)
|
||||
'Status?
|
||||
DY_ANM.SAVE() 'Speichern, ID wird erzeugt
|
||||
|
||||
End Sub
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
Me.Refresh()
|
||||
cboDakosyAction.Focus() 'nur, damit alle _value aktualisuiert sind...
|
||||
If sentToDakosy OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der Dakosy Software möglich.", vbYesNoCancel) Then
|
||||
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
|
||||
loadDYZollanmeldungen()
|
||||
|
||||
If EZA IsNot Nothing Then
|
||||
'Dim cDY As New cDakosyEZA(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
|
||||
EZA.eza_dyaAnmID = DY_ANM.dy_Id
|
||||
EZA.eza_Erstellung_SB = DY_ANM.dy_Erstellung_SB
|
||||
EZA.eza_LetzteBearbeitung = Now
|
||||
EZA.eza_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
|
||||
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungEZA(EZA, Me, DY_ANM)
|
||||
If Not EZA.SAVE_ALL() Then Exit Sub
|
||||
Dim saveFile = ""
|
||||
If DAKOSY_Interface_SEND.generateVersandanmeldungEZA(EZA, saveFile, cboDakosyAction._value) Then
|
||||
If saveFile <> "" Then
|
||||
If Not cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id) Then
|
||||
MsgBox("Sendefehler!")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
DY_ANM.UPDATE_DATA()
|
||||
Me.FindForm.Close()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
|
||||
|
||||
Me.Refresh()
|
||||
|
||||
cboDakosyAction.Focus() 'nur, damit alle _value aktualisuiert sind...
|
||||
|
||||
' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID))
|
||||
loadDYZollanmeldungen()
|
||||
|
||||
If EZA IsNot Nothing Then
|
||||
'Dim cDY As New cDakosyEZA(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
|
||||
EZA.EZA_dyaAnmID = DY_ANM.dy_Id
|
||||
EZA.EZA_Erstellung_SB = DY_ANM.dy_Erstellung_SB
|
||||
EZA.EZA_LetzteBearbeitung = Now
|
||||
EZA.EZA_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
|
||||
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungEZA(EZA, Me, DY_ANM)
|
||||
|
||||
If Not EZA.SAVE_ALL() Then
|
||||
'gespeichert
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
DY_ANM.UPDATE_DATA()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click
|
||||
BezugsNr = getBezugsnr(BezugsNr)
|
||||
End Sub
|
||||
|
||||
Private Sub EZAIDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EZAIDToolStripMenuItem.Click
|
||||
If EZA IsNot Nothing Then
|
||||
MsgBox(EZA.eza_Id)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
197
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.Designer.vb
generated
Normal file
197
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.Designer.vb
generated
Normal file
@@ -0,0 +1,197 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrCntlATLAS_EZA_Adressen
|
||||
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.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.txtUstId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.usrCntl_Vertretener = New SDL.usrCntlAdresseEZA()
|
||||
Me.usrCntl_Bewilligungsinhaber = New SDL.usrCntlAdresseEZA()
|
||||
Me.usrCntl_Versender = New SDL.usrCntlAdresseEZA()
|
||||
Me.usrCntl_Erwerber = New SDL.usrCntlAdresseEZA()
|
||||
Me.usrCntl_VertreterAnmelder = New SDL.usrCntlAdresseEZA()
|
||||
Me.usrCntl_Empfaenger = New SDL.usrCntlAdresseEZA()
|
||||
Me.usrCntl_Anmelder = New SDL.usrCntlAdresseEZA()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.Label1)
|
||||
Me.pnl.Controls.Add(Me.txtUstId)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Vertretener)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Bewilligungsinhaber)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Versender)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Erwerber)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_VertreterAnmelder)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Empfaenger)
|
||||
Me.pnl.Controls.Add(Me.usrCntl_Anmelder)
|
||||
Me.pnl.Controls.Add(Me.PictureBox2)
|
||||
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(907, 737)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(485, 372)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(40, 13)
|
||||
Me.Label1.TabIndex = 53
|
||||
Me.Label1.Text = "USt-Id:"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'txtUstId
|
||||
'
|
||||
Me.txtUstId._DateTimeOnly = False
|
||||
Me.txtUstId._numbersOnly = False
|
||||
Me.txtUstId._numbersOnlyKommastellen = ""
|
||||
Me.txtUstId._Prozent = False
|
||||
Me.txtUstId._ShortDateNew = False
|
||||
Me.txtUstId._ShortDateOnly = False
|
||||
Me.txtUstId._TimeOnly = False
|
||||
Me.txtUstId._value = Nothing
|
||||
Me.txtUstId._Waehrung = False
|
||||
Me.txtUstId.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.txtUstId.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtUstId.Location = New System.Drawing.Point(534, 369)
|
||||
Me.txtUstId.MaxLength = 17
|
||||
Me.txtUstId.MaxLineLength = -1
|
||||
Me.txtUstId.MaxLines_Warning = ""
|
||||
Me.txtUstId.MaxLines_Warning_Label = Nothing
|
||||
Me.txtUstId.Name = "txtUstId"
|
||||
Me.txtUstId.Size = New System.Drawing.Size(217, 20)
|
||||
Me.txtUstId.TabIndex = 52
|
||||
'
|
||||
'usrCntl_Vertretener
|
||||
'
|
||||
Me.usrCntl_Vertretener._Titel = "Vertretener (Adresse für Rechnung):"
|
||||
Me.usrCntl_Vertretener.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Vertretener.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Vertretener.Location = New System.Drawing.Point(482, 544)
|
||||
Me.usrCntl_Vertretener.Name = "usrCntl_Vertretener"
|
||||
Me.usrCntl_Vertretener.Size = New System.Drawing.Size(408, 162)
|
||||
Me.usrCntl_Vertretener.TabIndex = 51
|
||||
'
|
||||
'usrCntl_Bewilligungsinhaber
|
||||
'
|
||||
Me.usrCntl_Bewilligungsinhaber._Titel = "Bewilligungsinhaber:"
|
||||
Me.usrCntl_Bewilligungsinhaber.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Bewilligungsinhaber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Bewilligungsinhaber.Location = New System.Drawing.Point(17, 544)
|
||||
Me.usrCntl_Bewilligungsinhaber.Name = "usrCntl_Bewilligungsinhaber"
|
||||
Me.usrCntl_Bewilligungsinhaber.Size = New System.Drawing.Size(408, 162)
|
||||
Me.usrCntl_Bewilligungsinhaber.TabIndex = 50
|
||||
'
|
||||
'usrCntl_Versender
|
||||
'
|
||||
Me.usrCntl_Versender._Titel = "Versender:"
|
||||
Me.usrCntl_Versender.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Versender.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Versender.Location = New System.Drawing.Point(17, 21)
|
||||
Me.usrCntl_Versender.Name = "usrCntl_Versender"
|
||||
Me.usrCntl_Versender.Size = New System.Drawing.Size(408, 162)
|
||||
Me.usrCntl_Versender.TabIndex = 5
|
||||
'
|
||||
'usrCntl_Erwerber
|
||||
'
|
||||
Me.usrCntl_Erwerber._Titel = "Erwerber in and. Mitgliedsstaat:"
|
||||
Me.usrCntl_Erwerber.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Erwerber.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Erwerber.Location = New System.Drawing.Point(482, 202)
|
||||
Me.usrCntl_Erwerber.Name = "usrCntl_Erwerber"
|
||||
Me.usrCntl_Erwerber.Size = New System.Drawing.Size(408, 162)
|
||||
Me.usrCntl_Erwerber.TabIndex = 4
|
||||
'
|
||||
'usrCntl_VertreterAnmelder
|
||||
'
|
||||
Me.usrCntl_VertreterAnmelder._Titel = "Vertreter des Anmelders:"
|
||||
Me.usrCntl_VertreterAnmelder.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_VertreterAnmelder.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_VertreterAnmelder.Location = New System.Drawing.Point(17, 363)
|
||||
Me.usrCntl_VertreterAnmelder.Name = "usrCntl_VertreterAnmelder"
|
||||
Me.usrCntl_VertreterAnmelder.Size = New System.Drawing.Size(408, 162)
|
||||
Me.usrCntl_VertreterAnmelder.TabIndex = 3
|
||||
'
|
||||
'usrCntl_Empfaenger
|
||||
'
|
||||
Me.usrCntl_Empfaenger._Titel = "Empfänger:"
|
||||
Me.usrCntl_Empfaenger.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Empfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Empfaenger.Location = New System.Drawing.Point(482, 21)
|
||||
Me.usrCntl_Empfaenger.Name = "usrCntl_Empfaenger"
|
||||
Me.usrCntl_Empfaenger.Size = New System.Drawing.Size(408, 162)
|
||||
Me.usrCntl_Empfaenger.TabIndex = 2
|
||||
'
|
||||
'usrCntl_Anmelder
|
||||
'
|
||||
Me.usrCntl_Anmelder._Titel = "Anmelder:"
|
||||
Me.usrCntl_Anmelder.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.usrCntl_Anmelder.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.usrCntl_Anmelder.Location = New System.Drawing.Point(17, 202)
|
||||
Me.usrCntl_Anmelder.Name = "usrCntl_Anmelder"
|
||||
Me.usrCntl_Anmelder.Size = New System.Drawing.Size(408, 162)
|
||||
Me.usrCntl_Anmelder.TabIndex = 1
|
||||
'
|
||||
'PictureBox2
|
||||
'
|
||||
Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.lorry_motion
|
||||
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(421, 73)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(58, 34)
|
||||
Me.PictureBox2.TabIndex = 49
|
||||
Me.PictureBox2.TabStop = False
|
||||
'
|
||||
'usrCntlATLAS_EZA_Adressen
|
||||
'
|
||||
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.pnl)
|
||||
Me.Name = "usrCntlATLAS_EZA_Adressen"
|
||||
Me.Size = New System.Drawing.Size(907, 737)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents usrCntl_Empfaenger As SDL.usrCntlAdresseEZA
|
||||
Friend WithEvents usrCntl_Anmelder As SDL.usrCntlAdresseEZA
|
||||
Friend WithEvents usrCntl_Erwerber As SDL.usrCntlAdresseEZA
|
||||
Friend WithEvents usrCntl_VertreterAnmelder As SDL.usrCntlAdresseEZA
|
||||
Friend WithEvents usrCntl_Versender As SDL.usrCntlAdresseEZA
|
||||
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents usrCntl_Bewilligungsinhaber As SDL.usrCntlAdresseEZA
|
||||
Friend WithEvents usrCntl_Vertretener As SDL.usrCntlAdresseEZA
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtUstId As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
|
||||
End Class
|
||||
120
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.resx
Normal file
120
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.resx
Normal 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>
|
||||
116
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb
Normal file
116
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Adressen.vb
Normal file
@@ -0,0 +1,116 @@
|
||||
Public Class usrCntlATLAS_EZA_Adressen
|
||||
' Dim OWNER As Control
|
||||
Dim NCTS_OUT As DAKOSY_Worker.cDakosyEZA = Nothing
|
||||
'Sub New(OWNER As Control, NCTS_OUT As DAKOSY_Worker.cDakosyEZA)
|
||||
Sub New(NCTS_OUT As DAKOSY_Worker.cDakosyEZA)
|
||||
InitializeComponent()
|
||||
'Me.OWNER = OWNER
|
||||
Me.NCTS_OUT = NCTS_OUT
|
||||
End Sub
|
||||
|
||||
Public Sub usrCntlATLAS_NCTS_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
' usrCntlSumA_Befoerderer.initME()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub getValues(ByRef EZA As DAKOSY_Worker.cDakosyEZA)
|
||||
|
||||
EZA.eza_ADRESSEN.Clear()
|
||||
|
||||
If usrCntl_Versender.txtName1.Text.Trim <> "" Or usrCntl_Versender.txtEORI.Text.Trim <> "" Then
|
||||
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("CZ", usrCntl_Versender))
|
||||
End If
|
||||
|
||||
If usrCntl_Empfaenger.txtName1.Text.Trim <> "" Or usrCntl_Empfaenger.txtEORI.Text.Trim <> "" Then
|
||||
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("CN", usrCntl_Empfaenger))
|
||||
End If
|
||||
|
||||
If usrCntl_Anmelder.txtName1.Text.Trim <> "" Or usrCntl_Anmelder.txtEORI.Text.Trim <> "" Then
|
||||
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("DT", usrCntl_Anmelder))
|
||||
End If
|
||||
|
||||
If usrCntl_VertreterAnmelder.txtName1.Text.Trim <> "" Or usrCntl_VertreterAnmelder.txtEORI.Text.Trim <> "" Then
|
||||
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("AG", usrCntl_VertreterAnmelder))
|
||||
End If
|
||||
|
||||
|
||||
'If usrCntl_Bewilligungsinhaber.txtName1.Text.Trim <> "" Or usrCntl_Bewilligungsinhaber.txtEORI.Text.Trim <> "" Then
|
||||
'EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl(" "))
|
||||
'End If
|
||||
|
||||
If usrCntl_Erwerber.txtName1.Text.Trim <> "" Or usrCntl_Erwerber.txtEORI.Text.Trim <> "" Then
|
||||
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("UC", usrCntl_Erwerber))
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If usrCntl_Vertretener.txtName1.Text.Trim <> "" Or usrCntl_Vertretener.txtEORI.Text.Trim <> "" Then
|
||||
EZA.eza_ADRESSEN.Add(getAdresseFromUsrcntl("AA", usrCntl_Vertretener))
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Function getAdresseFromUsrcntl(typ As String, usrCntl As usrCntlAdresseEZA) As DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
|
||||
ADR.ezaAd_AdressTyp = typ
|
||||
ADR.ezaAd_NameFirma1 = cProgramFunctions.isLeerNothing(usrCntl.txtName1.Text)
|
||||
ADR.ezaAd_NameFirma2 = cProgramFunctions.isLeerNothing(usrCntl.txtName2.Text)
|
||||
ADR.ezaAd_StrasseHausNr1 = cProgramFunctions.isLeerNothing(usrCntl.txtStrasse.Text)
|
||||
ADR.ezaAd_PLZ = cProgramFunctions.isLeerNothing(usrCntl.txtPlz.Text)
|
||||
ADR.ezaAd_Ort = cProgramFunctions.isLeerNothing(usrCntl.txtOrt.Text)
|
||||
ADR.ezaAd_LandCode = cProgramFunctions.isLeerNothing(usrCntl.sbLand._value)
|
||||
ADR.ezaAd_TeilnehmerEORI = cProgramFunctions.isLeerNothing(usrCntl.txtEORI.Text)
|
||||
ADR.ezaAd_TeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl.txtEORINL.Text)
|
||||
' ADR.ezaAd_TeilnehmerNLNR = cProgramFunctions.isLeerNothing(usrCntl.txtEORINL.Text)
|
||||
If typ = "UC" Then
|
||||
ADR.ezaAd_FinanzamtIDAnmelder = cProgramFunctions.isLeerNothing(txtUstId.Text)
|
||||
End If
|
||||
' ADR. ezaAd_UStIDAnmelder As Object = Nothing ' VARCHAR (14) NULL,
|
||||
' ADR. ezaAd_FinanzamtIDAnmelder As Object = Nothing ' VARCHAR (4) NULL,
|
||||
' Property ezaAd_Bewilligungsnummer As Object = Nothing ' VARCHAR (35) NULL,
|
||||
' Property ezaAd_BewilligungsFachVerfahren As Object = Nothing ' VARCHAR (35) NULL,
|
||||
' Property ezaAd_BewilligungsnummerEndverwender As Object = Nothing ' VARCHAR (35) NULL,
|
||||
Return ADR
|
||||
End Function
|
||||
|
||||
Sub setAdresseFromUsrcntl(usrCntl As usrCntlAdresseEZA, ADR As DAKOSY_Worker.cDakosy_EZA_Adressen)
|
||||
usrCntl.txtName1.Text = If(ADR.ezaAd_NameFirma1, "")
|
||||
usrCntl.txtName2.Text = If(ADR.ezaAd_NameFirma2, "")
|
||||
usrCntl.txtStrasse.Text = If(ADR.ezaAd_StrasseHausNr1, "")
|
||||
usrCntl.txtPlz.Text = If(ADR.ezaAd_PLZ, "")
|
||||
usrCntl.txtOrt.Text = If(ADR.ezaAd_Ort, "")
|
||||
usrCntl.txtEORI.Text = If(ADR.ezaAd_TeilnehmerEORI, "")
|
||||
usrCntl.txtEORINL.Text = If(ADR.ezaAd_TeilnehmerNLNR, "")
|
||||
usrCntl.sbLand.SET_VALUE(If(ADR.ezaAd_LandCode, ""))
|
||||
|
||||
If usrCntl Is usrCntl_Erwerber Then
|
||||
txtUstId.Text = If(ADR.ezaAd_FinanzamtIDAnmelder, "")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setValues(EZA As DAKOSY_Worker.cDakosyEZA)
|
||||
If EZA Is Nothing OrElse EZA.eza_ADRESSEN Is Nothing Then Exit Sub
|
||||
|
||||
For Each ADR In EZA.eza_ADRESSEN
|
||||
Select Case ADR.ezaAd_AdressTyp
|
||||
Case "CZ" : setAdresseFromUsrcntl(usrCntl_Versender, ADR)
|
||||
Case "CN" : setAdresseFromUsrcntl(usrCntl_Empfaenger, ADR)
|
||||
Case "DT" : setAdresseFromUsrcntl(usrCntl_Anmelder, ADR)
|
||||
Case "AG" : setAdresseFromUsrcntl(usrCntl_VertreterAnmelder, ADR)
|
||||
Case "UC" : setAdresseFromUsrcntl(usrCntl_Erwerber, ADR)
|
||||
Case "AA" : setAdresseFromUsrcntl(usrCntl_Vertretener, ADR)
|
||||
' Case "" : setAdresseFromUsrcntl(usrCntl_Versender, ADR)
|
||||
End Select
|
||||
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
1001
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb
generated
Normal file
1001
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
120
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.resx
Normal file
120
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.resx
Normal 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>
|
||||
451
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.vb
Normal file
451
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Allg.vb
Normal file
@@ -0,0 +1,451 @@
|
||||
Public Class usrCntlATLAS_EZA_Allg
|
||||
Property EZA_ART = "EZA"
|
||||
|
||||
Dim EZA As DAKOSY_Worker.cDakosyEZA = Nothing
|
||||
Public Event DV1_changed(DV1 As Boolean)
|
||||
|
||||
Sub New(EZA As DAKOSY_Worker.cDakosyEZA)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.EZA = EZA
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub usrCntlATLAS_EZA_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'MySearchBox1.initSearchBox(Me.FindForm, "AdressenNr, [Name 1] FROM Adressen", {"[Name 1]", "Ort", "PLZ"}, "", "[Name 1]", "AdressenNr", "AdressenNr")
|
||||
|
||||
sbEingangZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
sbAdrZollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() AND basncd_dstnr LIKE 'DE00%' ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
|
||||
'sbTatAusfuhrZollstelleID.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
|
||||
sbBestimmungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbVersendungsLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbKennzeichenInlandLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
txtRechnungspreisWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
|
||||
cboZollrStatus.Items.Clear()
|
||||
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CO", "CO"))
|
||||
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IM", "IM"))
|
||||
cboZollrStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU", "EU"))
|
||||
|
||||
cboStatStatus.Items.Clear()
|
||||
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Ware, statistisch nicht erfassbar", "01"))
|
||||
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("03 - Ware wird von Betiligtem gemeldet", "03"))
|
||||
cboStatStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("04 - Ware ist statistisch zu erfassen", "04"))
|
||||
|
||||
cboVerfahren.Items.Clear()
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Überführung von Waren in den zollrechtlich freien Verkehr", "01"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Gleichzeitige Überführung in den zollrechtlich freien Verkehr ohne MWSt-freie Lieferung", "40"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("42 - Gleichzeitige Überführung in den zollrechtlich freien Verkehr mit MWSt-freie Lieferung", "42"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("45 - Überführung von Waren in den zollrechtlich und mehrwertsteuer- oder verbrauchsteuerrechtlich freien Verkehr und deren Überführung in ein Steuerlagerverfahren ", "45"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("49 - Überführung von Gemeinschaftswaren in den steuerrechtlich freien Verkehr im Rahmen des Warenverkehrs zwischen Teilen des Zollgebiets der Gemeinschaft", "49"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("61 - Wiedereinfuhr mit gleichzeitiger Überführung in den zoll- und steuerrechtlich freien Verkehr ohne mehrwertsteuerbefreiende Lieferung - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "61"))
|
||||
cboVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("63 - Wiedereinfuhr und gleichzeitige Überführung in den zoll- und steuerrechtlich freien Verkehr mit mehrwertsteuerbefreiender Lieferung in einen anderen Mitgliedstaat. - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "63"))
|
||||
|
||||
|
||||
|
||||
cboVerkehrszweigInland.Items.Clear()
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
|
||||
cboVerkehrszweigInland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
|
||||
cboVerkehrszweigInland.changeItem("3")
|
||||
|
||||
cboVerkehrszweigGrenze.Items.Clear()
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Seeverkehr", "1"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Eisenbahnverkehr", "2"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Straßenverkehr", "3"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Luftverkehr", "4"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5 - Postsendungen", "5"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7 - Feste Transporteinrichtungen", "7"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("8 - Binnenschifffahrt", "8"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("9 - Eigener Antrieb", "9"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeverkehr", "10"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Waggon auf Seeschiff", "12"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Straßenfahrzeug auf Seeschiff", "16"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17 - Anhänger/Auflieger auf Seeschiff", "17"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("18 - Binnenschiff auf Seeschiff", "18"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Eisenbahnverkehr", "20"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Straßenfahrzeug auf Eisenbahn", "23"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("30 - Straßenverkehr", "30"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Luftverkehr", "40"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Postsendungen", "50"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtungen", "70"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("80 - Binnenschifffahrt", "80"))
|
||||
cboVerkehrszweigGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("90 - Eigener Antrieb", "90"))
|
||||
cboVerkehrszweigGrenze.changeItem("3")
|
||||
|
||||
|
||||
cboGeschaeftsArt.Items.Clear()
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Post- und Expresssendungen", "A"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zugelassende Wirtschaftsbeteiligte", "E"))
|
||||
|
||||
cboArtGrenzUeberschreitung.Items.Clear()
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - LKW", "01"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("02 - Schiff (einschl. sonstiger Wasserfahrzeuge wie Segel-, Ruderboote, Jetski etc.)", "02"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("03 - Waggon (einschl. sonstiger Schienenfahrzeuge)", "03"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("04 - Flugzeug (einschl. sonstiger Luftfahrtgeräte wie Hubschrauber etc.)", "04"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05 - PKW (einschl. sonstiger Kraftfahrzeuge wie Motorrad, Roller etc.)", "05"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("06 - Ohne (einschl. muskelkraftbetriebener Beförderungsmittel wie Fahrrad etc.)", "06"))
|
||||
cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("07 - Andere (Postsendung, Rohrleitung, Bef.mittel mit eigenem Antrieb)", "07"))
|
||||
cboArtGrenzUeberschreitung.changeItem("01")
|
||||
|
||||
|
||||
|
||||
cboZahlungsweise.Items.Clear()
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("A - Barzahlung", "A"))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("B - Barzahlung", "B"))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("C - Scheck", "C"))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("D - Andere (z.B. Abbuchung vom Konto eines Zollagenten)", "D"))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("E - Zahlungsaufschub", "E"))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("F - Zahlungsaufschub für Zölle oder ein entsprechendes einzelstaatliches Verfahren", "F"))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("G - Zahlungsaufschub für die Mehrwertsteuer (Art. 23 der sechsten Mehrwertsteuerrichtlinie) und unmittelbare buchmäßige Erfassung nach Art. 248 ZK-DVO", "G"))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("L - SEPA-Lastschriftverfahren", "L"))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("S - Sicherheitsleistung", "S"))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Y - Barzahlung und unverzügliche Mitteilung der Zollschuld anstatt einer Sicherheitsleistung gemäß Art. 244 UZK-IA", "Y"))
|
||||
cboZahlungsweise.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Z - Zahlungsaufschub und unverzügliche Mitteilung der Zollschuld anstatt einer Sicherheitsleistung gemäß Art. 244 UZK-IA", "Z"))
|
||||
|
||||
|
||||
|
||||
cboLieferbedingungen.Items.Clear()
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CFR - Kosten und Fracht", "CFR"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CIF - Kosten, Versicherung und Fracht", "CIF"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CIP - Fracht und Versicherung bezahlt bis", "CIP"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CPT - Fracht bezahlt bis", "CPT"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAF - Frei Grenze", "DAF"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAP - Geliefert benannter Ort", "DAP"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAT - Geliefert Terminal", "DAT"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DDP - Geliefert verzollt", "DDP"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DDU - Geliefert unverzollt", "DDU"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DEQ - Geliefert ab Kai", "DEQ"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DES - Geliefert ab Schiff", "DES"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXW - Ab Werk", "EXW"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FAS - Frei längsseits Schiff", "FAS"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FCA - Frei Frachtführer", "FCA"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FOB - Frei an Bord", "FOB"))
|
||||
cboLieferbedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("XXX - Andere Lieferbedingungen als vorstehend angegeben", "XXX"))
|
||||
cboLieferbedingungen.changeItem("")
|
||||
|
||||
cboGeschaeftsArt.Items.Clear()
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("11 - Endgültiger Kauf/Verkauf", "11"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Ansichts- oder Probesendungen, Sendungen mit Rückgaberecht und Kommissionsgeschäfte (einschließlich Konsignationslager)", "12"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("13 - Kompensationsgeschäfte (Tauschhandel)", "13"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("14 - Finanzierungsleasing (Mietkauf)", "14"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19 - Sonstige Geschäfte mit Eigentumsübertragung und mit Gegenleistung", "19"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("21 - Rücksendung von Waren", "21"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("22 - Ersatz für zurückgesandte Waren", "22"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("23 - Ersatz für nicht zurückgesandte Waren (z. B. wegen Garantie)", "23"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("29 - Sonstige Rücksendung und sonstige unentgeltliche Ersatzlieferung von Waren", "29"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Warenlieferungen im Rahmen von durch die Europäische Gemeinschaft ganz oder teilweise finanzierten Hilfsprogrammen", "31"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Andere Hilfslieferungen öffentlicher Stellen (z. B. militärische und humanitäre Hilfslieferungen Deutschlands)", "32"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Sonstige Hilfslieferungen (von privaten oder von nicht öffentlichen Stellen)", "33"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Sonstige Geschäfte mit Eigentumsübertragung, jedoch ohne Gegenleistung in Form von finanziellen Leistungen oder Sachleistungen", "34"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("41 - Warensendung zur Lohnveredelung, die voraussichtlich in das ursprüngliche Ausfuhrland zurückgelangen", "41"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("42 - Warensendung zur Lohnveredelung, die voraussichtlich nicht in das ursprüngliche Ausfuhrland zurückgelangen", "42"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("51 - Warensendung nach Lohnveredelung, die in das ursprüngliche Ausfuhrland zurückgelangen", "51"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("52 - Warensendung nach Lohnveredelung, die nicht in das ursprüngliche Ausfuhrland zurückgelangen", "52"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("67 - Warensendungen zur und nach Reparatur", "67"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("69 - Vorübergehende Warenverkehre (für nationale Zwecke); ausgenommen die unter Schlüsselnummer 41, 42, 51, 52 und 91 zu erfassenden Warensendungen - sonstige vorübergehende Warenverkehre bis einschließlich 24 Monaten", "69"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("71 - Für militärische Zwecke", "71"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("72 - für zivile Zwecke (z.B. Airbus, ausgenommen die unter Schlüsselnummer 11 bis 14 oder 19 zu erfassenden Warenbewegungen)", "72"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("81 - Geschäfte mit Lieferung von Baumaterial und technischen Ausrüstungen im Rahmen von Hoch- oder Tiefbauarbeiten als Teil eines Generalvertrags, bei denen keine einzelnen Waren in Rechnung gestellt werden, sondern eine einzige Rechnung den Gesamtwert der Waren erfasst.", "81"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("91 - Andere Geschäfte - vorübergehende Warenverkehre über 24 Monate (z.B. Miete, Leihe und Operate Leasing)", "91"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("92 - Lagerverkehr für ausländische Rechnung", "92"))
|
||||
cboGeschaeftsArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("99 - Andere Geschäfte - nicht anderweitig erfasst", "99"))
|
||||
cboGeschaeftsArt.changeItem("")
|
||||
|
||||
|
||||
'cboBewEndverwendung
|
||||
|
||||
|
||||
' txtAnmeldeDatum._value = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
|
||||
sbBestimmungsBundesland.Items.Clear()
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Schleswig-Holstein", "01"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("02 - Hamburg", "02"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("03 - Niedersachsen", "03"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("04 - Bremen", "04"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05 - Nordrhein-Westfalen", "05"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("06 - Hessen", "06"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("07 - Rheinland-Pfalz", "07"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("08 - Baden-Württemberg", "08"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("09 - Bayern", "09"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Saarland", "10"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("11 - Berlin", "11"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12 - Brandenburg", "12"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("13 - Mecklenburg-Vorpommern", "13"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("14 - Sachsen", "14"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("15 - Sachsen-Anhalt", "15"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16 - Thüringen", "16"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("25 - Für das Ausland bestimmt", "25"))
|
||||
sbBestimmungsBundesland.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("99 - Ursprungsausland", "99"))
|
||||
|
||||
|
||||
cboLieferbedingungSchluessel.Items.Clear()
|
||||
cboLieferbedingungSchluessel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboLieferbedingungSchluessel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - ab Werk", "1"))
|
||||
cboLieferbedingungSchluessel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - frei deutsche Grenze", "3"))
|
||||
|
||||
|
||||
cboArtVerfahrenUeberfuehrung.Items.Clear()
|
||||
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZA-A - Einzelzollanmeldung, Abgabe einer herkömmlichen Zollanmeldung", "EZA-A"))
|
||||
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZA-D - vorzeitige Einzelzollanmeldung, Abgabe einer herkömmlichen Zollanmeldung", "EZA-D"))
|
||||
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZA-C - vereinfachte Einzelzollanmeldung", "VZA-C"))
|
||||
cboArtVerfahrenUeberfuehrung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZA-F - vereinfachte, vorzeitige Einzelzollanmeldung", "VZA-F"))
|
||||
cboArtVerfahrenUeberfuehrung.changeItem("")
|
||||
|
||||
cboVertretungsart.Items.Clear()
|
||||
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Keine Vertretung, sondern Handeln im eigenen Namen und für eigene Rechnung", "0"))
|
||||
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Vertretung im Namen und für Rechnung eines Anderen (direkte Vertretung)", "1"))
|
||||
cboVertretungsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Vertretung im eigenen Namen, aber für Rechnung eines Anderen (indirekte Vertretung)", "2"))
|
||||
cboVertretungsart.changeItem("")
|
||||
|
||||
|
||||
|
||||
'btnAllgemein_Click(btnT2, New EventArgs)
|
||||
|
||||
' setValues(EZA)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub getValues(ByRef EZA As DAKOSY_Worker.cDakosyEZA)
|
||||
|
||||
EZA.eza_AnmeldungArt = cProgramFunctions.isLeerNothing(cboArtVerfahrenUeberfuehrung._value)
|
||||
' EZA.eza_VerfahrenBeantragtCode = cProgramFunctions.isLeerNothing(cboVerfahren._value)
|
||||
EZA.eza_ZollrechtlicherStatus = cProgramFunctions.isLeerNothing(cboZollrStatus._value)
|
||||
EZA.eza_Statistikstatus = cProgramFunctions.isLeerNothing(cboStatStatus._value)
|
||||
EZA.eza_VerfahrenBeantragtCode = cProgramFunctions.isLeerNothing(cboVerfahren._value)
|
||||
|
||||
|
||||
|
||||
EZA.eza_DV1Kz = If(cbxDV1.Checked, True, Nothing)
|
||||
EZA.eza_FiskalvertretungKz = If(cbxFiskalvertretung.Checked, True, Nothing)
|
||||
'EZA. = cProgramFunctions.isLeerNothing(cboArtVerfahrenUeberfuehrung._value)
|
||||
EZA.eza_Eingangszollstelle = cProgramFunctions.isLeerNothing(sbEingangZollstelleID._value)
|
||||
If sbAdrZollstelle._value.Length = 8 Then
|
||||
EZA.eza_AdressierteZollstelle = sbAdrZollstelle._value.Substring(4, 4)
|
||||
End If
|
||||
|
||||
EZA.eza_VertretungsVerhaeltnisCode = cProgramFunctions.isLeerNothing(cboVertretungsart._value)
|
||||
|
||||
|
||||
' EZA.eza_AnschreibungDatum =
|
||||
|
||||
|
||||
EZA.eza_VersendungsLandCode = cProgramFunctions.isLeerNothing(sbVersendungsLand._value)
|
||||
EZA.eza_Bestimmungsland = cProgramFunctions.isLeerNothing(sbBestimmungsland._value)
|
||||
EZA.eza_Bestimmungsbundesland = cProgramFunctions.isLeerNothing(sbBestimmungsBundesland._value)
|
||||
|
||||
|
||||
EZA.eza_Warenort = cProgramFunctions.isLeerNothing(txtWarenort.Text)
|
||||
EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft = cProgramFunctions.isLeerNothing(txtKennzeichenInland._value)
|
||||
EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode = cProgramFunctions.isLeerNothing(sbKennzeichenInlandLand._value)
|
||||
EZA.eza_BeförderungsmittelGrenzeArt = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
|
||||
EZA.eza_VerkehrszweigInland = cProgramFunctions.isLeerNothing(cboVerkehrszweigInland._value)
|
||||
EZA.eza_VerkehrszweigGrenze = cProgramFunctions.isLeerNothing(cboVerkehrszweigGrenze._value)
|
||||
'EZA.bef = cProgramFunctions.isLeerNothing(txtBeschrBefmittelGrenze.Text)
|
||||
|
||||
|
||||
'EZA. = cProgramFunctions.isLeerNothing(txtWarenort.Text)
|
||||
EZA.eza_Zahlungsart = cProgramFunctions.isLeerNothing(cboZahlungsweise._value)
|
||||
EZA.eza_ArtGeschaeftCode = cProgramFunctions.isLeerNothing(cboGeschaeftsArt._value)
|
||||
|
||||
EZA.eza_Rechnungspreis = cProgramFunctions.isLeerNothingDbl(txtRechnungspreis._value)
|
||||
EZA.eza_Rechnungswaehrung = cProgramFunctions.isLeerNothing(txtRechnungspreisWaehrung._value)
|
||||
|
||||
EZA.eza_LieferbedingungCode = cProgramFunctions.isLeerNothing(cboLieferbedingungen._value)
|
||||
EZA.eza_LieferbedingungSchluessel = cProgramFunctions.isLeerNothing(cboLieferbedingungSchluessel._value)
|
||||
EZA.eza_LieferbedingungOrt = cProgramFunctions.isLeerNothing(txtLieferbedingungort.Text)
|
||||
EZA.eza_LieferbedingungText = cProgramFunctions.isLeerNothing(txtLieferbedingungText.Text)
|
||||
|
||||
EZA.eza_AnmelderistEmpfaenger = Nothing
|
||||
Select Case cbxAnmelderIstEmpfänger.CheckState
|
||||
Case CheckState.Checked : EZA.eza_AnmelderistEmpfaenger = "J"
|
||||
Case CheckState.Unchecked : EZA.eza_AnmelderistEmpfaenger = "N"
|
||||
End Select
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setValues(EZA As DAKOSY_Worker.cDakosyEZA)
|
||||
If EZA Is Nothing Then Exit Sub
|
||||
|
||||
|
||||
cboArtVerfahrenUeberfuehrung.changeItem(If(EZA.eza_AnmeldungArt, ""))
|
||||
' cboVerfahren.changeItem(If(EZA.eza_VerfahrenBeantragtCode, ""))
|
||||
|
||||
cboZollrStatus.changeItem(If(EZA.eza_ZollrechtlicherStatus, ""))
|
||||
cboStatStatus.changeItem(If(EZA.eza_Statistikstatus, ""))
|
||||
cboVerfahren.changeItem(If(EZA.eza_VerfahrenBeantragtCode, ""))
|
||||
|
||||
cbxDV1.Checked = If(EZA.eza_DV1Kz, False)
|
||||
cbxFiskalvertretung.Checked = If(EZA.eza_FiskalvertretungKz, False)
|
||||
|
||||
sbEingangZollstelleID.SET_VALUE(EZA.eza_Eingangszollstelle)
|
||||
sbAdrZollstelle.SET_VALUE("DE00" & EZA.eza_AdressierteZollstelle)
|
||||
|
||||
cboVertretungsart.changeItem(If(EZA.eza_VertretungsVerhaeltnisCode, ""))
|
||||
|
||||
sbVersendungsLand.SET_VALUE(EZA.eza_VersendungsLandCode)
|
||||
sbBestimmungsland.SET_VALUE(EZA.eza_Bestimmungsland)
|
||||
sbBestimmungsBundesland.changeItem(EZA.eza_Bestimmungsbundesland)
|
||||
|
||||
txtWarenort.Text = If(EZA.eza_Warenort, "")
|
||||
txtKennzeichenInland.Text = If(EZA.eza_KennzeichenNameBefoerderungsmittelAnkunft, "")
|
||||
sbKennzeichenInlandLand.SET_VALUE(EZA.eza_BeförderungsmittelGrenzeStaatszugehörigkeitCode)
|
||||
cboArtGrenzUeberschreitung.changeItem(If(EZA.eza_BeförderungsmittelGrenzeArt, ""))
|
||||
cboVerkehrszweigInland.changeItem(If(EZA.eza_VerkehrszweigInland, ""))
|
||||
cboVerkehrszweigGrenze.changeItem(If(EZA.eza_VerkehrszweigGrenze, ""))
|
||||
|
||||
cboZahlungsweise.changeItem(If(EZA.eza_Zahlungsart, ""))
|
||||
cboGeschaeftsArt.changeItem(If(EZA.eza_ArtGeschaeftCode, ""))
|
||||
|
||||
txtRechnungspreis._value = If(EZA.eza_Rechnungspreis, "")
|
||||
txtRechnungspreisWaehrung.SET_VALUE(If(EZA.eza_Rechnungswaehrung, ""))
|
||||
|
||||
cboLieferbedingungen.changeItem(If(EZA.eza_LieferbedingungCode, ""))
|
||||
cboLieferbedingungSchluessel.changeItem(If(EZA.eza_LieferbedingungSchluessel, ""))
|
||||
txtLieferbedingungort.Text = If(EZA.eza_LieferbedingungOrt, "")
|
||||
txtLieferbedingungText.Text = If(EZA.eza_LieferbedingungText, "")
|
||||
|
||||
'cbxVorzeitigeAnmeldung.Checked=EZA.vorzeitige"!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
cbxAnmelderIstEmpfänger.CheckState = CheckState.Indeterminate
|
||||
If EZA.eza_AnmelderistEmpfaenger IsNot Nothing Then
|
||||
Select Case EZA.eza_AnmelderistEmpfaenger
|
||||
Case "J" : cbxAnmelderIstEmpfänger.CheckState = CheckState.Checked
|
||||
Case "N" : cbxAnmelderIstEmpfänger.CheckState = CheckState.Unchecked
|
||||
End Select
|
||||
End If
|
||||
|
||||
Select Case EZA_ART
|
||||
Case "EZA" : initButton(btnCo)
|
||||
Case "VZA" : initButton(btnEU)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnAllgemein_Click(sender As Object, e As EventArgs) Handles btnCo.Click, btnEU.Click
|
||||
initButton(sender)
|
||||
End Sub
|
||||
|
||||
Sub initButton(sender As Button)
|
||||
setBtn(btnCo, False)
|
||||
setBtn(btnEU, False)
|
||||
|
||||
If sender Is Nothing Then
|
||||
|
||||
Else
|
||||
If sender Is btnCo Then
|
||||
EZA_ART = "EZA"
|
||||
If cbxVorzeitigeAnmeldung.Checked Then
|
||||
txtArtDetail.Text = "Vorzeitige Einzelzollanmeldung" & vbNewLine & "Abgabe einer herkömmlichen Zollanmeldung"
|
||||
cboArtVerfahrenUeberfuehrung.changeItem("EZA-D")
|
||||
Else
|
||||
txtArtDetail.Text = "Einzelzollanmeldung" & vbNewLine & "Abgabe einer herkömmlichen Zollanmeldung"
|
||||
cboArtVerfahrenUeberfuehrung.changeItem("EZA-A")
|
||||
End If
|
||||
ElseIf sender Is btnEU Then
|
||||
EZA_ART = "VZA"
|
||||
If cbxVorzeitigeAnmeldung.Checked Then
|
||||
txtArtDetail.Text = "Vorzeitige, vereinfachte Einzelzollanmeldung"
|
||||
cboArtVerfahrenUeberfuehrung.changeItem("VZA-F")
|
||||
Else
|
||||
txtArtDetail.Text = "Vereinfachte Einzelzollanmeldung"
|
||||
cboArtVerfahrenUeberfuehrung.changeItem("VZA-C")
|
||||
End If
|
||||
|
||||
End If
|
||||
setBtn(sender, True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub setBtn(btn As Button, value As Boolean)
|
||||
If value Then
|
||||
btn.BackColor = Color.OrangeRed
|
||||
btn.ForeColor = Color.White
|
||||
Else
|
||||
btn.BackColor = Color.White
|
||||
btn.ForeColor = Color.Black
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'Private Sub sbVersendungsLand_TextChanged() Handles sbVersendungsLand.VALUE_CHANGED
|
||||
' If sbVersendungsLand._value <> "" And txtWarenort.Text = "" Then
|
||||
' txtWarenort.Text = sbVersendungsLand._value
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
|
||||
Private Sub cboLieferbedingungen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLieferbedingungen.SelectedIndexChanged
|
||||
If cboLieferbedingungen._value = "XXX" Then
|
||||
txtLieferbedingungText.Enabled = True
|
||||
txtLieferbedingungort.Enabled = False
|
||||
Else
|
||||
txtLieferbedingungText.Enabled = False
|
||||
txtLieferbedingungort.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub cboArtVerfahrenUeberfuehrung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboArtVerfahrenUeberfuehrung.SelectedIndexChanged
|
||||
Select Case cboArtVerfahrenUeberfuehrung._value
|
||||
Case "EZA-A" : initButton(btnCo) : cbxVorzeitigeAnmeldung.Checked = False
|
||||
Case "EZA-D" : initButton(btnCo) : cbxVorzeitigeAnmeldung.Checked = True
|
||||
Case "VZA-C" : initButton(btnEU) : cbxVorzeitigeAnmeldung.Checked = False
|
||||
Case "VZA-F" : initButton(btnEU) : cbxVorzeitigeAnmeldung.Checked = True
|
||||
Case Else : initButton(Nothing)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub cbxVorzeitigeAnmeldung_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVorzeitigeAnmeldung.CheckedChanged, cbxFiskalvertretung.CheckedChanged
|
||||
Select Case EZA_ART
|
||||
Case "EZA" : initButton(btnCo)
|
||||
Case "VZA" : initButton(btnEU)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub cbxDV1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxDV1.CheckedChanged
|
||||
RaiseEvent DV1_changed(cbxDV1.Checked)
|
||||
End Sub
|
||||
End Class
|
||||
325
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_DV1.Designer.vb
generated
Normal file
325
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_DV1.Designer.vb
generated
Normal file
@@ -0,0 +1,325 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrCntlATLAS_EZA_DV1
|
||||
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.pnl = New System.Windows.Forms.Panel()
|
||||
Me.cboVertretungsverhaeltnis = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.label11 = New System.Windows.Forms.Label()
|
||||
Me.cboWeiterverkUeberlVerwendung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboLizenzgebuehren = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboBedingungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboEinschraenkungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboVerbundenheit = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtBedingungenLeistungArt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtLizenzgebuehrenUmstand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtVerbundenheitEinzelheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.cboVertretungsverhaeltnis)
|
||||
Me.pnl.Controls.Add(Me.label11)
|
||||
Me.pnl.Controls.Add(Me.cboWeiterverkUeberlVerwendung)
|
||||
Me.pnl.Controls.Add(Me.cboLizenzgebuehren)
|
||||
Me.pnl.Controls.Add(Me.cboBedingungen)
|
||||
Me.pnl.Controls.Add(Me.cboEinschraenkungen)
|
||||
Me.pnl.Controls.Add(Me.cboVerbundenheit)
|
||||
Me.pnl.Controls.Add(Me.Label5)
|
||||
Me.pnl.Controls.Add(Me.txtWeiterverkUeberlVerwendungUmstände)
|
||||
Me.pnl.Controls.Add(Me.txtBedingungenLeistungArt)
|
||||
Me.pnl.Controls.Add(Me.txtLizenzgebuehrenUmstand)
|
||||
Me.pnl.Controls.Add(Me.txtVerbundenheitEinzelheiten)
|
||||
Me.pnl.Controls.Add(Me.Label4)
|
||||
Me.pnl.Controls.Add(Me.Label3)
|
||||
Me.pnl.Controls.Add(Me.Label2)
|
||||
Me.pnl.Controls.Add(Me.Label1)
|
||||
Me.pnl.Controls.Add(Me.Label9)
|
||||
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(907, 628)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'cboVertretungsverhaeltnis
|
||||
'
|
||||
Me.cboVertretungsverhaeltnis._allowedValuesFreiText = Nothing
|
||||
Me.cboVertretungsverhaeltnis._allowFreiText = False
|
||||
Me.cboVertretungsverhaeltnis._value = ""
|
||||
Me.cboVertretungsverhaeltnis.DropDownWidth = 350
|
||||
Me.cboVertretungsverhaeltnis.FormattingEnabled = True
|
||||
Me.cboVertretungsverhaeltnis.Location = New System.Drawing.Point(169, 44)
|
||||
Me.cboVertretungsverhaeltnis.Name = "cboVertretungsverhaeltnis"
|
||||
Me.cboVertretungsverhaeltnis.Size = New System.Drawing.Size(233, 21)
|
||||
Me.cboVertretungsverhaeltnis.TabIndex = 1
|
||||
'
|
||||
'label11
|
||||
'
|
||||
Me.label11.Location = New System.Drawing.Point(3, 48)
|
||||
Me.label11.Name = "label11"
|
||||
Me.label11.Size = New System.Drawing.Size(160, 13)
|
||||
Me.label11.TabIndex = 0
|
||||
Me.label11.Text = "Vertretungsverhältnis:"
|
||||
Me.label11.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'cboWeiterverkUeberlVerwendung
|
||||
'
|
||||
Me.cboWeiterverkUeberlVerwendung._allowedValuesFreiText = Nothing
|
||||
Me.cboWeiterverkUeberlVerwendung._allowFreiText = False
|
||||
Me.cboWeiterverkUeberlVerwendung._value = ""
|
||||
Me.cboWeiterverkUeberlVerwendung.DropDownWidth = 350
|
||||
Me.cboWeiterverkUeberlVerwendung.FormattingEnabled = True
|
||||
Me.cboWeiterverkUeberlVerwendung.Location = New System.Drawing.Point(169, 160)
|
||||
Me.cboWeiterverkUeberlVerwendung.Name = "cboWeiterverkUeberlVerwendung"
|
||||
Me.cboWeiterverkUeberlVerwendung.Size = New System.Drawing.Size(233, 21)
|
||||
Me.cboWeiterverkUeberlVerwendung.TabIndex = 15
|
||||
'
|
||||
'cboLizenzgebuehren
|
||||
'
|
||||
Me.cboLizenzgebuehren._allowedValuesFreiText = Nothing
|
||||
Me.cboLizenzgebuehren._allowFreiText = False
|
||||
Me.cboLizenzgebuehren._value = ""
|
||||
Me.cboLizenzgebuehren.DropDownWidth = 350
|
||||
Me.cboLizenzgebuehren.FormattingEnabled = True
|
||||
Me.cboLizenzgebuehren.Location = New System.Drawing.Point(169, 141)
|
||||
Me.cboLizenzgebuehren.Name = "cboLizenzgebuehren"
|
||||
Me.cboLizenzgebuehren.Size = New System.Drawing.Size(233, 21)
|
||||
Me.cboLizenzgebuehren.TabIndex = 12
|
||||
'
|
||||
'cboBedingungen
|
||||
'
|
||||
Me.cboBedingungen._allowedValuesFreiText = Nothing
|
||||
Me.cboBedingungen._allowFreiText = False
|
||||
Me.cboBedingungen._value = ""
|
||||
Me.cboBedingungen.DropDownWidth = 350
|
||||
Me.cboBedingungen.FormattingEnabled = True
|
||||
Me.cboBedingungen.Location = New System.Drawing.Point(169, 122)
|
||||
Me.cboBedingungen.Name = "cboBedingungen"
|
||||
Me.cboBedingungen.Size = New System.Drawing.Size(233, 21)
|
||||
Me.cboBedingungen.TabIndex = 9
|
||||
'
|
||||
'cboEinschraenkungen
|
||||
'
|
||||
Me.cboEinschraenkungen._allowedValuesFreiText = Nothing
|
||||
Me.cboEinschraenkungen._allowFreiText = False
|
||||
Me.cboEinschraenkungen._value = ""
|
||||
Me.cboEinschraenkungen.DropDownWidth = 350
|
||||
Me.cboEinschraenkungen.FormattingEnabled = True
|
||||
Me.cboEinschraenkungen.Location = New System.Drawing.Point(169, 103)
|
||||
Me.cboEinschraenkungen.Name = "cboEinschraenkungen"
|
||||
Me.cboEinschraenkungen.Size = New System.Drawing.Size(233, 21)
|
||||
Me.cboEinschraenkungen.TabIndex = 7
|
||||
'
|
||||
'cboVerbundenheit
|
||||
'
|
||||
Me.cboVerbundenheit._allowedValuesFreiText = Nothing
|
||||
Me.cboVerbundenheit._allowFreiText = False
|
||||
Me.cboVerbundenheit._value = ""
|
||||
Me.cboVerbundenheit.DropDownWidth = 350
|
||||
Me.cboVerbundenheit.FormattingEnabled = True
|
||||
Me.cboVerbundenheit.Location = New System.Drawing.Point(169, 83)
|
||||
Me.cboVerbundenheit.Name = "cboVerbundenheit"
|
||||
Me.cboVerbundenheit.Size = New System.Drawing.Size(233, 21)
|
||||
Me.cboVerbundenheit.TabIndex = 4
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Location = New System.Drawing.Point(401, 68)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(130, 13)
|
||||
Me.Label5.TabIndex = 2
|
||||
Me.Label5.Text = "Art/Umstände:"
|
||||
'
|
||||
'txtWeiterverkUeberlVerwendungUmstände
|
||||
'
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände._DateTimeOnly = False
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände._numbersOnly = True
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände._numbersOnlyKommastellen = ""
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände._Prozent = False
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände._ShortDateNew = False
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände._ShortDateOnly = False
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände._TimeOnly = False
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände._value = ""
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände._Waehrung = False
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände.Location = New System.Drawing.Point(401, 160)
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände.MaxLength = 100
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände.MaxLineLength = -1
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände.MaxLines_Warning = ""
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände.MaxLines_Warning_Label = Nothing
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände.Name = "txtWeiterverkUeberlVerwendungUmstände"
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände.Size = New System.Drawing.Size(130, 20)
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände.TabIndex = 16
|
||||
Me.txtWeiterverkUeberlVerwendungUmstände.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'txtBedingungenLeistungArt
|
||||
'
|
||||
Me.txtBedingungenLeistungArt._DateTimeOnly = False
|
||||
Me.txtBedingungenLeistungArt._numbersOnly = True
|
||||
Me.txtBedingungenLeistungArt._numbersOnlyKommastellen = ""
|
||||
Me.txtBedingungenLeistungArt._Prozent = False
|
||||
Me.txtBedingungenLeistungArt._ShortDateNew = False
|
||||
Me.txtBedingungenLeistungArt._ShortDateOnly = False
|
||||
Me.txtBedingungenLeistungArt._TimeOnly = False
|
||||
Me.txtBedingungenLeistungArt._value = ""
|
||||
Me.txtBedingungenLeistungArt._Waehrung = False
|
||||
Me.txtBedingungenLeistungArt.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtBedingungenLeistungArt.Location = New System.Drawing.Point(401, 122)
|
||||
Me.txtBedingungenLeistungArt.MaxLength = 100
|
||||
Me.txtBedingungenLeistungArt.MaxLineLength = -1
|
||||
Me.txtBedingungenLeistungArt.MaxLines_Warning = ""
|
||||
Me.txtBedingungenLeistungArt.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBedingungenLeistungArt.Name = "txtBedingungenLeistungArt"
|
||||
Me.txtBedingungenLeistungArt.Size = New System.Drawing.Size(130, 20)
|
||||
Me.txtBedingungenLeistungArt.TabIndex = 10
|
||||
Me.txtBedingungenLeistungArt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'txtLizenzgebuehrenUmstand
|
||||
'
|
||||
Me.txtLizenzgebuehrenUmstand._DateTimeOnly = False
|
||||
Me.txtLizenzgebuehrenUmstand._numbersOnly = True
|
||||
Me.txtLizenzgebuehrenUmstand._numbersOnlyKommastellen = ""
|
||||
Me.txtLizenzgebuehrenUmstand._Prozent = False
|
||||
Me.txtLizenzgebuehrenUmstand._ShortDateNew = False
|
||||
Me.txtLizenzgebuehrenUmstand._ShortDateOnly = False
|
||||
Me.txtLizenzgebuehrenUmstand._TimeOnly = False
|
||||
Me.txtLizenzgebuehrenUmstand._value = ""
|
||||
Me.txtLizenzgebuehrenUmstand._Waehrung = False
|
||||
Me.txtLizenzgebuehrenUmstand.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtLizenzgebuehrenUmstand.Location = New System.Drawing.Point(401, 141)
|
||||
Me.txtLizenzgebuehrenUmstand.MaxLength = 100
|
||||
Me.txtLizenzgebuehrenUmstand.MaxLineLength = -1
|
||||
Me.txtLizenzgebuehrenUmstand.MaxLines_Warning = ""
|
||||
Me.txtLizenzgebuehrenUmstand.MaxLines_Warning_Label = Nothing
|
||||
Me.txtLizenzgebuehrenUmstand.Name = "txtLizenzgebuehrenUmstand"
|
||||
Me.txtLizenzgebuehrenUmstand.Size = New System.Drawing.Size(130, 20)
|
||||
Me.txtLizenzgebuehrenUmstand.TabIndex = 13
|
||||
Me.txtLizenzgebuehrenUmstand.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'txtVerbundenheitEinzelheiten
|
||||
'
|
||||
Me.txtVerbundenheitEinzelheiten._DateTimeOnly = False
|
||||
Me.txtVerbundenheitEinzelheiten._numbersOnly = True
|
||||
Me.txtVerbundenheitEinzelheiten._numbersOnlyKommastellen = ""
|
||||
Me.txtVerbundenheitEinzelheiten._Prozent = False
|
||||
Me.txtVerbundenheitEinzelheiten._ShortDateNew = False
|
||||
Me.txtVerbundenheitEinzelheiten._ShortDateOnly = False
|
||||
Me.txtVerbundenheitEinzelheiten._TimeOnly = False
|
||||
Me.txtVerbundenheitEinzelheiten._value = ""
|
||||
Me.txtVerbundenheitEinzelheiten._Waehrung = False
|
||||
Me.txtVerbundenheitEinzelheiten.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtVerbundenheitEinzelheiten.Location = New System.Drawing.Point(401, 84)
|
||||
Me.txtVerbundenheitEinzelheiten.MaxLength = 100
|
||||
Me.txtVerbundenheitEinzelheiten.MaxLineLength = -1
|
||||
Me.txtVerbundenheitEinzelheiten.MaxLines_Warning = ""
|
||||
Me.txtVerbundenheitEinzelheiten.MaxLines_Warning_Label = Nothing
|
||||
Me.txtVerbundenheitEinzelheiten.Name = "txtVerbundenheitEinzelheiten"
|
||||
Me.txtVerbundenheitEinzelheiten.Size = New System.Drawing.Size(130, 20)
|
||||
Me.txtVerbundenheitEinzelheiten.TabIndex = 5
|
||||
Me.txtVerbundenheitEinzelheiten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Location = New System.Drawing.Point(3, 163)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(160, 13)
|
||||
Me.Label4.TabIndex = 14
|
||||
Me.Label4.Text = "Weiterverk./Überl./Verwend.:"
|
||||
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Location = New System.Drawing.Point(3, 144)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(160, 13)
|
||||
Me.Label3.TabIndex = 11
|
||||
Me.Label3.Text = "Lizenzgebühren:"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Location = New System.Drawing.Point(3, 125)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(160, 13)
|
||||
Me.Label2.TabIndex = 8
|
||||
Me.Label2.Text = "Bedingungen/Leistungen:"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(3, 106)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(160, 13)
|
||||
Me.Label1.TabIndex = 6
|
||||
Me.Label1.Text = "Einschränkungen:"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.Location = New System.Drawing.Point(3, 87)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(160, 13)
|
||||
Me.Label9.TabIndex = 3
|
||||
Me.Label9.Text = "Verbundenheit Einzelheiten:"
|
||||
Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'usrCntlATLAS_EZA_DV1
|
||||
'
|
||||
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.pnl)
|
||||
Me.Name = "usrCntlATLAS_EZA_DV1"
|
||||
Me.Size = New System.Drawing.Size(907, 628)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtWeiterverkUeberlVerwendungUmstände As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtBedingungenLeistungArt As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtLizenzgebuehrenUmstand As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtVerbundenheitEinzelheiten As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents cboWeiterverkUeberlVerwendung As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cboLizenzgebuehren As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cboBedingungen As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cboEinschraenkungen As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cboVerbundenheit As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cboVertretungsverhaeltnis As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents label11 As System.Windows.Forms.Label
|
||||
|
||||
End Class
|
||||
120
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_DV1.resx
Normal file
120
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_DV1.resx
Normal 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>
|
||||
112
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_DV1.vb
Normal file
112
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_DV1.vb
Normal file
@@ -0,0 +1,112 @@
|
||||
Public Class usrCntlATLAS_EZA_DV1
|
||||
' Dim OWNER As Control
|
||||
Dim NCTS_OUT As DAKOSY_Worker.cDakosyEZA = Nothing
|
||||
'Sub New(OWNER As Control, NCTS_OUT As DAKOSY_Worker.cDakosyEZA)
|
||||
Sub New(NCTS_OUT As DAKOSY_Worker.cDakosyEZA)
|
||||
InitializeComponent()
|
||||
'Me.OWNER = OWNER
|
||||
Me.NCTS_OUT = NCTS_OUT
|
||||
End Sub
|
||||
|
||||
Public Sub usrCntlATLAS_NCTS_Adressen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
' usrCntlSumA_Befoerderer.initME()
|
||||
cboVerbundenheit.Items.Clear()
|
||||
cboVerbundenheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVerbundenheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Verkäufer und Käufer sind nicht miteinander verbunden", "0"))
|
||||
cboVerbundenheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Verkäufer und Käufer sind miteinander verbunden, aber die Verbundenheit hat den Preis der eingeführten Ware nicht beeinflusst", "1"))
|
||||
cboVerbundenheit.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Verkäufer und Käufer sind miteinander verbunden, die Verbundenheit hat den Preis der eingeführten Ware beeinflusst", "2"))
|
||||
|
||||
cboEinschraenkungen.Items.Clear()
|
||||
cboEinschraenkungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboEinschraenkungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("J - Einschränkungen", "J"))
|
||||
cboEinschraenkungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("N - Keine Einschränkungen", "N"))
|
||||
|
||||
cboBedingungen.Items.Clear()
|
||||
cboBedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboBedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("J - Bedingungen", "J"))
|
||||
cboBedingungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("N - Keine Bedingungen", "N"))
|
||||
|
||||
|
||||
cboLizenzgebuehren.Items.Clear()
|
||||
cboLizenzgebuehren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboLizenzgebuehren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("J - Lizenzgebühren zu zahlen", "J"))
|
||||
cboLizenzgebuehren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("N - Keine Lizenzgebühren zu zahlen", "N"))
|
||||
|
||||
cboWeiterverkUeberlVerwendung.Items.Clear()
|
||||
cboWeiterverkUeberlVerwendung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboWeiterverkUeberlVerwendung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("J - Verbindung mit weiterer Vereinbarung des Kaufgeschäftes", "J"))
|
||||
cboWeiterverkUeberlVerwendung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("N - Keine Verbindung mit weiterer Vereinbarung des Kaufgeschäftes", "N"))
|
||||
|
||||
cboVertretungsverhaeltnis.Items.Clear()
|
||||
cboVertretungsverhaeltnis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboVertretungsverhaeltnis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0 - Keine Vertretung, sondern Handeln im eigenen Namen und für eigene Rechnung", "0"))
|
||||
cboVertretungsverhaeltnis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Vertretung im Namen und für Rechnung eines Anderen (direkte Vertretung)", "1"))
|
||||
cboVertretungsverhaeltnis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Vertretung im eigenen Namen, aber für Rechnung eines Anderen (indirekte Vertretung)", "2"))
|
||||
cboVertretungsverhaeltnis.changeItem("")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub getValues(ByRef EZA As DAKOSY_Worker.cDakosyEZA)
|
||||
|
||||
If CInt(If(EZA.eza_DV1Kz, 0)) <> 0 Then
|
||||
|
||||
'EZA.eza_DV1Kz = cProgramFunctions.isLeerNothing(usrCntl_Kaeufer.txtAnsprechpartner.Text)
|
||||
'EZA.eza_DV1Vertretungsverhaeltnis = cProgramFunctions.isLeerNothing(cboVerbundenheit.txtAnsprechpartner.Text)
|
||||
' EZA.eza_DV1FruehereEntscheidungen = cProgramFunctions.isLeerNothing(usrCntl_Kaeufer.txtAnsprechpartner.Text)
|
||||
|
||||
EZA.eza_DV1Vertretungsverhaeltnis = cProgramFunctions.isLeerNothing(cboVertretungsverhaeltnis._value)
|
||||
EZA.eza_DV1Verbundenheit = cProgramFunctions.isLeerNothing(cboVerbundenheit._value)
|
||||
EZA.eza_DV1VerbungenheitEinzelheiten = cProgramFunctions.isLeerNothing(txtVerbundenheitEinzelheiten.Text)
|
||||
EZA.eza_DV1EinschraenkungenKz = cProgramFunctions.isLeerNothing(cboEinschraenkungen._value)
|
||||
EZA.eza_DV1BedingungenLeistungenKz = cProgramFunctions.isLeerNothing(cboBedingungen._value)
|
||||
EZA.eza_DV1BedingungenLeistungenArt = cProgramFunctions.isLeerNothing(txtBedingungenLeistungArt.Text)
|
||||
EZA.eza_DV1LizenzgebuehrenKz = cProgramFunctions.isLeerNothing(cboLizenzgebuehren._value)
|
||||
EZA.eza_DV1LizenzgebuehrenUmstand = cProgramFunctions.isLeerNothing(txtLizenzgebuehrenUmstand.Text)
|
||||
EZA.eza_DV1SpezielleVereinbarungKz = cProgramFunctions.isLeerNothing(cboWeiterverkUeberlVerwendung._value)
|
||||
EZA.eza_DV1SpezielleVereinbarungUmstand = cProgramFunctions.isLeerNothing(txtWeiterverkUeberlVerwendungUmstände.Text)
|
||||
|
||||
Else
|
||||
EZA.eza_DV1Vertretungsverhaeltnis = Nothing
|
||||
EZA.eza_DV1Verbundenheit = Nothing
|
||||
EZA.eza_DV1VerbungenheitEinzelheiten = Nothing
|
||||
EZA.eza_DV1EinschraenkungenKz = Nothing
|
||||
EZA.eza_DV1BedingungenLeistungenKz = Nothing
|
||||
EZA.eza_DV1BedingungenLeistungenArt = Nothing
|
||||
EZA.eza_DV1LizenzgebuehrenKz = Nothing
|
||||
EZA.eza_DV1LizenzgebuehrenUmstand = Nothing
|
||||
EZA.eza_DV1SpezielleVereinbarungKz = Nothing
|
||||
EZA.eza_DV1SpezielleVereinbarungUmstand = Nothing
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub setValues(EZA As DAKOSY_Worker.cDakosyEZA)
|
||||
If CInt(If(EZA.eza_DV1Kz, 0)) <> 0 Then
|
||||
|
||||
cboVertretungsverhaeltnis.changeItem(If(EZA.eza_DV1Vertretungsverhaeltnis, ""))
|
||||
cboVerbundenheit.changeItem(If(EZA.eza_DV1Verbundenheit, ""))
|
||||
txtVerbundenheitEinzelheiten.Text = If(EZA.eza_DV1VerbungenheitEinzelheiten, "")
|
||||
cboEinschraenkungen.changeItem(If(EZA.eza_DV1EinschraenkungenKz, ""))
|
||||
cboBedingungen.changeItem(If(EZA.eza_DV1BedingungenLeistungenKz, ""))
|
||||
txtBedingungenLeistungArt.Text = If(EZA.eza_DV1BedingungenLeistungenArt, "")
|
||||
cboLizenzgebuehren.changeItem(If(EZA.eza_DV1LizenzgebuehrenKz, ""))
|
||||
txtLizenzgebuehrenUmstand.Text = (If(EZA.eza_DV1LizenzgebuehrenUmstand, ""))
|
||||
cboWeiterverkUeberlVerwendung.changeItem(If(EZA.eza_DV1SpezielleVereinbarungKz, ""))
|
||||
txtWeiterverkUeberlVerwendungUmstände.Text = If(EZA.eza_DV1SpezielleVereinbarungUmstand, "")
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
970
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb
generated
Normal file
970
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb
generated
Normal file
@@ -0,0 +1,970 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrCntlATLAS_EZA_Position
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlATLAS_EZA_Position))
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.cbx = New System.Windows.Forms.CheckBox()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.btn7HHFDirektbef = New System.Windows.Forms.Button()
|
||||
Me.btn018ATR = New System.Windows.Forms.Button()
|
||||
Me.btn380Handelsrg = New System.Windows.Forms.Button()
|
||||
Me.sbUrsprungsland = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.cboBeguenstigung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.cboVorangegangenesVerfahren = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.cboAngVerfahren = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.txtPositionszusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.lklBearbeitungAbbrechenUl = New System.Windows.Forms.LinkLabel()
|
||||
Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label31 = New System.Windows.Forms.Label()
|
||||
Me.txtWarennummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtWTZ2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtWTZ1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label30 = New System.Windows.Forms.Label()
|
||||
Me.MySearchBox1 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.txtEigenmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label27 = New System.Windows.Forms.Label()
|
||||
Me.Label28 = New System.Windows.Forms.Label()
|
||||
Me.sbUlArt = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbPkTyp = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.lblPosNr = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.txtUlAusstellDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtUlNummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtPkMarke = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtPkAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label19 = New System.Windows.Forms.Label()
|
||||
Me.dgvUnterlage = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Label22 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.txtWarenbezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label21 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label29 = New System.Windows.Forms.Label()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.UlCode = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.UlArtTxt = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.UlNummer = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.UlADat = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.UlVorhanden = New System.Windows.Forms.DataGridViewCheckBoxColumn()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.AutoScroll = True
|
||||
Me.pnl.BackColor = System.Drawing.Color.FloralWhite
|
||||
Me.pnl.Controls.Add(Me.cbx)
|
||||
Me.pnl.Controls.Add(Me.Button5)
|
||||
Me.pnl.Controls.Add(Me.btn7HHFDirektbef)
|
||||
Me.pnl.Controls.Add(Me.btn018ATR)
|
||||
Me.pnl.Controls.Add(Me.btn380Handelsrg)
|
||||
Me.pnl.Controls.Add(Me.sbUrsprungsland)
|
||||
Me.pnl.Controls.Add(Me.cboBeguenstigung)
|
||||
Me.pnl.Controls.Add(Me.Label10)
|
||||
Me.pnl.Controls.Add(Me.Label9)
|
||||
Me.pnl.Controls.Add(Me.cboVorangegangenesVerfahren)
|
||||
Me.pnl.Controls.Add(Me.Label14)
|
||||
Me.pnl.Controls.Add(Me.cboAngVerfahren)
|
||||
Me.pnl.Controls.Add(Me.Label8)
|
||||
Me.pnl.Controls.Add(Me.Label5)
|
||||
Me.pnl.Controls.Add(Me.Label4)
|
||||
Me.pnl.Controls.Add(Me.Label7)
|
||||
Me.pnl.Controls.Add(Me.Label6)
|
||||
Me.pnl.Controls.Add(Me.txtPositionszusatz)
|
||||
Me.pnl.Controls.Add(Me.lklBearbeitungAbbrechenUl)
|
||||
Me.pnl.Controls.Add(Me.cboWaehrung)
|
||||
Me.pnl.Controls.Add(Me.Label31)
|
||||
Me.pnl.Controls.Add(Me.txtWarennummer)
|
||||
Me.pnl.Controls.Add(Me.txtWTZ2)
|
||||
Me.pnl.Controls.Add(Me.txtWTZ1)
|
||||
Me.pnl.Controls.Add(Me.Label30)
|
||||
Me.pnl.Controls.Add(Me.MySearchBox1)
|
||||
Me.pnl.Controls.Add(Me.txtEigenmasse)
|
||||
Me.pnl.Controls.Add(Me.txtRohmasse)
|
||||
Me.pnl.Controls.Add(Me.Label27)
|
||||
Me.pnl.Controls.Add(Me.Label28)
|
||||
Me.pnl.Controls.Add(Me.sbUlArt)
|
||||
Me.pnl.Controls.Add(Me.sbPkTyp)
|
||||
Me.pnl.Controls.Add(Me.Button3)
|
||||
Me.pnl.Controls.Add(Me.lblPosNr)
|
||||
Me.pnl.Controls.Add(Me.Button1)
|
||||
Me.pnl.Controls.Add(Me.txtUlAusstellDat)
|
||||
Me.pnl.Controls.Add(Me.txtUlNummer)
|
||||
Me.pnl.Controls.Add(Me.txtPkMarke)
|
||||
Me.pnl.Controls.Add(Me.txtPkAnzahl)
|
||||
Me.pnl.Controls.Add(Me.Label19)
|
||||
Me.pnl.Controls.Add(Me.dgvUnterlage)
|
||||
Me.pnl.Controls.Add(Me.Label22)
|
||||
Me.pnl.Controls.Add(Me.Label3)
|
||||
Me.pnl.Controls.Add(Me.txtWarenwert)
|
||||
Me.pnl.Controls.Add(Me.Label1)
|
||||
Me.pnl.Controls.Add(Me.txtWarenbezeichnung)
|
||||
Me.pnl.Controls.Add(Me.Label21)
|
||||
Me.pnl.Controls.Add(Me.Label2)
|
||||
Me.pnl.Controls.Add(Me.Label29)
|
||||
Me.pnl.Controls.Add(Me.Label11)
|
||||
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(730, 573)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'cbx
|
||||
'
|
||||
Me.cbx.AutoSize = True
|
||||
Me.cbx.Checked = True
|
||||
Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.cbx.Location = New System.Drawing.Point(646, 423)
|
||||
Me.cbx.Name = "cbx"
|
||||
Me.cbx.Size = New System.Drawing.Size(15, 14)
|
||||
Me.cbx.TabIndex = 44
|
||||
Me.cbx.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Location = New System.Drawing.Point(7, 420)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(123, 23)
|
||||
Me.Button5.TabIndex = 40
|
||||
Me.Button5.Text = "alle o.g."
|
||||
Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
Me.Button5.Visible = False
|
||||
'
|
||||
'btn7HHFDirektbef
|
||||
'
|
||||
Me.btn7HHFDirektbef.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn7HHFDirektbef.Location = New System.Drawing.Point(7, 396)
|
||||
Me.btn7HHFDirektbef.Name = "btn7HHFDirektbef"
|
||||
Me.btn7HHFDirektbef.Size = New System.Drawing.Size(123, 23)
|
||||
Me.btn7HHFDirektbef.TabIndex = 38
|
||||
Me.btn7HHFDirektbef.Text = "4/7HHF - Direktbef.n."
|
||||
Me.btn7HHFDirektbef.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btn7HHFDirektbef.UseVisualStyleBackColor = True
|
||||
Me.btn7HHFDirektbef.Visible = False
|
||||
'
|
||||
'btn018ATR
|
||||
'
|
||||
Me.btn018ATR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn018ATR.Location = New System.Drawing.Point(7, 374)
|
||||
Me.btn018ATR.Name = "btn018ATR"
|
||||
Me.btn018ATR.Size = New System.Drawing.Size(123, 23)
|
||||
Me.btn018ATR.TabIndex = 37
|
||||
Me.btn018ATR.Text = "6/N018 - A.TR"
|
||||
Me.btn018ATR.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btn018ATR.UseVisualStyleBackColor = True
|
||||
Me.btn018ATR.Visible = False
|
||||
'
|
||||
'btn380Handelsrg
|
||||
'
|
||||
Me.btn380Handelsrg.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn380Handelsrg.Location = New System.Drawing.Point(7, 352)
|
||||
Me.btn380Handelsrg.Name = "btn380Handelsrg"
|
||||
Me.btn380Handelsrg.Size = New System.Drawing.Size(123, 23)
|
||||
Me.btn380Handelsrg.TabIndex = 36
|
||||
Me.btn380Handelsrg.Text = "4/n380 - Handelsrg."
|
||||
Me.btn380Handelsrg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btn380Handelsrg.UseVisualStyleBackColor = True
|
||||
Me.btn380Handelsrg.Visible = False
|
||||
'
|
||||
'sbUrsprungsland
|
||||
'
|
||||
Me.sbUrsprungsland._allowFreitext = False
|
||||
Me.sbUrsprungsland._AllowSetValue = False
|
||||
Me.sbUrsprungsland._autoSizeGross = False
|
||||
Me.sbUrsprungsland._hideIfListEmpty = True
|
||||
Me.sbUrsprungsland._value = ""
|
||||
Me.sbUrsprungsland.conn_art = "FMZOLL"
|
||||
Me.sbUrsprungsland.dgvpos = "LEFT"
|
||||
Me.sbUrsprungsland.DISPLAY_PARAM = Nothing
|
||||
Me.sbUrsprungsland.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbUrsprungsland.key_visible = False
|
||||
Me.sbUrsprungsland.KEYPARAM = Nothing
|
||||
Me.sbUrsprungsland.Location = New System.Drawing.Point(436, 303)
|
||||
Me.sbUrsprungsland.Name = "sbUrsprungsland"
|
||||
Me.sbUrsprungsland.searchActive = True
|
||||
Me.sbUrsprungsland.Size = New System.Drawing.Size(41, 20)
|
||||
Me.sbUrsprungsland.SQL_ORDER_BY = Nothing
|
||||
Me.sbUrsprungsland.SQL_SELECT = Nothing
|
||||
Me.sbUrsprungsland.SQL_WHERE = Nothing
|
||||
Me.sbUrsprungsland.SQL_WhereParamList = Nothing
|
||||
Me.sbUrsprungsland.TabIndex = 32
|
||||
Me.sbUrsprungsland.usrcntl = Nothing
|
||||
'
|
||||
'cboBeguenstigung
|
||||
'
|
||||
Me.cboBeguenstigung._allowedValuesFreiText = Nothing
|
||||
Me.cboBeguenstigung._allowFreiText = False
|
||||
Me.cboBeguenstigung._value = ""
|
||||
Me.cboBeguenstigung.DropDownWidth = 350
|
||||
Me.cboBeguenstigung.FormattingEnabled = True
|
||||
Me.cboBeguenstigung.Location = New System.Drawing.Point(135, 303)
|
||||
Me.cboBeguenstigung.Name = "cboBeguenstigung"
|
||||
Me.cboBeguenstigung.Size = New System.Drawing.Size(217, 21)
|
||||
Me.cboBeguenstigung.TabIndex = 30
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.Location = New System.Drawing.Point(18, 306)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(111, 13)
|
||||
Me.Label10.TabIndex = 29
|
||||
Me.Label10.Text = "Begünstigung:"
|
||||
Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.Location = New System.Drawing.Point(-2, 279)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(135, 13)
|
||||
Me.Label9.TabIndex = 27
|
||||
Me.Label9.Text = "Vorangeg.Verfahren:"
|
||||
Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'cboVorangegangenesVerfahren
|
||||
'
|
||||
Me.cboVorangegangenesVerfahren._allowedValuesFreiText = Nothing
|
||||
Me.cboVorangegangenesVerfahren._allowFreiText = False
|
||||
Me.cboVorangegangenesVerfahren._value = ""
|
||||
Me.cboVorangegangenesVerfahren.DropDownWidth = 350
|
||||
Me.cboVorangegangenesVerfahren.FormattingEnabled = True
|
||||
Me.cboVorangegangenesVerfahren.Location = New System.Drawing.Point(136, 276)
|
||||
Me.cboVorangegangenesVerfahren.Name = "cboVorangegangenesVerfahren"
|
||||
Me.cboVorangegangenesVerfahren.Size = New System.Drawing.Size(533, 21)
|
||||
Me.cboVorangegangenesVerfahren.TabIndex = 28
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.Location = New System.Drawing.Point(-2, 259)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(135, 13)
|
||||
Me.Label14.TabIndex = 25
|
||||
Me.Label14.Text = "Angemeld.Verfahren:"
|
||||
Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'cboAngVerfahren
|
||||
'
|
||||
Me.cboAngVerfahren._allowedValuesFreiText = Nothing
|
||||
Me.cboAngVerfahren._allowFreiText = False
|
||||
Me.cboAngVerfahren._value = ""
|
||||
Me.cboAngVerfahren.DropDownWidth = 350
|
||||
Me.cboAngVerfahren.FormattingEnabled = True
|
||||
Me.cboAngVerfahren.Location = New System.Drawing.Point(136, 256)
|
||||
Me.cboAngVerfahren.Name = "cboAngVerfahren"
|
||||
Me.cboAngVerfahren.Size = New System.Drawing.Size(533, 21)
|
||||
Me.cboAngVerfahren.TabIndex = 26
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.Location = New System.Drawing.Point(409, 75)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(108, 13)
|
||||
Me.Label8.TabIndex = 9
|
||||
Me.Label8.Text = "Marke:"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Location = New System.Drawing.Point(212, 75)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(108, 13)
|
||||
Me.Label5.TabIndex = 8
|
||||
Me.Label5.Text = "Art:"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
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(18, 94)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(108, 13)
|
||||
Me.Label4.TabIndex = 10
|
||||
Me.Label4.Text = "Packstücke:"
|
||||
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label7.Location = New System.Drawing.Point(436, 235)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(233, 13)
|
||||
Me.Label7.TabIndex = 24
|
||||
Me.Label7.Text = "Eigenmasse muss kleiner als Rohmasse sein!"
|
||||
Me.Label7.Visible = False
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(48, 472)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(82, 13)
|
||||
Me.Label6.TabIndex = 48
|
||||
Me.Label6.Text = "Positionszusatz:"
|
||||
'
|
||||
'txtPositionszusatz
|
||||
'
|
||||
Me.txtPositionszusatz._DateTimeOnly = False
|
||||
Me.txtPositionszusatz._numbersOnly = False
|
||||
Me.txtPositionszusatz._numbersOnlyKommastellen = ""
|
||||
Me.txtPositionszusatz._Prozent = False
|
||||
Me.txtPositionszusatz._ShortDateNew = False
|
||||
Me.txtPositionszusatz._ShortDateOnly = False
|
||||
Me.txtPositionszusatz._TimeOnly = False
|
||||
Me.txtPositionszusatz._value = Nothing
|
||||
Me.txtPositionszusatz._Waehrung = False
|
||||
Me.txtPositionszusatz.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtPositionszusatz.Location = New System.Drawing.Point(136, 469)
|
||||
Me.txtPositionszusatz.MaxLength = 280
|
||||
Me.txtPositionszusatz.MaxLineLength = -1
|
||||
Me.txtPositionszusatz.MaxLines_Warning = ""
|
||||
Me.txtPositionszusatz.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPositionszusatz.Multiline = True
|
||||
Me.txtPositionszusatz.Name = "txtPositionszusatz"
|
||||
Me.txtPositionszusatz.Size = New System.Drawing.Size(533, 47)
|
||||
Me.txtPositionszusatz.TabIndex = 49
|
||||
'
|
||||
'lklBearbeitungAbbrechenUl
|
||||
'
|
||||
Me.lklBearbeitungAbbrechenUl.AutoSize = True
|
||||
Me.lklBearbeitungAbbrechenUl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.lklBearbeitungAbbrechenUl.Location = New System.Drawing.Point(551, 440)
|
||||
Me.lklBearbeitungAbbrechenUl.Name = "lklBearbeitungAbbrechenUl"
|
||||
Me.lklBearbeitungAbbrechenUl.Size = New System.Drawing.Size(118, 13)
|
||||
Me.lklBearbeitungAbbrechenUl.TabIndex = 47
|
||||
Me.lklBearbeitungAbbrechenUl.TabStop = True
|
||||
Me.lklBearbeitungAbbrechenUl.Text = "Bearbeitung abbrechen"
|
||||
Me.lklBearbeitungAbbrechenUl.Visible = False
|
||||
'
|
||||
'cboWaehrung
|
||||
'
|
||||
Me.cboWaehrung._allowedValuesFreiText = Nothing
|
||||
Me.cboWaehrung._allowFreiText = False
|
||||
Me.cboWaehrung._value = ""
|
||||
Me.cboWaehrung.Enabled = False
|
||||
Me.cboWaehrung.FormattingEnabled = True
|
||||
Me.cboWaehrung.Location = New System.Drawing.Point(281, 213)
|
||||
Me.cboWaehrung.Name = "cboWaehrung"
|
||||
Me.cboWaehrung.Size = New System.Drawing.Size(67, 21)
|
||||
Me.cboWaehrung.TabIndex = 19
|
||||
Me.cboWaehrung.Text = "EUR"
|
||||
'
|
||||
'Label31
|
||||
'
|
||||
Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label31.Location = New System.Drawing.Point(18, 42)
|
||||
Me.Label31.Name = "Label31"
|
||||
Me.Label31.Size = New System.Drawing.Size(111, 13)
|
||||
Me.Label31.TabIndex = 4
|
||||
Me.Label31.Text = "Zolltarif:"
|
||||
Me.Label31.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'txtWarennummer
|
||||
'
|
||||
Me.txtWarennummer._DateTimeOnly = False
|
||||
Me.txtWarennummer._numbersOnly = False
|
||||
Me.txtWarennummer._numbersOnlyKommastellen = ""
|
||||
Me.txtWarennummer._Prozent = False
|
||||
Me.txtWarennummer._ShortDateNew = False
|
||||
Me.txtWarennummer._ShortDateOnly = False
|
||||
Me.txtWarennummer._TimeOnly = False
|
||||
Me.txtWarennummer._value = Nothing
|
||||
Me.txtWarennummer._Waehrung = False
|
||||
Me.txtWarennummer.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtWarennummer.Location = New System.Drawing.Point(139, 39)
|
||||
Me.txtWarennummer.MaxLength = 11
|
||||
Me.txtWarennummer.MaxLineLength = -1
|
||||
Me.txtWarennummer.MaxLines_Warning = ""
|
||||
Me.txtWarennummer.MaxLines_Warning_Label = Nothing
|
||||
Me.txtWarennummer.Name = "txtWarennummer"
|
||||
Me.txtWarennummer.Size = New System.Drawing.Size(131, 20)
|
||||
Me.txtWarennummer.TabIndex = 5
|
||||
'
|
||||
'txtWTZ2
|
||||
'
|
||||
Me.txtWTZ2._DateTimeOnly = False
|
||||
Me.txtWTZ2._numbersOnly = False
|
||||
Me.txtWTZ2._numbersOnlyKommastellen = ""
|
||||
Me.txtWTZ2._Prozent = False
|
||||
Me.txtWTZ2._ShortDateNew = False
|
||||
Me.txtWTZ2._ShortDateOnly = False
|
||||
Me.txtWTZ2._TimeOnly = False
|
||||
Me.txtWTZ2._value = Nothing
|
||||
Me.txtWTZ2._Waehrung = False
|
||||
Me.txtWTZ2.Enabled = False
|
||||
Me.txtWTZ2.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtWTZ2.Location = New System.Drawing.Point(308, 39)
|
||||
Me.txtWTZ2.MaxLineLength = -1
|
||||
Me.txtWTZ2.MaxLines_Warning = ""
|
||||
Me.txtWTZ2.MaxLines_Warning_Label = Nothing
|
||||
Me.txtWTZ2.Name = "txtWTZ2"
|
||||
Me.txtWTZ2.Size = New System.Drawing.Size(40, 20)
|
||||
Me.txtWTZ2.TabIndex = 7
|
||||
'
|
||||
'txtWTZ1
|
||||
'
|
||||
Me.txtWTZ1._DateTimeOnly = False
|
||||
Me.txtWTZ1._numbersOnly = False
|
||||
Me.txtWTZ1._numbersOnlyKommastellen = ""
|
||||
Me.txtWTZ1._Prozent = False
|
||||
Me.txtWTZ1._ShortDateNew = False
|
||||
Me.txtWTZ1._ShortDateOnly = False
|
||||
Me.txtWTZ1._TimeOnly = False
|
||||
Me.txtWTZ1._value = Nothing
|
||||
Me.txtWTZ1._Waehrung = False
|
||||
Me.txtWTZ1.Enabled = False
|
||||
Me.txtWTZ1.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtWTZ1.Location = New System.Drawing.Point(269, 39)
|
||||
Me.txtWTZ1.MaxLineLength = -1
|
||||
Me.txtWTZ1.MaxLines_Warning = ""
|
||||
Me.txtWTZ1.MaxLines_Warning_Label = Nothing
|
||||
Me.txtWTZ1.Name = "txtWTZ1"
|
||||
Me.txtWTZ1.Size = New System.Drawing.Size(40, 20)
|
||||
Me.txtWTZ1.TabIndex = 6
|
||||
'
|
||||
'Label30
|
||||
'
|
||||
Me.Label30.Location = New System.Drawing.Point(21, 16)
|
||||
Me.Label30.Name = "Label30"
|
||||
Me.Label30.Size = New System.Drawing.Size(108, 13)
|
||||
Me.Label30.TabIndex = 1
|
||||
Me.Label30.Text = "Suche Kd-Zolltarif:"
|
||||
Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'MySearchBox1
|
||||
'
|
||||
Me.MySearchBox1._allowFreitext = False
|
||||
Me.MySearchBox1._AllowSetValue = False
|
||||
Me.MySearchBox1._autoSizeGross = False
|
||||
Me.MySearchBox1._hideIfListEmpty = True
|
||||
Me.MySearchBox1._value = Nothing
|
||||
Me.MySearchBox1.conn_art = "FMZOLL"
|
||||
Me.MySearchBox1.dgvpos = "LEFT"
|
||||
Me.MySearchBox1.DISPLAY_PARAM = Nothing
|
||||
Me.MySearchBox1.INVISIBLE_COLUMNS = Nothing
|
||||
Me.MySearchBox1.key_visible = False
|
||||
Me.MySearchBox1.KEYPARAM = Nothing
|
||||
Me.MySearchBox1.Location = New System.Drawing.Point(136, 13)
|
||||
Me.MySearchBox1.Name = "MySearchBox1"
|
||||
Me.MySearchBox1.searchActive = True
|
||||
Me.MySearchBox1.Size = New System.Drawing.Size(212, 20)
|
||||
Me.MySearchBox1.SQL_ORDER_BY = Nothing
|
||||
Me.MySearchBox1.SQL_SELECT = Nothing
|
||||
Me.MySearchBox1.SQL_WHERE = Nothing
|
||||
Me.MySearchBox1.SQL_WhereParamList = Nothing
|
||||
Me.MySearchBox1.TabIndex = 2
|
||||
Me.MySearchBox1.usrcntl = Nothing
|
||||
'
|
||||
'txtEigenmasse
|
||||
'
|
||||
Me.txtEigenmasse._DateTimeOnly = False
|
||||
Me.txtEigenmasse._numbersOnly = True
|
||||
Me.txtEigenmasse._numbersOnlyKommastellen = "2"
|
||||
Me.txtEigenmasse._Prozent = False
|
||||
Me.txtEigenmasse._ShortDateNew = False
|
||||
Me.txtEigenmasse._ShortDateOnly = False
|
||||
Me.txtEigenmasse._TimeOnly = False
|
||||
Me.txtEigenmasse._value = "0"
|
||||
Me.txtEigenmasse._Waehrung = False
|
||||
Me.txtEigenmasse.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtEigenmasse.Location = New System.Drawing.Point(436, 214)
|
||||
Me.txtEigenmasse.MaxLength = 18
|
||||
Me.txtEigenmasse.MaxLineLength = -1
|
||||
Me.txtEigenmasse.MaxLines_Warning = ""
|
||||
Me.txtEigenmasse.MaxLines_Warning_Label = Nothing
|
||||
Me.txtEigenmasse.Name = "txtEigenmasse"
|
||||
Me.txtEigenmasse.Size = New System.Drawing.Size(117, 20)
|
||||
Me.txtEigenmasse.TabIndex = 22
|
||||
Me.txtEigenmasse.Text = "0,00"
|
||||
'
|
||||
'txtRohmasse
|
||||
'
|
||||
Me.txtRohmasse._DateTimeOnly = False
|
||||
Me.txtRohmasse._numbersOnly = True
|
||||
Me.txtRohmasse._numbersOnlyKommastellen = "2"
|
||||
Me.txtRohmasse._Prozent = False
|
||||
Me.txtRohmasse._ShortDateNew = False
|
||||
Me.txtRohmasse._ShortDateOnly = False
|
||||
Me.txtRohmasse._TimeOnly = False
|
||||
Me.txtRohmasse._value = "0"
|
||||
Me.txtRohmasse._Waehrung = False
|
||||
Me.txtRohmasse.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtRohmasse.Location = New System.Drawing.Point(552, 214)
|
||||
Me.txtRohmasse.MaxLength = 18
|
||||
Me.txtRohmasse.MaxLineLength = -1
|
||||
Me.txtRohmasse.MaxLines_Warning = ""
|
||||
Me.txtRohmasse.MaxLines_Warning_Label = Nothing
|
||||
Me.txtRohmasse.Name = "txtRohmasse"
|
||||
Me.txtRohmasse.Size = New System.Drawing.Size(117, 20)
|
||||
Me.txtRohmasse.TabIndex = 23
|
||||
Me.txtRohmasse.Text = "0,00"
|
||||
'
|
||||
'Label27
|
||||
'
|
||||
Me.Label27.AutoSize = True
|
||||
Me.Label27.Location = New System.Drawing.Point(433, 198)
|
||||
Me.Label27.Name = "Label27"
|
||||
Me.Label27.Size = New System.Drawing.Size(67, 13)
|
||||
Me.Label27.TabIndex = 16
|
||||
Me.Label27.Text = "Eigenmasse:"
|
||||
'
|
||||
'Label28
|
||||
'
|
||||
Me.Label28.AutoSize = True
|
||||
Me.Label28.Location = New System.Drawing.Point(549, 198)
|
||||
Me.Label28.Name = "Label28"
|
||||
Me.Label28.Size = New System.Drawing.Size(60, 13)
|
||||
Me.Label28.TabIndex = 17
|
||||
Me.Label28.Text = "Rohmasse:"
|
||||
'
|
||||
'sbUlArt
|
||||
'
|
||||
Me.sbUlArt._allowFreitext = False
|
||||
Me.sbUlArt._AllowSetValue = False
|
||||
Me.sbUlArt._autoSizeGross = False
|
||||
Me.sbUlArt._hideIfListEmpty = True
|
||||
Me.sbUlArt._value = Nothing
|
||||
Me.sbUlArt.conn_art = "FMZOLL"
|
||||
Me.sbUlArt.dgvpos = "LEFT"
|
||||
Me.sbUlArt.DISPLAY_PARAM = Nothing
|
||||
Me.sbUlArt.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbUlArt.key_visible = False
|
||||
Me.sbUlArt.KEYPARAM = Nothing
|
||||
Me.sbUlArt.Location = New System.Drawing.Point(136, 420)
|
||||
Me.sbUlArt.Name = "sbUlArt"
|
||||
Me.sbUlArt.searchActive = True
|
||||
Me.sbUlArt.Size = New System.Drawing.Size(235, 20)
|
||||
Me.sbUlArt.SQL_ORDER_BY = Nothing
|
||||
Me.sbUlArt.SQL_SELECT = Nothing
|
||||
Me.sbUlArt.SQL_WHERE = Nothing
|
||||
Me.sbUlArt.SQL_WhereParamList = Nothing
|
||||
Me.sbUlArt.TabIndex = 41
|
||||
Me.sbUlArt.usrcntl = Nothing
|
||||
'
|
||||
'sbPkTyp
|
||||
'
|
||||
Me.sbPkTyp._allowFreitext = False
|
||||
Me.sbPkTyp._AllowSetValue = False
|
||||
Me.sbPkTyp._autoSizeGross = False
|
||||
Me.sbPkTyp._hideIfListEmpty = True
|
||||
Me.sbPkTyp._value = Nothing
|
||||
Me.sbPkTyp.conn_art = "FMZOLL"
|
||||
Me.sbPkTyp.dgvpos = "LEFT"
|
||||
Me.sbPkTyp.DISPLAY_PARAM = Nothing
|
||||
Me.sbPkTyp.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbPkTyp.key_visible = False
|
||||
Me.sbPkTyp.KEYPARAM = Nothing
|
||||
Me.sbPkTyp.Location = New System.Drawing.Point(215, 91)
|
||||
Me.sbPkTyp.Name = "sbPkTyp"
|
||||
Me.sbPkTyp.searchActive = True
|
||||
Me.sbPkTyp.Size = New System.Drawing.Size(198, 20)
|
||||
Me.sbPkTyp.SQL_ORDER_BY = Nothing
|
||||
Me.sbPkTyp.SQL_SELECT = Nothing
|
||||
Me.sbPkTyp.SQL_WHERE = Nothing
|
||||
Me.sbPkTyp.SQL_WhereParamList = Nothing
|
||||
Me.sbPkTyp.TabIndex = 12
|
||||
Me.sbPkTyp.usrcntl = Nothing
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image)
|
||||
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Location = New System.Drawing.Point(671, 334)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(30, 20)
|
||||
Me.Button3.TabIndex = 35
|
||||
Me.Button3.TabStop = False
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblPosNr
|
||||
'
|
||||
Me.lblPosNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblPosNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.lblPosNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.lblPosNr.Location = New System.Drawing.Point(668, 1)
|
||||
Me.lblPosNr.Name = "lblPosNr"
|
||||
Me.lblPosNr.Size = New System.Drawing.Size(61, 35)
|
||||
Me.lblPosNr.TabIndex = 3
|
||||
Me.lblPosNr.Text = "1/1"
|
||||
Me.lblPosNr.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.BackgroundImage = Global.SDL.My.Resources.plus
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(671, 420)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(30, 20)
|
||||
Me.Button1.TabIndex = 45
|
||||
Me.Button1.TabStop = False
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtUlAusstellDat
|
||||
'
|
||||
Me.txtUlAusstellDat._DateTimeOnly = False
|
||||
Me.txtUlAusstellDat._numbersOnly = False
|
||||
Me.txtUlAusstellDat._numbersOnlyKommastellen = ""
|
||||
Me.txtUlAusstellDat._Prozent = False
|
||||
Me.txtUlAusstellDat._ShortDateNew = True
|
||||
Me.txtUlAusstellDat._ShortDateOnly = False
|
||||
Me.txtUlAusstellDat._TimeOnly = False
|
||||
Me.txtUlAusstellDat._value = ""
|
||||
Me.txtUlAusstellDat._Waehrung = False
|
||||
Me.txtUlAusstellDat.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtUlAusstellDat.Location = New System.Drawing.Point(519, 420)
|
||||
Me.txtUlAusstellDat.MaxLength = 10
|
||||
Me.txtUlAusstellDat.MaxLineLength = -1
|
||||
Me.txtUlAusstellDat.MaxLines_Warning = ""
|
||||
Me.txtUlAusstellDat.MaxLines_Warning_Label = Nothing
|
||||
Me.txtUlAusstellDat.Name = "txtUlAusstellDat"
|
||||
Me.txtUlAusstellDat.Size = New System.Drawing.Size(117, 20)
|
||||
Me.txtUlAusstellDat.TabIndex = 43
|
||||
'
|
||||
'txtUlNummer
|
||||
'
|
||||
Me.txtUlNummer._DateTimeOnly = False
|
||||
Me.txtUlNummer._numbersOnly = False
|
||||
Me.txtUlNummer._numbersOnlyKommastellen = ""
|
||||
Me.txtUlNummer._Prozent = False
|
||||
Me.txtUlNummer._ShortDateNew = False
|
||||
Me.txtUlNummer._ShortDateOnly = False
|
||||
Me.txtUlNummer._TimeOnly = False
|
||||
Me.txtUlNummer._value = Nothing
|
||||
Me.txtUlNummer._Waehrung = False
|
||||
Me.txtUlNummer.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtUlNummer.Location = New System.Drawing.Point(370, 420)
|
||||
Me.txtUlNummer.MaxLength = 35
|
||||
Me.txtUlNummer.MaxLineLength = -1
|
||||
Me.txtUlNummer.MaxLines_Warning = ""
|
||||
Me.txtUlNummer.MaxLines_Warning_Label = Nothing
|
||||
Me.txtUlNummer.Name = "txtUlNummer"
|
||||
Me.txtUlNummer.Size = New System.Drawing.Size(150, 20)
|
||||
Me.txtUlNummer.TabIndex = 42
|
||||
'
|
||||
'txtPkMarke
|
||||
'
|
||||
Me.txtPkMarke._DateTimeOnly = False
|
||||
Me.txtPkMarke._numbersOnly = False
|
||||
Me.txtPkMarke._numbersOnlyKommastellen = ""
|
||||
Me.txtPkMarke._Prozent = False
|
||||
Me.txtPkMarke._ShortDateNew = False
|
||||
Me.txtPkMarke._ShortDateOnly = False
|
||||
Me.txtPkMarke._TimeOnly = False
|
||||
Me.txtPkMarke._value = ""
|
||||
Me.txtPkMarke._Waehrung = False
|
||||
Me.txtPkMarke.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtPkMarke.Location = New System.Drawing.Point(412, 91)
|
||||
Me.txtPkMarke.MaxLength = 42
|
||||
Me.txtPkMarke.MaxLineLength = -1
|
||||
Me.txtPkMarke.MaxLines_Warning = ""
|
||||
Me.txtPkMarke.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPkMarke.Name = "txtPkMarke"
|
||||
Me.txtPkMarke.Size = New System.Drawing.Size(257, 20)
|
||||
Me.txtPkMarke.TabIndex = 13
|
||||
'
|
||||
'txtPkAnzahl
|
||||
'
|
||||
Me.txtPkAnzahl._DateTimeOnly = False
|
||||
Me.txtPkAnzahl._numbersOnly = True
|
||||
Me.txtPkAnzahl._numbersOnlyKommastellen = ""
|
||||
Me.txtPkAnzahl._Prozent = False
|
||||
Me.txtPkAnzahl._ShortDateNew = False
|
||||
Me.txtPkAnzahl._ShortDateOnly = False
|
||||
Me.txtPkAnzahl._TimeOnly = False
|
||||
Me.txtPkAnzahl._value = ""
|
||||
Me.txtPkAnzahl._Waehrung = False
|
||||
Me.txtPkAnzahl.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtPkAnzahl.Location = New System.Drawing.Point(136, 91)
|
||||
Me.txtPkAnzahl.MaxLength = 5
|
||||
Me.txtPkAnzahl.MaxLineLength = -1
|
||||
Me.txtPkAnzahl.MaxLines_Warning = ""
|
||||
Me.txtPkAnzahl.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPkAnzahl.Name = "txtPkAnzahl"
|
||||
Me.txtPkAnzahl.Size = New System.Drawing.Size(80, 20)
|
||||
Me.txtPkAnzahl.TabIndex = 11
|
||||
Me.txtPkAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label19
|
||||
'
|
||||
Me.Label19.AutoSize = True
|
||||
Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label19.Location = New System.Drawing.Point(56, 334)
|
||||
Me.Label19.Name = "Label19"
|
||||
Me.Label19.Size = New System.Drawing.Size(73, 13)
|
||||
Me.Label19.TabIndex = 33
|
||||
Me.Label19.Text = "Unterlagen:"
|
||||
Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'dgvUnterlage
|
||||
'
|
||||
Me.dgvUnterlage.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvUnterlage.AllowUserToAddRows = False
|
||||
Me.dgvUnterlage.AllowUserToDeleteRows = False
|
||||
Me.dgvUnterlage.AllowUserToResizeColumns = False
|
||||
Me.dgvUnterlage.AllowUserToResizeRows = False
|
||||
Me.dgvUnterlage.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvUnterlage.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvUnterlage.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.UlCode, Me.UlArtTxt, Me.UlNummer, Me.UlADat, Me.UlVorhanden})
|
||||
Me.dgvUnterlage.Location = New System.Drawing.Point(136, 334)
|
||||
Me.dgvUnterlage.MultiSelect = False
|
||||
Me.dgvUnterlage.Name = "dgvUnterlage"
|
||||
Me.dgvUnterlage.ReadOnly = True
|
||||
Me.dgvUnterlage.RowHeadersVisible = False
|
||||
Me.dgvUnterlage.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvUnterlage.Size = New System.Drawing.Size(533, 85)
|
||||
Me.dgvUnterlage.TabIndex = 34
|
||||
Me.dgvUnterlage.TabStop = False
|
||||
'
|
||||
'Label22
|
||||
'
|
||||
Me.Label22.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label22.Location = New System.Drawing.Point(136, 439)
|
||||
Me.Label22.Name = "Label22"
|
||||
Me.Label22.Size = New System.Drawing.Size(235, 13)
|
||||
Me.Label22.TabIndex = 46
|
||||
Me.Label22.Text = "Bitte angeben!"
|
||||
Me.Label22.Visible = False
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Location = New System.Drawing.Point(19, 217)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(111, 13)
|
||||
Me.Label3.TabIndex = 18
|
||||
Me.Label3.Text = "Artikelpreis:"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'txtWarenwert
|
||||
'
|
||||
Me.txtWarenwert._DateTimeOnly = False
|
||||
Me.txtWarenwert._numbersOnly = False
|
||||
Me.txtWarenwert._numbersOnlyKommastellen = ""
|
||||
Me.txtWarenwert._Prozent = False
|
||||
Me.txtWarenwert._ShortDateNew = False
|
||||
Me.txtWarenwert._ShortDateOnly = False
|
||||
Me.txtWarenwert._TimeOnly = False
|
||||
Me.txtWarenwert._value = ""
|
||||
Me.txtWarenwert._Waehrung = True
|
||||
Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtWarenwert.Location = New System.Drawing.Point(136, 214)
|
||||
Me.txtWarenwert.MaxLineLength = -1
|
||||
Me.txtWarenwert.MaxLines_Warning = ""
|
||||
Me.txtWarenwert.MaxLines_Warning_Label = Nothing
|
||||
Me.txtWarenwert.Name = "txtWarenwert"
|
||||
Me.txtWarenwert.Size = New System.Drawing.Size(146, 20)
|
||||
Me.txtWarenwert.TabIndex = 20
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(22, 117)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(108, 13)
|
||||
Me.Label1.TabIndex = 14
|
||||
Me.Label1.Text = "Warenbezeichnung:"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'txtWarenbezeichnung
|
||||
'
|
||||
Me.txtWarenbezeichnung._DateTimeOnly = False
|
||||
Me.txtWarenbezeichnung._numbersOnly = False
|
||||
Me.txtWarenbezeichnung._numbersOnlyKommastellen = ""
|
||||
Me.txtWarenbezeichnung._Prozent = False
|
||||
Me.txtWarenbezeichnung._ShortDateNew = False
|
||||
Me.txtWarenbezeichnung._ShortDateOnly = False
|
||||
Me.txtWarenbezeichnung._TimeOnly = False
|
||||
Me.txtWarenbezeichnung._value = Nothing
|
||||
Me.txtWarenbezeichnung._Waehrung = False
|
||||
Me.txtWarenbezeichnung.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtWarenbezeichnung.Location = New System.Drawing.Point(136, 117)
|
||||
Me.txtWarenbezeichnung.MaxLength = 280
|
||||
Me.txtWarenbezeichnung.MaxLineLength = -1
|
||||
Me.txtWarenbezeichnung.MaxLines_Warning = ""
|
||||
Me.txtWarenbezeichnung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtWarenbezeichnung.Multiline = True
|
||||
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
|
||||
Me.txtWarenbezeichnung.Size = New System.Drawing.Size(533, 70)
|
||||
Me.txtWarenbezeichnung.TabIndex = 15
|
||||
'
|
||||
'Label21
|
||||
'
|
||||
Me.Label21.AutoSize = True
|
||||
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.25!)
|
||||
Me.Label21.Location = New System.Drawing.Point(668, 405)
|
||||
Me.Label21.Name = "Label21"
|
||||
Me.Label21.Size = New System.Drawing.Size(33, 12)
|
||||
Me.Label21.TabIndex = 39
|
||||
Me.Label21.Text = "(Enter)"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label2.Location = New System.Drawing.Point(552, 14)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(105, 13)
|
||||
Me.Label2.TabIndex = 0
|
||||
Me.Label2.Text = "PosNr.:"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label29
|
||||
'
|
||||
Me.Label29.Location = New System.Drawing.Point(322, 217)
|
||||
Me.Label29.Name = "Label29"
|
||||
Me.Label29.Size = New System.Drawing.Size(111, 13)
|
||||
Me.Label29.TabIndex = 21
|
||||
Me.Label29.Text = "Gewicht:"
|
||||
Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.Location = New System.Drawing.Point(322, 306)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(111, 13)
|
||||
Me.Label11.TabIndex = 31
|
||||
Me.Label11.Text = "Ursprungsland:"
|
||||
Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'UlCode
|
||||
'
|
||||
Me.UlCode.HeaderText = "Code"
|
||||
Me.UlCode.Name = "UlCode"
|
||||
Me.UlCode.ReadOnly = True
|
||||
Me.UlCode.Visible = False
|
||||
'
|
||||
'UlArtTxt
|
||||
'
|
||||
Me.UlArtTxt.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.UlArtTxt.HeaderText = "Bereich/Art"
|
||||
Me.UlArtTxt.Name = "UlArtTxt"
|
||||
Me.UlArtTxt.ReadOnly = True
|
||||
Me.UlArtTxt.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
'
|
||||
'UlNummer
|
||||
'
|
||||
Me.UlNummer.HeaderText = "Nummer"
|
||||
Me.UlNummer.Name = "UlNummer"
|
||||
Me.UlNummer.ReadOnly = True
|
||||
Me.UlNummer.Width = 150
|
||||
'
|
||||
'UlADat
|
||||
'
|
||||
Me.UlADat.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
|
||||
Me.UlADat.HeaderText = "Ausstell.Dat."
|
||||
Me.UlADat.Name = "UlADat"
|
||||
Me.UlADat.ReadOnly = True
|
||||
Me.UlADat.Width = 115
|
||||
'
|
||||
'UlVorhanden
|
||||
'
|
||||
Me.UlVorhanden.HeaderText = "vorh."
|
||||
Me.UlVorhanden.Name = "UlVorhanden"
|
||||
Me.UlVorhanden.ReadOnly = True
|
||||
Me.UlVorhanden.Width = 35
|
||||
'
|
||||
'usrCntlATLAS_EZA_Position
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoScroll = True
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Name = "usrCntlATLAS_EZA_Position"
|
||||
Me.Size = New System.Drawing.Size(730, 573)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtWarenbezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label19 As System.Windows.Forms.Label
|
||||
Friend WithEvents dgvUnterlage As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents txtPkMarke As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtPkAnzahl As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents txtUlAusstellDat As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtUlNummer As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label21 As System.Windows.Forms.Label
|
||||
Friend WithEvents lblPosNr As System.Windows.Forms.Label
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label22 As System.Windows.Forms.Label
|
||||
Friend WithEvents sbPkTyp As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbUlArt As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents Label29 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtEigenmasse As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtRohmasse As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label27 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label28 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label30 As System.Windows.Forms.Label
|
||||
Friend WithEvents MySearchBox1 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents Label31 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtWarennummer As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtWTZ2 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtWTZ1 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents cboWaehrung As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents lklBearbeitungAbbrechenUl As System.Windows.Forms.LinkLabel
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtPositionszusatz As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents cboVorangegangenesVerfahren As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label14 As System.Windows.Forms.Label
|
||||
Friend WithEvents cboAngVerfahren As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cboBeguenstigung As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||
Friend WithEvents sbUrsprungsland As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents btn7HHFDirektbef As System.Windows.Forms.Button
|
||||
Friend WithEvents btn018ATR As System.Windows.Forms.Button
|
||||
Friend WithEvents btn380Handelsrg As System.Windows.Forms.Button
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
Friend WithEvents cbx As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents UlCode As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents UlArtTxt As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents UlNummer As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents UlADat As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents UlVorhanden As System.Windows.Forms.DataGridViewCheckBoxColumn
|
||||
|
||||
End Class
|
||||
150
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.resx
Normal file
150
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.resx
Normal file
@@ -0,0 +1,150 @@
|
||||
<?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="Button3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
|
||||
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
|
||||
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
|
||||
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
|
||||
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
|
||||
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
|
||||
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
|
||||
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
|
||||
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="UlCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlArtTxt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlNummer.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlADat.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="UlVorhanden.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
</root>
|
||||
295
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb
Normal file
295
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.vb
Normal file
@@ -0,0 +1,295 @@
|
||||
Public Class usrCntlATLAS_EZA_Position
|
||||
|
||||
'' Public Event ADD()
|
||||
' Public Event REMOVE(id)
|
||||
|
||||
' Public Event NEXT_POS()
|
||||
' Public Event PREV_POS()
|
||||
Dim WARE As DAKOSY_Worker.cDakosy_EZA_Warenposition = Nothing
|
||||
Event RohmasseChanged(rohmasse As Double)
|
||||
Dim id As Integer = -1
|
||||
|
||||
Dim PK_EDIT = -1
|
||||
Dim UL_EDIT = -1
|
||||
Dim VP_EDIT = -1
|
||||
|
||||
Sub New(id)
|
||||
InitializeComponent()
|
||||
Me.id = id
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(id As Integer, WARE As DAKOSY_Worker.cDakosy_EZA_Warenposition)
|
||||
InitializeComponent()
|
||||
Me.id = id
|
||||
Me.WARE = WARE
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub usrCntlATLAS_NCTS_Position_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
' cboColliMenge.Items.Clear()
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VQ", "VQ"))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VG", "VG"))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VL", "VL"))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VR", "VR"))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VY", "VY"))
|
||||
' cboColliMenge.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VO", "VO"))
|
||||
|
||||
|
||||
' Me.Parent.KeyDown += New KeyEventHandler(usrCntlATLAS_NCTS_Position_KeyDown)
|
||||
|
||||
sbPkTyp.initSearchBox(Me.FindForm, " [Code] ,[Description] as Verpackungsart, Code + ' ' + Description as display FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbUlArt.initSearchBox(Me.FindForm, " [Code] ,[Description] as Art, Code + ' ' + Description as display FROM tbl_DY_ZollDE_I0200_Unterlagearten", {"Description", "'%'+Code", "DocumentCode", "Division"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
' sbExportAusLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
sbPkTyp.SET_VALUE("Pk")
|
||||
' Me.cboVorangegangenesVerfahren.changeItem(If(WARE.ezaWP_VerfahrensCodeVorangegangenesVerfahren, ""))
|
||||
' Me.cboAngVerfahren.changeItem(If(WARE.ezaWP_AnmeldeVErfahren, ""))
|
||||
|
||||
|
||||
cboAngVerfahren.Items.Clear()
|
||||
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("01 - Überführung von Waren in den zollrechtlich freien Verkehr", "01"))
|
||||
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Gleichzeitige Überführung in den zollrechtlich freien Verkehr ohne MWSt-freie Lieferung", "40"))
|
||||
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("42 - Gleichzeitige Überführung in den zollrechtlich freien Verkehr mit MWSt-freie Lieferung", "42"))
|
||||
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("45 - Überführung von Waren in den zollrechtlich und mehrwertsteuer- oder verbrauchsteuerrechtlich freien Verkehr und deren Überführung in ein Steuerlagerverfahren ", "45"))
|
||||
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("49 - Überführung von Gemeinschaftswaren in den steuerrechtlich freien Verkehr im Rahmen des Warenverkehrs zwischen Teilen des Zollgebiets der Gemeinschaft", "49"))
|
||||
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("61 - Wiedereinfuhr mit gleichzeitiger Überführung in den zoll- und steuerrechtlich freien Verkehr ohne mehrwertsteuerbefreiende Lieferung - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "61"))
|
||||
cboAngVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("63 - Wiedereinfuhr und gleichzeitige Überführung in den zoll- und steuerrechtlich freien Verkehr mit mehrwertsteuerbefreiender Lieferung in einen anderen Mitgliedstaat. - Vorübergehende Ausfuhr im Rahmen der passiven Veredelung", "63"))
|
||||
|
||||
|
||||
cboBeguenstigung.Items.Clear()
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("100 - Anwendung des Drittlandszollsatzes (Angabe aus statistischen und dv- technischen Gründen notwendig)", "100"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("110 - Zolltarifliche Maßnahme 'erga omnes' unter Zollaussetzung", "110"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("115 - Zolltarifliche Maßnahme 'erga omnes' unter Zollaussetzung zur besonderen Verwendung (Artikel 82 Zollkodex)", "115"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("118 - Zolltarifliche Maßnahme 'erga omnes' unter Zollaussetzung mit Bescheinigung über die Beschaffenheit der Ware", "118"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("119 - Zolltarifliche Maßnahme 'erga omnes' unter zeitweiliger Aussetzung der Zölle für mit Luftfahrttauglichkeitsbescheinigung eingeführte Waren", "119"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("120 - Zolltarifliche Maßnahme 'erga omnes' im Rahmen eines Zollkontigents", "120"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("123 - Zolltarifliche Maßnahme 'erga omnes' im Rahmen eines Zollkontingents zur besonderen Verwendung", "123"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("125 - Zolltarifliche Maßnahme 'erga omnes' im Rahmen eines Zollkontingents mit Bescheinigung über die Beschaffenheit der Ware", "125"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("128 - Zolltarifliche Maßnahme 'erga omnes' im Rahmen eines Zollkontingents nach passiver Veredelung", "128"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("140 - Zolltarifliche Maßnahme 'erga omnes' zur besonderen Verwendung aufgrund des gemeinsamen Zolltarifs", "140"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("150 - Zolltarifliche Maßnahme 'erga omnes' mit Bescheinigung über die Beschaffenheit der Ware", "150"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("200 - Anwendung des APS Zollsatzes ohne weitere Bedingungen oder Einschränkungen", "200"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("220 - Anwendung des APS Zollsatzes im Rahmen eines Zollkontingents", "220"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("223 - Anwendung des APS Zollsatzes im Rahmen eines Zollkontingents zur besonderen Verwendung", "223"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("225 - Anwendung des APS Zollsatzes im Rahmen eines Zollkontingents mit Bescheinigung über die Beschaffenheit der Ware", "225"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("240 - Anwendung des APS Zollsatzes zur besonderen Verwendung aufgrund des gemeinsamen Zolltarifs", "240"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("250 - Anwendung des APS Zollsatzes mit Bescheinigung über die Beschaffenheit der Ware", "250"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("300 - Anwendung des betreffenden Präferenz-Zollsatzes ohne weitere Bedingungen oder Einschränkungen", "300"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("310 - Präferenzabkommen : Zollaussetzungen", "310"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("315 - Präferenzaussetzung bei Vorlage einer Bewilligung der besonderen Verwendung", "315"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("320 - Anwendung des betreffenden Präferenz-Zollsatzes im Rahmen eines Zollkontingents", "320"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("323 - Anwendung des betreffenden Präferenz-Zollsatzes im Rahmen eines Zollkontingents zur besonderen Verwendung", "323"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("325 - Anwendung des betreffenden Präferenz-Zollsatzes im Rahmen eines Zollkontingents mit Bescheinigung über die Beschaffenheit der Ware", "325"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("340 - Anwendung des betreffenden Präferenz-Zollsatzes zur besonderen Verwendung aufgrund des gemeinsamen Zolltarifs", "340"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("350 - Anwendung des betreffenden Präferenz-Zollsatzes mit Bescheinigung über die Beschaffenheit der Ware", "350"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("400 - Keine Abgabenerhebung in Anwendung der von der Europäischen Union geschlossenen Zollunionsabkommen Nach Art. 20 Abs. 1 des Beschlusses Nr. 1/95 (VSF Z 41 25 Nr. 5) ist die Erhebung von Agrarteilbeträgen für bestimmte, landwirtschaftliche Verarbeitungserzeugnisse zulässig, auch wenn diese von der Zollunion erfasst werden.", "400"))
|
||||
cboBeguenstigung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("420 - Kontingent im Rahmen einer Zollunion", "420"))
|
||||
|
||||
|
||||
|
||||
sbUrsprungsland.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
|
||||
|
||||
setvalue(WARE)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub setvalue(WARE As DAKOSY_Worker.cDakosy_EZA_Warenposition)
|
||||
If WARE IsNot Nothing Then
|
||||
Me.txtWarenbezeichnung.Text = If(WARE.ezaWP_Warenbezeichnung, "")
|
||||
Me.txtRohmasse.Text = If(WARE.ezaWP_Rohmasse, "")
|
||||
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0))
|
||||
Me.txtEigenmasse.Text = If(WARE.ezaWP_Eigenmasse, "")
|
||||
Me.txtWarenwert._value = If(WARE.ezaWP_Artikelpreis, "")
|
||||
' Me.txtWarennummer.Text = If(WARE.ezaWP_WarennummerEZT, "")
|
||||
|
||||
|
||||
Me.txtWTZ1.Text = If(WARE.ezaWP_WarennummerZusatzCode1, "")
|
||||
Me.txtWTZ2.Text = If(WARE.ezaWP_WarennummerZusatzCode2, "")
|
||||
|
||||
Me.txtWarennummer.Text = If(WARE.ezaWP_WarennummerEZT, "")
|
||||
|
||||
Me.txtPkAnzahl.Text = If(WARE.ezaWP_PackstueckAnzahl, "")
|
||||
Me.sbPkTyp._value = If(WARE.ezaWP_PackstueckArt, "")
|
||||
Me.txtPkMarke.Text = If(WARE.ezaWP_PackstueckZeichen, "")
|
||||
|
||||
Me.txtPositionszusatz.Text = If(WARE.ezaWP_PositionsZusatz, "")
|
||||
|
||||
Me.cboAngVerfahren.changeItem(If(WARE.ezaWP_AnmeldeVErfahren, ""))
|
||||
Me.cboVorangegangenesVerfahren.changeItem(If(WARE.ezaWP_VerfahrensCodeVorangegangenesVerfahren, ""))
|
||||
|
||||
Me.cboBeguenstigung.changeItem(If(WARE.ezaWP_BeguenstigungBenatragtCode, ""))
|
||||
Me.sbUrsprungsland.SET_VALUE(If(WARE.ezaWP_UrsprungslandCode, ""))
|
||||
|
||||
|
||||
dgvUnterlage.Rows.Clear()
|
||||
If WARE.ezaWP_UNTERLAGEN IsNot Nothing Then
|
||||
For Each Ul In WARE.ezaWP_UNTERLAGEN
|
||||
Dim UlTxt = sbUlArt.GET_VALUE_OnlyReturn(Ul.ezaWpUl_Bereich & "/" & Ul.ezaWpUl_Art)
|
||||
dgvUnterlage.Rows.Add(Ul.ezaWpUl_Bereich & "/" & Ul.ezaWpUl_Art, UlTxt, Ul.ezaWpUl_Nummer, Ul.ezaWpUl_DatumAusstellung, CBool(If(Ul.ezaWpUl_VorlageKz, False).ToString.Replace("J", "1").Replace("N", "0")))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
addUnterlage()
|
||||
End Sub
|
||||
|
||||
Sub addUnterlage()
|
||||
Label22.Visible = False
|
||||
If sbUlArt._value = "" Then Label22.Visible = True : sbUlArt.Focus() : Exit Sub
|
||||
|
||||
If UL_EDIT >= 0 Then
|
||||
dgvUnterlage.Rows.RemoveAt(UL_EDIT)
|
||||
dgvUnterlage.Rows.Insert(UL_EDIT, sbUlArt._value, sbUlArt.Text, txtUlNummer.Text, txtUlAusstellDat.Text, cbx.Checked)
|
||||
UL_EDIT = -1
|
||||
Button1.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenUl.Visible = False
|
||||
Else
|
||||
dgvUnterlage.Rows.Add(sbUlArt._value, sbUlArt.Text, txtUlNummer.Text, txtUlAusstellDat.Text, cbx.Checked)
|
||||
End If
|
||||
|
||||
txtUlAusstellDat.Text = "" : txtUlNummer.Text = "" : sbUlArt.SET_VALUE("")
|
||||
dgvUnterlage.FirstDisplayedScrollingRowIndex = dgvUnterlage.RowCount - 1
|
||||
dgvUnterlage.ClearSelection()
|
||||
sbUlArt.Focus()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub UnterlageKeyDown(sender As Object, e As KeyEventArgs) Handles txtUlAusstellDat.KeyDown, txtUlNummer.KeyDown, sbUlArt.KeyDown, cbx.KeyDown
|
||||
If e.KeyCode = Keys.Return Then addUnterlage()
|
||||
e.Handled = True
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
If dgvUnterlage.SelectedRows.Count > 0 Then
|
||||
If MsgBox("Möchten Sie den Eintrag in 'Unterlagen' wirklich löschen?", vbYesNoCancel) = vbYes Then
|
||||
dgvUnterlage.Rows.Remove(dgvUnterlage.SelectedRows(0))
|
||||
End If
|
||||
End If
|
||||
dgvUnterlage.ClearSelection()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub txtRohmasse_TextChanged(sender As Object, e As EventArgs) Handles txtRohmasse.TextChanged
|
||||
RaiseEvent RohmasseChanged(If(IsNumeric(txtRohmasse.Text), CDbl(txtRohmasse.Text), 0))
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvUnterlage_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvUnterlage.CellDoubleClick
|
||||
If e.RowIndex < 0 Then Exit Sub
|
||||
editableRowUL(e.RowIndex)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub editableRowUL(index As Integer)
|
||||
txtUlNummer.Text = dgvUnterlage.Rows(index).Cells("UlNummer").Value
|
||||
sbUlArt.SET_VALUE(dgvUnterlage.Rows(index).Cells("UlCode").Value)
|
||||
txtUlAusstellDat.Text = dgvUnterlage.Rows(index).Cells("UlADat").Value
|
||||
cbx.Checked = dgvUnterlage.Rows(index).Cells("UlVorhanden").Value
|
||||
UL_EDIT = index
|
||||
Button1.BackgroundImage = My.Resources.stift
|
||||
lklBearbeitungAbbrechenUl.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub lklBearbeitungAbbrechenUl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenUl.LinkClicked
|
||||
UL_EDIT = -1
|
||||
txtUlNummer.Text = ""
|
||||
sbUlArt.SET_VALUE("")
|
||||
txtUlAusstellDat.Text = ""
|
||||
Button1.BackgroundImage = My.Resources.plus
|
||||
lklBearbeitungAbbrechenUl.Visible = False
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged
|
||||
Label7.Visible = False
|
||||
If IsNumeric(txtRohmasse._value) And IsNumeric(txtEigenmasse._value) Then
|
||||
If CDbl(txtRohmasse._value) < CDbl(txtEigenmasse._value) Then
|
||||
Label7.Visible = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cboAngVerfahren_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAngVerfahren.SelectedIndexChanged
|
||||
cboVorangegangenesVerfahren.Items.Clear()
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
|
||||
If cboAngVerfahren._value.StartsWith("01") Then
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0100 - ", "00"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0171 - ", "71"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0178 - ", "78"))
|
||||
End If
|
||||
|
||||
If cboAngVerfahren._value.StartsWith("40") Then
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4000 - ", "00"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4010 - ", "10"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4031 - ", "31"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4051 - ", "51"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4054 - ", "54"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4071 - ", "71"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4078 - ", "78"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4090 - ", "90"))
|
||||
End If
|
||||
|
||||
If cboAngVerfahren._value.StartsWith("42") Then
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4200 - ", "00"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4210 - ", "10"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4222 - ", "22"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4223 - ", "23"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4251 - ", "51"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4254 - ", "54"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4271 - ", "71"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4278 - ", "78"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4291 - ", "91"))
|
||||
End If
|
||||
|
||||
If cboAngVerfahren._value.StartsWith("45") Then
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4500 - ", "00"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4571 - ", "71"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4578 - ", "78"))
|
||||
End If
|
||||
|
||||
If cboAngVerfahren._value.StartsWith("49") Then
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4900 - ", "00"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4951 - ", "51"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4954 - ", "54"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4971 - ", "71"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4978 - ", "78"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4991 - ", "91"))
|
||||
End If
|
||||
|
||||
If cboAngVerfahren._value.StartsWith("61") Then
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6121 - ", "21"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6123 - ", "23"))
|
||||
End If
|
||||
|
||||
If cboAngVerfahren._value.StartsWith("63") Then
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6321 - ", "21"))
|
||||
cboVorangegangenesVerfahren.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("6323 - ", "23"))
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
btn380Handelsrg.PerformClick()
|
||||
btn018ATR.PerformClick()
|
||||
btn7HHFDirektbef.PerformClick()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
181
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.Designer.vb
generated
Normal file
181
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.Designer.vb
generated
Normal file
@@ -0,0 +1,181 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrCntlATLAS_EZA_Positionen
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.dgvPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.index = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.ID = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Ware = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.Timer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.MyPanel1.SuspendLayout()
|
||||
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.MyPanel2)
|
||||
Me.pnl.Controls.Add(Me.MyPanel1)
|
||||
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(928, 501)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'MyPanel2
|
||||
'
|
||||
Me.MyPanel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.MyPanel2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyPanel2.Location = New System.Drawing.Point(214, 0)
|
||||
Me.MyPanel2.Name = "MyPanel2"
|
||||
Me.MyPanel2.Size = New System.Drawing.Size(714, 501)
|
||||
Me.MyPanel2.TabIndex = 1
|
||||
'
|
||||
'MyPanel1
|
||||
'
|
||||
Me.MyPanel1.Controls.Add(Me.Button1)
|
||||
Me.MyPanel1.Controls.Add(Me.btn)
|
||||
Me.MyPanel1.Controls.Add(Me.dgvPositionen)
|
||||
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.MyPanel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MyPanel1.Name = "MyPanel1"
|
||||
Me.MyPanel1.Size = New System.Drawing.Size(214, 501)
|
||||
Me.MyPanel1.TabIndex = 0
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.BackgroundImage = Global.SDL.My.Resources.del
|
||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(159, 478)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(28, 23)
|
||||
Me.Button1.TabIndex = 3
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.btn.BackgroundImage = Global.SDL.My.Resources.plus
|
||||
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(186, 478)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(28, 23)
|
||||
Me.btn.TabIndex = 2
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvPositionen
|
||||
'
|
||||
Me.dgvPositionen.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvPositionen.AllowUserToAddRows = False
|
||||
Me.dgvPositionen.AllowUserToDeleteRows = False
|
||||
Me.dgvPositionen.AllowUserToResizeColumns = False
|
||||
Me.dgvPositionen.AllowUserToResizeRows = False
|
||||
Me.dgvPositionen.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvPositionen.ColumnHeadersVisible = False
|
||||
Me.dgvPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.index, Me.ID, Me.Ware})
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvPositionen.DefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.dgvPositionen.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvPositionen.Location = New System.Drawing.Point(0, 0)
|
||||
Me.dgvPositionen.MultiSelect = False
|
||||
Me.dgvPositionen.Name = "dgvPositionen"
|
||||
Me.dgvPositionen.ReadOnly = True
|
||||
Me.dgvPositionen.RowHeadersVisible = False
|
||||
Me.dgvPositionen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
|
||||
Me.dgvPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvPositionen.Size = New System.Drawing.Size(214, 501)
|
||||
Me.dgvPositionen.TabIndex = 5
|
||||
'
|
||||
'index
|
||||
'
|
||||
Me.index.HeaderText = "index"
|
||||
Me.index.Name = "index"
|
||||
Me.index.ReadOnly = True
|
||||
Me.index.Visible = False
|
||||
'
|
||||
'ID
|
||||
'
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
Me.ID.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.ID.HeaderText = "ID"
|
||||
Me.ID.Name = "ID"
|
||||
Me.ID.ReadOnly = True
|
||||
Me.ID.Width = 30
|
||||
'
|
||||
'Ware
|
||||
'
|
||||
Me.Ware.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.Ware.HeaderText = "Ware"
|
||||
Me.Ware.Name = "Ware"
|
||||
Me.Ware.ReadOnly = True
|
||||
'
|
||||
'Timer
|
||||
'
|
||||
Me.Timer.Enabled = True
|
||||
Me.Timer.Interval = 1000
|
||||
'
|
||||
'usrCntlATLAS_NCTS_Positionen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Name = "usrCntlATLAS_NCTS_Positionen"
|
||||
Me.Size = New System.Drawing.Size(928, 501)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.MyPanel1.ResumeLayout(False)
|
||||
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
|
||||
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents btn As System.Windows.Forms.Button
|
||||
Friend WithEvents dgvPositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents Timer As System.Windows.Forms.Timer
|
||||
Friend WithEvents index As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents ID As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents Ware As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
|
||||
End Class
|
||||
132
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.resx
Normal file
132
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.resx
Normal file
@@ -0,0 +1,132 @@
|
||||
<?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="index.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="ID.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Ware.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
278
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb
Normal file
278
SDL/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Positionen.vb
Normal file
@@ -0,0 +1,278 @@
|
||||
Public Class usrCntlATLAS_EZA_Positionen
|
||||
|
||||
Dim NCTS As DAKOSY_Worker.cDakosyEZA = Nothing
|
||||
|
||||
Dim POS As New List(Of usrCntlATLAS_EZA_Position)
|
||||
Dim sectionChangeBLOCK = False
|
||||
Dim gesRohmasse = 0
|
||||
|
||||
Event RohmasseChanged(gesRohmasse As Double)
|
||||
Event PosAnzChanged(anzahlPos As Double)
|
||||
|
||||
|
||||
Sub New(NCTS)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.NCTS = NCTS
|
||||
End Sub
|
||||
Private Sub usrCntlATLAS_ncts_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
addItem()
|
||||
'setValues(NCTS.ncts_WARENPOS)
|
||||
End Sub
|
||||
|
||||
Public Sub setValues(ncts_POS As DAKOSY_Worker.cDakosyEZA)
|
||||
If ncts_POS Is Nothing Then Exit Sub
|
||||
POS.Clear()
|
||||
|
||||
For Each p In ncts_POS.EZA_WARENPOS
|
||||
addItem(p) 'MyPanel2.Controls.Add()
|
||||
Next
|
||||
MyPanel2.Controls.Clear()
|
||||
MyListBox1_SelectedIndexChanged(dgvPositionen, New EventArgs)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub initListBox(Optional selectedIndex = -1)
|
||||
If dgvPositionen.ColumnCount <= 0 Then Exit Sub
|
||||
If selectedIndex >= 0 Then sectionChangeBLOCK = True
|
||||
Dim cnt As Integer = 1
|
||||
dgvPositionen.Rows.Clear()
|
||||
For Each p In POS
|
||||
p.lblPosNr.Text = cnt
|
||||
dgvPositionen.Rows.Add(POS.IndexOf(p), cnt, p.txtWarenbezeichnung.Text)
|
||||
cnt += 1
|
||||
Next
|
||||
If selectedIndex >= 0 Then
|
||||
' MyListBox1.SetSelected(selectedIndex, True)
|
||||
' sectionChangeBLOCK = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dgvPositionen_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvPositionen.KeyDown
|
||||
If e.KeyCode = Keys.Delete Then
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MyListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles dgvPositionen.SelectionChanged
|
||||
Try
|
||||
|
||||
If sectionChangeBLOCK Then Exit Sub
|
||||
MyPanel2.Controls.Clear()
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
MyPanel2.Controls.Add(POS(dgvPositionen.SelectedRows(0).Cells("index").Value))
|
||||
POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
|
||||
' Try : DirectCast(MyPanel2.Controls(0), usrCntlATLAS_EZA_Position).txtWarenbezeichnung.Focus() : Catch : End Try
|
||||
' initListBox(MyListBox1.SelectedIndex())
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlATLAS_EZA_Position_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
||||
If e.Control = True Then
|
||||
If e.KeyCode = Keys.Oemplus Then addItem()
|
||||
If e.KeyCode = Keys.OemMinus Then
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
|
||||
Try
|
||||
If keyData = (Keys.Control Or Keys.Add) Then
|
||||
'RaiseEvent a() : Return True
|
||||
addItem()
|
||||
Return True
|
||||
ElseIf keyData = (Keys.Control Or Keys.Subtract) Then
|
||||
'RaiseEvent REMOVE(ID) : Return True
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
Return True
|
||||
ElseIf keyData = Keys.PageUp Then
|
||||
'RaiseEvent PREV_POS() : Return True
|
||||
PREV_POS()
|
||||
Return True
|
||||
ElseIf keyData = Keys.PageDown Then
|
||||
'RaiseEvent NEXT_POS() : Return True
|
||||
NEXT_POS()
|
||||
Return True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
addItem()
|
||||
End Sub
|
||||
|
||||
|
||||
Function addItem(Optional POSTMP As DAKOSY_Worker.cDakosy_EZA_Warenposition = Nothing) As usrCntlATLAS_EZA_Position
|
||||
Dim u = New usrCntlATLAS_EZA_Position(POS.Count, POSTMP)
|
||||
|
||||
AddHandler u.RohmasseChanged, Sub(r)
|
||||
gesRohmasse = 0
|
||||
For Each p In POS
|
||||
gesRohmasse += If(IsNumeric(p.txtRohmasse.Text), p.txtRohmasse.Text, 0)
|
||||
Next
|
||||
RaiseEvent RohmasseChanged(gesRohmasse)
|
||||
End Sub
|
||||
u.Dock = DockStyle.Fill
|
||||
' AddHandler u.ADD, AddressOf addItem
|
||||
' AddHandler u.REMOVE, AddressOf removeItem
|
||||
' AddHandler u.NEXT_POS, AddressOf NEXT_POS
|
||||
' AddHandler u.PREV_POS, AddressOf PREV_POS
|
||||
POS.Add(u)
|
||||
initListBox()
|
||||
dgvPositionen.ClearSelection()
|
||||
If dgvPositionen.RowCount > 0 Then dgvPositionen.Rows(dgvPositionen.RowCount - 1).Selected = True
|
||||
RaiseEvent PosAnzChanged(POS.Count)
|
||||
Return u
|
||||
End Function
|
||||
|
||||
Sub removeItem(index)
|
||||
If index < 0 Then Exit Sub
|
||||
'If index < 0 Then Exit Sub
|
||||
If dgvPositionen.Rows.Count > index Then
|
||||
If vbYes = MsgBox("Möchten Sie die Position wirklich löschen?", vbYesNoCancel) Then
|
||||
dgvPositionen.ClearSelection()
|
||||
POS.RemoveAt(index)
|
||||
initListBox()
|
||||
If dgvPositionen.Rows.Count > index Then
|
||||
dgvPositionen.Rows(index).Selected = True 'SetSelected(index, True)
|
||||
ElseIf dgvPositionen.Rows.Count > 0 Then
|
||||
dgvPositionen.Rows(0).Selected = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
RaiseEvent PosAnzChanged(POS.Count)
|
||||
End Sub
|
||||
|
||||
Sub NEXT_POS()
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
If dgvPositionen.RowCount > dgvPositionen.SelectedRows(0).Index + 1 Then
|
||||
Dim i = dgvPositionen.SelectedRows(0).Index
|
||||
dgvPositionen.ClearSelection()
|
||||
dgvPositionen.Rows(i + 1).Selected = True
|
||||
' POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Sub PREV_POS()
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
If dgvPositionen.SelectedRows(0).Index > 0 Then
|
||||
Dim i = dgvPositionen.SelectedRows(0).Index
|
||||
dgvPositionen.ClearSelection()
|
||||
dgvPositionen.Rows(i - 1).Selected = True
|
||||
' POS(dgvPositionen.SelectedRows(0).Cells("index").Value).txtWarenbezeichnung.Focus()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If dgvPositionen.SelectedRows.Count > 0 Then
|
||||
removeItem(dgvPositionen.SelectedRows(0).Cells("index").Value)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
|
||||
refreshDGV()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub refreshDGV()
|
||||
With dgvPositionen
|
||||
If dgvPositionen.ColumnCount = 0 Then Exit Sub
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
Dim index = r.Cells("index").Value
|
||||
'r.Cells("ID").Value = POS(index)..Text
|
||||
If POS.Count > index Then
|
||||
r.Cells("Ware").Value = POS(index).txtWarenbezeichnung.Text
|
||||
End If
|
||||
Next
|
||||
End With
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub getValues(ByRef EZA As DAKOSY_Worker.cDakosyEZA)
|
||||
' Dim POSITIONEN As List(Of DAKOSY_Worker.cDakosy_NCTSOut_Warenposition)
|
||||
EZA.eza_WARENPOS.Clear()
|
||||
|
||||
Dim cnt As Integer = 1
|
||||
For Each P In POS
|
||||
Dim POSITION As New DAKOSY_Worker.cDakosy_EZA_Warenposition
|
||||
|
||||
POSITION.ezaWP_PositionsNummer = cnt
|
||||
POSITION.ezaWP_WarennummerEZT = cProgramFunctions.isLeerNothing(P.txtWarennummer.Text)
|
||||
POSITION.ezaWP_WarennummerZusatzCode1 = cProgramFunctions.isLeerNothing(P.txtWTZ1.Text)
|
||||
POSITION.ezaWP_WarennummerZusatzCode2 = cProgramFunctions.isLeerNothing(P.txtWTZ2.Text)
|
||||
POSITION.ezaWP_Warenbezeichnung = cProgramFunctions.isLeerNothing(P.txtWarenbezeichnung.Text)
|
||||
POSITION.ezaWP_Artikelpreis = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)
|
||||
|
||||
'POSITION.ezaWP_WarenwertWaehrung = P.XXXXXXXXXXXX.Text
|
||||
'POSITION.ezaWP_SchaetzKz = P.XXXXXXXXXXXX.Text
|
||||
'POSITION.ezaWP_WarenwertProzent = P.XXXXXXXXXXXX.Text
|
||||
'POSITION.ezaWP_VersendungslandPositionCode = P.XXXXXXXXXXXX.Text
|
||||
'POSITION.ezaWP_BestimmungslandPositionCode = P.XXXXXXXXXXXX.Text
|
||||
POSITION.ezaWP_Rohmasse = cProgramFunctions.isLeerNothingDbl(P.txtRohmasse.Text)
|
||||
POSITION.ezaWP_Eigenmasse = cProgramFunctions.isLeerNothingDbl(P.txtEigenmasse.Text)
|
||||
|
||||
POSITION.ezaWP_PositionsZusatz = cProgramFunctions.isLeerNothing(P.txtPositionszusatz.Text)
|
||||
|
||||
POSITION.ezaWP_PackstueckAnzahl = cProgramFunctions.isLeerNothing(P.txtPkAnzahl.Text)
|
||||
POSITION.ezaWP_PackstueckZeichen = cProgramFunctions.isLeerNothing(P.txtPkMarke.Text)
|
||||
POSITION.ezaWP_PackstueckArt = cProgramFunctions.isLeerNothing(P.sbPkTyp._value)
|
||||
|
||||
' If P.cboVorangegangenesVerfahren._value <> "" Then
|
||||
'POSITION.ezaWP_VerfahrensCodeVorangegangenesVerfahren = P.cboVorangegangenesVerfahren._value.Substring(2, 2)
|
||||
'' Else
|
||||
' POSITION.ezaWP_VerfahrensCodeVorangegangenesVerfahren = Nothing
|
||||
' End If
|
||||
POSITION.ezaWP_AnmeldeVErfahren = cProgramFunctions.isLeerNothing(P.cboAngVerfahren._value)
|
||||
POSITION.ezaWP_VerfahrensCodeVorangegangenesVerfahren = cProgramFunctions.isLeerNothing(P.cboVorangegangenesVerfahren._value)
|
||||
|
||||
POSITION.ezaWP_BeguenstigungBenatragtCode = cProgramFunctions.isLeerNothing(P.cboBeguenstigung._value)
|
||||
POSITION.ezaWP_UrsprungslandCode = cProgramFunctions.isLeerNothing(P.sbUrsprungsland._value)
|
||||
|
||||
POSITION.ezaWP_UNTERLAGEN = New List(Of DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen)
|
||||
For Each r As DataGridViewRow In P.dgvUnterlage.Rows
|
||||
Dim Ul As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen
|
||||
Dim split = r.Cells("UlCode").Value.ToString.Split("/")
|
||||
|
||||
If split.Length > 1 Then
|
||||
Ul.ezaWpUl_Bereich = split(0)
|
||||
Ul.ezaWpUl_Art = split(1)
|
||||
|
||||
End If
|
||||
Ul.ezaWpUl_Nummer = r.Cells("UlNummer").Value
|
||||
Ul.ezaWpUl_DatumAusstellung = r.Cells("UlADat").Value
|
||||
Ul.ezaWpUl_VorlageKz = r.Cells("UlVorhanden").Value
|
||||
|
||||
'...?
|
||||
POSITION.ezaWP_UNTERLAGEN.Add(Ul)
|
||||
Next
|
||||
|
||||
EZA.eza_WARENPOS.Add(POSITION)
|
||||
cnt += 1
|
||||
Next
|
||||
' NCTS.ncts_WARENPOS
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MyPanel2_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyPanel2.ControlAdded
|
||||
Try : DirectCast(e.Control, usrCntlATLAS_EZA_Position).txtWarenbezeichnung.Focus() : Catch : End Try
|
||||
End Sub
|
||||
End Class
|
||||
118
SDL/DAKOSY/ATLAS/NCTS/frmRoutenAuswahlDetails.Designer.vb
generated
Normal file
118
SDL/DAKOSY/ATLAS/NCTS/frmRoutenAuswahlDetails.Designer.vb
generated
Normal file
@@ -0,0 +1,118 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmRoutenAuswahlDetails
|
||||
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(frmRoutenAuswahlDetails))
|
||||
Me.pnlDetail = New System.Windows.Forms.Panel()
|
||||
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
|
||||
Me.btnRouteDurchgangsZA = New System.Windows.Forms.Button()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.lblText = New System.Windows.Forms.Label()
|
||||
Me.pnlDetail.SuspendLayout()
|
||||
Me.MyFlowLayoutPanel1.SuspendLayout()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnlDetail
|
||||
'
|
||||
Me.pnlDetail.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnlDetail.Controls.Add(Me.MyFlowLayoutPanel1)
|
||||
Me.pnlDetail.Controls.Add(Me.pnl)
|
||||
Me.pnlDetail.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnlDetail.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlDetail.Name = "pnlDetail"
|
||||
Me.pnlDetail.Size = New System.Drawing.Size(336, 122)
|
||||
Me.pnlDetail.TabIndex = 3
|
||||
'
|
||||
'MyFlowLayoutPanel1
|
||||
'
|
||||
Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.MyFlowLayoutPanel1.Controls.Add(Me.btnRouteDurchgangsZA)
|
||||
Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 34)
|
||||
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
|
||||
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(334, 86)
|
||||
Me.MyFlowLayoutPanel1.TabIndex = 0
|
||||
'
|
||||
'btnRouteDurchgangsZA
|
||||
'
|
||||
Me.btnRouteDurchgangsZA.BackColor = System.Drawing.Color.White
|
||||
Me.btnRouteDurchgangsZA.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btnRouteDurchgangsZA.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnRouteDurchgangsZA.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||
Me.btnRouteDurchgangsZA.Location = New System.Drawing.Point(3, 3)
|
||||
Me.btnRouteDurchgangsZA.Name = "btnRouteDurchgangsZA"
|
||||
Me.btnRouteDurchgangsZA.Size = New System.Drawing.Size(328, 72)
|
||||
Me.btnRouteDurchgangsZA.TabIndex = 1
|
||||
Me.btnRouteDurchgangsZA.Text = "TR220200"
|
||||
Me.btnRouteDurchgangsZA.UseVisualStyleBackColor = False
|
||||
'
|
||||
'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.lblText)
|
||||
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(334, 34)
|
||||
Me.pnl.TabIndex = 5
|
||||
'
|
||||
'lblText
|
||||
'
|
||||
Me.lblText.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblText.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||
Me.lblText.ForeColor = System.Drawing.Color.White
|
||||
Me.lblText.Location = New System.Drawing.Point(-1, 0)
|
||||
Me.lblText.Name = "lblText"
|
||||
Me.lblText.Size = New System.Drawing.Size(336, 34)
|
||||
Me.lblText.TabIndex = 0
|
||||
Me.lblText.Text = "Bitte geben Sie das Durchgangszollamt für die Türkei an:"
|
||||
Me.lblText.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'frmRoutenAuswahlDetails
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoSize = True
|
||||
Me.ClientSize = New System.Drawing.Size(336, 122)
|
||||
Me.Controls.Add(Me.pnlDetail)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmRoutenAuswahlDetails"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||
Me.Text = "Routen-Auswahl Details"
|
||||
Me.pnlDetail.ResumeLayout(False)
|
||||
Me.MyFlowLayoutPanel1.ResumeLayout(False)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnlDetail As System.Windows.Forms.Panel
|
||||
Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
|
||||
Friend WithEvents btnRouteDurchgangsZA As System.Windows.Forms.Button
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents lblText As System.Windows.Forms.Label
|
||||
End Class
|
||||
980
SDL/DAKOSY/ATLAS/NCTS/frmRoutenAuswahlDetails.resx
Normal file
980
SDL/DAKOSY/ATLAS/NCTS/frmRoutenAuswahlDetails.resx
Normal 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>
|
||||
40
SDL/DAKOSY/ATLAS/NCTS/frmRoutenAuswahlDetails.vb
Normal file
40
SDL/DAKOSY/ATLAS/NCTS/frmRoutenAuswahlDetails.vb
Normal file
@@ -0,0 +1,40 @@
|
||||
Public Class frmRoutenAuswahlDetails
|
||||
|
||||
|
||||
Dim ZOLLAEMTER As List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
Public ZA As String = ""
|
||||
|
||||
Sub New(lbl As String, ZOLLAEMTER As List(Of VERAG_PROG_ALLGEMEIN.MyListItem))
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.ZOLLAEMTER = ZOLLAEMTER
|
||||
Me.lblText.Text = lbl
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub frmRoutenAuswahlDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Me.Height = 45
|
||||
Dim buttonheight = 0
|
||||
MyFlowLayoutPanel1.Controls.Clear()
|
||||
For Each z In ZOLLAEMTER
|
||||
Dim b As New Button
|
||||
b.FlatStyle = FlatStyle.Flat
|
||||
b.Size = New Size(328, 72)
|
||||
b.BackColor = Color.White
|
||||
b.ForeColor = Color.Black
|
||||
b.Text = z.Text & vbNewLine & z.Value
|
||||
b.Tag = z.Value
|
||||
b.DialogResult = Windows.Forms.DialogResult.OK
|
||||
buttonheight += b.Height + 2
|
||||
AddHandler b.Click, Sub()
|
||||
Me.ZA = b.Tag
|
||||
Me.Close()
|
||||
End Sub
|
||||
MyFlowLayoutPanel1.Controls.Add(b)
|
||||
Next
|
||||
Me.Height += buttonheight
|
||||
End Sub
|
||||
End Class
|
||||
259
SDL/DAKOSY/ATLAS/NCTS/frmRoutenauswahl.Designer.vb
generated
Normal file
259
SDL/DAKOSY/ATLAS/NCTS/frmRoutenauswahl.Designer.vb
generated
Normal file
@@ -0,0 +1,259 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmRoutenauswahl
|
||||
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(frmRoutenauswahl))
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.lblBitteWahlenSieEineRoute = New System.Windows.Forms.Label()
|
||||
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.btnRoute1 = New System.Windows.Forms.Button()
|
||||
Me.btnRoute5 = New System.Windows.Forms.Button()
|
||||
Me.btnRoute2 = New System.Windows.Forms.Button()
|
||||
Me.btnRoute3 = New System.Windows.Forms.Button()
|
||||
Me.btnRoute4 = New System.Windows.Forms.Button()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.pic = New System.Windows.Forms.PictureBox()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.btnTR = New System.Windows.Forms.Button()
|
||||
Me.btnIR = New System.Windows.Forms.Button()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.FlowLayoutPanel.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.White
|
||||
Me.pnl.Controls.Add(Me.FlowLayoutPanel)
|
||||
Me.pnl.Controls.Add(Me.Panel3)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(312, 546)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'lblBitteWahlenSieEineRoute
|
||||
'
|
||||
Me.lblBitteWahlenSieEineRoute.AutoSize = True
|
||||
Me.lblBitteWahlenSieEineRoute.Location = New System.Drawing.Point(3, 15)
|
||||
Me.lblBitteWahlenSieEineRoute.Name = "lblBitteWahlenSieEineRoute"
|
||||
Me.lblBitteWahlenSieEineRoute.Size = New System.Drawing.Size(141, 13)
|
||||
Me.lblBitteWahlenSieEineRoute.TabIndex = 1
|
||||
Me.lblBitteWahlenSieEineRoute.Text = "Bitte wählen Sie eine Route:"
|
||||
'
|
||||
'FlowLayoutPanel
|
||||
'
|
||||
Me.FlowLayoutPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnRoute1)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnRoute5)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnRoute2)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnRoute3)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btnRoute4)
|
||||
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 43)
|
||||
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
|
||||
Me.FlowLayoutPanel.Size = New System.Drawing.Size(312, 503)
|
||||
Me.FlowLayoutPanel.TabIndex = 0
|
||||
'
|
||||
'btnRoute1
|
||||
'
|
||||
Me.btnRoute1.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btnRoute1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnRoute1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||
Me.btnRoute1.Location = New System.Drawing.Point(3, 3)
|
||||
Me.btnRoute1.Name = "btnRoute1"
|
||||
Me.btnRoute1.Size = New System.Drawing.Size(297, 72)
|
||||
Me.btnRoute1.TabIndex = 0
|
||||
Me.btnRoute1.Text = "Deutschland -> Österreich -> Slowenien " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Kroatien -> Serbien -> Bulgarien" & _
|
||||
" -> Türkei"
|
||||
Me.btnRoute1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnRoute5
|
||||
'
|
||||
Me.btnRoute5.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btnRoute5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnRoute5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||
Me.btnRoute5.Location = New System.Drawing.Point(3, 81)
|
||||
Me.btnRoute5.Name = "btnRoute5"
|
||||
Me.btnRoute5.Size = New System.Drawing.Size(297, 72)
|
||||
Me.btnRoute5.TabIndex = 4
|
||||
Me.btnRoute5.Text = "Deutschland -> Österreich -> Ungarn" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Rumänien -> Bulgarien -> Türkei"
|
||||
Me.btnRoute5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnRoute2
|
||||
'
|
||||
Me.btnRoute2.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btnRoute2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnRoute2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||
Me.btnRoute2.Location = New System.Drawing.Point(3, 159)
|
||||
Me.btnRoute2.Name = "btnRoute2"
|
||||
Me.btnRoute2.Size = New System.Drawing.Size(297, 72)
|
||||
Me.btnRoute2.TabIndex = 1
|
||||
Me.btnRoute2.Text = "Deutschland -> Österreich -> Ungarn" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Serbien -> Bulgarien -> Türkei"
|
||||
Me.btnRoute2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnRoute3
|
||||
'
|
||||
Me.btnRoute3.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btnRoute3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnRoute3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||
Me.btnRoute3.Location = New System.Drawing.Point(3, 237)
|
||||
Me.btnRoute3.Name = "btnRoute3"
|
||||
Me.btnRoute3.Size = New System.Drawing.Size(297, 72)
|
||||
Me.btnRoute3.TabIndex = 2
|
||||
Me.btnRoute3.Text = "Deutschland -> Österreich -> " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Italien -> Türkei"
|
||||
Me.btnRoute3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnRoute4
|
||||
'
|
||||
Me.btnRoute4.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btnRoute4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnRoute4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||
Me.btnRoute4.Location = New System.Drawing.Point(3, 315)
|
||||
Me.btnRoute4.Name = "btnRoute4"
|
||||
Me.btnRoute4.Size = New System.Drawing.Size(297, 72)
|
||||
Me.btnRoute4.TabIndex = 3
|
||||
Me.btnRoute4.Text = "Deutschland -> Österreich -> " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Italien -> Türkei"
|
||||
Me.btnRoute4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel1.Controls.Add(Me.pic)
|
||||
Me.Panel1.Controls.Add(Me.Panel2)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel1.Location = New System.Drawing.Point(312, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(754, 546)
|
||||
Me.Panel1.TabIndex = 2
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.White
|
||||
Me.Panel2.Controls.Add(Me.Label1)
|
||||
Me.Panel2.Controls.Add(Me.btnIR)
|
||||
Me.Panel2.Controls.Add(Me.btnTR)
|
||||
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(752, 42)
|
||||
Me.Panel2.TabIndex = 3
|
||||
'
|
||||
'pic
|
||||
'
|
||||
Me.pic.BackgroundImage = Global.SDL.My.Resources.Route1
|
||||
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.pic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pic.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pic.Location = New System.Drawing.Point(0, 42)
|
||||
Me.pic.Name = "pic"
|
||||
Me.pic.Size = New System.Drawing.Size(752, 502)
|
||||
Me.pic.TabIndex = 4
|
||||
Me.pic.TabStop = False
|
||||
'
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.Controls.Add(Me.lblBitteWahlenSieEineRoute)
|
||||
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel3.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel3.Name = "Panel3"
|
||||
Me.Panel3.Size = New System.Drawing.Size(312, 43)
|
||||
Me.Panel3.TabIndex = 4
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(5, 14)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(92, 13)
|
||||
Me.Label1.TabIndex = 2
|
||||
Me.Label1.Text = "Bestimmungsland:"
|
||||
'
|
||||
'btnTR
|
||||
'
|
||||
Me.btnTR.BackColor = System.Drawing.Color.DarkOrange
|
||||
Me.btnTR.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btnTR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnTR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||
Me.btnTR.Location = New System.Drawing.Point(103, 3)
|
||||
Me.btnTR.Name = "btnTR"
|
||||
Me.btnTR.Size = New System.Drawing.Size(106, 33)
|
||||
Me.btnTR.TabIndex = 5
|
||||
Me.btnTR.Text = "Türkei"
|
||||
Me.btnTR.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnIR
|
||||
'
|
||||
Me.btnIR.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btnIR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnIR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||
Me.btnIR.Location = New System.Drawing.Point(215, 3)
|
||||
Me.btnIR.Name = "btnIR"
|
||||
Me.btnIR.Size = New System.Drawing.Size(106, 33)
|
||||
Me.btnIR.TabIndex = 5
|
||||
Me.btnIR.Text = "Iran"
|
||||
Me.btnIR.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmRoutenauswahl
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1066, 546)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmRoutenauswahl"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Routenauswahl"
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.FlowLayoutPanel.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel3.ResumeLayout(False)
|
||||
Me.Panel3.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents FlowLayoutPanel As System.Windows.Forms.FlowLayoutPanel
|
||||
Friend WithEvents btnRoute1 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnRoute2 As System.Windows.Forms.Button
|
||||
Friend WithEvents lblBitteWahlenSieEineRoute As System.Windows.Forms.Label
|
||||
Friend WithEvents btnRoute3 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnRoute4 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnRoute5 As System.Windows.Forms.Button
|
||||
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents pic As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnIR As System.Windows.Forms.Button
|
||||
Friend WithEvents btnTR As System.Windows.Forms.Button
|
||||
End Class
|
||||
980
SDL/DAKOSY/ATLAS/NCTS/frmRoutenauswahl.resx
Normal file
980
SDL/DAKOSY/ATLAS/NCTS/frmRoutenauswahl.resx
Normal 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>
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user