CBAM
This commit is contained in:
282
SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb
generated
Normal file
282
SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb
generated
Normal file
@@ -0,0 +1,282 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmVorauskasse_CBAM
|
||||
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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVorauskasse_CBAM))
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.txtCalc_Defaut_CertPrice = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.clmnTarif = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnWeight = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnCountry = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnYear = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnKosten = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.cmlnEmission = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'lbl
|
||||
'
|
||||
Me.lbl.AutoSize = True
|
||||
Me.lbl.Location = New System.Drawing.Point(135, 412)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(126, 13)
|
||||
Me.lbl.TabIndex = 1
|
||||
Me.lbl.Text = "Kosten CBAM Zertifikate:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
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(329, 412)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(113, 13)
|
||||
Me.Label1.TabIndex = 2
|
||||
Me.Label1.Text = "0,00"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'btn
|
||||
'
|
||||
Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btn.Location = New System.Drawing.Point(138, 451)
|
||||
Me.btn.Name = "btn"
|
||||
Me.btn.Size = New System.Drawing.Size(304, 39)
|
||||
Me.btn.TabIndex = 3
|
||||
Me.btn.Text = "Eintragen"
|
||||
Me.btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button7
|
||||
'
|
||||
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button7.Location = New System.Drawing.Point(138, 375)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(304, 34)
|
||||
Me.Button7.TabIndex = 53
|
||||
Me.Button7.Text = "Berechnen"
|
||||
Me.Button7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtCalc_Defaut_CertPrice
|
||||
'
|
||||
Me.txtCalc_Defaut_CertPrice._DateTimeOnly = False
|
||||
Me.txtCalc_Defaut_CertPrice._numbersOnly = True
|
||||
Me.txtCalc_Defaut_CertPrice._numbersOnlyKommastellen = ""
|
||||
Me.txtCalc_Defaut_CertPrice._numbersOnlyTrennzeichen = True
|
||||
Me.txtCalc_Defaut_CertPrice._Prozent = False
|
||||
Me.txtCalc_Defaut_CertPrice._ShortDateNew = False
|
||||
Me.txtCalc_Defaut_CertPrice._ShortDateOnly = False
|
||||
Me.txtCalc_Defaut_CertPrice._TimeOnly = False
|
||||
Me.txtCalc_Defaut_CertPrice._TimeOnly_Seconds = False
|
||||
Me.txtCalc_Defaut_CertPrice._value = ""
|
||||
Me.txtCalc_Defaut_CertPrice._Waehrung = True
|
||||
Me.txtCalc_Defaut_CertPrice._WaehrungZeichen = True
|
||||
Me.txtCalc_Defaut_CertPrice.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtCalc_Defaut_CertPrice.Location = New System.Drawing.Point(12, 389)
|
||||
Me.txtCalc_Defaut_CertPrice.MaxLength = 10
|
||||
Me.txtCalc_Defaut_CertPrice.MaxLineLength = -1
|
||||
Me.txtCalc_Defaut_CertPrice.MaxLines_Warning = ""
|
||||
Me.txtCalc_Defaut_CertPrice.MaxLines_Warning_Label = Nothing
|
||||
Me.txtCalc_Defaut_CertPrice.Name = "txtCalc_Defaut_CertPrice"
|
||||
Me.txtCalc_Defaut_CertPrice.Size = New System.Drawing.Size(117, 20)
|
||||
Me.txtCalc_Defaut_CertPrice.TabIndex = 58
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Location = New System.Drawing.Point(9, 375)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(74, 13)
|
||||
Me.Label16.TabIndex = 59
|
||||
Me.Label16.Text = "ZertifikatPreis:"
|
||||
'
|
||||
'MyDatagridview1
|
||||
'
|
||||
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnTarif, Me.clmnWeight, Me.clmnCountry, Me.clmnYear, Me.clmnKosten, Me.cmlnEmission})
|
||||
Me.MyDatagridview1.Location = New System.Drawing.Point(12, 12)
|
||||
Me.MyDatagridview1.Name = "MyDatagridview1"
|
||||
Me.MyDatagridview1.Size = New System.Drawing.Size(430, 359)
|
||||
Me.MyDatagridview1.TabIndex = 70
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
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(329, 428)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(113, 13)
|
||||
Me.Label2.TabIndex = 72
|
||||
Me.Label2.Text = "0,00"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(135, 428)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(57, 13)
|
||||
Me.Label3.TabIndex = 71
|
||||
Me.Label3.Text = "Aufschlag:"
|
||||
'
|
||||
'MyTextBox1
|
||||
'
|
||||
Me.MyTextBox1._DateTimeOnly = False
|
||||
Me.MyTextBox1._numbersOnly = False
|
||||
Me.MyTextBox1._numbersOnlyKommastellen = ""
|
||||
Me.MyTextBox1._numbersOnlyTrennzeichen = False
|
||||
Me.MyTextBox1._Prozent = True
|
||||
Me.MyTextBox1._ShortDateNew = False
|
||||
Me.MyTextBox1._ShortDateOnly = False
|
||||
Me.MyTextBox1._TimeOnly = False
|
||||
Me.MyTextBox1._TimeOnly_Seconds = False
|
||||
Me.MyTextBox1._value = "0,1"
|
||||
Me.MyTextBox1._Waehrung = False
|
||||
Me.MyTextBox1._WaehrungZeichen = True
|
||||
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
|
||||
Me.MyTextBox1.Location = New System.Drawing.Point(270, 425)
|
||||
Me.MyTextBox1.MaxLength = 4
|
||||
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(70, 20)
|
||||
Me.MyTextBox1.TabIndex = 66
|
||||
Me.MyTextBox1.Text = "10,00 %"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.Button1.Location = New System.Drawing.Point(12, 451)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(54, 39)
|
||||
Me.Button1.TabIndex = 73
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'clmnTarif
|
||||
'
|
||||
Me.clmnTarif.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
DataGridViewCellStyle1.Format = "C2"
|
||||
DataGridViewCellStyle1.NullValue = Nothing
|
||||
Me.clmnTarif.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.clmnTarif.HeaderText = "Tarif (8St.)"
|
||||
Me.clmnTarif.MaxInputLength = 8
|
||||
Me.clmnTarif.Name = "clmnTarif"
|
||||
'
|
||||
'clmnWeight
|
||||
'
|
||||
DataGridViewCellStyle2.Format = "C2"
|
||||
DataGridViewCellStyle2.NullValue = Nothing
|
||||
Me.clmnWeight.DefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.clmnWeight.HeaderText = "Gewicht (to)"
|
||||
Me.clmnWeight.MaxInputLength = 8
|
||||
Me.clmnWeight.Name = "clmnWeight"
|
||||
Me.clmnWeight.Width = 90
|
||||
'
|
||||
'clmnCountry
|
||||
'
|
||||
DataGridViewCellStyle3.Format = "C2"
|
||||
DataGridViewCellStyle3.NullValue = Nothing
|
||||
Me.clmnCountry.DefaultCellStyle = DataGridViewCellStyle3
|
||||
Me.clmnCountry.HeaderText = "Land"
|
||||
Me.clmnCountry.MaxInputLength = 2
|
||||
Me.clmnCountry.Name = "clmnCountry"
|
||||
Me.clmnCountry.ReadOnly = True
|
||||
Me.clmnCountry.Width = 50
|
||||
'
|
||||
'clmnYear
|
||||
'
|
||||
Me.clmnYear.HeaderText = "Jahr"
|
||||
Me.clmnYear.MaxInputLength = 4
|
||||
Me.clmnYear.Name = "clmnYear"
|
||||
Me.clmnYear.Width = 50
|
||||
'
|
||||
'clmnKosten
|
||||
'
|
||||
Me.clmnKosten.HeaderText = "Kosten"
|
||||
Me.clmnKosten.Name = "clmnKosten"
|
||||
Me.clmnKosten.ReadOnly = True
|
||||
Me.clmnKosten.Width = 80
|
||||
'
|
||||
'cmlnEmission
|
||||
'
|
||||
Me.cmlnEmission.HeaderText = "Emission"
|
||||
Me.cmlnEmission.Name = "cmlnEmission"
|
||||
Me.cmlnEmission.Visible = False
|
||||
'
|
||||
'frmVorauskasse_CBAM
|
||||
'
|
||||
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(459, 507)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.MyTextBox1)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.txtCalc_Defaut_CertPrice)
|
||||
Me.Controls.Add(Me.Label16)
|
||||
Me.Controls.Add(Me.MyDatagridview1)
|
||||
Me.Controls.Add(Me.Button7)
|
||||
Me.Controls.Add(Me.btn)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.lbl)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmVorauskasse_CBAM"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "CBAM Kosten"
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents lbl As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents btn As Button
|
||||
Friend WithEvents Button7 As Button
|
||||
Friend WithEvents txtCalc_Defaut_CertPrice As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label16 As Label
|
||||
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents clmnTarif As DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnWeight As DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnCountry As DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnYear As DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnKosten As DataGridViewTextBoxColumn
|
||||
Friend WithEvents cmlnEmission As DataGridViewTextBoxColumn
|
||||
End Class
|
||||
@@ -0,0 +1,998 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="clmnTarif.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnWeight.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnCountry.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnYear.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnKosten.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="cmlnEmission.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
|
||||
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
|
||||
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
|
||||
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
|
||||
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
|
||||
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
|
||||
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
|
||||
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
|
||||
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
|
||||
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
|
||||
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
|
||||
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
|
||||
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
|
||||
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
|
||||
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
|
||||
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
|
||||
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
|
||||
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
|
||||
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
|
||||
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
|
||||
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
|
||||
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
|
||||
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
|
||||
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
|
||||
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
|
||||
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
|
||||
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
|
||||
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
|
||||
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
|
||||
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
|
||||
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
|
||||
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
|
||||
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
|
||||
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
|
||||
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
|
||||
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
|
||||
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
|
||||
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
|
||||
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
|
||||
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
|
||||
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
|
||||
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
|
||||
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
|
||||
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
|
||||
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
|
||||
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
|
||||
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
|
||||
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
|
||||
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
|
||||
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
|
||||
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
|
||||
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
|
||||
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
|
||||
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
|
||||
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
|
||||
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
|
||||
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
|
||||
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
|
||||
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
|
||||
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
|
||||
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
|
||||
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
|
||||
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
|
||||
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
|
||||
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
|
||||
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
|
||||
XUL/////////////////////////////////////////////////////////////////////////////
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
|
||||
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
|
||||
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
|
||||
///////////////////////////////////////////////////////////////////////////d1tFm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
|
||||
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
|
||||
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
|
||||
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
|
||||
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
|
||||
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
|
||||
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
|
||||
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
|
||||
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
|
||||
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
|
||||
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
|
||||
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
|
||||
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////////Uy8XB
|
||||
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
|
||||
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
|
||||
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
|
||||
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
|
||||
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
|
||||
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
|
||||
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
|
||||
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
|
||||
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
|
||||
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
|
||||
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
|
||||
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
|
||||
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
|
||||
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
|
||||
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
|
||||
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
|
||||
v7j/////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////////////////////+Mblhm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
|
||||
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
|
||||
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
|
||||
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
|
||||
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
|
||||
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
|
||||
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
|
||||
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
|
||||
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDm4N3/////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////39fRmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
|
||||
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
|
||||
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
|
||||
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
|
||||
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
|
||||
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
|
||||
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
|
||||
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
|
||||
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////////////L
|
||||
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
|
||||
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
|
||||
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
|
||||
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
|
||||
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
|
||||
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
|
||||
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
|
||||
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
|
||||
//////////////////////////////////////////////////////////////////////////////+A
|
||||
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,70 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmVorauskasse_CBAM
|
||||
Public GesamtBetrag As Double = 0
|
||||
Public Aufschlag As Double = 0
|
||||
|
||||
Public autocalc = False
|
||||
|
||||
|
||||
Private Sub frmVorauskasse_ZollBerechnen_Load(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
With MyDatagridview1
|
||||
.Columns(0).DefaultCellStyle.Format = ""
|
||||
.Columns(1).DefaultCellStyle.Format = "N2"
|
||||
.Columns(4).DefaultCellStyle.Format = "N2"
|
||||
End With
|
||||
txtCalc_Defaut_CertPrice._value = 95
|
||||
MyDatagridview1.Columns("clmnCountry").ReadOnly = False
|
||||
If autocalc Then
|
||||
Button7.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
'If e.ColumnIndex = 2 Then Exit Sub
|
||||
GesamtBetrag = 0
|
||||
For Each r As DataGridViewRow In MyDatagridview1.Rows
|
||||
If Not r.IsNewRow Then
|
||||
Dim cost As Double = 0
|
||||
Dim emission As Double = 0
|
||||
cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM_ByCertificatePrice(r.Cells("clmnTarif").Value, r.Cells("clmnWeight").Value, r.Cells("clmnCountry").Value, txtCalc_Defaut_CertPrice._value, r.Cells("clmnYear").Value, cost, emission)
|
||||
|
||||
If cost > 0 Then
|
||||
r.Cells("clmnKosten").Value = cost
|
||||
r.Cells("cmlnEmission").Value = emission
|
||||
GesamtBetrag += cost
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
Label1.Text = GesamtBetrag.ToString("C2")
|
||||
Aufschlag = (GesamtBetrag * CDbl(MyTextBox1._value))
|
||||
If IsNumeric(MyTextBox1._value) Then Label2.Text = (GesamtBetrag * CDbl(MyTextBox1._value)).ToString("C2")
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim dt As New DataTable()
|
||||
With dt.Columns
|
||||
.Add("Tariff", GetType(String))
|
||||
.Add("Weight", GetType(Decimal))
|
||||
.Add("Country", GetType(String))
|
||||
.Add("Year", GetType(Integer))
|
||||
.Add("Costs", GetType(Decimal))
|
||||
.Add("Emission", GetType(Decimal))
|
||||
End With
|
||||
|
||||
For Each r As DataGridViewRow In MyDatagridview1.Rows
|
||||
If r.IsNewRow Then Continue For
|
||||
|
||||
dt.Rows.Add(
|
||||
r.Cells("clmnTarif").Value,
|
||||
If(r.Cells("clmnWeight").Value, 0D),
|
||||
r.Cells("clmnCountry").Value,
|
||||
If(r.Cells("clmnYear").Value, Nothing),
|
||||
If(r.Cells("clmnKosten").Value, Nothing),
|
||||
If(r.Cells("cmlnEmission").Value, Nothing)
|
||||
)
|
||||
Next
|
||||
cProgramFunctions.genExcelFromDT_NEW(dt, {"E:E"},, "CBAM Kosten",,,,,,, True)
|
||||
End Sub
|
||||
End Class
|
||||
@@ -105,6 +105,9 @@ Partial Class usrcntlVorauskasse
|
||||
Me.cbxBeimErstellenSpeichern = New System.Windows.Forms.CheckBox()
|
||||
Me.txtVKVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Panel5 = New System.Windows.Forms.Panel()
|
||||
Me.Label47 = New System.Windows.Forms.Label()
|
||||
Me.txtPos = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.btnOffertladen = New System.Windows.Forms.Button()
|
||||
Me.lblWaehrung = New System.Windows.Forms.Label()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.txtSonstigeKostenText = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
@@ -155,9 +158,7 @@ Partial Class usrcntlVorauskasse
|
||||
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.btnOffertladen = New System.Windows.Forms.Button()
|
||||
Me.txtPos = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label47 = New System.Windows.Forms.Label()
|
||||
Me.Button6 = New System.Windows.Forms.Button()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlBottom.SuspendLayout()
|
||||
Me.Panel4.SuspendLayout()
|
||||
@@ -1198,6 +1199,7 @@ Partial Class usrcntlVorauskasse
|
||||
'
|
||||
'Panel5
|
||||
'
|
||||
Me.Panel5.Controls.Add(Me.Button6)
|
||||
Me.Panel5.Controls.Add(Me.Label47)
|
||||
Me.Panel5.Controls.Add(Me.txtPos)
|
||||
Me.Panel5.Controls.Add(Me.btnOffertladen)
|
||||
@@ -1244,6 +1246,49 @@ Partial Class usrcntlVorauskasse
|
||||
Me.Panel5.Size = New System.Drawing.Size(436, 354)
|
||||
Me.Panel5.TabIndex = 34
|
||||
'
|
||||
'Label47
|
||||
'
|
||||
Me.Label47.AutoSize = True
|
||||
Me.Label47.Location = New System.Drawing.Point(269, 103)
|
||||
Me.Label47.Name = "Label47"
|
||||
Me.Label47.Size = New System.Drawing.Size(25, 13)
|
||||
Me.Label47.TabIndex = 39
|
||||
Me.Label47.Text = "Pos"
|
||||
'
|
||||
'txtPos
|
||||
'
|
||||
Me.txtPos._DateTimeOnly = False
|
||||
Me.txtPos._numbersOnly = False
|
||||
Me.txtPos._numbersOnlyKommastellen = ""
|
||||
Me.txtPos._numbersOnlyTrennzeichen = True
|
||||
Me.txtPos._Prozent = False
|
||||
Me.txtPos._ShortDateNew = False
|
||||
Me.txtPos._ShortDateOnly = False
|
||||
Me.txtPos._TimeOnly = False
|
||||
Me.txtPos._TimeOnly_Seconds = False
|
||||
Me.txtPos._value = Nothing
|
||||
Me.txtPos._Waehrung = False
|
||||
Me.txtPos._WaehrungZeichen = True
|
||||
Me.txtPos.Location = New System.Drawing.Point(300, 100)
|
||||
Me.txtPos.MaxLength = 200
|
||||
Me.txtPos.MaxLineLength = -1
|
||||
Me.txtPos.MaxLines_Warning = ""
|
||||
Me.txtPos.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPos.Name = "txtPos"
|
||||
Me.txtPos.Size = New System.Drawing.Size(26, 20)
|
||||
Me.txtPos.TabIndex = 38
|
||||
'
|
||||
'btnOffertladen
|
||||
'
|
||||
Me.btnOffertladen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnOffertladen.Location = New System.Drawing.Point(332, 81)
|
||||
Me.btnOffertladen.Name = "btnOffertladen"
|
||||
Me.btnOffertladen.Size = New System.Drawing.Size(73, 21)
|
||||
Me.btnOffertladen.TabIndex = 37
|
||||
Me.btnOffertladen.Text = "Offert laden"
|
||||
Me.btnOffertladen.UseVisualStyleBackColor = True
|
||||
Me.btnOffertladen.Visible = False
|
||||
'
|
||||
'lblWaehrung
|
||||
'
|
||||
Me.lblWaehrung.AutoSize = True
|
||||
@@ -1258,7 +1303,7 @@ Partial Class usrcntlVorauskasse
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Location = New System.Drawing.Point(271, 56)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(100, 23)
|
||||
Me.Button5.Size = New System.Drawing.Size(134, 23)
|
||||
Me.Button5.TabIndex = 35
|
||||
Me.Button5.Text = "EUST berechnen"
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
@@ -2302,48 +2347,15 @@ Partial Class usrcntlVorauskasse
|
||||
Me.cboSprache.Size = New System.Drawing.Size(89, 21)
|
||||
Me.cboSprache.TabIndex = 51
|
||||
'
|
||||
'btnOffertladen
|
||||
'Button6
|
||||
'
|
||||
Me.btnOffertladen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnOffertladen.Location = New System.Drawing.Point(332, 81)
|
||||
Me.btnOffertladen.Name = "btnOffertladen"
|
||||
Me.btnOffertladen.Size = New System.Drawing.Size(73, 21)
|
||||
Me.btnOffertladen.TabIndex = 37
|
||||
Me.btnOffertladen.Text = "Offert laden"
|
||||
Me.btnOffertladen.UseVisualStyleBackColor = True
|
||||
Me.btnOffertladen.Visible = False
|
||||
'
|
||||
'txtPos
|
||||
'
|
||||
Me.txtPos._DateTimeOnly = False
|
||||
Me.txtPos._numbersOnly = False
|
||||
Me.txtPos._numbersOnlyKommastellen = ""
|
||||
Me.txtPos._numbersOnlyTrennzeichen = True
|
||||
Me.txtPos._Prozent = False
|
||||
Me.txtPos._ShortDateNew = False
|
||||
Me.txtPos._ShortDateOnly = False
|
||||
Me.txtPos._TimeOnly = False
|
||||
Me.txtPos._TimeOnly_Seconds = False
|
||||
Me.txtPos._value = Nothing
|
||||
Me.txtPos._Waehrung = False
|
||||
Me.txtPos._WaehrungZeichen = True
|
||||
Me.txtPos.Location = New System.Drawing.Point(300, 100)
|
||||
Me.txtPos.MaxLength = 200
|
||||
Me.txtPos.MaxLineLength = -1
|
||||
Me.txtPos.MaxLines_Warning = ""
|
||||
Me.txtPos.MaxLines_Warning_Label = Nothing
|
||||
Me.txtPos.Name = "txtPos"
|
||||
Me.txtPos.Size = New System.Drawing.Size(26, 20)
|
||||
Me.txtPos.TabIndex = 38
|
||||
'
|
||||
'Label47
|
||||
'
|
||||
Me.Label47.AutoSize = True
|
||||
Me.Label47.Location = New System.Drawing.Point(269, 103)
|
||||
Me.Label47.Name = "Label47"
|
||||
Me.Label47.Size = New System.Drawing.Size(25, 13)
|
||||
Me.Label47.TabIndex = 39
|
||||
Me.Label47.Text = "Pos"
|
||||
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button6.Location = New System.Drawing.Point(271, 19)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(134, 23)
|
||||
Me.Button6.TabIndex = 40
|
||||
Me.Button6.Text = "CBAM berechnen"
|
||||
Me.Button6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrcntlVorauskasse
|
||||
'
|
||||
@@ -2553,4 +2565,5 @@ Partial Class usrcntlVorauskasse
|
||||
Friend WithEvents btnOffertladen As Button
|
||||
Friend WithEvents Label47 As Label
|
||||
Public WithEvents txtPos As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Button6 As Button
|
||||
End Class
|
||||
|
||||
@@ -287,16 +287,14 @@ Public Class usrcntlVorauskasse
|
||||
FormularManagerNEU.genPDF(Me, True)
|
||||
End Sub
|
||||
|
||||
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtHerrFrau.TextChanged
|
||||
|
||||
End Sub
|
||||
Sub initSteuersatz()
|
||||
Dim bool_steuerberechnung = True
|
||||
If cboFirma._value <> "" Then
|
||||
Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(cboFirma._value)
|
||||
' MsgBox(FIRMA_TMP.Firma_LandKz)
|
||||
Select Case FIRMA_TMP.Firma_LandKz
|
||||
Case "A", "AT"
|
||||
Select Case If(txtUid.Text > 2, txtUid.Text, If(FIRMA_TMP.Firma_LandKz = "A", "AT", FIRMA_TMP.Firma_LandKz))
|
||||
Case "AT"
|
||||
If txtAdresse2.Text.StartsWith("TR") Or txtAdresse2.Text.StartsWith("SRB") Or txtAdresse2.Text.StartsWith("GB") Then
|
||||
txtMwstProzent._value = 0
|
||||
ElseIf txtUid.Text.Trim = "" OrElse txtUid.Text.ToUpper.StartsWith("AT") Then
|
||||
@@ -422,6 +420,12 @@ Public Class usrcntlVorauskasse
|
||||
Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
|
||||
cboSprache.Visible = False
|
||||
Label17.Visible = False
|
||||
Select Case cboFirma._value
|
||||
Case "1"
|
||||
Button6.Visible = True
|
||||
Case Else
|
||||
Button6.Visible = False
|
||||
End Select
|
||||
|
||||
If txtEustProzent._value <> "0" Then ' Wenn =, soll das bleiben
|
||||
'Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(cboFiliale._value)
|
||||
@@ -869,5 +873,20 @@ Public Class usrcntlVorauskasse
|
||||
|
||||
initBerechnung()
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
Dim f As New frmVorauskasse_CBAM
|
||||
If f.ShowDialog(Me) = DialogResult.OK Then
|
||||
If f.GesamtBetrag > 0 Then
|
||||
|
||||
' txtEustSonstText.Text = "ZOLL"
|
||||
txtAndereAbgabenText.Text = "Est. CBAM Cost"
|
||||
txtSonstigeKostenText.Text = "Surcharge"
|
||||
|
||||
txtAndereAbgabenBetrag._value = f.GesamtBetrag
|
||||
txtSonstigeKosten._value = f.Aufschlag
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
@@ -757,6 +757,12 @@
|
||||
<Compile Include="Formulare\CARNET-TIR\usrcntlTIR_alt.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\frmVorauskasse_CBAM.Designer.vb">
|
||||
<DependentUpon>frmVorauskasse_CBAM.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\frmVorauskasse_CBAM.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\frmVorauskasse_FremdwaehrungBerechnen.Designer.vb">
|
||||
<DependentUpon>frmVorauskasse_FremdwaehrungBerechnen.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -3505,6 +3511,9 @@
|
||||
<EmbeddedResource Include="Formulare\CARNET-TIR\usrcntlTIR_alt.resx">
|
||||
<DependentUpon>usrcntlTIR_alt.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\frmVorauskasse_CBAM.resx">
|
||||
<DependentUpon>frmVorauskasse_CBAM.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\frmVorauskasse_FremdwaehrungBerechnen.resx">
|
||||
<DependentUpon>frmVorauskasse_FremdwaehrungBerechnen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -143,6 +143,7 @@ Public Class frmNewsletter
|
||||
Dim anhaenge As New List(Of String)
|
||||
'---Anhänge:----------------------------
|
||||
For Each line In ListBox1.Text.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
|
||||
MsgBox(line)
|
||||
If File.Exists(line) Then
|
||||
anhaenge.Add(line)
|
||||
End If
|
||||
|
||||
816
SDL/kunden/usrCntlCBAM.Designer.vb
generated
816
SDL/kunden/usrCntlCBAM.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -39,8 +39,8 @@ Public Class usrCntlCBAM
|
||||
"WHERE z.za_System = @sys " &
|
||||
" AND z.za_REGIME = 'IMPORT' " &
|
||||
" AND z.za_IsFinalDeclaration = 1 " &
|
||||
" AND z.za_DeclarationDate >= @dateFrom " &
|
||||
" AND z.za_DeclarationDate <= @dateTo " &
|
||||
" AND z.if(ra_releaseDate,za_DeclarationDate) >= @dateFrom " &
|
||||
" AND z.if(ra_releaseDate,za_DeclarationDate) <= @dateTo " &
|
||||
" AND p.zaParty_EORI = @eori " &
|
||||
" AND " & cbamWhere
|
||||
|
||||
@@ -88,23 +88,7 @@ Public Class usrCntlCBAM
|
||||
SELECT COUNT(distinct(Registriernummer_MRN)) FROM [tbl_DY_Zollmeldungen_Import]
|
||||
where Überlassungsdatum between '" & txtVon._value & "' and '" & txtBis._value & "'
|
||||
and " & VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("Warentarifnummer") & "
|
||||
/* (
|
||||
left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
||||
OR left(Warentarifnummer,4) between 7301 and 7311
|
||||
OR left(Warentarifnummer,4) between 7205 and 7229
|
||||
OR left(Warentarifnummer,4) between 7603 and 7614
|
||||
OR Warentarifnummer like '25070080%'
|
||||
OR Warentarifnummer like '283421%'
|
||||
OR Warentarifnummer like '260112%'
|
||||
OR Warentarifnummer like '720211%'
|
||||
OR Warentarifnummer like '720219%'
|
||||
OR Warentarifnummer like '720241%'
|
||||
OR Warentarifnummer like '720249%'
|
||||
OR Warentarifnummer like '720260%'
|
||||
OR Warentarifnummer like '280410%'
|
||||
)
|
||||
and Warentarifnummer not like '310560%'*/
|
||||
|
||||
|
||||
"
|
||||
|
||||
If SQLSTR_WHERE_FIRMEN <> "" Then
|
||||
@@ -416,7 +400,10 @@ Public Class usrCntlCBAM
|
||||
Private Sub usrCntlCBAM_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
txtJahr.Text = Now.Year
|
||||
txtCalcJahr.Text = Now.Year
|
||||
txtCalcLand.Enabled = True
|
||||
txtCalc_Defaut_Year.Text = Now.Year
|
||||
txtCalc_Defaut_CertPrice._value = 95
|
||||
|
||||
|
||||
If Now.Month < 3 Then
|
||||
txtJahr.Text = Now.Year - 1
|
||||
cboQuartal.Text = "Q4"
|
||||
@@ -443,6 +430,7 @@ Public Class usrCntlCBAM
|
||||
Case "Q2" : txtVon._value = CDate("01.04." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
|
||||
Case "Q3" : txtVon._value = CDate("01.07." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
|
||||
Case "Q4" : txtVon._value = CDate("01.10." & txtJahr.Text) : txtBis._value = CDate(txtVon._value).AddMonths(3).AddDays(-1)
|
||||
Case "JAHR" : txtVon._value = CDate("01.01." & txtJahr.Text) : txtBis._value = CDate("31.12." & txtJahr.Text)
|
||||
|
||||
End Select
|
||||
|
||||
@@ -683,6 +671,50 @@ Public Class usrCntlCBAM
|
||||
|
||||
|
||||
Dim dt = SQL.loadDgvBySql(SQLSTR, "AVISO", 600)
|
||||
|
||||
If cbxKosten.Checked Then
|
||||
' =========================================================
|
||||
' Spalten ergänzen (falls noch nicht vorhanden)
|
||||
' =========================================================
|
||||
If Not dt.Columns.Contains("Def_benchmark") Then
|
||||
dt.Columns.Add("Def_benchmark", GetType(Decimal))
|
||||
End If
|
||||
|
||||
If Not dt.Columns.Contains("Def_Emission") Then
|
||||
dt.Columns.Add("Def_Emission", GetType(Decimal))
|
||||
End If
|
||||
|
||||
If Not dt.Columns.Contains("EstimatedCost") Then
|
||||
dt.Columns.Add("EstimatedCost", GetType(Decimal))
|
||||
End If
|
||||
|
||||
|
||||
' =========================================================
|
||||
' Berechnung pro Zeile
|
||||
' =========================================================
|
||||
For Each r As DataRow In dt.Rows
|
||||
|
||||
Dim benchmark As Object = Nothing
|
||||
Dim emission As Object = Nothing
|
||||
Dim weight = If(r("Rohmasse") Is DBNull.Value, r("Eigenmasse"), Convert.ToDecimal(r("Rohmasse")))
|
||||
Dim year = If(txtBis._value <> "", CDate(txtBis._value).Year, Now.Year)
|
||||
|
||||
Dim cost As String = cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM(
|
||||
cn_code:=Convert.ToString(r("Tarifnummer")),
|
||||
weight,
|
||||
country_code:=Convert.ToString(r("VersendungsLand")),
|
||||
see_total:=emission,
|
||||
year,
|
||||
benchmark_value:=benchmark
|
||||
)
|
||||
|
||||
r("Def_benchmark") = If(benchmark Is Nothing, DBNull.Value, benchmark)
|
||||
r("Def_Emission") = If(emission Is Nothing, DBNull.Value, emission)
|
||||
r("EstimatedCost") = If(String.IsNullOrWhiteSpace(cost), DBNull.Value, Convert.ToDecimal(cost))
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value)
|
||||
btnCBAM_DS_DAKOSY_Summe.Tag = path
|
||||
@@ -1330,13 +1362,13 @@ Public Class usrCntlCBAM
|
||||
|
||||
'----- XML ----------------------------------------------------------------------------------------------------------------------------------------
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
'---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
doCBAM_XML(dt, EORI)
|
||||
'---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
Button2.Enabled = True
|
||||
btnCBAM_DS_DAKOSY_XML.Enabled = True
|
||||
'---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
doCBAM_XML(dt, EORI)
|
||||
'---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
Button2.Enabled = True
|
||||
btnCBAM_DS_DAKOSY_XML.Enabled = True
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
'---------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
@@ -1430,6 +1462,40 @@ Public Class usrCntlCBAM
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub doCBAM_KafkaFromVERAG_CostomsDeclarations(list As List(Of String))
|
||||
Try
|
||||
Dim cnt = 1
|
||||
For Each MRN In list
|
||||
lblKafkaCnt.Text = cnt & "/" & list.Count
|
||||
Me.Refresh()
|
||||
cnt += 1
|
||||
|
||||
Dim EZA = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.loadByMRN(MRN, True)
|
||||
|
||||
|
||||
Dim key = cATEZ_Greenpulse_KafkaDecs.GetUniqueKey_Pipe_FromVERAG_CustomsDec(EZA, MRN)
|
||||
|
||||
' Objekt
|
||||
Dim rec = cDakosyEZA_Greenpulse.BuildByMrn(EZA)
|
||||
Dim dr = cATEZ_Greenpulse_KafkaDecs.InsertOrUpdateToKafkaSync_Bool(rec, key, 30000)
|
||||
|
||||
'Unlerlagen
|
||||
If EZA.za_SendungsId IsNot Nothing AndAlso EZA.za_SendungsId > 0 Then
|
||||
Dim rec_inv = cDakosyEZA_Greenpulse.BuildInvoices(EZA.za_SendungsId)
|
||||
Dim dr_inv = cATEZ_Greenpulse_KafkaInvoices.InsertOrUpdateToKafkaSync_Bool(rec_inv, key, 30000)
|
||||
End If
|
||||
|
||||
|
||||
' MessageBox.Show($"OK: {dr.Status} @ {dr.TopicPartitionOffset}")
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub doCBAM_XML(dt As DataTable, EORI As String)
|
||||
Dim CBAM_XML As New VERAG_PROG_ALLGEMEIN.CBAM_QReport_17.QReportType
|
||||
|
||||
@@ -2087,7 +2153,615 @@ Public Class usrCntlCBAM
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
MsgBox(CountCBAMTariffNumbersBySystemAndEORI("DAKOSY", txtEori.Text, txtVon._value, txtBis._value))
|
||||
MsgBox(CountCBAMTariffNumbersBySystemAndEORI("DHF", txtEori.Text, txtVon._value, txtBis._value))
|
||||
txtCalc_Defaut_Country.Enabled = True
|
||||
'MsgBox(CountCBAMTariffNumbersBySystemAndEORI("DAKOSY", txtEori.Text, txtVon._value, txtBis._value))
|
||||
'MsgBox(CountCBAMTariffNumbersBySystemAndEORI("DHF", txtEori.Text, txtVon._value, txtBis._value))
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
Dim EORI = txtEori.Text
|
||||
If cbxVERAG.Checked Then EORI = "VERAG"
|
||||
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
|
||||
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
|
||||
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
|
||||
|
||||
lblErg_VERAG.Text = "-"
|
||||
lblErg_VERAG2.Text = "-"
|
||||
|
||||
Dim LIST = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(txtEori.Text, "", txtVon._value, txtBis._value,, False)
|
||||
|
||||
cbo_VERAG_ImpLand.Items.Clear()
|
||||
|
||||
Dim sumEigenmasse As Decimal = LIST.SelectMany(Function(za) za.Items).Sum(Function(it) If(it.zaItem_NetMass, 0D))
|
||||
|
||||
Dim countries = LIST.Where(Function(za) Not String.IsNullOrWhiteSpace(za.za_CountryImport)).
|
||||
Select(Function(za) za.za_CountryImport.Trim()).
|
||||
Distinct().
|
||||
OrderBy(Function(c) c).
|
||||
ToList()
|
||||
For Each c In countries
|
||||
cbo_VERAG_ImpLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(c, c))
|
||||
Next
|
||||
|
||||
|
||||
lblErg_VERAG.Text = LIST.Count
|
||||
lblErg_VERAG2.Text = String.Join(", ", countries)
|
||||
|
||||
'MsgBox("Anzahl der Anmeldungen: " & LIST.Count)
|
||||
End Sub
|
||||
|
||||
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG.Click
|
||||
Dim EORI = txtEori.Text
|
||||
If cbxVERAG.Checked Then EORI = "VERAG"
|
||||
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
|
||||
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
|
||||
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
|
||||
If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub :
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
|
||||
|
||||
|
||||
Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI, cbo_VERAG_ImpLand._value, txtVon._value, txtBis._value,, True)
|
||||
TextBox1.Text = LIST.Count
|
||||
|
||||
|
||||
doVERAG_SUM(LIST, EORI)
|
||||
doVERAG_DETAIL(LIST, EORI)
|
||||
If cbxVERAG_GPXLS.Checked Then doVERAG_GREENPULSE_XLS(LIST, EORI)
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
|
||||
Function LeftStr(s As String, l As Integer) As String
|
||||
If s Is Nothing Then Return ""
|
||||
If s Is DBNull.Value Then Return ""
|
||||
LeftStr = If(s.Length >= l, s.Substring(0, l), s)
|
||||
End Function
|
||||
|
||||
|
||||
Sub doVERAG_SUM(LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations), EORI As String)
|
||||
|
||||
btnCBAM_DS_VERAG_Summe.Enabled = False
|
||||
btnCBAM_DS_VERAG_Detail.Tag = ""
|
||||
|
||||
Try
|
||||
Dim summary =
|
||||
From za In LIST
|
||||
From it In za.Items
|
||||
Group By
|
||||
Tarifnummer = LeftStr(it.zaItem_HSCode, 8),
|
||||
VersendungsLand = za.za_CountryDispatch,
|
||||
Verfahren = LeftStr(za.za_MainProcedure, 2),
|
||||
Vorverfahren = it.zaItem_PrevProcedure
|
||||
Into grp = Group
|
||||
Select New With {
|
||||
.Tarifnummer = Tarifnummer,
|
||||
.Eigenmasse = grp.Sum(Function(x) If(x.it.zaItem_NetMass, 0D)),
|
||||
.Rohmasse = grp.Sum(Function(x) If(x.it.zaItem_GrossMass, 0D)),
|
||||
.Rechnungspreis = grp.Sum(Function(x) If(x.it.zaItem_InvoiceValueEUR, 0D)),
|
||||
.VersendungsLand = VersendungsLand,
|
||||
.Verfahren = Verfahren,
|
||||
.VorangegangenesVerfahren = Vorverfahren
|
||||
}
|
||||
|
||||
|
||||
Dim dt As New DataTable
|
||||
|
||||
dt.Columns.Add("Tarifnummer", GetType(String))
|
||||
dt.Columns.Add("Eigenmasse", GetType(Decimal))
|
||||
dt.Columns.Add("Rohmasse", GetType(Decimal))
|
||||
dt.Columns.Add("Rechnungspreis", GetType(Decimal))
|
||||
dt.Columns.Add("VersendungsLand", GetType(String))
|
||||
dt.Columns.Add("Verfahren", GetType(String))
|
||||
dt.Columns.Add("VorangegangenesVerfahren", GetType(String))
|
||||
|
||||
For Each r In summary
|
||||
dt.Rows.Add(
|
||||
r.Tarifnummer,
|
||||
r.Eigenmasse,
|
||||
r.Rohmasse,
|
||||
r.Rechnungspreis,
|
||||
r.VersendungsLand,
|
||||
r.Verfahren,
|
||||
r.VorangegangenesVerfahren
|
||||
)
|
||||
|
||||
MsgBox(r.Tarifnummer)
|
||||
Next
|
||||
|
||||
MsgBox(dt.Rows.Count)
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,, , , , False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value)
|
||||
btnCBAM_DS_VERAG_Summe.Tag = path
|
||||
btnCBAM_DS_VERAG_Summe.Enabled = True
|
||||
btnCBAM_DS_VERAG_Copy.Enabled = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub doVERAG_DETAIL(LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations), EORI As String)
|
||||
|
||||
btnCBAM_DS_VERAG_Detail.Enabled = False
|
||||
btnCBAM_DS_VERAG_Detail.Tag = ""
|
||||
|
||||
Try
|
||||
Dim details =
|
||||
From za In LIST
|
||||
From it In za.Items
|
||||
Let importer = za.Parties.
|
||||
FirstOrDefault(Function(p) {"CN", "IM", "IMP", "IMPORTER"}.Contains(p.zaParty_Role))
|
||||
Let exporter = za.Parties.
|
||||
FirstOrDefault(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role))
|
||||
Let invoice =
|
||||
za.Documents.FirstOrDefault(Function(d) d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")
|
||||
Let Anmeldedatum = (Function(x) If(x.za_releaseDate, x.za_DeclarationDate))
|
||||
Order By Anmeldedatum
|
||||
Select New With {
|
||||
.MRN = za.za_MRN,
|
||||
.PositionsNummer = it.zaItem_PosNo,
|
||||
.Anmeldedatum = If(za.za_ReleaseDate, za.za_DeclarationDate),
|
||||
.BezugsNr = za.za_LRN,
|
||||
.VertretungsVerhaeltnis = za.za_RepresentationCode,
|
||||
.Tarifnummer = LeftStr(it.zaItem_HSCode, 8) & "%",
|
||||
.Eigenmasse = it.zaItem_NetMass,
|
||||
.Rohmasse = it.zaItem_GrossMass,
|
||||
.VersendungsLand = za.za_CountryDispatch,
|
||||
.BestimmungsLand = za.za_CountryDestination,
|
||||
.Rechnungspreis = it.zaItem_InvoiceValueEUR,
|
||||
.Rechnungswaehrung = it.zaItem_InvoiceCurrency,
|
||||
.EmpfaengerEORI = If(importer IsNot Nothing, importer.zaParty_EORI, ""),
|
||||
.Empfaenger = If(importer IsNot Nothing, importer.zaParty_Name, ""),
|
||||
.AbsenderEORI = If(exporter IsNot Nothing, exporter.zaParty_EORI, ""),
|
||||
.Absender = If(exporter IsNot Nothing, exporter.zaParty_Name, ""),
|
||||
.Rechnungsnummer = If(invoice IsNot Nothing, invoice.zaDoc_Reference, "-"),
|
||||
.Rechnungsdatum = If(invoice IsNot Nothing, invoice.zaDoc_Date, Nothing)
|
||||
}
|
||||
|
||||
|
||||
Dim dt As New DataTable
|
||||
|
||||
dt.Columns.Add("MRN")
|
||||
dt.Columns.Add("PositionsNummer", GetType(Integer))
|
||||
dt.Columns.Add("Anmeldedatum", GetType(Date))
|
||||
dt.Columns.Add("BezugsNr")
|
||||
dt.Columns.Add("VertretungsVerhaeltnis")
|
||||
dt.Columns.Add("Tarifnummer")
|
||||
dt.Columns.Add("Eigenmasse", GetType(Decimal))
|
||||
dt.Columns.Add("Rohmasse", GetType(Decimal))
|
||||
dt.Columns.Add("VersendungsLand")
|
||||
dt.Columns.Add("BestimmungsLand")
|
||||
dt.Columns.Add("Rechnungspreis", GetType(Decimal))
|
||||
dt.Columns.Add("Rechnungswaehrung")
|
||||
dt.Columns.Add("EmpfaengerEORI")
|
||||
dt.Columns.Add("Empfaenger")
|
||||
dt.Columns.Add("AbsenderEORI")
|
||||
dt.Columns.Add("Absender")
|
||||
dt.Columns.Add("Rechnungsnummer")
|
||||
dt.Columns.Add("Rechnungsdatum", GetType(Date))
|
||||
|
||||
For Each r In details
|
||||
dt.Rows.Add(
|
||||
r.MRN,
|
||||
r.PositionsNummer,
|
||||
If(r.Anmeldedatum, DBNull.Value),
|
||||
r.BezugsNr,
|
||||
r.VertretungsVerhaeltnis,
|
||||
r.Tarifnummer,
|
||||
If(r.Eigenmasse, 0D),
|
||||
If(r.Rohmasse, 0D),
|
||||
r.VersendungsLand,
|
||||
r.BestimmungsLand,
|
||||
If(r.Rechnungspreis, 0D),
|
||||
r.Rechnungswaehrung,
|
||||
r.EmpfaengerEORI,
|
||||
r.Empfaenger,
|
||||
r.AbsenderEORI,
|
||||
r.Absender,
|
||||
r.Rechnungsnummer,
|
||||
If(r.Rechnungsdatum Is Nothing, DBNull.Value, r.Rechnungsdatum)
|
||||
)
|
||||
Next
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, , , , , False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
|
||||
|
||||
btnCBAM_DS_VERAG_Detail.Tag = path
|
||||
btnCBAM_DS_VERAG_Detail.Enabled = True
|
||||
btnCBAM_DS_VERAG_Copy.Enabled = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Sub doVERAG_GREENPULSE_XLS(LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations), EORI As String)
|
||||
|
||||
btnCBAM_DS_VERAG_GP.Enabled = False
|
||||
btnCBAM_DS_VERAG_GP.Tag = ""
|
||||
|
||||
Try
|
||||
' ------------------------------------------------------------
|
||||
' Rollen
|
||||
' ------------------------------------------------------------
|
||||
Dim ImporterRoles = {"CN", "IM", "IMP", "IMPORTER"}
|
||||
Dim ExporterRoles = {"CZ", "EX", "EXP", "EXPORTER"}
|
||||
|
||||
' ------------------------------------------------------------
|
||||
' LINQ: Greenpulse-Logik (MRN-aggregiert)
|
||||
' ------------------------------------------------------------
|
||||
Dim gp =
|
||||
From za In LIST
|
||||
Group By MRN = za.za_MRN Into grp = Group
|
||||
Let importer = grp.
|
||||
SelectMany(Function(x) x.Parties).
|
||||
FirstOrDefault(Function(p) ImporterRoles.Contains(p.zaParty_Role))
|
||||
Let exporter = grp.
|
||||
SelectMany(Function(x) x.Parties).
|
||||
FirstOrDefault(Function(p) ExporterRoles.Contains(p.zaParty_Role))
|
||||
Let invoice = grp.
|
||||
SelectMany(Function(x) x.Documents).
|
||||
FirstOrDefault(Function(d) d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")
|
||||
Select New With {
|
||||
.DeclarationNo = MRN,
|
||||
.DeclarationDate = grp.Max(Function(x) If(x.za_ReleaseDate, x.za_DeclarationDate)),
|
||||
.ImporterEORI = If(importer IsNot Nothing, importer.zaParty_EORI, ""),
|
||||
.ExporterEORI = If(exporter IsNot Nothing, exporter.zaParty_EORI, ""),
|
||||
.CommodityCode = grp.
|
||||
SelectMany(Function(x) x.Items).
|
||||
Select(Function(i) i.zaItem_HSCode).
|
||||
FirstOrDefault(),
|
||||
.OriginCountry = grp.
|
||||
SelectMany(Function(x) x.Items).
|
||||
Select(Function(i) i.zaItem_OriginCountry).
|
||||
FirstOrDefault(),
|
||||
.RequestedProcedure = If(
|
||||
grp.First().za_MainProcedure IsNot Nothing AndAlso
|
||||
grp.First().za_MainProcedure.Length >= 2,
|
||||
grp.First().za_MainProcedure.Substring(0, 2),
|
||||
""
|
||||
),
|
||||
.NetMassTonnes = grp.
|
||||
SelectMany(Function(x) x.Items).
|
||||
Sum(Function(i) If(i.zaItem_NetMass, 0D)) / 1000D,
|
||||
.ImporterTitle = If(importer IsNot Nothing, importer.zaParty_Name, ""),
|
||||
.ImporterCountry = If(importer IsNot Nothing, importer.zaParty_Country, ""),
|
||||
.ExporterTitle = If(exporter IsNot Nothing, exporter.zaParty_Name, ""),
|
||||
.ExporterCountry = If(exporter IsNot Nothing, exporter.zaParty_Country, ""),
|
||||
.InvoiceNumber = If(invoice IsNot Nothing, invoice.zaDoc_Reference, "-"),
|
||||
.InvoiceDate = If(invoice IsNot Nothing, invoice.zaDoc_Date, Nothing)
|
||||
}
|
||||
|
||||
|
||||
' ------------------------------------------------------------
|
||||
' DataTable: exakt Greenpulse-Struktur
|
||||
' ------------------------------------------------------------
|
||||
Dim dtGP As New DataTable
|
||||
|
||||
dtGP.Columns.Add("declaration no")
|
||||
dtGP.Columns.Add("declaration date", GetType(Date))
|
||||
dtGP.Columns.Add("importer identification number")
|
||||
dtGP.Columns.Add("exporter identification number")
|
||||
dtGP.Columns.Add("commodity code")
|
||||
dtGP.Columns.Add("origin country code")
|
||||
dtGP.Columns.Add("requested procedure")
|
||||
dtGP.Columns.Add("previous procedure")
|
||||
dtGP.Columns.Add("net mass", GetType(Decimal))
|
||||
dtGP.Columns.Add("type of measurement unit")
|
||||
dtGP.Columns.Add("invoice numbers")
|
||||
dtGP.Columns.Add("invoice date")
|
||||
dtGP.Columns.Add("member state auth")
|
||||
dtGP.Columns.Add("discharge bill waiver")
|
||||
dtGP.Columns.Add("authorisation")
|
||||
dtGP.Columns.Add("start time")
|
||||
dtGP.Columns.Add("end time")
|
||||
dtGP.Columns.Add("deadline")
|
||||
dtGP.Columns.Add("reporting declarant EORI number")
|
||||
dtGP.Columns.Add("type of representation")
|
||||
dtGP.Columns.Add("importer title")
|
||||
dtGP.Columns.Add("importer email")
|
||||
dtGP.Columns.Add("importer phone")
|
||||
dtGP.Columns.Add("importer country code or member state")
|
||||
dtGP.Columns.Add("importer subdivision")
|
||||
dtGP.Columns.Add("importer city")
|
||||
dtGP.Columns.Add("importer street")
|
||||
dtGP.Columns.Add("importer street additional")
|
||||
dtGP.Columns.Add("importer address number")
|
||||
dtGP.Columns.Add("importer post code")
|
||||
dtGP.Columns.Add("importer po box")
|
||||
dtGP.Columns.Add("importer coordinate longitude (x)")
|
||||
dtGP.Columns.Add("importer coordinate latitude (y)")
|
||||
dtGP.Columns.Add("exporter title")
|
||||
dtGP.Columns.Add("exporter country code or member state")
|
||||
dtGP.Columns.Add("exporter street")
|
||||
dtGP.Columns.Add("exporter street additional")
|
||||
|
||||
' ------------------------------------------------------------
|
||||
' Befüllen
|
||||
' ------------------------------------------------------------
|
||||
For Each r In gp
|
||||
dtGP.Rows.Add(
|
||||
r.DeclarationNo,
|
||||
r.DeclarationDate,
|
||||
r.ImporterEORI,
|
||||
r.ExporterEORI,
|
||||
r.CommodityCode,
|
||||
r.OriginCountry,
|
||||
r.RequestedProcedure,
|
||||
"",
|
||||
r.NetMassTonnes,
|
||||
"TONNES",
|
||||
r.InvoiceNumber,
|
||||
If(r.InvoiceDate Is Nothing, "-", r.InvoiceDate),
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
r.ImporterEORI,
|
||||
"",
|
||||
r.ImporterTitle,
|
||||
"",
|
||||
"",
|
||||
r.ImporterCountry,
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
"",
|
||||
r.ExporterTitle,
|
||||
r.ExporterCountry,
|
||||
"",
|
||||
""
|
||||
)
|
||||
Next
|
||||
|
||||
' ------------------------------------------------------------
|
||||
' Excel-Export Greenpulse
|
||||
' ------------------------------------------------------------
|
||||
If dtGP.Rows.Count > 0 Then
|
||||
btnCBAM_DS_VERAG_GP.Tag =
|
||||
createExcelForGreenPulse(dtGP, EORI, "")
|
||||
btnCBAM_DS_VERAG_GP.Enabled = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnCBAM_DS_VERAG_Detail_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG_Detail.Click, btnCBAM_DS_VERAG_GP.Click, btnCBAM_DS_VERAG_Summe.Click, btnCBAM_DS_VERAG_SpedB.Click, btnCBAM_DS_VERAG_XML.Click
|
||||
If sender.tag <> "" Then
|
||||
Try : Process.Start(sender.tag) : Catch : End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnCBAM_DS_VERAG_Copy_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG_Copy.Click
|
||||
Dim f As New List(Of String)
|
||||
If btnCBAM_DS_VERAG_Detail.Tag <> "" Then f.Add(btnCBAM_DS_VERAG_Detail.Tag)
|
||||
If btnCBAM_DS_VERAG_Summe.Tag <> "" Then f.Add(btnCBAM_DS_VERAG_Summe.Tag)
|
||||
If btnCBAM_DS_VERAG_GP.Tag <> "" Then f.Add(btnCBAM_DS_VERAG_GP.Tag)
|
||||
|
||||
If f.Count > 0 Then
|
||||
'Zwischenablage
|
||||
Clipboard.Clear()
|
||||
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
|
||||
Clipboard.SetDataObject(d, True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnCBAM_DS_VERAG_GenXML_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG_GenXML.Click
|
||||
|
||||
|
||||
Button2.Enabled = False
|
||||
btnCBAM_DS_VERAG_XML.Enabled = False
|
||||
btnCBAM_DS_VERAG_XML.Tag = ""
|
||||
|
||||
|
||||
Try
|
||||
Dim EORI = txtEori.Text
|
||||
If cbxVERAG.Checked Then EORI = "VERAG"
|
||||
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
|
||||
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
|
||||
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
|
||||
If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub
|
||||
|
||||
|
||||
Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI, cbo_VERAG_ImpLand._value, txtVon._value, txtBis._value,, False)
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
' summary
|
||||
Dim ImporterRoles = {"CN", "IM", "IMP", "IMPORTER"}
|
||||
Dim summary =
|
||||
From za In LIST
|
||||
Let importer = za.Parties.FirstOrDefault(Function(p) ImporterRoles.Contains(p.zaParty_Role))
|
||||
From it In za.Items
|
||||
Let hs8 = LeftStr(it.zaItem_HSCode, 8)
|
||||
Group By
|
||||
Tarifnummer = hs8,
|
||||
VersendungsLand = za.za_CountryDispatch,
|
||||
Verfahren = If(it.zaItem_MainProcedure, ""),
|
||||
Vorverfahren = If(it.zaItem_PrevProcedure, ""),
|
||||
Empfaenger = If(importer IsNot Nothing, importer.zaParty_Name, ""),
|
||||
EmpfaengerEORI = If(importer IsNot Nothing, importer.zaParty_EORI, "")
|
||||
Into grp = Group
|
||||
Select New With {
|
||||
.Tarifnummer = Tarifnummer,
|
||||
.Eigenmasse = grp.Sum(Function(x) If(x.it.zaItem_NetMass, 0D)),
|
||||
.Rohmasse = grp.Sum(Function(x) If(x.it.zaItem_GrossMass, 0D)),
|
||||
.Rechnungspreis = grp.Sum(Function(x) If(x.it.zaItem_InvoiceValueEUR, 0D)),
|
||||
.VersendungsLand = VersendungsLand,
|
||||
.Verfahren = Verfahren,
|
||||
.VorangegangenesVerfahren = Vorverfahren,
|
||||
.Empfaenger = Empfaenger,
|
||||
.EmpfaengerEORI = EmpfaengerEORI
|
||||
}
|
||||
|
||||
|
||||
|
||||
Dim dt As New DataTable
|
||||
dt.Columns.Add("Tarifnummer")
|
||||
dt.Columns.Add("Eigenmasse", GetType(Decimal))
|
||||
dt.Columns.Add("Rohmasse", GetType(Decimal))
|
||||
dt.Columns.Add("Rechnungspreis", GetType(Decimal))
|
||||
dt.Columns.Add("VersendungsLand")
|
||||
dt.Columns.Add("Verfahren")
|
||||
dt.Columns.Add("VorangegangenesVerfahren")
|
||||
dt.Columns.Add("Empfänger")
|
||||
dt.Columns.Add("EmpfängerEORI")
|
||||
|
||||
For Each r In summary
|
||||
dt.Rows.Add(
|
||||
r.Tarifnummer,
|
||||
r.Eigenmasse,
|
||||
r.Rohmasse,
|
||||
r.Rechnungspreis,
|
||||
r.VersendungsLand,
|
||||
r.Verfahren,
|
||||
r.VorangegangenesVerfahren,
|
||||
r.Empfaenger,
|
||||
r.EmpfaengerEORI
|
||||
)
|
||||
Next
|
||||
|
||||
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
doCBAM_XML(dt, EORI)
|
||||
Button2.Enabled = True
|
||||
btnCBAM_DS_VERAG_XML.Enabled = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(
|
||||
ex.Message,
|
||||
ex.StackTrace,
|
||||
System.Reflection.MethodInfo.GetCurrentMethod.Name
|
||||
)
|
||||
End Try
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub btnCBAM_DS_VERAG_SendToGreenpulse_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_VERAG_SendToGreenpulse.Click
|
||||
|
||||
Try
|
||||
Dim EORI = txtEori.Text
|
||||
If cbxVERAG.Checked Then EORI = "VERAG"
|
||||
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
|
||||
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
|
||||
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
|
||||
If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
lblKafkaCnt.Text = "-"
|
||||
|
||||
Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI, cbo_VERAG_ImpLand._value, txtVon._value, txtBis._value,, False)
|
||||
|
||||
If LIST Is Nothing AndAlso LIST.Count = 0 Then
|
||||
MsgBox("Keine Anmeldungen gefunden!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
' -----------------------------
|
||||
' MRNs aus CustomsDeclarations
|
||||
' -----------------------------
|
||||
Dim mrns =
|
||||
LIST.Where(Function(za)
|
||||
za.za_REGIME = "IMPORT" AndAlso
|
||||
Not String.IsNullOrWhiteSpace(za.za_MRN)
|
||||
End Function).
|
||||
Select(Function(za) za.za_MRN).
|
||||
Distinct().
|
||||
ToList()
|
||||
|
||||
If mrns.Count = 0 Then Exit Sub
|
||||
|
||||
lblKafkaCnt.Text = "0/" & mrns.Count.ToString()
|
||||
|
||||
' -----------------------------
|
||||
' Übergabe an Greenpulse/Kafka
|
||||
' -----------------------------
|
||||
doCBAM_KafkaFromVERAG_CostomsDeclarations(mrns)
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
|
||||
txtCalcErg.Text = cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM_ByCertificatePrice(txtCalc_Defaut_KN8._value, txtCalc_Defaut_Weight._value, txtCalc_Defaut_Country._value, txtCalc_Defaut_CertPrice._value, txtCalcJahr._value)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
||||
Dim EORI = txtEori.Text
|
||||
If cbxVERAG.Checked Then EORI = "VERAG"
|
||||
If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub
|
||||
If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub
|
||||
If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub
|
||||
'If cbo_VERAG_ImpLand._value = "" Then MsgBox("Importland auswählen!") : Exit Sub
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI, cbo_VERAG_ImpLand._value, txtVon._value, txtBis._value,, True)
|
||||
|
||||
|
||||
Dim grouped =
|
||||
From za In LIST
|
||||
Where za.Items IsNot Nothing
|
||||
From it In za.Items
|
||||
Let tarif = If(it.zaItem_HSCode IsNot Nothing AndAlso it.zaItem_HSCode.Length >= 8,
|
||||
it.zaItem_HSCode.Substring(0, 8),
|
||||
it.zaItem_HSCode)
|
||||
Let country = it.zaItem_OriginCountry
|
||||
Group By tarif, country
|
||||
Into grp = Group
|
||||
Select New With {
|
||||
.Tarif = tarif,
|
||||
.Country = country,
|
||||
.Eigenmasse = grp.Sum(Function(x) If(x.it.zaItem_NetMass, 0D)),
|
||||
.Rohmasse = grp.Sum(Function(x) If(x.it.zaItem_GrossMass, 0D)),
|
||||
.RechnungswertEUR = grp.Sum(Function(x) If(x.it.zaItem_InvoiceValueEUR, 0D))
|
||||
}
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
Dim f As New frmVorauskasse_CBAM
|
||||
f.MyDatagridview1.Rows.Clear()
|
||||
|
||||
|
||||
For Each g In grouped
|
||||
Dim idx = f.MyDatagridview1.Rows.Add()
|
||||
Dim eigMasse = If(IsNumeric(g.Eigenmasse), g.Eigenmasse / 1000, 0)
|
||||
With f.MyDatagridview1.Rows(idx)
|
||||
.Cells("clmnTarif").Value = g.Tarif
|
||||
.Cells("clmnWeight").Value = eigMasse
|
||||
.Cells("clmnCountry").Value = g.Country
|
||||
.Cells("clmnYear").Value = If(txtBis._value <> "", CDate(txtBis._value).Year, Now.Year)
|
||||
End With
|
||||
Next
|
||||
f.autocalc = True
|
||||
f.Show()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports javax.xml.bind.annotation
|
||||
|
||||
Public Class cSendungen
|
||||
Implements ICloneable
|
||||
@@ -132,7 +133,7 @@ Public Class cSendungen
|
||||
|
||||
|
||||
Public Function CLEAR_ABRECHNUNG_NotLeistungen() As Boolean
|
||||
|
||||
|
||||
ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "ZOLL")
|
||||
ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "EUST")
|
||||
ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "CLEARING")
|
||||
@@ -295,6 +296,24 @@ Public Class cSendungen
|
||||
Return Nothing
|
||||
End If
|
||||
End Function
|
||||
Public Shared Function getAvisoIdSendungsIdByFilialenNrAbfertigungsNr(FilialenNr As Integer, AbfertigungsNr As Integer, ByRef AvisoID As Integer, ByRef SendungID As Integer) As Boolean
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim dt = sql.loadDgvBySql("SELECT TOP 1 tblSnd_AvisoID, tblSnd_SendungID FROM tblSendungen WHERE FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "'", "AVISO")
|
||||
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim AvisopIdTmp = dt.Rows(0)("tblSnd_AvisoID")
|
||||
Dim SendungIDTmp = dt.Rows(0)("tblSnd_SendungID")
|
||||
If AvisopIdTmp IsNot DBNull.Value AndAlso IsNumeric(AvisopIdTmp) Then
|
||||
AvisoID = CInt(AvisopIdTmp)
|
||||
End If
|
||||
If SendungIDTmp IsNot DBNull.Value AndAlso IsNumeric(SendungIDTmp) Then
|
||||
SendungID = CInt(SendungIDTmp)
|
||||
End If
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function getKdAtrNr(art As String) As String
|
||||
Try
|
||||
|
||||
@@ -146,14 +146,7 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
|
||||
' ------------------------------------------------------------------------
|
||||
' calcCBAM – mit automatischem Fallback auf CN-Code Defaults
|
||||
' ------------------------------------------------------------------------
|
||||
Public Shared Function calcCBAM(
|
||||
cn_code As String,
|
||||
weight As Object,
|
||||
country_code As String,
|
||||
Optional see_total As Object = Nothing,
|
||||
Optional year As Object = Nothing,
|
||||
Optional benchmark_value As Object = Nothing
|
||||
) As String
|
||||
Public Shared Function calcCBAM(cn_code As String, weight As Object, country_code As String, Optional ByRef see_total As Object = Nothing, Optional year As Object = Nothing, Optional ByRef benchmark_value As Object = Nothing, Optional ByRef CBAM_COST As Decimal = -1, Optional ByRef CBAM_EMISSION As Decimal = -1) As String
|
||||
|
||||
' ------------------------------------------------------------
|
||||
' Basis-Validierung
|
||||
@@ -207,6 +200,9 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
|
||||
If defResp.success Then
|
||||
defaultEmission = defResp.data.default_emission
|
||||
defaultBenchmark = defResp.data.benchmark
|
||||
|
||||
benchmark_value = defaultBenchmark
|
||||
see_total = defaultEmission
|
||||
Else
|
||||
Return $"FEHLER DEFAULTS {defResp.error.code}: {defResp.error.message}"
|
||||
End If
|
||||
@@ -272,7 +268,7 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
|
||||
s &= $"Gewicht: {req.weight:N2} t" & vbCrLf
|
||||
s &= vbCrLf
|
||||
|
||||
s &= $"Kosten: {d.cost:N2} {d.currency}" & vbCrLf
|
||||
's &= $"Kosten: {d.cost:N2} {d.currency}" & vbCrLf
|
||||
s &= $"CBAM Emission: {d.cbam_emission:N5}" & vbCrLf
|
||||
s &= $"Benchmark: {d.benchmark:N5}" & vbCrLf
|
||||
s &= $"Phase-Faktor: {d.phase_factor:P2}" & vbCrLf
|
||||
@@ -281,12 +277,96 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
|
||||
If Not String.IsNullOrWhiteSpace(d.info_message) Then
|
||||
s &= vbCrLf & "Info: " & d.info_message & vbCrLf
|
||||
End If
|
||||
|
||||
s &= vbCrLf
|
||||
s &= $"CBAM Kosten: {d.cost:N2} {d.currency}" & vbCrLf
|
||||
CBAM_COST = d.cost
|
||||
CBAM_EMISSION = see_total
|
||||
Return s
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function calcCBAM_ByCertificatePrice(cn_code As String, weight As Object, country_code As String, certificate_price As Object, year As Object, Optional ByRef CBAM_COST As Decimal = -1, Optional ByRef CBAM_EMISSION As Decimal = -1) As String
|
||||
|
||||
' ------------------------------------------------------------
|
||||
' Validierung
|
||||
' ------------------------------------------------------------
|
||||
If cn_code Is Nothing OrElse Not IsNumeric(cn_code) _
|
||||
OrElse Not {4, 6, 8}.Contains(cn_code.Length) Then
|
||||
Return "Fehler: CN-Code muss 4-, 6- oder 8-stellig numerisch sein"
|
||||
End If
|
||||
|
||||
If weight Is Nothing OrElse Not IsNumeric(weight) OrElse CDbl(weight) <= 0 Then
|
||||
Return "Fehler: Gewicht muss > 0 sein"
|
||||
End If
|
||||
|
||||
If country_code Is Nothing OrElse country_code.Length <> 2 Then
|
||||
Return "Fehler: country_code muss ISO-2 sein"
|
||||
End If
|
||||
|
||||
If certificate_price Is Nothing OrElse Not IsNumeric(certificate_price) OrElse CDbl(certificate_price) <= 0 Then
|
||||
Return "Fehler: Zertifikatspreis muss > 0 sein"
|
||||
End If
|
||||
|
||||
If year Is Nothing Or Not IsNumeric(year) Then
|
||||
Return "Fehler: ungültiges Jahr"
|
||||
End If
|
||||
|
||||
' ------------------------------------------------------------
|
||||
' SEE total (Default-Emission) laden
|
||||
' ------------------------------------------------------------
|
||||
Dim api As New cATEZ_Greenpulse_CBAM_CostCalculation()
|
||||
Dim see_total As Decimal
|
||||
|
||||
Try
|
||||
Dim defResp = api.GetCnCodeDefaults(
|
||||
cn_code,
|
||||
country_code.ToUpperInvariant(),
|
||||
CInt(year)
|
||||
)
|
||||
|
||||
If Not defResp.success Then
|
||||
Return $"FEHLER DEFAULTS {defResp.error.code}: {defResp.error.message}"
|
||||
End If
|
||||
|
||||
If defResp.data.default_emission < 0 Then
|
||||
Return "Fehler: Keine Default-Emission (see_total) verfügbar"
|
||||
End If
|
||||
|
||||
see_total = defResp.data.default_emission
|
||||
|
||||
Catch ex As Exception
|
||||
Return "Technischer Fehler beim Laden der CN-Code Defaults: " & ex.Message
|
||||
End Try
|
||||
|
||||
' ------------------------------------------------------------
|
||||
' Berechnung (ohne Phase-Faktor!)
|
||||
' ------------------------------------------------------------
|
||||
Dim w As Decimal = CDec(weight)
|
||||
Dim price As Decimal = CDec(certificate_price)
|
||||
|
||||
Dim cbamEmission As Decimal = w * see_total
|
||||
Dim cbamCost As Decimal = cbamEmission * price
|
||||
|
||||
' ------------------------------------------------------------
|
||||
' Ausgabe
|
||||
' ------------------------------------------------------------
|
||||
Dim s As String = ""
|
||||
s &= "CBAM Kostenberechnung (ohne Benchmark)" & vbCrLf
|
||||
s &= "-----------------------------------------------------------" & vbCrLf
|
||||
s &= $"CN-Code: {cn_code}" & vbCrLf
|
||||
s &= $"Ursprungsland: {country_code.ToUpperInvariant()}" & vbCrLf
|
||||
s &= $"Gewicht: {w:N2} t" & vbCrLf
|
||||
s &= $"SEE total (Default): {see_total:N5}" & vbCrLf
|
||||
s &= $"CBAM Emission: {cbamEmission:N5} t CO₂" & vbCrLf
|
||||
s &= $"Zertifikatspreis: {price:N2} EUR/t" & vbCrLf
|
||||
s &= vbCrLf
|
||||
s &= $"CBAM Kosten: {cbamCost:N2} EUR" & vbCrLf
|
||||
CBAM_COST = cbamCost
|
||||
CBAM_EMISSION = see_total
|
||||
|
||||
Return s
|
||||
|
||||
End Function
|
||||
' ------------------------------------------------------------------------
|
||||
' Helpers
|
||||
' ------------------------------------------------------------------------
|
||||
|
||||
@@ -46,6 +46,13 @@ Public Class cATEZ_Greenpulse_KafkaDecs
|
||||
Dim m = (mrn).ToUpperInvariant()
|
||||
Return String.Join(SEP_PIPE, New String() {KEY_VERSION, c, s, m})
|
||||
End Function
|
||||
Public Shared Function GetUniqueKey_Pipe_FromVERAG_CustomsDec(CD As VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations, Optional mrn As String = "") As String
|
||||
|
||||
Dim c = (If(CD.za_CountryImport, CD.za_CustomsSystemCountry)).ToUpperInvariant()
|
||||
Dim s = (If(CD.za_System, CD.za_CustomsSystem)).ToUpperInvariant()
|
||||
Dim m = (If(mrn = "", CD.za_MRN, mrn)).ToUpperInvariant()
|
||||
Return String.Join(SEP_PIPE, New String() {KEY_VERSION, c, s, m})
|
||||
End Function
|
||||
|
||||
'========================
|
||||
'== Datenobjekte lt. UDM-Schema
|
||||
|
||||
@@ -70,6 +70,7 @@ Public Class cVERAG_CustomsDeclarations
|
||||
Public Property za_Remarks As String
|
||||
Public Property za_Sachbearbeiter As String
|
||||
Public Property za_SachbearbeiterId As String
|
||||
Public Property za_TotGrossMass As Decimal?
|
||||
|
||||
Public Property Parties As New List(Of cVERAG_CustomsDeclarations_Parties)
|
||||
Public Property Items As New List(Of cVERAG_CustomsDeclarations_Item)
|
||||
@@ -142,7 +143,8 @@ Public Class cVERAG_CustomsDeclarations
|
||||
New SQLVariable("za_SendungsId", za_SendungsId),
|
||||
New SQLVariable("za_Remarks", za_Remarks),
|
||||
New SQLVariable("za_Sachbearbeiter", za_Sachbearbeiter),
|
||||
New SQLVariable("za_SachbearbeiterId", za_SachbearbeiterId)
|
||||
New SQLVariable("za_SachbearbeiterId", za_SachbearbeiterId),
|
||||
New SQLVariable("za_TotGrossMass", za_TotGrossMass)
|
||||
}
|
||||
End Function
|
||||
|
||||
@@ -204,6 +206,107 @@ Public Class cVERAG_CustomsDeclarations
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Shared Function LOAD_List_CBAM(EORI As String, ImportCountry As String, datFrom As Date, datTo As Date, Optional CustomsSystem As String = "", Optional loadAll As Boolean = True) As List(Of cVERAG_CustomsDeclarations)
|
||||
|
||||
Dim LIST As New List(Of cVERAG_CustomsDeclarations)
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Try
|
||||
' ------------------------------------------------------------
|
||||
' CBAM Pattern (HSCode)
|
||||
' ------------------------------------------------------------
|
||||
Dim cbamWhere As String =
|
||||
VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("i.zaItem_HSCode")
|
||||
|
||||
' ------------------------------------------------------------
|
||||
' SQL: ZA-IDs ermitteln
|
||||
' ------------------------------------------------------------
|
||||
Dim sqlstr As String =
|
||||
"SELECT DISTINCT z.* " &
|
||||
"FROM VERAG.dbo.tblVERAG_CustomsDeclarations z " &
|
||||
"INNER JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Items i " &
|
||||
" ON z.za_Id = i.zaItem_zaId " &
|
||||
"INNER JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Parties p " &
|
||||
" ON z.za_Id = p.zaParty_zaId " &
|
||||
"WHERE z.za_REGIME = 'IMPORT' " &
|
||||
" AND z.za_IsFinalDeclaration = 1 " &
|
||||
" AND z.za_DeclarationDate >= @dateFrom " &
|
||||
" AND z.za_DeclarationDate <= @dateTo " &
|
||||
" AND p.zaParty_EORI = @eori " &
|
||||
" AND " & cbamWhere
|
||||
|
||||
If ImportCountry <> "" Then
|
||||
sqlstr &= " AND z.za_CountryImport = @importCountry "
|
||||
End If
|
||||
|
||||
If CustomsSystem <> "" Then
|
||||
sqlstr &= " AND z.za_System = @sys "
|
||||
End If
|
||||
|
||||
Using conn = sql.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand(sqlstr, conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@eori", EORI)
|
||||
cmd.Parameters.AddWithValue("@dateFrom", datFrom)
|
||||
cmd.Parameters.AddWithValue("@dateTo", datTo)
|
||||
|
||||
If ImportCountry <> "" Then
|
||||
cmd.Parameters.AddWithValue("@importCountry", ImportCountry)
|
||||
End If
|
||||
|
||||
If CustomsSystem <> "" Then
|
||||
cmd.Parameters.AddWithValue("@sys", CustomsSystem)
|
||||
End If
|
||||
|
||||
Using dr = cmd.ExecuteReader()
|
||||
|
||||
While dr.Read()
|
||||
|
||||
Dim CD As New cVERAG_CustomsDeclarations
|
||||
CD.hasEntry = False
|
||||
|
||||
' ------------------------------------------------
|
||||
' DIREKTE BEFÜLLUNG (wie gewünscht)
|
||||
' ------------------------------------------------
|
||||
For Each li In CD.getParameterList()
|
||||
Dim pi = CD.GetType().GetProperty(li.Scalarvariable)
|
||||
If pi Is Nothing Then Continue For
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
pi.SetValue(CD, Nothing)
|
||||
Else
|
||||
pi.SetValue(CD, dr.Item(li.Text))
|
||||
End If
|
||||
Next
|
||||
|
||||
CD.hasEntry = True
|
||||
|
||||
' ------------------------------------------------
|
||||
' OPTIONALES NACHLADEN
|
||||
' ------------------------------------------------
|
||||
If loadAll Then
|
||||
CD.Parties = cVERAG_CustomsDeclarations_Parties.LOAD_BY_ZAID(CD.za_Id)
|
||||
CD.Items = cVERAG_CustomsDeclarations_Item.LOAD_BY_ZAID(CD.za_Id)
|
||||
CD.Duties = cVERAG_CustomsDeclarations_Duty.LOAD_BY_ZAID(CD.za_Id)
|
||||
CD.Documents = cVERAG_CustomsDeclarations_Document.LOAD_HEAD_BY_ZAID(CD.za_Id)
|
||||
End If
|
||||
|
||||
LIST.Add(CD)
|
||||
|
||||
End While
|
||||
End Using
|
||||
End Using
|
||||
End Using
|
||||
|
||||
Catch ex As Exception
|
||||
cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
Return LIST
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function loadByMRN(MRN As String, loadall As Boolean) As cVERAG_CustomsDeclarations
|
||||
Dim ZA As New cVERAG_CustomsDeclarations
|
||||
If If(MRN, "") = "" Then Return ZA
|
||||
@@ -717,7 +820,7 @@ Public Class cVERAG_CustomsDeclarations_Document
|
||||
New SQLVariable("zaDoc_DepreciationAmount", zaDoc_DepreciationAmount),
|
||||
New SQLVariable("zaDoc_DepreciationUnitmeasurement", zaDoc_DepreciationUnitmeasurement),
|
||||
New SQLVariable("zaDoc_DepreciationUnitmeasurementQualifier", zaDoc_DepreciationUnitmeasurementQualifier),
|
||||
New SQLVariable("zaDoc_Description ", zaDoc_Description)
|
||||
New SQLVariable("zaDoc_Description", zaDoc_Description)
|
||||
}
|
||||
End Function
|
||||
|
||||
|
||||
@@ -71,6 +71,120 @@ Public Class cProgramFunctions
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Sub tryGetFilialeAbf_ByLRN(ByVal LRN As String, ByRef FilialenNr As Object, ByRef AbfertigungsNr As Object)
|
||||
|
||||
If String.IsNullOrWhiteSpace(LRN) Then Exit Sub
|
||||
|
||||
Dim pattern As String = "^(?<Filiale>\d{4})[\/\-](?<Abfertigung>\d{8})"
|
||||
|
||||
Dim m As System.Text.RegularExpressions.Match =
|
||||
System.Text.RegularExpressions.Regex.Match(LRN.Trim(), pattern)
|
||||
|
||||
If Not m.Success Then Exit Sub
|
||||
|
||||
Dim filialeStr As String = m.Groups("Filiale").Value
|
||||
Dim abfertigungStr As String = m.Groups("Abfertigung").Value
|
||||
|
||||
Dim FilialenNrTmp As Integer
|
||||
Dim AbfertigungsNrTmp As Integer
|
||||
|
||||
If Integer.TryParse(filialeStr, FilialenNrTmp) AndAlso
|
||||
Integer.TryParse(abfertigungStr, AbfertigungsNrTmp) Then
|
||||
|
||||
FilialenNr = FilialenNrTmp
|
||||
AbfertigungsNr = AbfertigungsNrTmp
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Shared Sub tryGetAvisoId_SndId_ByLRN(ByVal LRN As String, ByRef AvisoId As Object, ByRef SendungId As Object)
|
||||
|
||||
Dim FilialenNrTmp As Integer = -1
|
||||
Dim AbfertigungsNrTmp As Integer = -1
|
||||
|
||||
tryGetFilialeAbf_ByLRN(LRN, FilialenNrTmp, AbfertigungsNrTmp)
|
||||
|
||||
If FilialenNrTmp > 0 AndAlso AbfertigungsNrTmp > 0 Then
|
||||
VERAG_PROG_ALLGEMEIN.cSendungen.getAvisoIdSendungsIdByFilialenNrAbfertigungsNr(FilialenNrTmp, AbfertigungsNrTmp, AvisoId, SendungId)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub tryGetFirmaNiederlassung(ByRef firma As String, ByRef niederlassung As String, Mail As String, BezugsNr As String)
|
||||
If Mail.Contains("@imex") Then
|
||||
firma = "IMEX"
|
||||
niederlassung = "IMEX"
|
||||
ElseIf Mail.Contains("@ambar") Then
|
||||
firma = "AMBAR"
|
||||
niederlassung = "AMBAR"
|
||||
ElseIf Mail.Contains("atilla@verag.ag") Or Mail.Contains("@atilla") Then
|
||||
|
||||
If BezugsNr <> "" Then ' VERIMEX --> wenn keine Bezugsnummer, dann bei anderem Satus..
|
||||
|
||||
'----------------------------------------------------------------------------
|
||||
'VERIMEX!!!! --> Arbeitet bim T1 Vorschreiben mit ATILLA Benutzer
|
||||
Dim verimex = False
|
||||
If firma = "" Then
|
||||
If BezugsNr <> "" And BezugsNr.Length > 4 Then
|
||||
Select Case BezugsNr.Substring(0, 4)
|
||||
Case "5501", "4803", "5003", "5103", "5303", "4805", "4811", "7001", "5601"
|
||||
verimex = True
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
'----------------------------------------------------------------------------
|
||||
|
||||
If Not verimex Then
|
||||
firma = "ATILLA"
|
||||
niederlassung = "SUB"
|
||||
End If
|
||||
End If
|
||||
ElseIf Mail.Contains("@durmaz") Then
|
||||
firma = "DURMAZ"
|
||||
niederlassung = "SBG"
|
||||
ElseIf Mail.Contains("@verag") Then
|
||||
firma = "VERAG"
|
||||
ElseIf Mail.Contains("@unisped") Then
|
||||
firma = "UNISPED"
|
||||
niederlassung = "ATSP"
|
||||
End If
|
||||
|
||||
If firma = "" Then
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Gehrt nur bei UNSPED
|
||||
Case "UNISPED"
|
||||
firma = "UNISPED"
|
||||
niederlassung = "ATSP"
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
If firma = "" Then
|
||||
If BezugsNr <> "" And BezugsNr.Length > 4 Then
|
||||
Select Case BezugsNr.Substring(0, 4)
|
||||
Case "5501"
|
||||
firma = "IMEX"
|
||||
'niederlassung = "IMEX"
|
||||
Case "5701"
|
||||
firma = "AMBAR"
|
||||
niederlassung = "AMBAR"
|
||||
Case "4801", "4802"
|
||||
firma = "ATILLA"
|
||||
niederlassung = "SUB"
|
||||
'Case "4801"
|
||||
' firma = "DURMAZ"
|
||||
' niederlassung = "SBG"
|
||||
Case "4803", "5003", "5103", "5303", "4805", "4811", "7001"
|
||||
firma = "VERAG"
|
||||
Case "5601"
|
||||
firma = "UNISPED"
|
||||
niederlassung = "ATSP"
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Shared Function fktEuro(varBetrag As Object, varVonWährung As Object, varNachWährung As Object) As Object
|
||||
'(FixeTaxe, "ATS", RECHNUNG.Währungscode)
|
||||
'Dim varVonWährung As Object
|
||||
|
||||
Reference in New Issue
Block a user