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

CBAM/VERAG Zollanmeldugnen

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-13 10:01:59 +01:00
parent 7cd106a413
commit 0ebe4cf198
12 changed files with 849 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

245
SDL/kunden/usrCntlCBAM.Designer.vb generated
View File

@@ -127,10 +127,25 @@ Partial Class usrCntlCBAM
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtEori = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button8 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Button9 = New System.Windows.Forms.Button()
Me.txtCBAM_KdSett_CBAMNo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.Label21 = New System.Windows.Forms.Label()
Me.txtCBAM_KdSett_Warn1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label23 = New System.Windows.Forms.Label()
Me.txtCBAM_KdSett_Status = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtCBAM_KdSett_Warn2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtCBAM_KdSett_ApplNo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label24 = New System.Windows.Forms.Label()
Me.Label25 = New System.Windows.Forms.Label()
Me.cntxtAddSdl.SuspendLayout() Me.cntxtAddSdl.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.MyPanel1.SuspendLayout() Me.MyPanel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'lblOffert 'lblOffert
@@ -911,7 +926,7 @@ Partial Class usrCntlCBAM
'Button5 'Button5
' '
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Location = New System.Drawing.Point(825, 620) Me.Button5.Location = New System.Drawing.Point(1097, 79)
Me.Button5.Name = "Button5" Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(68, 37) Me.Button5.Size = New System.Drawing.Size(68, 37)
Me.Button5.TabIndex = 53 Me.Button5.TabIndex = 53
@@ -1547,7 +1562,7 @@ Partial Class usrCntlCBAM
'Button8 'Button8
' '
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Location = New System.Drawing.Point(825, 672) Me.Button8.Location = New System.Drawing.Point(1097, 131)
Me.Button8.Name = "Button8" Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(68, 37) Me.Button8.Size = New System.Drawing.Size(68, 37)
Me.Button8.TabIndex = 72 Me.Button8.TabIndex = 72
@@ -1555,11 +1570,221 @@ Partial Class usrCntlCBAM
Me.Button8.UseVisualStyleBackColor = True Me.Button8.UseVisualStyleBackColor = True
Me.Button8.Visible = False Me.Button8.Visible = False
' '
'Panel3
'
Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel3.BackColor = System.Drawing.Color.FloralWhite
Me.Panel3.Controls.Add(Me.Label25)
Me.Panel3.Controls.Add(Me.Label24)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_ApplNo)
Me.Panel3.Controls.Add(Me.Label14)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Warn2)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Status)
Me.Panel3.Controls.Add(Me.Button9)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_CBAMNo)
Me.Panel3.Controls.Add(Me.Label20)
Me.Panel3.Controls.Add(Me.Label21)
Me.Panel3.Controls.Add(Me.txtCBAM_KdSett_Warn1)
Me.Panel3.Controls.Add(Me.Label22)
Me.Panel3.Controls.Add(Me.Label23)
Me.Panel3.Location = New System.Drawing.Point(491, 511)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(382, 182)
Me.Panel3.TabIndex = 73
'
'Button9
'
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Location = New System.Drawing.Point(149, 147)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(217, 28)
Me.Button9.TabIndex = 53
Me.Button9.Text = "Speichern"
Me.Button9.UseVisualStyleBackColor = True
'
'txtCBAM_KdSett_CBAMNo
'
Me.txtCBAM_KdSett_CBAMNo._DateTimeOnly = False
Me.txtCBAM_KdSett_CBAMNo._numbersOnly = True
Me.txtCBAM_KdSett_CBAMNo._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_CBAMNo._numbersOnlyTrennzeichen = True
Me.txtCBAM_KdSett_CBAMNo._Prozent = False
Me.txtCBAM_KdSett_CBAMNo._ShortDateNew = False
Me.txtCBAM_KdSett_CBAMNo._ShortDateOnly = False
Me.txtCBAM_KdSett_CBAMNo._TimeOnly = False
Me.txtCBAM_KdSett_CBAMNo._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_CBAMNo._value = ""
Me.txtCBAM_KdSett_CBAMNo._Waehrung = False
Me.txtCBAM_KdSett_CBAMNo._WaehrungZeichen = True
Me.txtCBAM_KdSett_CBAMNo.Enabled = False
Me.txtCBAM_KdSett_CBAMNo.ForeColor = System.Drawing.Color.Red
Me.txtCBAM_KdSett_CBAMNo.Location = New System.Drawing.Point(110, 118)
Me.txtCBAM_KdSett_CBAMNo.MaxLength = 10
Me.txtCBAM_KdSett_CBAMNo.MaxLineLength = -1
Me.txtCBAM_KdSett_CBAMNo.MaxLines_Warning = ""
Me.txtCBAM_KdSett_CBAMNo.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_CBAMNo.Name = "txtCBAM_KdSett_CBAMNo"
Me.txtCBAM_KdSett_CBAMNo.Size = New System.Drawing.Size(256, 20)
Me.txtCBAM_KdSett_CBAMNo.TabIndex = 58
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(3, 121)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(88, 13)
Me.Label20.TabIndex = 59
Me.Label20.Text = "CBAM Konto-Nr.:"
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Location = New System.Drawing.Point(2, 69)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(102, 13)
Me.Label21.TabIndex = 57
Me.Label21.Text = "Warnschwelle/Jahr:"
'
'txtCBAM_KdSett_Warn1
'
Me.txtCBAM_KdSett_Warn1._DateTimeOnly = False
Me.txtCBAM_KdSett_Warn1._numbersOnly = True
Me.txtCBAM_KdSett_Warn1._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_Warn1._numbersOnlyTrennzeichen = True
Me.txtCBAM_KdSett_Warn1._Prozent = False
Me.txtCBAM_KdSett_Warn1._ShortDateNew = False
Me.txtCBAM_KdSett_Warn1._ShortDateOnly = False
Me.txtCBAM_KdSett_Warn1._TimeOnly = False
Me.txtCBAM_KdSett_Warn1._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_Warn1._value = "30"
Me.txtCBAM_KdSett_Warn1._Waehrung = False
Me.txtCBAM_KdSett_Warn1._WaehrungZeichen = True
Me.txtCBAM_KdSett_Warn1.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_KdSett_Warn1.Location = New System.Drawing.Point(110, 66)
Me.txtCBAM_KdSett_Warn1.MaxLength = 10
Me.txtCBAM_KdSett_Warn1.MaxLineLength = -1
Me.txtCBAM_KdSett_Warn1.MaxLines_Warning = ""
Me.txtCBAM_KdSett_Warn1.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_Warn1.Name = "txtCBAM_KdSett_Warn1"
Me.txtCBAM_KdSett_Warn1.Size = New System.Drawing.Size(58, 20)
Me.txtCBAM_KdSett_Warn1.TabIndex = 56
Me.txtCBAM_KdSett_Warn1.Text = "30"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Location = New System.Drawing.Point(3, 25)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(73, 13)
Me.Label22.TabIndex = 55
Me.Label22.Text = "CBAM-Status:"
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(3, 3)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(142, 13)
Me.Label23.TabIndex = 53
Me.Label23.Text = "CBAM-Kundeneinstellungen:"
'
'txtCBAM_KdSett_Status
'
Me.txtCBAM_KdSett_Status._allowedValuesFreiText = Nothing
Me.txtCBAM_KdSett_Status._allowFreiText = False
Me.txtCBAM_KdSett_Status._value = ""
Me.txtCBAM_KdSett_Status.FormattingEnabled = True
Me.txtCBAM_KdSett_Status.Location = New System.Drawing.Point(110, 24)
Me.txtCBAM_KdSett_Status.Name = "txtCBAM_KdSett_Status"
Me.txtCBAM_KdSett_Status.Size = New System.Drawing.Size(256, 21)
Me.txtCBAM_KdSett_Status.TabIndex = 74
'
'txtCBAM_KdSett_Warn2
'
Me.txtCBAM_KdSett_Warn2._DateTimeOnly = False
Me.txtCBAM_KdSett_Warn2._numbersOnly = True
Me.txtCBAM_KdSett_Warn2._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_Warn2._numbersOnlyTrennzeichen = True
Me.txtCBAM_KdSett_Warn2._Prozent = False
Me.txtCBAM_KdSett_Warn2._ShortDateNew = False
Me.txtCBAM_KdSett_Warn2._ShortDateOnly = False
Me.txtCBAM_KdSett_Warn2._TimeOnly = False
Me.txtCBAM_KdSett_Warn2._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_Warn2._value = "40"
Me.txtCBAM_KdSett_Warn2._Waehrung = False
Me.txtCBAM_KdSett_Warn2._WaehrungZeichen = True
Me.txtCBAM_KdSett_Warn2.ForeColor = System.Drawing.Color.Black
Me.txtCBAM_KdSett_Warn2.Location = New System.Drawing.Point(174, 66)
Me.txtCBAM_KdSett_Warn2.MaxLength = 10
Me.txtCBAM_KdSett_Warn2.MaxLineLength = -1
Me.txtCBAM_KdSett_Warn2.MaxLines_Warning = ""
Me.txtCBAM_KdSett_Warn2.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_Warn2.Name = "txtCBAM_KdSett_Warn2"
Me.txtCBAM_KdSett_Warn2.Size = New System.Drawing.Size(58, 20)
Me.txtCBAM_KdSett_Warn2.TabIndex = 75
Me.txtCBAM_KdSett_Warn2.Text = "40"
'
'txtCBAM_KdSett_ApplNo
'
Me.txtCBAM_KdSett_ApplNo._DateTimeOnly = False
Me.txtCBAM_KdSett_ApplNo._numbersOnly = True
Me.txtCBAM_KdSett_ApplNo._numbersOnlyKommastellen = ""
Me.txtCBAM_KdSett_ApplNo._numbersOnlyTrennzeichen = True
Me.txtCBAM_KdSett_ApplNo._Prozent = False
Me.txtCBAM_KdSett_ApplNo._ShortDateNew = False
Me.txtCBAM_KdSett_ApplNo._ShortDateOnly = False
Me.txtCBAM_KdSett_ApplNo._TimeOnly = False
Me.txtCBAM_KdSett_ApplNo._TimeOnly_Seconds = False
Me.txtCBAM_KdSett_ApplNo._value = ""
Me.txtCBAM_KdSett_ApplNo._Waehrung = False
Me.txtCBAM_KdSett_ApplNo._WaehrungZeichen = True
Me.txtCBAM_KdSett_ApplNo.Enabled = False
Me.txtCBAM_KdSett_ApplNo.ForeColor = System.Drawing.Color.Red
Me.txtCBAM_KdSett_ApplNo.Location = New System.Drawing.Point(110, 95)
Me.txtCBAM_KdSett_ApplNo.MaxLength = 10
Me.txtCBAM_KdSett_ApplNo.MaxLineLength = -1
Me.txtCBAM_KdSett_ApplNo.MaxLines_Warning = ""
Me.txtCBAM_KdSett_ApplNo.MaxLines_Warning_Label = Nothing
Me.txtCBAM_KdSett_ApplNo.Name = "txtCBAM_KdSett_ApplNo"
Me.txtCBAM_KdSett_ApplNo.Size = New System.Drawing.Size(256, 20)
Me.txtCBAM_KdSett_ApplNo.TabIndex = 77
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(3, 98)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(79, 13)
Me.Label14.TabIndex = 78
Me.Label14.Text = "Application-Nr.:"
'
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label24.Location = New System.Drawing.Point(118, 52)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(43, 13)
Me.Label24.TabIndex = 79
Me.Label24.Text = "Warn 1 "
'
'Label25
'
Me.Label25.AutoSize = True
Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label25.Location = New System.Drawing.Point(182, 52)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(40, 13)
Me.Label25.TabIndex = 80
Me.Label25.Text = "Warn 2"
'
'usrCntlCBAM 'usrCntlCBAM
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Button8) Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.cboIndirekt) Me.Controls.Add(Me.cboIndirekt)
Me.Controls.Add(Me.cbxIndirekt) Me.Controls.Add(Me.cbxIndirekt)
@@ -1643,6 +1868,8 @@ Partial Class usrCntlCBAM
Me.Panel2.PerformLayout() Me.Panel2.PerformLayout()
Me.MyPanel1.ResumeLayout(False) Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout() Me.MyPanel1.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -1751,4 +1978,18 @@ Partial Class usrCntlCBAM
Friend WithEvents cboIndirekt As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboIndirekt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxIndirekt As CheckBox Friend WithEvents cbxIndirekt As CheckBox
Friend WithEvents Button8 As Button Friend WithEvents Button8 As Button
Friend WithEvents Panel3 As Panel
Friend WithEvents txtCBAM_KdSett_ApplNo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label14 As Label
Friend WithEvents txtCBAM_KdSett_Warn2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtCBAM_KdSett_Status As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Button9 As Button
Friend WithEvents txtCBAM_KdSett_CBAMNo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label20 As Label
Friend WithEvents Label21 As Label
Friend WithEvents txtCBAM_KdSett_Warn1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label22 As Label
Friend WithEvents Label23 As Label
Friend WithEvents Label25 As Label
Friend WithEvents Label24 As Label
End Class End Class

130
SDL/kunden/usrCntlCBAM.vb
View File

@@ -1,5 +1,6 @@
Imports DAKOSY_Worker Imports DAKOSY_Worker
Imports DocumentFormat.OpenXml.Spreadsheet Imports DocumentFormat.OpenXml.Spreadsheet
Imports Org.BouncyCastle.Crypto.Agreement
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlCBAM Public Class usrCntlCBAM
@@ -8,6 +9,7 @@ Public Class usrCntlCBAM
Public kdnr As Integer = -1 Public kdnr As Integer = -1
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Dim ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
Sub New() Sub New()
InitializeComponent() InitializeComponent()
@@ -415,11 +417,21 @@ Public Class usrCntlCBAM
If kdnr > 0 Then If kdnr > 0 Then
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr) AD = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
KD = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr) KD = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
End If End If
If KD IsNot Nothing Then If KD IsNot Nothing Then
txtEori.Text = KD.EORITIN txtEori.Text = KD.EORITIN
End If End If
txtCBAM_KdSett_Status.Items.Clear()
txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("unbestimmt", ""))
txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("< 50 to (de minis)", "50to"))
txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Antrag abgegeben", "APPL"))
txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Konto vorhanden", "CBAM"))
txtCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kein Interesse/Fremdkunde", "NO"))
txtCBAM_KdSett_Status.changeItem("undefined")
cboIndirekt.Items.Clear() cboIndirekt.Items.Clear()
cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition GmbH - DE4824105", "DE4824105")) cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition GmbH - DE4824105", "DE4824105"))
cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH - ATEOS1000059121", "DE4ATEOS1000059121824105")) cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH - ATEOS1000059121", "DE4ATEOS1000059121824105"))
@@ -430,6 +442,15 @@ Public Class usrCntlCBAM
cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice GmbH - ATEOS1000040508", "ATEOS1000040508")) cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice GmbH - ATEOS1000040508", "ATEOS1000040508"))
cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland GmbH - DE7467540", "DE7467540")) cboIndirekt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland GmbH - DE7467540", "DE7467540"))
If ERW IsNot Nothing Then
txtCBAM_KdSett_Status.changeItem(If(ERW.kde_CBAM_Status, ""))
txtCBAM_KdSett_Warn1._value = If(ERW.kde_CBAM_Warn1, "")
txtCBAM_KdSett_Warn2._value = If(ERW.kde_CBAM_Warn2, "")
txtCBAM_KdSett_ApplNo._value = If(ERW.kde_CBAM_ApplicationNo, "")
txtCBAM_KdSett_CBAMNo.Text = If(ERW.kde_CBAM_CBAMAccountNo, "")
End If
End Sub End Sub
Private Sub cboQuartal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboQuartal.SelectedIndexChanged Private Sub cboQuartal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboQuartal.SelectedIndexChanged
@@ -2245,24 +2266,34 @@ Public Class usrCntlCBAM
Try Try
Dim summary = Dim summary =
From za In LIST From za In LIST
From it In za.Items From it In za.Items
Group By Group By
Tarifnummer = LeftStr(it.zaItem_HSCode, 8), Tarifnummer = LeftStr(it.zaItem_HSCode, 8),
VersendungsLand = za.za_CountryDispatch, VersendungsLand = za.za_CountryDispatch
Verfahren = LeftStr(za.za_MainProcedure, 2), Into grp = Group
Vorverfahren = it.zaItem_PrevProcedure Let verfahren =
Into grp = Group grp.Select(Function(x) LeftStr(x.za.za_MainProcedure, 2)).
Select New With { FirstOrDefault(Function(v) Not String.IsNullOrWhiteSpace(v))
.Tarifnummer = Tarifnummer, Let verfahrenFallback =
.Eigenmasse = grp.Sum(Function(x) If(x.it.zaItem_NetMass, 0D)), grp.Select(Function(x) LeftStr(x.it.zaItem_MainProcedure, 2)).
.Rohmasse = grp.Sum(Function(x) If(x.it.zaItem_GrossMass, 0D)), FirstOrDefault(Function(v) Not String.IsNullOrWhiteSpace(v))
.Rechnungspreis = grp.Sum(Function(x) If(x.it.zaItem_InvoiceValueEUR, 0D)), Let vorverfahren =
.VersendungsLand = VersendungsLand, grp.Select(Function(x) x.it.zaItem_PrevProcedure).
.Verfahren = Verfahren, FirstOrDefault(Function(v) Not String.IsNullOrWhiteSpace(v))
.VorangegangenesVerfahren = Vorverfahren Let rohmasseItems =
} grp.Sum(Function(x) If(x.it.zaItem_GrossMass, 0D))
Let rohmasseZA =
grp.Max(Function(x) If(x.za.za_TotGrossMass, 0D))
Select New With {
.Tarifnummer = Tarifnummer,
.Eigenmasse = grp.Sum(Function(x) If(x.it.zaItem_NetMass, 0D)),
.Rohmasse = Math.Max(rohmasseItems, rohmasseZA),
.Rechnungspreis = grp.Sum(Function(x) If(x.it.zaItem_InvoiceValueEUR, x.it.zaItem_StatisticalValueEUR)),
.VersendungsLand = VersendungsLand,
.Verfahren = If(verfahrenFallback, verfahren),
.VorangegangenesVerfahren = vorverfahren
}
Dim dt As New DataTable Dim dt As New DataTable
@@ -2316,7 +2347,7 @@ Public Class usrCntlCBAM
Let exporter = za.Parties. Let exporter = za.Parties.
FirstOrDefault(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role)) FirstOrDefault(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role))
Let invoice = Let invoice =
za.Documents.FirstOrDefault(Function(d) d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325") it.Documents.FirstOrDefault(Function(d) d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")
Let Anmeldedatum = (Function(x) If(x.za_releaseDate, x.za_DeclarationDate)) Let Anmeldedatum = (Function(x) If(x.za_releaseDate, x.za_DeclarationDate))
Order By Anmeldedatum Order By Anmeldedatum
Select New With { Select New With {
@@ -2330,14 +2361,14 @@ Public Class usrCntlCBAM
.Rohmasse = it.zaItem_GrossMass, .Rohmasse = it.zaItem_GrossMass,
.VersendungsLand = za.za_CountryDispatch, .VersendungsLand = za.za_CountryDispatch,
.BestimmungsLand = za.za_CountryDestination, .BestimmungsLand = za.za_CountryDestination,
.Rechnungspreis = it.zaItem_InvoiceValueEUR, .Rechnungspreis = If(it.zaItem_InvoiceValueEUR, it.zaItem_StatisticalValueEUR),
.Rechnungswaehrung = it.zaItem_InvoiceCurrency, .Rechnungswaehrung = it.zaItem_InvoiceCurrency,
.EmpfaengerEORI = If(importer IsNot Nothing, importer.zaParty_EORI, ""), .EmpfaengerEORI = If(importer IsNot Nothing, importer.zaParty_EORI, ""),
.Empfaenger = If(importer IsNot Nothing, importer.zaParty_Name, ""), .Empfaenger = If(importer IsNot Nothing, importer.zaParty_Name, ""),
.AbsenderEORI = If(exporter IsNot Nothing, exporter.zaParty_EORI, ""), .AbsenderEORI = If(exporter IsNot Nothing, exporter.zaParty_EORI, ""),
.Absender = If(exporter IsNot Nothing, exporter.zaParty_Name, ""), .Absender = If(exporter IsNot Nothing, exporter.zaParty_Name, ""),
.Rechnungsnummer = If(invoice IsNot Nothing, invoice.zaDoc_Reference, "-"), .Rechnungsnummer = If(invoice IsNot Nothing, invoice.zaDoc_Reference, "-"),
.Rechnungsdatum = If(invoice IsNot Nothing, invoice.zaDoc_Date, Nothing) .Rechnungsdatum = If(invoice IsNot Nothing, ParseDateSafe(invoice.zaDoc_Date), Nothing)
} }
@@ -2398,7 +2429,25 @@ Public Class usrCntlCBAM
End Try End Try
End Sub End Sub
Public Shared Function ParseDateSafe(value As String) As Date?
If String.IsNullOrWhiteSpace(value) Then Return Nothing
Dim d As DateTime
If DateTime.TryParseExact(
value.Trim(),
{"dd.MM.yyyy", "dd.MM.yyyy HH:mm:ss", "yyyy-MM-dd", "yyyy-MM-dd HH:mm:ss", "MM/dd/yyyy", "MM/dd/yyyy HH:mm:ss"},
Globalization.CultureInfo.InvariantCulture,
Globalization.DateTimeStyles.None,
d) Then
Return d
End If
If DateTime.TryParse(value, Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, d) Then
Return d
End If
If DateTime.TryParse(value, Globalization.CultureInfo.CurrentCulture, Globalization.DateTimeStyles.None, d) Then
Return d
End If
Return Nothing
End Function
Sub doVERAG_GREENPULSE_XLS(LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations), EORI As String) 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.Enabled = False
@@ -2795,5 +2844,42 @@ Public Class usrCntlCBAM
String.Join(vbNewLine, LIST. String.Join(vbNewLine, LIST.
Where(Function(x) Not String.IsNullOrWhiteSpace(x.za_LRN)))) Where(Function(x) Not String.IsNullOrWhiteSpace(x.za_LRN))))
End Sub End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles txtCBAM_KdSett_Status.SelectedIndexChanged
txtCBAM_KdSett_ApplNo.Enabled = False
txtCBAM_KdSett_CBAMNo.Enabled = False
txtCBAM_KdSett_Warn1.Enabled = False
txtCBAM_KdSett_Warn2.Enabled = False
Select Case txtCBAM_KdSett_Status._value
Case ""
txtCBAM_KdSett_Warn1.Enabled = True
txtCBAM_KdSett_Warn2.Enabled = True
Case "50to"
txtCBAM_KdSett_Warn1.Enabled = True
txtCBAM_KdSett_Warn2.Enabled = True
Case "APPL"
txtCBAM_KdSett_ApplNo.Enabled = True
Case "CBAM"
txtCBAM_KdSett_ApplNo.Enabled = True
txtCBAM_KdSett_CBAMNo.Enabled = True
Case "NO" 'nix
End Select
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
If ERW Is Nothing Then ERW = New cKundenErweitert(kdnr)
ERW.kde_CBAM_Status = txtCBAM_KdSett_Status._value
ERW.kde_CBAM_Warn1 = txtCBAM_KdSett_Warn1._value
ERW.kde_CBAM_Warn2 = txtCBAM_KdSett_Warn2._value
ERW.kde_CBAM_ApplicationNo = If(txtCBAM_KdSett_ApplNo._value <> "", txtCBAM_KdSett_ApplNo._value, Nothing)
ERW.kde_CBAM_CBAMAccountNo = If(txtCBAM_KdSett_CBAMNo._value <> "", txtCBAM_KdSett_CBAMNo._value, Nothing)
ERW.SAVE()
End Sub
End Class End Class

209
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

@@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht))
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnExcel = New System.Windows.Forms.Button() Me.btnExcel = New System.Windows.Forms.Button()
@@ -209,6 +209,8 @@ Partial Class usrCntlKundenuebersicht
Me.tbAvisoMail = New System.Windows.Forms.TabPage() Me.tbAvisoMail = New System.Windows.Forms.TabPage()
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.tbKdSpez = New System.Windows.Forms.TabPage() Me.tbKdSpez = New System.Windows.Forms.TabPage()
Me.txtBelegMail_FixBetreffText = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxBelegMail_FixBetreff = New System.Windows.Forms.CheckBox()
Me.Label14 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label()
Me.Label43 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label()
Me.cbxKdAuftragsNr = New System.Windows.Forms.CheckBox() Me.cbxKdAuftragsNr = New System.Windows.Forms.CheckBox()
@@ -264,8 +266,7 @@ Partial Class usrCntlKundenuebersicht
Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService() Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService()
Me.cbxBelegMail_FixBetreff = New System.Windows.Forms.CheckBox() Me.datVertragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBelegMail_FixBetreffText = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cntxtAddVM.SuspendLayout() Me.cntxtAddVM.SuspendLayout()
Me.tbWeitereKundenDetails.SuspendLayout() Me.tbWeitereKundenDetails.SuspendLayout()
Me.tbOfferten.SuspendLayout() Me.tbOfferten.SuspendLayout()
@@ -429,8 +430,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13 Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -450,8 +451,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
Me.dgvOffertenSperrliste.AllowUserToResizeRows = False Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -461,10 +462,10 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
Me.dgvOffertenSperrliste.ReadOnly = True Me.dgvOffertenSperrliste.ReadOnly = True
Me.dgvOffertenSperrliste.RowHeadersVisible = False Me.dgvOffertenSperrliste.RowHeadersVisible = False
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.Color.Black DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle15 Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257) Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257)
Me.dgvOffertenSperrliste.TabIndex = 0 Me.dgvOffertenSperrliste.TabIndex = 0
@@ -602,8 +603,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvOffenePosten.AllowUserToAddRows = False Me.dgvOffenePosten.AllowUserToAddRows = False
Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToResizeRows = False Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16 Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -683,8 +684,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False Me.dgvUmsatzbericht.AllowUserToResizeRows = False
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill
@@ -747,8 +748,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvAnhaenge.AllowUserToAddRows = False Me.dgvAnhaenge.AllowUserToAddRows = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False Me.dgvAnhaenge.AllowUserToDeleteRows = False
Me.dgvAnhaenge.AllowUserToResizeRows = False Me.dgvAnhaenge.AllowUserToResizeRows = False
DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -2511,8 +2512,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvVollmachten.AllowUserToDeleteRows = False Me.dgvVollmachten.AllowUserToDeleteRows = False
Me.dgvVollmachten.AllowUserToOrderColumns = True Me.dgvVollmachten.AllowUserToOrderColumns = True
Me.dgvVollmachten.AllowUserToResizeRows = False Me.dgvVollmachten.AllowUserToResizeRows = False
DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22 Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2565,8 +2566,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvVertraege.AllowUserToDeleteRows = False Me.dgvVertraege.AllowUserToDeleteRows = False
Me.dgvVertraege.AllowUserToOrderColumns = True Me.dgvVertraege.AllowUserToOrderColumns = True
Me.dgvVertraege.AllowUserToResizeRows = False Me.dgvVertraege.AllowUserToResizeRows = False
DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23 Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2582,6 +2583,7 @@ Partial Class usrCntlKundenuebersicht
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.Color.White Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.datVertragBis)
Me.Panel1.Controls.Add(Me.Button11) Me.Panel1.Controls.Add(Me.Button11)
Me.Panel1.Controls.Add(Me.Button12) Me.Panel1.Controls.Add(Me.Button12)
Me.Panel1.Controls.Add(Me.txtVertragVermerk) Me.Panel1.Controls.Add(Me.txtVertragVermerk)
@@ -2644,7 +2646,7 @@ Partial Class usrCntlKundenuebersicht
Me.txtVertragVermerk.MaxLines_Warning = "" Me.txtVertragVermerk.MaxLines_Warning = ""
Me.txtVertragVermerk.MaxLines_Warning_Label = Nothing Me.txtVertragVermerk.MaxLines_Warning_Label = Nothing
Me.txtVertragVermerk.Name = "txtVertragVermerk" Me.txtVertragVermerk.Name = "txtVertragVermerk"
Me.txtVertragVermerk.Size = New System.Drawing.Size(326, 20) Me.txtVertragVermerk.Size = New System.Drawing.Size(255, 20)
Me.txtVertragVermerk.TabIndex = 6 Me.txtVertragVermerk.TabIndex = 6
' '
'Label16 'Label16
@@ -2661,11 +2663,11 @@ Partial Class usrCntlKundenuebersicht
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(244, 6) Me.Label5.Location = New System.Drawing.Point(255, 6)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(41, 13) Me.Label5.Size = New System.Drawing.Size(60, 13)
Me.Label5.TabIndex = 2 Me.Label5.TabIndex = 2
Me.Label5.Text = "Datum:" Me.Label5.Text = "Datum/Bis:"
' '
'cboVertrag 'cboVertrag
' '
@@ -2675,7 +2677,7 @@ Partial Class usrCntlKundenuebersicht
Me.cboVertrag.FormattingEnabled = True Me.cboVertrag.FormattingEnabled = True
Me.cboVertrag.Location = New System.Drawing.Point(60, 3) Me.cboVertrag.Location = New System.Drawing.Point(60, 3)
Me.cboVertrag.Name = "cboVertrag" Me.cboVertrag.Name = "cboVertrag"
Me.cboVertrag.Size = New System.Drawing.Size(178, 21) Me.cboVertrag.Size = New System.Drawing.Size(189, 21)
Me.cboVertrag.TabIndex = 1 Me.cboVertrag.TabIndex = 1
' '
'datVertrag 'datVertrag
@@ -2693,13 +2695,13 @@ Partial Class usrCntlKundenuebersicht
Me.datVertrag._Waehrung = False Me.datVertrag._Waehrung = False
Me.datVertrag._WaehrungZeichen = True Me.datVertrag._WaehrungZeichen = True
Me.datVertrag.ForeColor = System.Drawing.Color.Black Me.datVertrag.ForeColor = System.Drawing.Color.Black
Me.datVertrag.Location = New System.Drawing.Point(291, 3) Me.datVertrag.Location = New System.Drawing.Point(321, 3)
Me.datVertrag.MaxLength = 10 Me.datVertrag.MaxLength = 10
Me.datVertrag.MaxLineLength = -1 Me.datVertrag.MaxLineLength = -1
Me.datVertrag.MaxLines_Warning = "" Me.datVertrag.MaxLines_Warning = ""
Me.datVertrag.MaxLines_Warning_Label = Nothing Me.datVertrag.MaxLines_Warning_Label = Nothing
Me.datVertrag.Name = "datVertrag" Me.datVertrag.Name = "datVertrag"
Me.datVertrag.Size = New System.Drawing.Size(95, 20) Me.datVertrag.Size = New System.Drawing.Size(65, 20)
Me.datVertrag.TabIndex = 3 Me.datVertrag.TabIndex = 3
' '
'Label4 'Label4
@@ -2741,8 +2743,8 @@ Partial Class usrCntlKundenuebersicht
Me.dgvGestGarantie.AllowUserToDeleteRows = False Me.dgvGestGarantie.AllowUserToDeleteRows = False
Me.dgvGestGarantie.AllowUserToOrderColumns = True Me.dgvGestGarantie.AllowUserToOrderColumns = True
Me.dgvGestGarantie.AllowUserToResizeRows = False Me.dgvGestGarantie.AllowUserToResizeRows = False
DataGridViewCellStyle24.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24 Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2909,6 +2911,40 @@ Partial Class usrCntlKundenuebersicht
Me.tbKdSpez.Text = "Kundenspezifisch" Me.tbKdSpez.Text = "Kundenspezifisch"
Me.tbKdSpez.UseVisualStyleBackColor = True Me.tbKdSpez.UseVisualStyleBackColor = True
' '
'txtBelegMail_FixBetreffText
'
Me.txtBelegMail_FixBetreffText._DateTimeOnly = False
Me.txtBelegMail_FixBetreffText._numbersOnly = False
Me.txtBelegMail_FixBetreffText._numbersOnlyKommastellen = ""
Me.txtBelegMail_FixBetreffText._numbersOnlyTrennzeichen = True
Me.txtBelegMail_FixBetreffText._Prozent = False
Me.txtBelegMail_FixBetreffText._ShortDateNew = False
Me.txtBelegMail_FixBetreffText._ShortDateOnly = False
Me.txtBelegMail_FixBetreffText._TimeOnly = False
Me.txtBelegMail_FixBetreffText._TimeOnly_Seconds = False
Me.txtBelegMail_FixBetreffText._value = ""
Me.txtBelegMail_FixBetreffText._Waehrung = False
Me.txtBelegMail_FixBetreffText._WaehrungZeichen = True
Me.txtBelegMail_FixBetreffText.Enabled = False
Me.txtBelegMail_FixBetreffText.ForeColor = System.Drawing.Color.Black
Me.txtBelegMail_FixBetreffText.Location = New System.Drawing.Point(327, 64)
Me.txtBelegMail_FixBetreffText.MaxLineLength = -1
Me.txtBelegMail_FixBetreffText.MaxLines_Warning = ""
Me.txtBelegMail_FixBetreffText.MaxLines_Warning_Label = Nothing
Me.txtBelegMail_FixBetreffText.Name = "txtBelegMail_FixBetreffText"
Me.txtBelegMail_FixBetreffText.Size = New System.Drawing.Size(131, 20)
Me.txtBelegMail_FixBetreffText.TabIndex = 11
'
'cbxBelegMail_FixBetreff
'
Me.cbxBelegMail_FixBetreff.AutoSize = True
Me.cbxBelegMail_FixBetreff.Location = New System.Drawing.Point(235, 67)
Me.cbxBelegMail_FixBetreff.Name = "cbxBelegMail_FixBetreff"
Me.cbxBelegMail_FixBetreff.Size = New System.Drawing.Size(97, 17)
Me.cbxBelegMail_FixBetreff.TabIndex = 10
Me.cbxBelegMail_FixBetreff.Text = "Betreff Fix(Blg):"
Me.cbxBelegMail_FixBetreff.UseVisualStyleBackColor = True
'
'Label14 'Label14
' '
Me.Label14.AutoSize = True Me.Label14.AutoSize = True
@@ -3198,24 +3234,24 @@ Partial Class usrCntlKundenuebersicht
Me.dgvAufschub.AllowUserToResizeColumns = False Me.dgvAufschub.AllowUserToResizeColumns = False
Me.dgvAufschub.AllowUserToResizeRows = False Me.dgvAufschub.AllowUserToResizeRows = False
Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle19 Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN}) Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN})
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle21 Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
Me.dgvAufschub.Location = New System.Drawing.Point(13, 61) Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
Me.dgvAufschub.MultiSelect = False Me.dgvAufschub.MultiSelect = False
Me.dgvAufschub.Name = "dgvAufschub" Me.dgvAufschub.Name = "dgvAufschub"
@@ -3242,8 +3278,8 @@ Partial Class usrCntlKundenuebersicht
' '
'HZA 'HZA
' '
DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.HZA.DefaultCellStyle = DataGridViewCellStyle20 Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
Me.HZA.HeaderText = "HZA" Me.HZA.HeaderText = "HZA"
Me.HZA.Name = "HZA" Me.HZA.Name = "HZA"
Me.HZA.ReadOnly = True Me.HZA.ReadOnly = True
@@ -3461,39 +3497,29 @@ Partial Class usrCntlKundenuebersicht
Me.SessionService1.Url = "https://finanzonline.bmf.gv.at/fonws/ws/session" Me.SessionService1.Url = "https://finanzonline.bmf.gv.at/fonws/ws/session"
Me.SessionService1.UseDefaultCredentials = False Me.SessionService1.UseDefaultCredentials = False
' '
'cbxBelegMail_FixBetreff 'datVertragBis
' '
Me.cbxBelegMail_FixBetreff.AutoSize = True Me.datVertragBis._DateTimeOnly = False
Me.cbxBelegMail_FixBetreff.Location = New System.Drawing.Point(235, 67) Me.datVertragBis._numbersOnly = False
Me.cbxBelegMail_FixBetreff.Name = "cbxBelegMail_FixBetreff" Me.datVertragBis._numbersOnlyKommastellen = ""
Me.cbxBelegMail_FixBetreff.Size = New System.Drawing.Size(97, 17) Me.datVertragBis._numbersOnlyTrennzeichen = True
Me.cbxBelegMail_FixBetreff.TabIndex = 10 Me.datVertragBis._Prozent = False
Me.cbxBelegMail_FixBetreff.Text = "Betreff Fix(Blg):" Me.datVertragBis._ShortDateNew = True
Me.cbxBelegMail_FixBetreff.UseVisualStyleBackColor = True Me.datVertragBis._ShortDateOnly = False
' Me.datVertragBis._TimeOnly = False
'txtBelegMail_FixBetreffText Me.datVertragBis._TimeOnly_Seconds = False
' Me.datVertragBis._value = ""
Me.txtBelegMail_FixBetreffText._DateTimeOnly = False Me.datVertragBis._Waehrung = False
Me.txtBelegMail_FixBetreffText._numbersOnly = False Me.datVertragBis._WaehrungZeichen = True
Me.txtBelegMail_FixBetreffText._numbersOnlyKommastellen = "" Me.datVertragBis.ForeColor = System.Drawing.Color.Black
Me.txtBelegMail_FixBetreffText._numbersOnlyTrennzeichen = True Me.datVertragBis.Location = New System.Drawing.Point(321, 23)
Me.txtBelegMail_FixBetreffText._Prozent = False Me.datVertragBis.MaxLength = 10
Me.txtBelegMail_FixBetreffText._ShortDateNew = False Me.datVertragBis.MaxLineLength = -1
Me.txtBelegMail_FixBetreffText._ShortDateOnly = False Me.datVertragBis.MaxLines_Warning = ""
Me.txtBelegMail_FixBetreffText._TimeOnly = False Me.datVertragBis.MaxLines_Warning_Label = Nothing
Me.txtBelegMail_FixBetreffText._TimeOnly_Seconds = False Me.datVertragBis.Name = "datVertragBis"
Me.txtBelegMail_FixBetreffText._value = "" Me.datVertragBis.Size = New System.Drawing.Size(65, 20)
Me.txtBelegMail_FixBetreffText._Waehrung = False Me.datVertragBis.TabIndex = 10
Me.txtBelegMail_FixBetreffText._WaehrungZeichen = True
Me.txtBelegMail_FixBetreffText.Enabled = False
Me.txtBelegMail_FixBetreffText.ForeColor = System.Drawing.Color.Black
Me.txtBelegMail_FixBetreffText.Location = New System.Drawing.Point(327, 64)
Me.txtBelegMail_FixBetreffText.MaxLineLength = -1
Me.txtBelegMail_FixBetreffText.MaxLines_Warning = ""
Me.txtBelegMail_FixBetreffText.MaxLines_Warning_Label = Nothing
Me.txtBelegMail_FixBetreffText.Name = "txtBelegMail_FixBetreffText"
Me.txtBelegMail_FixBetreffText.Size = New System.Drawing.Size(131, 20)
Me.txtBelegMail_FixBetreffText.TabIndex = 11
' '
'usrCntlKundenuebersicht 'usrCntlKundenuebersicht
' '
@@ -3821,4 +3847,5 @@ Partial Class usrCntlKundenuebersicht
Friend WithEvents lblInsolvent As Label Friend WithEvents lblInsolvent As Label
Friend WithEvents txtBelegMail_FixBetreffText As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtBelegMail_FixBetreffText As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxBelegMail_FixBetreff As CheckBox Friend WithEvents cbxBelegMail_FixBetreff As CheckBox
Friend WithEvents datVertragBis As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class End Class

20
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -3,6 +3,7 @@ Imports System.Globalization
Imports System.IO Imports System.IO
Imports org.BouncyCastle.Asn1.Ocsp Imports org.BouncyCastle.Asn1.Ocsp
Imports SDL.EORI Imports SDL.EORI
Imports sun.util.resources.cldr.aa
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlKundenuebersicht Public Class usrCntlKundenuebersicht
@@ -1047,8 +1048,11 @@ Public Class usrCntlKundenuebersicht
.Columns("kv_vertragArtId").Visible = False .Columns("kv_vertragArtId").Visible = False
.Columns("kv_datenarchivId").Visible = False .Columns("kv_datenarchivId").Visible = False
.Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("kv_erhalten_Datum").Width = 70 .Columns("kv_erhalten_Datum").Width = 65
.Columns("kv_erhalten_Datum").HeaderText = "Datum" .Columns("kv_erhalten_Datum").HeaderText = "Datum"
.Columns("kv_gueltigBis_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("kv_gueltigBis_Datum").Width = 65
.Columns("kv_gueltigBis_Datum").HeaderText = "GültigBis"
.Columns("kva_Bezeichnung").Width = 120 .Columns("kva_Bezeichnung").Width = 120
.Columns("kva_Bezeichnung").HeaderText = "Art" .Columns("kva_Bezeichnung").HeaderText = "Art"
.Columns("kv_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("kv_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
@@ -1067,6 +1071,12 @@ Public Class usrCntlKundenuebersicht
If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If End If
If (r.Cells("kv_gueltigBis_Datum").Value IsNot DBNull.Value AndAlso CDate(r.Cells("kv_gueltigBis_Datum").Value) <= CDate(Now.ToShortDateString)) OrElse
(Not CBool(r.Cells("kv_gueltig").Value)) Then
r.DefaultCellStyle.ForeColor = Color.Red
Else
r.DefaultCellStyle.ForeColor = Color.Black
End If
Next Next
End If End If
.ClearSelection() .ClearSelection()
@@ -2447,6 +2457,7 @@ Public Class usrCntlKundenuebersicht
Sub clearKV() Sub clearKV()
cboVertrag.changeItem("") cboVertrag.changeItem("")
datVertrag.Text = "" datVertrag.Text = ""
datVertragBis.Text = ""
txtVertragVermerk.Text = "" txtVertragVermerk.Text = ""
Button11.Text = "Hinzufügen" Button11.Text = "Hinzufügen"
Button12.Visible = False Button12.Visible = False
@@ -2549,6 +2560,12 @@ Public Class usrCntlKundenuebersicht
End If End If
KV.kv_KundenNr = kdNr KV.kv_KundenNr = kdNr
KV.kv_erhalten_Datum = datVertrag._value KV.kv_erhalten_Datum = datVertrag._value
If datVertragBis._value = "" Then
KV.kv_gueltigBis_Datum = Nothing
Else
KV.kv_gueltigBis_Datum = datVertragBis._value
End If
'KV.kv_Zollamt = If(cbxKV.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value) 'KV.kv_Zollamt = If(cbxKV.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value)
'If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cKundenVertraege.ENTRY_Exists(kdNr, KV.kv_Zollamt) Then 'If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cKundenVertraege.ENTRY_Exists(kdNr, KV.kv_Zollamt) Then
@@ -2600,6 +2617,7 @@ Public Class usrCntlKundenuebersicht
cboVertrag.changeItem(KV.kv_vertragArtId) cboVertrag.changeItem(KV.kv_vertragArtId)
datVertrag.Text = KV.kv_erhalten_Datum datVertrag.Text = KV.kv_erhalten_Datum
datVertragBis.Text = If(KV.kv_gueltigBis_Datum, "")
txtVertragVermerk.Text = KV.kv_Info txtVertragVermerk.Text = KV.kv_Info
Button11.Text = "Ändern" Button11.Text = "Ändern"

45
VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb
View File

@@ -211,6 +211,51 @@ Public Class cGreendeal_CBAM_Trn
End Function End Function
Public Shared Function LoadCBAMTariffNumbers(Optional onlyActive As Boolean = True,
Optional includeExclusions As Boolean = False) _
As List(Of String)
Dim sql As String =
"SELECT DISTINCT trnPattern " &
"FROM VERAG.dbo.tblGreendeal_CBAM_Trn " &
"WHERE trnPattern IS NOT NULL " &
"AND LTRIM(RTRIM(trnPattern)) <> '' "
If onlyActive Then
sql &= " AND is_active = 1 " &
" AND (start_date IS NULL OR start_date <= GETDATE()) " &
" AND (end_date IS NULL OR end_date >= GETDATE()) "
End If
If Not includeExclusions Then
sql &= " AND ISNULL(is_exclusion,0) = 0 "
End If
Dim dt As DataTable =
(New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(sql, "FMZOLL")
Dim result As New List(Of String)
If dt Is Nothing OrElse dt.Rows.Count = 0 Then
Return result
End If
For Each r As DataRow In dt.Rows
Dim pattern As String = r("trnPattern").ToString().Trim()
' % entfernen → reine Tarifnummer
pattern = pattern.Replace("%", "")
' nur numerische Werte zulassen
If pattern <> "" AndAlso pattern.All(AddressOf Char.IsDigit) Then
result.Add(pattern)
End If
Next
Return result.Distinct().OrderBy(Function(x) x).ToList()
End Function
Public Shared Function DELETE_ALL() As Boolean Public Shared Function DELETE_ALL() As Boolean
Try Try

5
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
View File

@@ -321,12 +321,13 @@ Public Class cKunde
' Return Nothing ' Return Nothing
End Sub End Sub
Public Shared Function LOAD_ByEORI(EORI) As cKunde Public Shared Function LOAD_ByEORI(EORI, Optional searchfirma = "") As cKunde
Dim test = "" Dim test = ""
Dim KUNDE As New cKunde() Dim KUNDE As New cKunde()
Try Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM Kunden INNER JOIN Filialen on Filialen.FilialenNr=Kunden.FilialenNr WHERE EORITIN=@EORITIN and ( '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG") & "' IN (Filialen.Firma,Filialen.Cluster)) ", conn) If searchfirma = "" Then searchfirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("ATILLA", "VERAG")
Using cmd As New SqlCommand("SELECT * FROM Kunden INNER JOIN Filialen on Filialen.FilialenNr=Kunden.FilialenNr WHERE EORITIN=@EORITIN and ( '" & searchfirma & "' IN (Filialen.Firma,Filialen.Cluster)) ", conn)
cmd.Parameters.AddWithValue("@EORITIN", EORI) cmd.Parameters.AddWithValue("@EORITIN", EORI)
Dim dr = cmd.ExecuteReader() Dim dr = cmd.ExecuteReader()

14
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -107,6 +107,11 @@ Public Class cKundenErweitert
Property kde_ATEZ_GreenpulseID As Object = Nothing Property kde_ATEZ_GreenpulseID As Object = Nothing
Property kde_SEG_Summe As Object = Nothing Property kde_SEG_Summe As Object = Nothing
Property kde_SEG_Datum As Object = Nothing Property kde_SEG_Datum As Object = Nothing
Property kde_CBAM_Status As String = ""
Property kde_CBAM_Warn1 As Decimal? = 30
Property kde_CBAM_Warn2 As Decimal? = 40
Property kde_CBAM_ApplicationNo As Object = Nothing
Property kde_CBAM_CBAMAccountNo As Object = Nothing
Dim SQL As New SQL Dim SQL As New SQL
@@ -221,6 +226,15 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_SEG_Summe", kde_SEG_Summe)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_SEG_Summe", kde_SEG_Summe))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_SEG_Datum", kde_SEG_Datum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_SEG_Datum", kde_SEG_Datum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CBAM_Status", kde_CBAM_Status))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CBAM_Warn1", kde_CBAM_Warn1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CBAM_Warn2", kde_CBAM_Warn2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CBAM_ApplicationNo", kde_CBAM_ApplicationNo))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CBAM_CBAMAccountNo", kde_CBAM_CBAMAccountNo))
Return list Return list
End Function End Function

7
VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb
View File

@@ -6,6 +6,7 @@ Public Class cKundenVertraege
Property kv_Id As Integer Property kv_Id As Integer
Property kv_KundenNr As Integer Property kv_KundenNr As Integer
Property kv_erhalten_Datum As Date Property kv_erhalten_Datum As Date
Property kv_gueltigBis_Datum As Date?
Property kv_vertragArtId As Integer Property kv_vertragArtId As Integer
Property kv_Info As Object = Nothing Property kv_Info As Object = Nothing
Property kv_datenarchivId As Object = Nothing Property kv_datenarchivId As Object = Nothing
@@ -24,10 +25,11 @@ Public Class cKundenVertraege
LOAD() LOAD()
End Sub End Sub
Sub New(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId) Sub New(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId, Optional kv_gueltigBis_Datum = Nothing)
Me.kv_KundenNr = kv_KundenNr Me.kv_KundenNr = kv_KundenNr
Me.kv_erhalten_Datum = kv_erhalten_Datum Me.kv_erhalten_Datum = kv_erhalten_Datum
Me.kv_vertragArtId = kv_vertragArtId Me.kv_vertragArtId = kv_vertragArtId
Me.kv_gueltigBis_Datum = kv_gueltigBis_Datum
LOAD(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId) LOAD(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId)
End Sub End Sub
@@ -40,12 +42,13 @@ Public Class cKundenVertraege
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_Info", kv_Info)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_Info", kv_Info))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_datenarchivId", kv_datenarchivId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_datenarchivId", kv_datenarchivId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_gueltig", kv_gueltig)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_gueltig", kv_gueltig))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_gueltigBis_Datum", kv_gueltigBis_Datum))
Return list Return list
End Function End Function
Public Shared Function LOAD_LIST(KundenNr As Integer) As DataTable Public Shared Function LOAD_LIST(KundenNr As Integer) As DataTable
Return (New SQL).loadDgvBySql("SELECT [kv_Id],[kv_KundenNr],[kv_erhalten_Datum],[kv_vertragArtId],kva_Bezeichnung,[kv_Info],[kv_datenarchivId],[kv_gueltig] FROM tblKundenVertraege INNER JOIN tblKundenVertraegeArten ON kv_vertragArtId=kva_id WHERE kv_KundenNr=" & KundenNr, "FMZOLL") Return (New SQL).loadDgvBySql("SELECT [kv_Id],[kv_KundenNr],[kv_erhalten_Datum],[kv_vertragArtId],kva_Bezeichnung,[kv_Info],[kv_datenarchivId],[kv_gueltig],kv_gueltigBis_Datum FROM tblKundenVertraege INNER JOIN tblKundenVertraegeArten ON kv_vertragArtId=kva_id WHERE kv_KundenNr=" & KundenNr, "FMZOLL")
End Function End Function
Public Shared Function ENTRY_Exists(KundenNr As Integer, kv_vertragArtId As Integer) As Boolean Public Shared Function ENTRY_Exists(KundenNr As Integer, kv_vertragArtId As Integer) As Boolean

1
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb
View File

@@ -367,6 +367,7 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
Return s Return s
End Function End Function
' ------------------------------------------------------------------------ ' ------------------------------------------------------------------------
' Helpers ' Helpers
' ------------------------------------------------------------------------ ' ------------------------------------------------------------------------

1
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_KafkaDecs.vb
View File

@@ -46,6 +46,7 @@ Public Class cATEZ_Greenpulse_KafkaDecs
Dim m = (mrn).ToUpperInvariant() Dim m = (mrn).ToUpperInvariant()
Return String.Join(SEP_PIPE, New String() {KEY_VERSION, c, s, m}) Return String.Join(SEP_PIPE, New String() {KEY_VERSION, c, s, m})
End Function End Function
Public Shared Function GetUniqueKey_Pipe_FromVERAG_CustomsDec(CD As VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations, Optional mrn As String = "") As String 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 c = (If(CD.za_CountryImport, CD.za_CustomsSystemCountry)).ToUpperInvariant()

293
VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb
View File

@@ -1,5 +1,10 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Imports System.Runtime.InteropServices.ComTypes
Imports com.sun.tools.javac.util
Imports java.lang.ProcessBuilder
Imports sun.util.resources.cldr.aa
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
' ========================================================================== ' ==========================================================================
' MASTER CLASS ' MASTER CLASS
@@ -231,7 +236,7 @@ Public Class cVERAG_CustomsDeclarations
"FROM VERAG.dbo.tblVERAG_CustomsDeclarations z " & "FROM VERAG.dbo.tblVERAG_CustomsDeclarations z " &
"INNER JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Items i " & "INNER JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Items i " &
" ON z.za_Id = i.zaItem_zaId " & " ON z.za_Id = i.zaItem_zaId " &
"INNER JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Parties p " & "LEFT JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Parties p " &
" ON z.za_Id = p.zaParty_zaId " & " ON z.za_Id = p.zaParty_zaId " &
"WHERE z.za_REGIME = 'IMPORT' " & "WHERE z.za_REGIME = 'IMPORT' " &
" AND z.za_IsFinalDeclaration = 1 " & " AND z.za_IsFinalDeclaration = 1 " &
@@ -357,12 +362,294 @@ Public Class cVERAG_CustomsDeclarations
Return ZA Return ZA
End Function End Function
Public Sub checkfreshCBAMWarning()
Try
Dim CBAM_ITEMS As New List(Of cVERAG_CustomsDeclarations_Item)
If hasCBAM(CBAM_ITEMS) Then
Dim importerEORI As String = Me.Parties.Where(Function(p) {"CN", "IM", "IMP", "IMPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault()
Dim ExporterEORI As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_EORI).FirstOrDefault()
Dim ExporterString As String = Me.Parties.Where(Function(p) {"CZ", "EX", "EXP", "EXPORTER"}.Contains(p.zaParty_Role)).Select(Function(p) p.zaParty_Name).FirstOrDefault()
Dim KD As cKunde = Nothing
Dim AD As cAdressen = Nothing
If If(importerEORI, "") <> "" Then
KD = cKunde.LOAD_ByEORI(importerEORI, If(za_Firma, ""))
If KD Is Nothing Then KD = cKunde.LOAD_ByEORI(importerEORI) 'Wenn kein Kunde mit Firma gefunden wurde, nur nach EORI suchen (default VERAG)
AD = New cAdressen(KD.KundenNr)
End If
If isIndirect() Then
Dim KD_EX As cKunde = Nothing
Dim AD_EX As cAdressen = Nothing
If If(ExporterEORI, "") <> "" Then
KD_EX = cKunde.LOAD_ByEORI(ExporterEORI, If(za_Firma, ""))
If KD_EX Is Nothing Then KD_EX = cKunde.LOAD_ByEORI(ExporterEORI) 'Wenn kein Kunde mit Firma gefunden wurde, nur nach EORI suchen (default VERAG)
AD_EX = New cAdressen(KD_EX.KundenNr)
End If
'==================>> INDIRECT <<=========================
Dim itemsHtml As String =
String.Join("", CBAM_ITEMS.Select(Function(i) "<tr>" &
"<td>" & i.zaItem_PosNo.ToString & "</td>" &
"<td>" & If(i.zaItem_HSCode, "") & "</td>" &
"<td>" & If(i.zaItem_Description, "") & "</td>" &
"</tr>"
))
Dim bodyHtml As String =
"<html><body style='font-family:Segoe UI, Arial, sans-serif; font-size:12pt; color:#222'>" &
"<h2 style='color:#b00020'>CBAM-Warnmeldung bei Zollanmeldung " & Me.za_MRN & "</h2>" &
"<p>" &
"Bei der Zollanmeldung mit der MRN <b>" & Me.za_MRN & "</b> wurden CBAM-relevante Warenpositionen erkannt.<br/>" &
"Bitte prüfen Sie diese Anmeldung im Hinblick auf die CBAM-Meldepflicht." &
"</p>" &
"<h3>Erkannte CBAM-Positionen</h3>" &
"<table cellpadding='6' cellspacing='0' border='1' style='border-collapse:collapse; width:100%'>" &
"<tr style='background-color:#f0f0f0'>" &
"<th align='left'>PosNr</th>" &
"<th align='left'>HS-Code</th>" &
"<th align='left'>Beschreibung</th>" &
"</tr>" &
itemsHtml &
"</table>" &
"<p>" &
"<b>Importeur:</b><br/>" &
importerEORI & " – " & vbNewLine &
If(AD Is Nothing, ExporterString, AD.Name_1 & " " & If(AD.Name_2, "") & "<br/>" &
If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "")) &
"</p>" &
"<p>" &
"<b>Exporteur:</b><br/>" &
If(ExporterEORI, "") & " – " & vbNewLine &
If(AD_EX Is Nothing, ExporterString, AD_EX.Name_1 & " " & If(AD_EX.Name_2, "") & "<br/>" &
If(AD_EX.LandKz, "") & " " & If(AD_EX.PLZ, "") & " " & If(AD_EX.Ort, "")) &
"</p>" &
"<br/><p><b>VERAG – CBAM Compliance Services</b></p>" &
"</body></html>"
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "CBAM WARNUNG - " & Me.za_MRN, bodyHtml, "cbam@verag.ag")
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "CBAM WARNUNG",
' "CBAM-Warnmeldung bei Zollanmeldung " & Me.za_MRN & vbNewLine &
' "Bei der Zollanmeldung mit der MRN " & Me.za_MRN & " wurden CBAM-relevante Warenpositionen erkannt." & vbCrLf &
' "Bitte prüfen Sie diese Anmeldung im Hinblick auf die CBAM-Meldepflicht." & vbCrLf & vbCrLf &
' "Erkannte CBAM-Positionen:" & vbCrLf &
' String.Join(vbCrLf, CBAM_ITEMS.Select(Function(i) " - PosNr: " & i.zaItem_PosNo.ToString & " | HS-Code: " & If(i.zaItem_HSCode, "") & " | Beschreibung: " & If(i.zaItem_Description, "")))
' )
''=========================================================
Else
'==================>> DIRECT <<=========================
Try
If KD IsNot Nothing Then
Dim ERW As New cKundenErweitert(KD.KundenNr)
Select Case ERW.kde_CBAM_Status
Case "", "50to" ' Nur hier wird eine Warnung gesendet!! -> WEnn der Kunde bereits Registriert ist, nicht notwendig.
Dim dateCBAM = If(If(za_ReleaseDate, za_DeclarationDate), Now)
Dim eigenmasseSumme_Shipment As Decimal = CBAM_ITEMS.Sum(Function(i) If(i.zaItem_NetMass, 0D)) / 1000
Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(importerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year), za_MRN) / 1000
Dim WarnLevel As String = ""
Dim Schwellenwert As Decimal = 0
Dim Warn1 As Decimal = If(If(ERW.kde_CBAM_Warn1, 0) > 0, ERW.kde_CBAM_Warn1, 30)
Dim Warn2 As Decimal = If(If(ERW.kde_CBAM_Warn2, 0) > 0, ERW.kde_CBAM_Warn2, 40)
Dim Warn50to As Decimal = 50
'geprüft werden die bisherigen CBAM Waren im Jahr + die aktuelle Sendung
If eigenmasseSumme_YEAR < Warn50to And (eigenmasseSumme_Shipment + eigenmasseSumme_YEAR) >= Warn50to Then
'--> WARN 2 überschritten
WarnLevel = "3"
Schwellenwert = 50
End If
'geprüft werden die bisherigen CBAM Waren im Jahr + die aktuelle Sendung
If eigenmasseSumme_YEAR < Warn2 And (eigenmasseSumme_Shipment + eigenmasseSumme_YEAR) >= Warn2 Then
'--> WARN 2 überschritten
WarnLevel = "2"
Schwellenwert = Warn2
End If
'geprüft werden die bisherigen CBAM Waren im Jahr + die aktuelle Sendung
If eigenmasseSumme_YEAR < Warn1 And (eigenmasseSumme_Shipment + eigenmasseSumme_YEAR) >= Warn1 Then
'--> WARN 1 überschritten
WarnLevel = "1"
Schwellenwert = Warn1
End If
'===========>>>> WARNUNG <<<<<<<=================================
If WarnLevel <> "" Then
Dim bodyHtml As String =
"<html><body style='font-family:Segoe UI, Arial, sans-serif; font-size:12pt; color:#222'>" &
"<h2 style='color:#b00020'>CBAM-Warnmeldung zu Ihrer Zollanmeldung " & Me.za_MRN & "</h2>" &
"<p>" &
"Laut unserem System wurden in der Zollanmeldung mit der MRN <b>" & Me.za_MRN & "</b> " &
"CBAM-pflichtige Warenpositionen erkannt.<br/>" &
"Für Ihr Unternehmen liegen uns derzeit keine Informationen über eine gültige CBAM-Registrierung vor." &
"</p>" &
"<table cellpadding='6' cellspacing='0' border='1' style='border-collapse:collapse'>" &
"<tr><td><b>Warnstufe</b></td><td>" & WarnLevel & If(WarnLevel = 3, " - <b style='color:#b00020'>ÜBERSCHREITUNG!</b>", "") & "</td></tr>" &
"<tr><td><b>Schwellenwert</b></td><td>" & Schwellenwert.ToString("N0") & " Tonnen</td></tr>" &
"</table><br/>" &
"<p>" &
"<b>Importeur:</b><br/>" &
importerEORI & " – " & vbNewLine &
If(AD Is Nothing, ExporterString, AD.Name_1 & " " & If(AD.Name_2, "") & "<br/>" &
If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "")) &
"</p>" &
"<p>" &
"<b>Exporteur:</b><br/>" &
If(ExporterEORI, "") & " – " & vbNewLine & If(ExporterString, "") &
"</p>" &
"<p style='color:#b00020'><b>WICHTIG</b></p>" &
"<p>" &
"Bei Überschreitung einer jährlichen Gesamtmenge von <b>50 Tonnen CBAM-pflichtiger Waren</b> (Jahressumme) " &
"ist eine gültige CBAM-Registrierung zwingend erforderlich.<br/>" &
"Ohne gültige Registrierung kann es zu Zollblockaden oder Abfertigungsstopps kommen." &
"</p>" &
"<p>" &
"Bitte teilen Sie uns kurzfristig unter " &
"<a href='mailto:cbam@verag.ag'>cbam@verag.ag</a> mit, wie Sie weiter vorgehen möchten " &
"(z. B. bestehende Registrierung, Beantragung mit VERAG oder Bevollmächtigung)." &
"</p>" &
"<p><b>VERAG DCS – CBAM Compliance Services</b></p>" &
"<p>VERAG Spedition AG<br>A-4975 Suben, Suben 100</p>" &
"</body></html>"
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(If(AD.E_Mail, ""), "CBAM-WARNUNG – " & If(WarnLevel = 3, " - ACHTUNG: Überschreitung 50to! ", "Überschreitung der Meldeschwelle"), bodyHtml, "cbam@verag.ag", (WarnLevel = 3), "cbam@verag.ag",, "al@verag.ag")
'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(
' "al@verag.ag",
' "CBAM-WARNUNG – Überschreitung der Meldeschwelle",
' "CBAM-Warnmeldung zu Ihrer Zollanmeldung " & Me.za_MRN & vbCrLf & vbCrLf &
' "Laut unserem System wurden in der Zollanmeldung mit der MRN " & Me.za_MRN & " CBAM-pflichtige Warenpositionen erkannt." & vbCrLf &
' "Für Ihr Unternehmen liegen uns derzeit keine Informationen über eine gültige CBAM-Registrierung vor." & vbCrLf & vbCrLf &
' "Der für diese Sendung relevante Schwellenwert wurde überschritten." & vbCrLf &
' "Aktuelle Warnstufe: " & WarnLevel & vbCrLf &
' "Angewendeter Schwellenwert: " & Schwellenwert.ToString("N0") & " Tonnen" & vbCrLf & vbCrLf &
' "Importeur: " & importerEORI & " - " & AD.Name_1 & " " & If(AD.Name_2, "") & " " & If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "") & vbCrLf &
' "WICHTIG:" & vbCrLf &
' "Bei Überschreitung einer jährlichen Gesamtmenge von 50 Tonnen CBAM-pflichtiger Waren ist eine gültige CBAM-Registrierung zwingend erforderlich." & vbCrLf &
' "Ohne gültige Registrierung kann es zu Zollblockaden oder Abfertigungsstopps kommen." & vbCrLf & vbCrLf &
' "Bitte teilen Sie uns kurzfristig unter cbam@verag.ag mit, wie Sie weiter vorgehen möchten (z. B. bestehende Registrierung, Beantragung mit VERAG oder Bevollmächtigung)." & vbCrLf & vbCrLf &
' "VERAG – CBAM Compliance Services"
' )
End If
'================================================================
End Select
End If
'=========================================================
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End If
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function getCBAM_KG(EORI As String, von As Date, bis As Date, Optional without_MRN As String = "") As Decimal
Try
Dim sqlstr = "SELECT SUM(i.zaItem_NetMass) AS CBAM_Eigenmasse_kg
FROM VERAG.dbo.tblVERAG_CustomsDeclarations_Items i
JOIN VERAG.dbo.tblVERAG_CustomsDeclarations z
ON z.za_Id = i.zaItem_zaId
JOIN VERAG.dbo.tblVERAG_CustomsDeclarations_Parties p
ON p.zaParty_zaId = z.za_Id
AND p.zaParty_EORI = '" & EORI & "'
AND p.zaParty_Role IN ('CN','IM','IMP','IMPORTER')
WHERE z.za_ReleaseDate BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "'
AND EXISTS (
SELECT 1
FROM VERAG.dbo.tblGreendeal_CBAM_Trn t
WHERE
i.zaItem_HSCode LIKE t.trnPattern
AND t.is_active = 1
AND ISNULL(t.is_exclusion,0) = 0
AND (t.start_date IS NULL OR t.start_date <= z.za_ReleaseDate)
AND (t.end_date IS NULL OR t.end_date >= z.za_ReleaseDate)
) "
If without_MRN <> "" Then sqlstr &= " and za_MRN <>'" & without_MRN & "'"
Return SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0)
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return 0
End Function
Public Function isIndirect() As Boolean
If Me.za_System Is Nothing Then Return False
If Me.za_RepresentationCode Is Nothing Then Return False
If Me.za_System.Contains("DHF") AndAlso Me.za_RepresentationCode = 3 Then Return True
If Me.za_System.Contains("TELOTEC") AndAlso Me.za_RepresentationCode = 3 Then Return True
If Me.za_System.Contains("DAKOSY") AndAlso Me.za_RepresentationCode = 2 Then Return True
Return False
End Function
Public Function hasCBAM(Optional ByRef CBAM_ITEMS As List(Of cVERAG_CustomsDeclarations_Item) = Nothing) As Boolean
Dim LIST As New List(Of cVERAG_CustomsDeclarations)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Try
CBAM_ITEMS = getCBAM_ITEMS()
If CBAM_ITEMS IsNot Nothing AndAlso CBAM_ITEMS.Count > 0 Then
Return True
End If
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
Public Function getCBAM_ITEMS() As List(Of cVERAG_CustomsDeclarations_Item)
Dim LIST As New List(Of cVERAG_CustomsDeclarations)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Try
' ------------------------------------------------------------
' CBAM Pattern (HSCode)
' ------------------------------------------------------------
Dim cbamHsCodes = VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.LoadCBAMTariffNumbers()
If Items Is Nothing OrElse cbamHsCodes Is Nothing OrElse cbamHsCodes.Count = 0 Then Return Nothing
' Performance: HashSet für Prefix-Liste
Dim prefixes As HashSet(Of String) =
New HashSet(Of String)(cbamHsCodes)
Return Me.Items.
Where(Function(it)
Dim hs As String = If(it.zaItem_HSCode, "").Trim()
If hs = "" Then Return False
' linksseitiger Prefix-Abgleich
For Each p In prefixes
If hs.StartsWith(p) Then
Return True
End If
Next
End Function).ToList()
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Public Function SAVE() As Boolean Public Function SAVE() As Boolean
Dim list = getParameterList() Dim list = getParameterList()
Dim sqlstr = Dim sqlstr =
"BEGIN TRAN " & "BEGIN TRAN " &
"IF EXISTS(SELECT 1 FROM tblVERAG_CustomsDeclarations WHERE za_Id=@za_Id) " & "IF EXISTS(SELECT 1 FROM tblVERAG_CustomsDeclarations WHERE za_Id=@za_Id) " &
"BEGIN " & getUpdateCmd() & " END " & "BEGIN " & getUpdateCmd() & " END " &
"ELSE BEGIN " & getInsertCmd() & " END " & "ELSE BEGIN " & getInsertCmd() & " END " &
"COMMIT TRAN" "COMMIT TRAN"

2
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -29,6 +29,8 @@ Public Class cAllgemein
Public Shared FMZOLL_SERVER As String = "[FMZOLL\SQLFMZOLL]" '"[SQLGUIDE01.verag.ost.dmn]" Public Shared FMZOLL_SERVER As String = "[FMZOLL\SQLFMZOLL]" '"[SQLGUIDE01.verag.ost.dmn]"
Public Shared SQLGUIDE01_USED As Boolean = False 'FM-ZOLL Ablöse!!!! Public Shared SQLGUIDE01_USED As Boolean = False 'FM-ZOLL Ablöse!!!!
Public Shared AVISO_LAYOUT_NEW As Boolean = False
'Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb" 'Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb"
Public Shared FMZOLL_ATLAS_Datensicherung_OLD As String = "\\share01\F\FMZoll\Datensicherung\atlas\atlas\fssouzb" Public Shared FMZOLL_ATLAS_Datensicherung_OLD As String = "\\share01\F\FMZoll\Datensicherung\atlas\atlas\fssouzb"