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

VK CBAM

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-13 15:29:00 +01:00
parent 84e9e86a4d
commit 283ba40d9c
5 changed files with 94 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.Designer.vb generated
View File

@@ -44,6 +44,7 @@ Partial Class frmVorauskasse_CBAM
Me.clmnYear = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnKosten = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cmlnEmission = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnBenchmark = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -124,7 +125,7 @@ Partial Class frmVorauskasse_CBAM
'
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.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnTarif, Me.clmnWeight, Me.clmnCountry, Me.clmnYear, Me.clmnKosten, Me.cmlnEmission, Me.clmnBenchmark})
Me.MyDatagridview1.Location = New System.Drawing.Point(12, 12)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(430, 359)
@@ -176,7 +177,6 @@ Partial Class frmVorauskasse_CBAM
'
'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)
@@ -236,6 +236,12 @@ Partial Class frmVorauskasse_CBAM
Me.cmlnEmission.Name = "cmlnEmission"
Me.cmlnEmission.Visible = False
'
'clmnBenchmark
'
Me.clmnBenchmark.HeaderText = "Benchmark"
Me.clmnBenchmark.Name = "clmnBenchmark"
Me.clmnBenchmark.Visible = False
'
'frmVorauskasse_CBAM
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -279,4 +285,5 @@ Partial Class frmVorauskasse_CBAM
Friend WithEvents clmnYear As DataGridViewTextBoxColumn
Friend WithEvents clmnKosten As DataGridViewTextBoxColumn
Friend WithEvents cmlnEmission As DataGridViewTextBoxColumn
Friend WithEvents clmnBenchmark As DataGridViewTextBoxColumn
End Class

3
SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.resx
View File

@@ -135,6 +135,9 @@
<metadata name="cmlnEmission.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnBenchmark.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

4
SDL/Formulare/KDFormulare/FormulareBaukasten/frmVorauskasse_CBAM.vb
View File

@@ -27,11 +27,13 @@ Public Class frmVorauskasse_CBAM
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)
Dim benchmark 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, benchmark)
If cost > 0 Then
r.Cells("clmnKosten").Value = cost
r.Cells("cmlnEmission").Value = emission
r.Cells("clmnBenchmark").Value = benchmark
GesamtBetrag += cost
End If