From 3a30253c2d36ef5f598b90b998684ac235fd7390 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 5 Jan 2026 15:19:26 +0100 Subject: [PATCH] CBAM --- .../frmVorauskasse_CBAM.Designer.vb | 282 +++++ .../frmVorauskasse_CBAM.resx | 998 ++++++++++++++++++ .../FormulareBaukasten/frmVorauskasse_CBAM.vb | 70 ++ .../usrcntlVorauskasse.Designer.vb | 103 +- .../FormulareBaukasten/usrcntlVorauskasse.vb | 27 +- SDL/SDL.vbproj | 9 + SDL/kunden/Newsletter/frmNewsletter.vb | 1 + SDL/kunden/usrCntlCBAM.Designer.vb | 816 +++++++++++--- SDL/kunden/usrCntlCBAM.vb | 730 ++++++++++++- VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb | 21 +- .../cATEZ_Greenpulse_CBAM_CostCalculation.vb | 100 +- .../GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb | 7 + .../cVERAG_Zollanmeldung.vb | 107 +- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 114 ++ 14 files changed, 3160 insertions(+), 225 deletions(-) create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.resx create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.vb diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb new file mode 100644 index 00000000..8763cbab --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb @@ -0,0 +1,282 @@ + +Partial Class frmVorauskasse_CBAM + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + 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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.resx new file mode 100644 index 00000000..8dbfb4fa --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.resx @@ -0,0 +1,998 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + True + + + True + + + True + + + True + + + + + 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== + + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.vb new file mode 100644 index 00000000..728a27fb --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.vb @@ -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 \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb index aa97aefb..9625fc6d 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb @@ -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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb index aafc8382..452181c0 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb @@ -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 diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index b611a3a3..27ebcaaa 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -757,6 +757,12 @@ UserControl + + frmVorauskasse_CBAM.vb + + + Form + frmVorauskasse_FremdwaehrungBerechnen.vb @@ -3505,6 +3511,9 @@ usrcntlTIR_alt.vb + + frmVorauskasse_CBAM.vb + frmVorauskasse_FremdwaehrungBerechnen.vb diff --git a/SDL/kunden/Newsletter/frmNewsletter.vb b/SDL/kunden/Newsletter/frmNewsletter.vb index 2e3503e2..b951c360 100644 --- a/SDL/kunden/Newsletter/frmNewsletter.vb +++ b/SDL/kunden/Newsletter/frmNewsletter.vb @@ -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 diff --git a/SDL/kunden/usrCntlCBAM.Designer.vb b/SDL/kunden/usrCntlCBAM.Designer.vb index 850b6fd1..23c252f4 100644 --- a/SDL/kunden/usrCntlCBAM.Designer.vb +++ b/SDL/kunden/usrCntlCBAM.Designer.vb @@ -68,20 +68,53 @@ Partial Class usrCntlCBAM Me.Button3 = New System.Windows.Forms.Button() Me.lblKafkaCnt = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() - Me.txtBenchmark = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label12 = New System.Windows.Forms.Label() - Me.txtCalcLand = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtCalcErg = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button4 = New System.Windows.Forms.Button() - Me.txtCalcJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() - Me.txtCalcEmission = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() - Me.txtCalcGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label8 = New System.Windows.Forms.Label() - Me.txtCalcKN8 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label7 = New System.Windows.Forms.Label() + Me.Button5 = New System.Windows.Forms.Button() + Me.cbxKosten = New System.Windows.Forms.CheckBox() + Me.Button6 = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_SendToGreenpulse = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_GP = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_SpedB = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_GenXML = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_CopyXML = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_XML = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_Copy = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_Summe = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG_Detail = New System.Windows.Forms.Button() + Me.btnCBAM_DS_VERAG = New System.Windows.Forms.Button() + Me.lblErg_VERAG = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.lblErg_VERAG2 = New System.Windows.Forms.TextBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Button7 = New System.Windows.Forms.Button() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.Button8 = New System.Windows.Forms.Button() + Me.cbxVERAG_GPXLS = New System.Windows.Forms.CheckBox() + Me.txtCalc_Defaut_Country = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalc_Defaut_Year = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalc_Defaut_CertPrice = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalc_Defaut_Weight = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalc_Defaut_KN8 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbo_VERAG_ImpLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBenchmark = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcLand = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcErg = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcEmission = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCalcKN8 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.cbxUNISPED = New System.Windows.Forms.CheckBox() Me.cbxIMEX = New System.Windows.Forms.CheckBox() @@ -91,9 +124,9 @@ Partial Class usrCntlCBAM Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Button5 = New System.Windows.Forms.Button() Me.cntxtAddSdl.SuspendLayout() Me.Panel1.SuspendLayout() + Me.Panel2.SuspendLayout() Me.MyPanel1.SuspendLayout() Me.SuspendLayout() ' @@ -134,7 +167,7 @@ Partial Class usrCntlCBAM 'btnCBAMPruef_DAKOSY ' Me.btnCBAMPruef_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 74) + Me.btnCBAMPruef_DAKOSY.Location = New System.Drawing.Point(279, 74) Me.btnCBAMPruef_DAKOSY.Name = "btnCBAMPruef_DAKOSY" Me.btnCBAMPruef_DAKOSY.Size = New System.Drawing.Size(168, 42) Me.btnCBAMPruef_DAKOSY.TabIndex = 3 @@ -144,7 +177,7 @@ Partial Class usrCntlCBAM 'btnCBAMPruef_DHF_VERAG ' Me.btnCBAMPruef_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 74) + Me.btnCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(453, 74) Me.btnCBAMPruef_DHF_VERAG.Name = "btnCBAMPruef_DHF_VERAG" Me.btnCBAMPruef_DHF_VERAG.Size = New System.Drawing.Size(168, 42) Me.btnCBAMPruef_DHF_VERAG.TabIndex = 4 @@ -154,9 +187,9 @@ Partial Class usrCntlCBAM 'btnCBAMPruef_TELOTEC ' Me.btnCBAMPruef_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 74) + Me.btnCBAMPruef_TELOTEC.Location = New System.Drawing.Point(763, 74) Me.btnCBAMPruef_TELOTEC.Name = "btnCBAMPruef_TELOTEC" - Me.btnCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 42) + Me.btnCBAMPruef_TELOTEC.Size = New System.Drawing.Size(130, 42) Me.btnCBAMPruef_TELOTEC.TabIndex = 5 Me.btnCBAMPruef_TELOTEC.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)" Me.btnCBAMPruef_TELOTEC.UseVisualStyleBackColor = True @@ -164,9 +197,9 @@ Partial Class usrCntlCBAM 'btnCBAMPruef_DHF_UNISPED ' Me.btnCBAMPruef_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 74) + Me.btnCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(627, 74) Me.btnCBAMPruef_DHF_UNISPED.Name = "btnCBAMPruef_DHF_UNISPED" - Me.btnCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 42) + Me.btnCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(130, 42) Me.btnCBAMPruef_DHF_UNISPED.TabIndex = 6 Me.btnCBAMPruef_DHF_UNISPED.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)" Me.btnCBAMPruef_DHF_UNISPED.UseVisualStyleBackColor = True @@ -183,7 +216,7 @@ Partial Class usrCntlCBAM 'btnCBAMPruef_ALLE ' Me.btnCBAMPruef_ALLE.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAMPruef_ALLE.Location = New System.Drawing.Point(802, 74) + Me.btnCBAMPruef_ALLE.Location = New System.Drawing.Point(899, 74) Me.btnCBAMPruef_ALLE.Name = "btnCBAMPruef_ALLE" Me.btnCBAMPruef_ALLE.Size = New System.Drawing.Size(168, 42) Me.btnCBAMPruef_ALLE.TabIndex = 8 @@ -195,7 +228,7 @@ Partial Class usrCntlCBAM Me.txtCBAMPruef_DAKOSY.BackColor = System.Drawing.Color.White Me.txtCBAMPruef_DAKOSY.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtCBAMPruef_DAKOSY.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCBAMPruef_DAKOSY.Location = New System.Drawing.Point(106, 125) + Me.txtCBAMPruef_DAKOSY.Location = New System.Drawing.Point(279, 125) Me.txtCBAMPruef_DAKOSY.Multiline = True Me.txtCBAMPruef_DAKOSY.Name = "txtCBAMPruef_DAKOSY" Me.txtCBAMPruef_DAKOSY.ReadOnly = True @@ -209,7 +242,7 @@ Partial Class usrCntlCBAM Me.txtCBAMPruef_DHF_VERAG.BackColor = System.Drawing.Color.White Me.txtCBAMPruef_DHF_VERAG.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtCBAMPruef_DHF_VERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(280, 125) + Me.txtCBAMPruef_DHF_VERAG.Location = New System.Drawing.Point(453, 125) Me.txtCBAMPruef_DHF_VERAG.Multiline = True Me.txtCBAMPruef_DHF_VERAG.Name = "txtCBAMPruef_DHF_VERAG" Me.txtCBAMPruef_DHF_VERAG.ReadOnly = True @@ -223,11 +256,11 @@ Partial Class usrCntlCBAM Me.txtCBAMPruef_DHF_UNISPED.BackColor = System.Drawing.Color.White Me.txtCBAMPruef_DHF_UNISPED.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtCBAMPruef_DHF_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(454, 125) + Me.txtCBAMPruef_DHF_UNISPED.Location = New System.Drawing.Point(627, 125) Me.txtCBAMPruef_DHF_UNISPED.Multiline = True Me.txtCBAMPruef_DHF_UNISPED.Name = "txtCBAMPruef_DHF_UNISPED" Me.txtCBAMPruef_DHF_UNISPED.ReadOnly = True - Me.txtCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(168, 22) + Me.txtCBAMPruef_DHF_UNISPED.Size = New System.Drawing.Size(130, 22) Me.txtCBAMPruef_DHF_UNISPED.TabIndex = 12 Me.txtCBAMPruef_DHF_UNISPED.Text = "-" Me.txtCBAMPruef_DHF_UNISPED.TextAlign = System.Windows.Forms.HorizontalAlignment.Center @@ -237,11 +270,11 @@ Partial Class usrCntlCBAM Me.txtCBAMPruef_TELOTEC.BackColor = System.Drawing.Color.White Me.txtCBAMPruef_TELOTEC.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtCBAMPruef_TELOTEC.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtCBAMPruef_TELOTEC.Location = New System.Drawing.Point(628, 125) + Me.txtCBAMPruef_TELOTEC.Location = New System.Drawing.Point(763, 125) Me.txtCBAMPruef_TELOTEC.Multiline = True Me.txtCBAMPruef_TELOTEC.Name = "txtCBAMPruef_TELOTEC" Me.txtCBAMPruef_TELOTEC.ReadOnly = True - Me.txtCBAMPruef_TELOTEC.Size = New System.Drawing.Size(168, 22) + Me.txtCBAMPruef_TELOTEC.Size = New System.Drawing.Size(130, 22) Me.txtCBAMPruef_TELOTEC.TabIndex = 13 Me.txtCBAMPruef_TELOTEC.Text = "-" Me.txtCBAMPruef_TELOTEC.TextAlign = System.Windows.Forms.HorizontalAlignment.Center @@ -249,7 +282,7 @@ Partial Class usrCntlCBAM 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(694, 52) + Me.Label4.Location = New System.Drawing.Point(713, 51) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(44, 13) Me.Label4.TabIndex = 17 @@ -267,9 +300,9 @@ Partial Class usrCntlCBAM 'btnCBAM_DS_DHF_UNISPED ' Me.btnCBAM_DS_DHF_UNISPED.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAM_DS_DHF_UNISPED.Location = New System.Drawing.Point(454, 167) + Me.btnCBAM_DS_DHF_UNISPED.Location = New System.Drawing.Point(627, 190) Me.btnCBAM_DS_DHF_UNISPED.Name = "btnCBAM_DS_DHF_UNISPED" - Me.btnCBAM_DS_DHF_UNISPED.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_DHF_UNISPED.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_UNISPED.TabIndex = 24 Me.btnCBAM_DS_DHF_UNISPED.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DHF - UNISPED)" Me.btnCBAM_DS_DHF_UNISPED.UseVisualStyleBackColor = True @@ -277,9 +310,9 @@ Partial Class usrCntlCBAM 'btnCBAM_DS_TELOTEC ' Me.btnCBAM_DS_TELOTEC.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAM_DS_TELOTEC.Location = New System.Drawing.Point(628, 167) + Me.btnCBAM_DS_TELOTEC.Location = New System.Drawing.Point(763, 190) Me.btnCBAM_DS_TELOTEC.Name = "btnCBAM_DS_TELOTEC" - Me.btnCBAM_DS_TELOTEC.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_TELOTEC.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_TELOTEC.TabIndex = 23 Me.btnCBAM_DS_TELOTEC.Text = "Datensatz generieren" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(TELOTEC)" Me.btnCBAM_DS_TELOTEC.UseVisualStyleBackColor = True @@ -287,7 +320,7 @@ Partial Class usrCntlCBAM 'btnCBAM_DS_DHF_VERAG ' Me.btnCBAM_DS_DHF_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAM_DS_DHF_VERAG.Location = New System.Drawing.Point(280, 167) + Me.btnCBAM_DS_DHF_VERAG.Location = New System.Drawing.Point(453, 190) Me.btnCBAM_DS_DHF_VERAG.Name = "btnCBAM_DS_DHF_VERAG" Me.btnCBAM_DS_DHF_VERAG.Size = New System.Drawing.Size(168, 42) Me.btnCBAM_DS_DHF_VERAG.TabIndex = 22 @@ -297,7 +330,7 @@ Partial Class usrCntlCBAM 'btnCBAM_DS_DAKOSY ' Me.btnCBAM_DS_DAKOSY.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCBAM_DS_DAKOSY.Location = New System.Drawing.Point(106, 167) + Me.btnCBAM_DS_DAKOSY.Location = New System.Drawing.Point(279, 190) Me.btnCBAM_DS_DAKOSY.Name = "btnCBAM_DS_DAKOSY" Me.btnCBAM_DS_DAKOSY.Size = New System.Drawing.Size(168, 42) Me.btnCBAM_DS_DAKOSY.TabIndex = 21 @@ -307,7 +340,7 @@ Partial Class usrCntlCBAM 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(5, 182) + Me.Label3.Location = New System.Drawing.Point(5, 205) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(64, 13) Me.Label3.TabIndex = 25 @@ -319,7 +352,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DAKOSY_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_Detail.Location = New System.Drawing.Point(144, 215) + Me.btnCBAM_DS_DAKOSY_Detail.Location = New System.Drawing.Point(317, 238) Me.btnCBAM_DS_DAKOSY_Detail.Name = "btnCBAM_DS_DAKOSY_Detail" Me.btnCBAM_DS_DAKOSY_Detail.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_Detail.TabIndex = 26 @@ -333,7 +366,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DAKOSY_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_Summe.Location = New System.Drawing.Point(144, 301) + Me.btnCBAM_DS_DAKOSY_Summe.Location = New System.Drawing.Point(317, 324) Me.btnCBAM_DS_DAKOSY_Summe.Name = "btnCBAM_DS_DAKOSY_Summe" Me.btnCBAM_DS_DAKOSY_Summe.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_Summe.TabIndex = 27 @@ -347,7 +380,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_VERAG_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_VERAG_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_VERAG_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_VERAG_Summe.Location = New System.Drawing.Point(318, 301) + Me.btnCBAM_DS_DHF_VERAG_Summe.Location = New System.Drawing.Point(491, 324) Me.btnCBAM_DS_DHF_VERAG_Summe.Name = "btnCBAM_DS_DHF_VERAG_Summe" Me.btnCBAM_DS_DHF_VERAG_Summe.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_VERAG_Summe.TabIndex = 29 @@ -361,7 +394,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_VERAG_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_VERAG_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_VERAG_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_VERAG_Detail.Location = New System.Drawing.Point(318, 215) + Me.btnCBAM_DS_DHF_VERAG_Detail.Location = New System.Drawing.Point(491, 238) Me.btnCBAM_DS_DHF_VERAG_Detail.Name = "btnCBAM_DS_DHF_VERAG_Detail" Me.btnCBAM_DS_DHF_VERAG_Detail.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_VERAG_Detail.TabIndex = 28 @@ -375,7 +408,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_UNISPED_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_UNISPED_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_UNISPED_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_UNISPED_Summe.Location = New System.Drawing.Point(492, 301) + Me.btnCBAM_DS_DHF_UNISPED_Summe.Location = New System.Drawing.Point(627, 324) Me.btnCBAM_DS_DHF_UNISPED_Summe.Name = "btnCBAM_DS_DHF_UNISPED_Summe" Me.btnCBAM_DS_DHF_UNISPED_Summe.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_UNISPED_Summe.TabIndex = 31 @@ -389,7 +422,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_UNISPED_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_UNISPED_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_UNISPED_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_UNISPED_Detail.Location = New System.Drawing.Point(492, 215) + Me.btnCBAM_DS_DHF_UNISPED_Detail.Location = New System.Drawing.Point(627, 238) Me.btnCBAM_DS_DHF_UNISPED_Detail.Name = "btnCBAM_DS_DHF_UNISPED_Detail" Me.btnCBAM_DS_DHF_UNISPED_Detail.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_UNISPED_Detail.TabIndex = 30 @@ -403,7 +436,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_TELOTEC_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_TELOTEC_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_TELOTEC_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_TELOTEC_Summe.Location = New System.Drawing.Point(666, 301) + Me.btnCBAM_DS_TELOTEC_Summe.Location = New System.Drawing.Point(763, 324) Me.btnCBAM_DS_TELOTEC_Summe.Name = "btnCBAM_DS_TELOTEC_Summe" Me.btnCBAM_DS_TELOTEC_Summe.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_TELOTEC_Summe.TabIndex = 33 @@ -417,7 +450,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_TELOTEC_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_TELOTEC_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_TELOTEC_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_TELOTEC_Detail.Location = New System.Drawing.Point(666, 215) + Me.btnCBAM_DS_TELOTEC_Detail.Location = New System.Drawing.Point(763, 238) Me.btnCBAM_DS_TELOTEC_Detail.Name = "btnCBAM_DS_TELOTEC_Detail" Me.btnCBAM_DS_TELOTEC_Detail.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_TELOTEC_Detail.TabIndex = 32 @@ -439,7 +472,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_Copy.Enabled = False Me.btnCBAM_DS_DAKOSY_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_Copy.Location = New System.Drawing.Point(144, 394) + Me.btnCBAM_DS_DAKOSY_Copy.Location = New System.Drawing.Point(317, 417) Me.btnCBAM_DS_DAKOSY_Copy.Name = "btnCBAM_DS_DAKOSY_Copy" Me.btnCBAM_DS_DAKOSY_Copy.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_Copy.TabIndex = 35 @@ -451,7 +484,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_VERAG_Copy.Enabled = False Me.btnCBAM_DS_DHF_VERAG_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_VERAG_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_VERAG_Copy.Location = New System.Drawing.Point(318, 347) + Me.btnCBAM_DS_DHF_VERAG_Copy.Location = New System.Drawing.Point(491, 370) Me.btnCBAM_DS_DHF_VERAG_Copy.Name = "btnCBAM_DS_DHF_VERAG_Copy" Me.btnCBAM_DS_DHF_VERAG_Copy.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_VERAG_Copy.TabIndex = 36 @@ -463,7 +496,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_UNISPED_Copy.Enabled = False Me.btnCBAM_DS_DHF_UNISPED_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_UNISPED_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_UNISPED_Copy.Location = New System.Drawing.Point(492, 347) + Me.btnCBAM_DS_DHF_UNISPED_Copy.Location = New System.Drawing.Point(627, 370) Me.btnCBAM_DS_DHF_UNISPED_Copy.Name = "btnCBAM_DS_DHF_UNISPED_Copy" Me.btnCBAM_DS_DHF_UNISPED_Copy.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_UNISPED_Copy.TabIndex = 37 @@ -475,7 +508,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_TELOTEC_Copy.Enabled = False Me.btnCBAM_DS_TELOTEC_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_TELOTEC_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_TELOTEC_Copy.Location = New System.Drawing.Point(666, 347) + Me.btnCBAM_DS_TELOTEC_Copy.Location = New System.Drawing.Point(763, 370) Me.btnCBAM_DS_TELOTEC_Copy.Name = "btnCBAM_DS_TELOTEC_Copy" Me.btnCBAM_DS_TELOTEC_Copy.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_TELOTEC_Copy.TabIndex = 38 @@ -488,7 +521,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_XML.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_XML.Image = Global.SDL.My.Resources.Resources.xml Me.btnCBAM_DS_DAKOSY_XML.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_XML.Location = New System.Drawing.Point(144, 485) + Me.btnCBAM_DS_DAKOSY_XML.Location = New System.Drawing.Point(317, 508) Me.btnCBAM_DS_DAKOSY_XML.Name = "btnCBAM_DS_DAKOSY_XML" Me.btnCBAM_DS_DAKOSY_XML.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_XML.TabIndex = 40 @@ -500,7 +533,7 @@ Partial Class usrCntlCBAM Me.Button2.Enabled = False Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(144, 532) + Me.Button2.Location = New System.Drawing.Point(317, 555) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(130, 42) Me.Button2.TabIndex = 42 @@ -510,7 +543,7 @@ Partial Class usrCntlCBAM 'Button1 ' Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(106, 438) + Me.Button1.Location = New System.Drawing.Point(279, 461) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(168, 42) Me.Button1.TabIndex = 44 @@ -523,7 +556,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_Spedb.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_Spedb.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DAKOSY_Spedb.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_Spedb.Location = New System.Drawing.Point(144, 347) + Me.btnCBAM_DS_DAKOSY_Spedb.Location = New System.Drawing.Point(317, 370) Me.btnCBAM_DS_DAKOSY_Spedb.Name = "btnCBAM_DS_DAKOSY_Spedb" Me.btnCBAM_DS_DAKOSY_Spedb.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_Spedb.TabIndex = 45 @@ -537,7 +570,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DAKOSY_GP.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DAKOSY_GP.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DAKOSY_GP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DAKOSY_GP.Location = New System.Drawing.Point(144, 258) + Me.btnCBAM_DS_DAKOSY_GP.Location = New System.Drawing.Point(317, 281) Me.btnCBAM_DS_DAKOSY_GP.Name = "btnCBAM_DS_DAKOSY_GP" Me.btnCBAM_DS_DAKOSY_GP.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DAKOSY_GP.TabIndex = 46 @@ -551,7 +584,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_VERAG_GP.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_VERAG_GP.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_VERAG_GP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_VERAG_GP.Location = New System.Drawing.Point(318, 258) + Me.btnCBAM_DS_DHF_VERAG_GP.Location = New System.Drawing.Point(491, 281) Me.btnCBAM_DS_DHF_VERAG_GP.Name = "btnCBAM_DS_DHF_VERAG_GP" Me.btnCBAM_DS_DHF_VERAG_GP.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_VERAG_GP.TabIndex = 47 @@ -565,7 +598,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_DHF_UNISPED_GP.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_DHF_UNISPED_GP.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_DHF_UNISPED_GP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_DHF_UNISPED_GP.Location = New System.Drawing.Point(492, 258) + Me.btnCBAM_DS_DHF_UNISPED_GP.Location = New System.Drawing.Point(627, 281) Me.btnCBAM_DS_DHF_UNISPED_GP.Name = "btnCBAM_DS_DHF_UNISPED_GP" Me.btnCBAM_DS_DHF_UNISPED_GP.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_DHF_UNISPED_GP.TabIndex = 48 @@ -579,7 +612,7 @@ Partial Class usrCntlCBAM Me.btnCBAM_DS_TELOTEC_GP.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCBAM_DS_TELOTEC_GP.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.btnCBAM_DS_TELOTEC_GP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnCBAM_DS_TELOTEC_GP.Location = New System.Drawing.Point(666, 258) + Me.btnCBAM_DS_TELOTEC_GP.Location = New System.Drawing.Point(763, 281) Me.btnCBAM_DS_TELOTEC_GP.Name = "btnCBAM_DS_TELOTEC_GP" Me.btnCBAM_DS_TELOTEC_GP.Size = New System.Drawing.Size(130, 42) Me.btnCBAM_DS_TELOTEC_GP.TabIndex = 49 @@ -592,7 +625,7 @@ Partial Class usrCntlCBAM Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.Image = Global.SDL.My.Resources.Resources.ico_greenpulse Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(106, 580) + Me.Button3.Location = New System.Drawing.Point(279, 651) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(168, 42) Me.Button3.TabIndex = 50 @@ -603,7 +636,7 @@ Partial Class usrCntlCBAM 'lblKafkaCnt ' Me.lblKafkaCnt.AutoSize = True - Me.lblKafkaCnt.Location = New System.Drawing.Point(280, 609) + Me.lblKafkaCnt.Location = New System.Drawing.Point(453, 632) Me.lblKafkaCnt.Name = "lblKafkaCnt" Me.lblKafkaCnt.Size = New System.Drawing.Size(10, 13) Me.lblKafkaCnt.TabIndex = 51 @@ -611,7 +644,8 @@ Partial Class usrCntlCBAM ' 'Panel1 ' - Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel1.BackColor = System.Drawing.Color.FloralWhite Me.Panel1.Controls.Add(Me.txtBenchmark) Me.Panel1.Controls.Add(Me.Label12) @@ -627,11 +661,545 @@ Partial Class usrCntlCBAM Me.Panel1.Controls.Add(Me.Label8) Me.Panel1.Controls.Add(Me.txtCalcKN8) Me.Panel1.Controls.Add(Me.Label7) - Me.Panel1.Location = New System.Drawing.Point(818, 301) + Me.Panel1.Location = New System.Drawing.Point(948, 340) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(223, 331) + Me.Panel1.Size = New System.Drawing.Size(223, 372) Me.Panel1.TabIndex = 52 ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(3, 85) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(67, 13) + Me.Label12.TabIndex = 67 + Me.Label12.Text = "(Benchmark)" + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Location = New System.Drawing.Point(3, 126) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(217, 28) + Me.Button4.TabIndex = 53 + Me.Button4.Text = "Berechnen" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(3, 104) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(68, 13) + Me.Label11.TabIndex = 61 + Me.Label11.Text = "(Jahr)/(Land)" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(3, 65) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(67, 13) + Me.Label10.TabIndex = 59 + Me.Label10.Text = "(Emis.CO2/t)" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(3, 45) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(64, 13) + Me.Label9.TabIndex = 57 + Me.Label9.Text = "Gewicht(to):" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(3, 25) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(59, 13) + Me.Label8.TabIndex = 55 + Me.Label8.Text = "Tarif (8 St.)" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(3, 3) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(84, 13) + Me.Label7.TabIndex = 53 + Me.Label7.Text = "CBAM-Rechner:" + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Location = New System.Drawing.Point(825, 620) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(68, 37) + Me.Button5.TabIndex = 53 + Me.Button5.Text = "test" + Me.Button5.UseVisualStyleBackColor = True + Me.Button5.Visible = False + ' + 'cbxKosten + ' + Me.cbxKosten.AutoSize = True + Me.cbxKosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.cbxKosten.Location = New System.Drawing.Point(3, 218) + Me.cbxKosten.Name = "cbxKosten" + Me.cbxKosten.Size = New System.Drawing.Size(103, 30) + Me.cbxKosten.TabIndex = 3 + Me.cbxKosten.Text = "Kost. berechnen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Summe)" + Me.cbxKosten.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Location = New System.Drawing.Point(106, 74) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(168, 42) + Me.Button6.TabIndex = 54 + Me.Button6.Text = "CBAM-Pflicht prüfen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(VERAG DB)" + Me.Button6.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_SendToGreenpulse + ' + Me.btnCBAM_DS_VERAG_SendToGreenpulse.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_SendToGreenpulse.Image = Global.SDL.My.Resources.Resources.ico_greenpulse + Me.btnCBAM_DS_VERAG_SendToGreenpulse.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_SendToGreenpulse.Location = New System.Drawing.Point(106, 651) + Me.btnCBAM_DS_VERAG_SendToGreenpulse.Name = "btnCBAM_DS_VERAG_SendToGreenpulse" + Me.btnCBAM_DS_VERAG_SendToGreenpulse.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_VERAG_SendToGreenpulse.TabIndex = 65 + Me.btnCBAM_DS_VERAG_SendToGreenpulse.Text = "Daten an Greenpulse" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "übertragen" + Me.btnCBAM_DS_VERAG_SendToGreenpulse.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_VERAG_SendToGreenpulse.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_GP + ' + Me.btnCBAM_DS_VERAG_GP.Enabled = False + Me.btnCBAM_DS_VERAG_GP.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_GP.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_VERAG_GP.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_GP.Location = New System.Drawing.Point(144, 281) + Me.btnCBAM_DS_VERAG_GP.Name = "btnCBAM_DS_VERAG_GP" + Me.btnCBAM_DS_VERAG_GP.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_GP.TabIndex = 64 + Me.btnCBAM_DS_VERAG_GP.Text = "GP Detailbericht" + Me.btnCBAM_DS_VERAG_GP.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_VERAG_GP.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_SpedB + ' + Me.btnCBAM_DS_VERAG_SpedB.Enabled = False + Me.btnCBAM_DS_VERAG_SpedB.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_SpedB.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_VERAG_SpedB.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_SpedB.Location = New System.Drawing.Point(144, 370) + Me.btnCBAM_DS_VERAG_SpedB.Name = "btnCBAM_DS_VERAG_SpedB" + Me.btnCBAM_DS_VERAG_SpedB.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_SpedB.TabIndex = 63 + Me.btnCBAM_DS_VERAG_SpedB.Text = "Mit Sped-Buch vergleichen" + Me.btnCBAM_DS_VERAG_SpedB.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_VERAG_SpedB.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_GenXML + ' + Me.btnCBAM_DS_VERAG_GenXML.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_GenXML.Location = New System.Drawing.Point(106, 461) + Me.btnCBAM_DS_VERAG_GenXML.Name = "btnCBAM_DS_VERAG_GenXML" + Me.btnCBAM_DS_VERAG_GenXML.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_VERAG_GenXML.TabIndex = 62 + Me.btnCBAM_DS_VERAG_GenXML.Text = "XML Datensatz generieren " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(DAKOSY)" + Me.btnCBAM_DS_VERAG_GenXML.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_CopyXML + ' + Me.btnCBAM_DS_VERAG_CopyXML.Enabled = False + Me.btnCBAM_DS_VERAG_CopyXML.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_CopyXML.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_CopyXML.Location = New System.Drawing.Point(144, 555) + Me.btnCBAM_DS_VERAG_CopyXML.Name = "btnCBAM_DS_VERAG_CopyXML" + Me.btnCBAM_DS_VERAG_CopyXML.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_CopyXML.TabIndex = 61 + Me.btnCBAM_DS_VERAG_CopyXML.Text = "In Zwischenablage kopieren" + Me.btnCBAM_DS_VERAG_CopyXML.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_XML + ' + Me.btnCBAM_DS_VERAG_XML.Enabled = False + Me.btnCBAM_DS_VERAG_XML.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_XML.Image = Global.SDL.My.Resources.Resources.xml + Me.btnCBAM_DS_VERAG_XML.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_XML.Location = New System.Drawing.Point(144, 508) + Me.btnCBAM_DS_VERAG_XML.Name = "btnCBAM_DS_VERAG_XML" + Me.btnCBAM_DS_VERAG_XML.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_XML.TabIndex = 60 + Me.btnCBAM_DS_VERAG_XML.Text = "XML" + Me.btnCBAM_DS_VERAG_XML.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_Copy + ' + Me.btnCBAM_DS_VERAG_Copy.Enabled = False + Me.btnCBAM_DS_VERAG_Copy.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_Copy.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_Copy.Location = New System.Drawing.Point(144, 417) + Me.btnCBAM_DS_VERAG_Copy.Name = "btnCBAM_DS_VERAG_Copy" + Me.btnCBAM_DS_VERAG_Copy.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_Copy.TabIndex = 59 + Me.btnCBAM_DS_VERAG_Copy.Text = "In Zwischenablage kopieren" + Me.btnCBAM_DS_VERAG_Copy.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_Summe + ' + Me.btnCBAM_DS_VERAG_Summe.Enabled = False + Me.btnCBAM_DS_VERAG_Summe.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_Summe.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_VERAG_Summe.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_Summe.Location = New System.Drawing.Point(144, 324) + Me.btnCBAM_DS_VERAG_Summe.Name = "btnCBAM_DS_VERAG_Summe" + Me.btnCBAM_DS_VERAG_Summe.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_Summe.TabIndex = 58 + Me.btnCBAM_DS_VERAG_Summe.Text = "Summenbericht" + Me.btnCBAM_DS_VERAG_Summe.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_VERAG_Summe.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG_Detail + ' + Me.btnCBAM_DS_VERAG_Detail.Enabled = False + Me.btnCBAM_DS_VERAG_Detail.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG_Detail.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnCBAM_DS_VERAG_Detail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCBAM_DS_VERAG_Detail.Location = New System.Drawing.Point(144, 238) + Me.btnCBAM_DS_VERAG_Detail.Name = "btnCBAM_DS_VERAG_Detail" + Me.btnCBAM_DS_VERAG_Detail.Size = New System.Drawing.Size(130, 42) + Me.btnCBAM_DS_VERAG_Detail.TabIndex = 57 + Me.btnCBAM_DS_VERAG_Detail.Text = "Detailbericht" + Me.btnCBAM_DS_VERAG_Detail.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCBAM_DS_VERAG_Detail.UseVisualStyleBackColor = True + ' + 'btnCBAM_DS_VERAG + ' + Me.btnCBAM_DS_VERAG.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCBAM_DS_VERAG.Location = New System.Drawing.Point(106, 190) + Me.btnCBAM_DS_VERAG.Name = "btnCBAM_DS_VERAG" + Me.btnCBAM_DS_VERAG.Size = New System.Drawing.Size(168, 42) + Me.btnCBAM_DS_VERAG.TabIndex = 56 + Me.btnCBAM_DS_VERAG.Text = "Datensatz generieren " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(VERAG)" + Me.btnCBAM_DS_VERAG.UseVisualStyleBackColor = True + ' + 'lblErg_VERAG + ' + Me.lblErg_VERAG.BackColor = System.Drawing.Color.White + Me.lblErg_VERAG.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblErg_VERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblErg_VERAG.Location = New System.Drawing.Point(106, 125) + Me.lblErg_VERAG.Multiline = True + Me.lblErg_VERAG.Name = "lblErg_VERAG" + Me.lblErg_VERAG.ReadOnly = True + Me.lblErg_VERAG.Size = New System.Drawing.Size(168, 22) + Me.lblErg_VERAG.TabIndex = 55 + Me.lblErg_VERAG.Text = "-" + Me.lblErg_VERAG.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(5, 173) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(59, 13) + Me.Label13.TabIndex = 67 + Me.Label13.Text = "Importland:" + ' + 'lblErg_VERAG2 + ' + Me.lblErg_VERAG2.BackColor = System.Drawing.Color.White + Me.lblErg_VERAG2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblErg_VERAG2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblErg_VERAG2.Location = New System.Drawing.Point(106, 146) + Me.lblErg_VERAG2.Multiline = True + Me.lblErg_VERAG2.Name = "lblErg_VERAG2" + Me.lblErg_VERAG2.ReadOnly = True + Me.lblErg_VERAG2.Size = New System.Drawing.Size(168, 22) + Me.lblErg_VERAG2.TabIndex = 68 + Me.lblErg_VERAG2.Text = "-" + Me.lblErg_VERAG2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Panel2 + ' + Me.Panel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel2.BackColor = System.Drawing.Color.FloralWhite + Me.Panel2.Controls.Add(Me.txtCalc_Defaut_Country) + Me.Panel2.Controls.Add(Me.MyTextBox3) + Me.Panel2.Controls.Add(Me.Button7) + Me.Panel2.Controls.Add(Me.txtCalc_Defaut_Year) + Me.Panel2.Controls.Add(Me.Label15) + Me.Panel2.Controls.Add(Me.txtCalc_Defaut_CertPrice) + Me.Panel2.Controls.Add(Me.Label16) + Me.Panel2.Controls.Add(Me.Label17) + Me.Panel2.Controls.Add(Me.txtCalc_Defaut_Weight) + Me.Panel2.Controls.Add(Me.Label18) + Me.Panel2.Controls.Add(Me.txtCalc_Defaut_KN8) + Me.Panel2.Controls.Add(Me.Label19) + Me.Panel2.Location = New System.Drawing.Point(948, 190) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(223, 150) + Me.Panel2.TabIndex = 68 + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Location = New System.Drawing.Point(3, 109) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(217, 28) + Me.Button7.TabIndex = 53 + Me.Button7.Text = "Berechnen" + Me.Button7.UseVisualStyleBackColor = True + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(3, 86) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(68, 13) + Me.Label15.TabIndex = 61 + Me.Label15.Text = "(Jahr)/(Land)" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(3, 65) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(74, 13) + Me.Label16.TabIndex = 59 + Me.Label16.Text = "ZertifikatPreis:" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(3, 45) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(64, 13) + Me.Label17.TabIndex = 57 + Me.Label17.Text = "Gewicht(to):" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(3, 25) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(59, 13) + Me.Label18.TabIndex = 55 + Me.Label18.Text = "Tarif (8 St.)" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(3, 3) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(173, 13) + Me.Label19.TabIndex = 53 + Me.Label19.Text = "CBAM-Rechner (ohne Emissionen):" + ' + 'TextBox1 + ' + Me.TextBox1.BackColor = System.Drawing.Color.White + Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.TextBox1.Location = New System.Drawing.Point(52, 232) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.ReadOnly = True + Me.TextBox1.Size = New System.Drawing.Size(86, 20) + Me.TextBox1.TabIndex = 69 + Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Button8 + ' + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.Image = Global.SDL.My.Resources.Resources.moneybag1 + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button8.Location = New System.Drawing.Point(106, 603) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(168, 42) + Me.Button8.TabIndex = 70 + Me.Button8.Text = "Kosten ermitteln" + Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button8.UseVisualStyleBackColor = True + ' + 'cbxVERAG_GPXLS + ' + Me.cbxVERAG_GPXLS.AutoSize = True + Me.cbxVERAG_GPXLS.Location = New System.Drawing.Point(127, 306) + Me.cbxVERAG_GPXLS.Name = "cbxVERAG_GPXLS" + Me.cbxVERAG_GPXLS.Size = New System.Drawing.Size(15, 14) + Me.cbxVERAG_GPXLS.TabIndex = 3 + Me.cbxVERAG_GPXLS.UseVisualStyleBackColor = True + ' + 'txtCalc_Defaut_Country + ' + Me.txtCalc_Defaut_Country._DateTimeOnly = False + Me.txtCalc_Defaut_Country._numbersOnly = False + Me.txtCalc_Defaut_Country._numbersOnlyKommastellen = "" + Me.txtCalc_Defaut_Country._numbersOnlyTrennzeichen = True + Me.txtCalc_Defaut_Country._Prozent = False + Me.txtCalc_Defaut_Country._ShortDateNew = False + Me.txtCalc_Defaut_Country._ShortDateOnly = False + Me.txtCalc_Defaut_Country._TimeOnly = False + Me.txtCalc_Defaut_Country._TimeOnly_Seconds = False + Me.txtCalc_Defaut_Country._value = "" + Me.txtCalc_Defaut_Country._Waehrung = False + Me.txtCalc_Defaut_Country._WaehrungZeichen = True + Me.txtCalc_Defaut_Country.ForeColor = System.Drawing.Color.Black + Me.txtCalc_Defaut_Country.Location = New System.Drawing.Point(149, 83) + Me.txtCalc_Defaut_Country.MaxLength = 2 + Me.txtCalc_Defaut_Country.MaxLineLength = -1 + Me.txtCalc_Defaut_Country.MaxLines_Warning = "" + Me.txtCalc_Defaut_Country.MaxLines_Warning_Label = Nothing + Me.txtCalc_Defaut_Country.Name = "txtCalc_Defaut_Country" + Me.txtCalc_Defaut_Country.Size = New System.Drawing.Size(70, 20) + Me.txtCalc_Defaut_Country.TabIndex = 65 + ' + 'MyTextBox3 + ' + Me.MyTextBox3._DateTimeOnly = False + Me.MyTextBox3._numbersOnly = False + Me.MyTextBox3._numbersOnlyKommastellen = "" + Me.MyTextBox3._numbersOnlyTrennzeichen = True + Me.MyTextBox3._Prozent = False + Me.MyTextBox3._ShortDateNew = False + Me.MyTextBox3._ShortDateOnly = False + Me.MyTextBox3._TimeOnly = False + Me.MyTextBox3._TimeOnly_Seconds = False + Me.MyTextBox3._value = "" + Me.MyTextBox3._Waehrung = False + Me.MyTextBox3._WaehrungZeichen = True + Me.MyTextBox3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.MyTextBox3.BackColor = System.Drawing.Color.FloralWhite + Me.MyTextBox3.ForeColor = System.Drawing.Color.Black + Me.MyTextBox3.Location = New System.Drawing.Point(3, 154) + Me.MyTextBox3.MaxLength = 3000 + Me.MyTextBox3.MaxLineLength = -1 + Me.MyTextBox3.MaxLines_Warning = "" + Me.MyTextBox3.MaxLines_Warning_Label = Nothing + Me.MyTextBox3.Multiline = True + Me.MyTextBox3.Name = "MyTextBox3" + Me.MyTextBox3.ReadOnly = True + Me.MyTextBox3.Size = New System.Drawing.Size(217, 0) + Me.MyTextBox3.TabIndex = 64 + ' + 'txtCalc_Defaut_Year + ' + Me.txtCalc_Defaut_Year._DateTimeOnly = False + Me.txtCalc_Defaut_Year._numbersOnly = False + Me.txtCalc_Defaut_Year._numbersOnlyKommastellen = "" + Me.txtCalc_Defaut_Year._numbersOnlyTrennzeichen = True + Me.txtCalc_Defaut_Year._Prozent = False + Me.txtCalc_Defaut_Year._ShortDateNew = False + Me.txtCalc_Defaut_Year._ShortDateOnly = False + Me.txtCalc_Defaut_Year._TimeOnly = False + Me.txtCalc_Defaut_Year._TimeOnly_Seconds = False + Me.txtCalc_Defaut_Year._value = "" + Me.txtCalc_Defaut_Year._Waehrung = False + Me.txtCalc_Defaut_Year._WaehrungZeichen = True + Me.txtCalc_Defaut_Year.ForeColor = System.Drawing.Color.Black + Me.txtCalc_Defaut_Year.Location = New System.Drawing.Point(73, 83) + Me.txtCalc_Defaut_Year.MaxLength = 4 + Me.txtCalc_Defaut_Year.MaxLineLength = -1 + Me.txtCalc_Defaut_Year.MaxLines_Warning = "" + Me.txtCalc_Defaut_Year.MaxLines_Warning_Label = Nothing + Me.txtCalc_Defaut_Year.Name = "txtCalc_Defaut_Year" + Me.txtCalc_Defaut_Year.Size = New System.Drawing.Size(70, 20) + Me.txtCalc_Defaut_Year.TabIndex = 60 + ' + '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 = False + Me.txtCalc_Defaut_CertPrice._WaehrungZeichen = True + Me.txtCalc_Defaut_CertPrice.ForeColor = System.Drawing.Color.Red + Me.txtCalc_Defaut_CertPrice.Location = New System.Drawing.Point(73, 62) + 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(147, 20) + Me.txtCalc_Defaut_CertPrice.TabIndex = 58 + ' + 'txtCalc_Defaut_Weight + ' + Me.txtCalc_Defaut_Weight._DateTimeOnly = False + Me.txtCalc_Defaut_Weight._numbersOnly = True + Me.txtCalc_Defaut_Weight._numbersOnlyKommastellen = "" + Me.txtCalc_Defaut_Weight._numbersOnlyTrennzeichen = True + Me.txtCalc_Defaut_Weight._Prozent = False + Me.txtCalc_Defaut_Weight._ShortDateNew = False + Me.txtCalc_Defaut_Weight._ShortDateOnly = False + Me.txtCalc_Defaut_Weight._TimeOnly = False + Me.txtCalc_Defaut_Weight._TimeOnly_Seconds = False + Me.txtCalc_Defaut_Weight._value = "" + Me.txtCalc_Defaut_Weight._Waehrung = False + Me.txtCalc_Defaut_Weight._WaehrungZeichen = True + Me.txtCalc_Defaut_Weight.ForeColor = System.Drawing.Color.Black + Me.txtCalc_Defaut_Weight.Location = New System.Drawing.Point(73, 42) + Me.txtCalc_Defaut_Weight.MaxLength = 10 + Me.txtCalc_Defaut_Weight.MaxLineLength = -1 + Me.txtCalc_Defaut_Weight.MaxLines_Warning = "" + Me.txtCalc_Defaut_Weight.MaxLines_Warning_Label = Nothing + Me.txtCalc_Defaut_Weight.Name = "txtCalc_Defaut_Weight" + Me.txtCalc_Defaut_Weight.Size = New System.Drawing.Size(147, 20) + Me.txtCalc_Defaut_Weight.TabIndex = 56 + ' + 'txtCalc_Defaut_KN8 + ' + Me.txtCalc_Defaut_KN8._DateTimeOnly = False + Me.txtCalc_Defaut_KN8._numbersOnly = False + Me.txtCalc_Defaut_KN8._numbersOnlyKommastellen = "" + Me.txtCalc_Defaut_KN8._numbersOnlyTrennzeichen = True + Me.txtCalc_Defaut_KN8._Prozent = False + Me.txtCalc_Defaut_KN8._ShortDateNew = False + Me.txtCalc_Defaut_KN8._ShortDateOnly = False + Me.txtCalc_Defaut_KN8._TimeOnly = False + Me.txtCalc_Defaut_KN8._TimeOnly_Seconds = False + Me.txtCalc_Defaut_KN8._value = "" + Me.txtCalc_Defaut_KN8._Waehrung = False + Me.txtCalc_Defaut_KN8._WaehrungZeichen = True + Me.txtCalc_Defaut_KN8.ForeColor = System.Drawing.Color.Black + Me.txtCalc_Defaut_KN8.Location = New System.Drawing.Point(73, 22) + Me.txtCalc_Defaut_KN8.MaxLength = 8 + Me.txtCalc_Defaut_KN8.MaxLineLength = -1 + Me.txtCalc_Defaut_KN8.MaxLines_Warning = "" + Me.txtCalc_Defaut_KN8.MaxLines_Warning_Label = Nothing + Me.txtCalc_Defaut_KN8.Name = "txtCalc_Defaut_KN8" + Me.txtCalc_Defaut_KN8.Size = New System.Drawing.Size(147, 20) + Me.txtCalc_Defaut_KN8.TabIndex = 54 + ' + 'cbo_VERAG_ImpLand + ' + Me.cbo_VERAG_ImpLand._allowedValuesFreiText = Nothing + Me.cbo_VERAG_ImpLand._allowFreiText = False + Me.cbo_VERAG_ImpLand._value = "" + Me.cbo_VERAG_ImpLand.FormattingEnabled = True + Me.cbo_VERAG_ImpLand.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"}) + Me.cbo_VERAG_ImpLand.Location = New System.Drawing.Point(106, 169) + Me.cbo_VERAG_ImpLand.Name = "cbo_VERAG_ImpLand" + Me.cbo_VERAG_ImpLand.Size = New System.Drawing.Size(168, 21) + Me.cbo_VERAG_ImpLand.TabIndex = 66 + ' 'txtBenchmark ' Me.txtBenchmark._DateTimeOnly = False @@ -656,15 +1224,6 @@ Partial Class usrCntlCBAM Me.txtBenchmark.Size = New System.Drawing.Size(147, 20) Me.txtBenchmark.TabIndex = 66 ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(3, 85) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(67, 13) - Me.Label12.TabIndex = 67 - Me.Label12.Text = "(Benchmark)" - ' 'txtCalcLand ' Me.txtCalcLand._DateTimeOnly = False @@ -679,7 +1238,6 @@ Partial Class usrCntlCBAM Me.txtCalcLand._value = "" Me.txtCalcLand._Waehrung = False Me.txtCalcLand._WaehrungZeichen = True - Me.txtCalcLand.Enabled = False Me.txtCalcLand.ForeColor = System.Drawing.Color.Black Me.txtCalcLand.Location = New System.Drawing.Point(149, 101) Me.txtCalcLand.MaxLength = 2 @@ -717,19 +1275,9 @@ Partial Class usrCntlCBAM Me.txtCalcErg.Multiline = True Me.txtCalcErg.Name = "txtCalcErg" Me.txtCalcErg.ReadOnly = True - Me.txtCalcErg.Size = New System.Drawing.Size(217, 177) + Me.txtCalcErg.Size = New System.Drawing.Size(217, 218) Me.txtCalcErg.TabIndex = 64 ' - 'Button4 - ' - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.Location = New System.Drawing.Point(3, 126) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(217, 28) - Me.Button4.TabIndex = 53 - Me.Button4.Text = "Berechnen" - Me.Button4.UseVisualStyleBackColor = True - ' 'txtCalcJahr ' Me.txtCalcJahr._DateTimeOnly = False @@ -754,15 +1302,6 @@ Partial Class usrCntlCBAM Me.txtCalcJahr.Size = New System.Drawing.Size(70, 20) Me.txtCalcJahr.TabIndex = 60 ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Location = New System.Drawing.Point(3, 104) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(68, 13) - Me.Label11.TabIndex = 61 - Me.Label11.Text = "(Jahr)/(Land)" - ' 'txtCalcEmission ' Me.txtCalcEmission._DateTimeOnly = False @@ -787,24 +1326,6 @@ Partial Class usrCntlCBAM Me.txtCalcEmission.Size = New System.Drawing.Size(147, 20) Me.txtCalcEmission.TabIndex = 58 ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(3, 65) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(67, 13) - Me.Label10.TabIndex = 59 - Me.Label10.Text = "(Emis.CO2/t)" - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Location = New System.Drawing.Point(3, 45) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(64, 13) - Me.Label9.TabIndex = 57 - Me.Label9.Text = "Gewicht(to):" - ' 'txtCalcGewicht ' Me.txtCalcGewicht._DateTimeOnly = False @@ -829,15 +1350,6 @@ Partial Class usrCntlCBAM Me.txtCalcGewicht.Size = New System.Drawing.Size(147, 20) Me.txtCalcGewicht.TabIndex = 56 ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(3, 25) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(59, 13) - Me.Label8.TabIndex = 55 - Me.Label8.Text = "Tarif (8 St.)" - ' 'txtCalcKN8 ' Me.txtCalcKN8._DateTimeOnly = False @@ -862,16 +1374,6 @@ Partial Class usrCntlCBAM Me.txtCalcKN8.Size = New System.Drawing.Size(147, 20) Me.txtCalcKN8.TabIndex = 54 ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(3, 3) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(84, 13) - Me.Label7.TabIndex = 53 - Me.Label7.Text = "CBAM-Rechner:" - ' 'MyPanel1 ' Me.MyPanel1.Controls.Add(Me.cbxUNISPED) @@ -941,7 +1443,7 @@ Partial Class usrCntlCBAM Me.cboQuartal._allowFreiText = False Me.cboQuartal._value = "" Me.cboQuartal.FormattingEnabled = True - Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4"}) + Me.cboQuartal.Items.AddRange(New Object() {"", "Q1", "Q2", "Q3", "Q4", "JAHR"}) Me.cboQuartal.Location = New System.Drawing.Point(511, 48) Me.cboQuartal.Name = "cboQuartal" Me.cboQuartal.Size = New System.Drawing.Size(45, 21) @@ -962,7 +1464,7 @@ Partial Class usrCntlCBAM Me.txtVon._Waehrung = False Me.txtVon._WaehrungZeichen = True Me.txtVon.ForeColor = System.Drawing.Color.Black - Me.txtVon.Location = New System.Drawing.Point(744, 49) + Me.txtVon.Location = New System.Drawing.Point(763, 48) Me.txtVon.MaxLineLength = -1 Me.txtVon.MaxLines_Warning = "" Me.txtVon.MaxLines_Warning_Label = Nothing @@ -985,7 +1487,7 @@ Partial Class usrCntlCBAM Me.txtBis._Waehrung = False Me.txtBis._WaehrungZeichen = True Me.txtBis.ForeColor = System.Drawing.Color.Black - Me.txtBis.Location = New System.Drawing.Point(860, 49) + Me.txtBis.Location = New System.Drawing.Point(879, 48) Me.txtBis.MaxLineLength = -1 Me.txtBis.MaxLines_Warning = "" Me.txtBis.MaxLines_Warning_Label = Nothing @@ -1016,21 +1518,31 @@ Partial Class usrCntlCBAM Me.txtEori.Size = New System.Drawing.Size(341, 20) Me.txtEori.TabIndex = 1 ' - 'Button5 - ' - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Location = New System.Drawing.Point(32, 90) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(68, 37) - Me.Button5.TabIndex = 53 - Me.Button5.Text = "test" - Me.Button5.UseVisualStyleBackColor = True - ' 'usrCntlCBAM ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.cbxVERAG_GPXLS) + Me.Controls.Add(Me.Button8) + Me.Controls.Add(Me.cbxKosten) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.lblErg_VERAG2) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.cbo_VERAG_ImpLand) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_SendToGreenpulse) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_GP) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_SpedB) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_GenXML) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_CopyXML) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_XML) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_Copy) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_Summe) + Me.Controls.Add(Me.btnCBAM_DS_VERAG_Detail) + Me.Controls.Add(Me.btnCBAM_DS_VERAG) + Me.Controls.Add(Me.lblErg_VERAG) + Me.Controls.Add(Me.Button6) Me.Controls.Add(Me.Button5) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.lblKafkaCnt) @@ -1083,10 +1595,12 @@ Partial Class usrCntlCBAM Me.Controls.Add(Me.lblOffert) Me.Margin = New System.Windows.Forms.Padding(2) Me.Name = "usrCntlCBAM" - Me.Size = New System.Drawing.Size(1041, 632) + Me.Size = New System.Drawing.Size(1171, 712) Me.cntxtAddSdl.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() Me.MyPanel1.ResumeLayout(False) Me.MyPanel1.PerformLayout() Me.ResumeLayout(False) @@ -1162,4 +1676,36 @@ Partial Class usrCntlCBAM Friend WithEvents txtBenchmark As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label12 As Label Friend WithEvents Button5 As Button + Friend WithEvents cbxKosten As CheckBox + Friend WithEvents Button6 As Button + Friend WithEvents btnCBAM_DS_VERAG_SendToGreenpulse As Button + Friend WithEvents btnCBAM_DS_VERAG_GP As Button + Friend WithEvents btnCBAM_DS_VERAG_SpedB As Button + Friend WithEvents btnCBAM_DS_VERAG_GenXML As Button + Friend WithEvents btnCBAM_DS_VERAG_CopyXML As Button + Friend WithEvents btnCBAM_DS_VERAG_XML As Button + Friend WithEvents btnCBAM_DS_VERAG_Copy As Button + Friend WithEvents btnCBAM_DS_VERAG_Summe As Button + Friend WithEvents btnCBAM_DS_VERAG_Detail As Button + Friend WithEvents btnCBAM_DS_VERAG As Button + Friend WithEvents lblErg_VERAG As TextBox + Friend WithEvents cbo_VERAG_ImpLand As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label13 As Label + Friend WithEvents lblErg_VERAG2 As TextBox + Friend WithEvents Panel2 As Panel + Friend WithEvents txtCalc_Defaut_Country As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button7 As Button + Friend WithEvents txtCalc_Defaut_Year As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label15 As Label + Friend WithEvents txtCalc_Defaut_CertPrice As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label16 As Label + Friend WithEvents Label17 As Label + Friend WithEvents txtCalc_Defaut_Weight As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label18 As Label + Friend WithEvents txtCalc_Defaut_KN8 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label19 As Label + Friend WithEvents TextBox1 As TextBox + Friend WithEvents Button8 As Button + Friend WithEvents cbxVERAG_GPXLS As CheckBox End Class diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index 00923204..a70bdc70 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index 5f90ca3a..91267da0 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb index f3992dcc..40b45c56 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb @@ -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 ' ------------------------------------------------------------------------ diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb index ba11fc4a..52d264b3 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb index 7c9e440e..8728530f 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb +++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 14b063c3..163c92b6 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -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 = "^(?\d{4})[\/\-](?\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