VERAG_CustomsDeclarations, einheitliches Datenmodell IMPORT + Rountinemanager Anpassung

2026-01-01 00:55:46 +01:00
parent eab90bc81a
commit ff7682582d
12 changed files with 1564 additions and 304 deletions
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("1.2.4.8")>
-<Assembly: AssemblyFileVersion("1.2.4.8")>
+<Assembly: AssemblyVersion("1.2.4.9")>
+<Assembly: AssemblyFileVersion("1.2.4.9")>
--- a/UID/usrctlProcedures.Designer.vb
+++ b/UID/usrctlProcedures.Designer.vb
@@ -59,6 +59,8 @@ Partial Class usrctlProcedures
        Me.Button11 = New System.Windows.Forms.Button()
        Me.Button10 = New System.Windows.Forms.Button()
        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Button9 = New System.Windows.Forms.Button()
        Me.Button8 = New System.Windows.Forms.Button()
        Me.Button7 = New System.Windows.Forms.Button()
@@ -85,6 +87,8 @@ Partial Class usrctlProcedures
        Me.Button48 = New System.Windows.Forms.Button()
        Me.Button47 = New System.Windows.Forms.Button()
        Me.TabPage6 = New System.Windows.Forms.TabPage()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.Button54 = New System.Windows.Forms.Button()
        Me.Label19 = New System.Windows.Forms.Label()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.Label17 = New System.Windows.Forms.Label()
@@ -93,7 +97,7 @@ Partial Class usrctlProcedures
        Me.Button50 = New System.Windows.Forms.Button()
        Me.Button49 = New System.Windows.Forms.Button()
        Me.TabPage7 = New System.Windows.Forms.TabPage()
-        Me.btnT1Data = New System.Windows.Forms.Button()
+        Me.Button53 = New System.Windows.Forms.Button()
        Me.Label22 = New System.Windows.Forms.Label()
        Me.dtpbis = New System.Windows.Forms.DateTimePicker()
        Me.lblDakosyImport = New System.Windows.Forms.Label()
@@ -104,6 +108,14 @@ Partial Class usrctlProcedures
        Me.Button52 = New System.Windows.Forms.Button()
        Me.TabPage8 = New System.Windows.Forms.TabPage()
        Me.btnImportTrStat = New System.Windows.Forms.Button()
+        Me.TabPage9 = New System.Windows.Forms.TabPage()
+        Me.btnT1Data = New System.Windows.Forms.Button()
+        Me.TabPage10 = New System.Windows.Forms.TabPage()
+        Me.txtListTCMrn = New System.Windows.Forms.TextBox()
+        Me.btnTCtoVERAEZA = New System.Windows.Forms.Button()
+        Me.btnCBAM_ATEZ = New System.Windows.Forms.Button()
+        Me.txtListDYMrn = New System.Windows.Forms.TextBox()
+        Me.btnDYtoVERAEZA = New System.Windows.Forms.Button()
        Me.Button18 = New System.Windows.Forms.Button()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.lblAnzahl = New System.Windows.Forms.Label()
@@ -157,14 +169,10 @@ Partial Class usrctlProcedures
        Me.Button99 = New System.Windows.Forms.Button()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.TabPage9 = New System.Windows.Forms.TabPage()
-        Me.Button53 = New System.Windows.Forms.Button()
+        Me.txtListDHFMrn = New System.Windows.Forms.TextBox()
+        Me.btnDHFtoVERAEZA = New System.Windows.Forms.Button()
+        Me.btnDHFUNItoVERAEZA = New System.Windows.Forms.Button()
        Me.tbTRStat.SuspendLayout()
-        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Button54 = New System.Windows.Forms.Button()
-        Me.Label23 = New System.Windows.Forms.Label()
-        'Me.TabControl1.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -177,6 +185,7 @@ Partial Class usrctlProcedures
        Me.TabPage7.SuspendLayout()
        Me.TabPage8.SuspendLayout()
        Me.TabPage9.SuspendLayout()
+        Me.TabPage10.SuspendLayout()
        Me.SuspendLayout()
        '
        'tbTRStat
@@ -190,6 +199,7 @@ Partial Class usrctlProcedures
        Me.tbTRStat.Controls.Add(Me.TabPage7)
        Me.tbTRStat.Controls.Add(Me.TabPage8)
        Me.tbTRStat.Controls.Add(Me.TabPage9)
+        Me.tbTRStat.Controls.Add(Me.TabPage10)
        Me.tbTRStat.Location = New System.Drawing.Point(7, 407)
        Me.tbTRStat.Name = "tbTRStat"
        Me.tbTRStat.SelectedIndex = 0
@@ -550,6 +560,16 @@ Partial Class usrctlProcedures
        Me.DataGridView1.Size = New System.Drawing.Size(240, 431)
        Me.DataGridView1.TabIndex = 5
        '
+        'Column1
+        '
+        Me.Column1.HeaderText = "dat"
+        Me.Column1.Name = "Column1"
+        '
+        'Column2
+        '
+        Me.Column2.HeaderText = "anz"
+        Me.Column2.Name = "Column2"
+        '
        'Button9
        '
        Me.Button9.Location = New System.Drawing.Point(131, 131)
@@ -810,6 +830,24 @@ Partial Class usrctlProcedures
        Me.TabPage6.Text = "MDM Importe"
        Me.TabPage6.UseVisualStyleBackColor = True
        '
+        'Label23
+        '
+        Me.Label23.AutoSize = True
+        Me.Label23.Location = New System.Drawing.Point(11, 141)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(16, 13)
+        Me.Label23.TabIndex = 73
+        Me.Label23.Text = "3."
+        '
+        'Button54
+        '
+        Me.Button54.Location = New System.Drawing.Point(33, 133)
+        Me.Button54.Name = "Button54"
+        Me.Button54.Size = New System.Drawing.Size(106, 28)
+        Me.Button54.TabIndex = 72
+        Me.Button54.Text = "ZNB Zinssätze"
+        Me.Button54.UseVisualStyleBackColor = True
+        '
        'Label19
        '
        Me.Label19.AutoSize = True
@@ -993,6 +1031,89 @@ Partial Class usrctlProcedures
        Me.btnImportTrStat.Text = "Import TrStat"
        Me.btnImportTrStat.UseVisualStyleBackColor = True
        '
+        'TabPage9
+        '
+        Me.TabPage9.Controls.Add(Me.btnT1Data)
+        Me.TabPage9.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage9.Name = "TabPage9"
+        Me.TabPage9.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage9.Size = New System.Drawing.Size(601, 288)
+        Me.TabPage9.TabIndex = 8
+        Me.TabPage9.Text = "T1 Serice"
+        Me.TabPage9.UseVisualStyleBackColor = True
+        '
+        'btnT1Data
+        '
+        Me.btnT1Data.Location = New System.Drawing.Point(228, 120)
+        Me.btnT1Data.Name = "btnT1Data"
+        Me.btnT1Data.Size = New System.Drawing.Size(145, 49)
+        Me.btnT1Data.TabIndex = 25
+        Me.btnT1Data.Text = "T1 Servcie"
+        Me.btnT1Data.UseVisualStyleBackColor = True
+        '
+        'TabPage10
+        '
+        Me.TabPage10.Controls.Add(Me.btnDHFUNItoVERAEZA)
+        Me.TabPage10.Controls.Add(Me.txtListDHFMrn)
+        Me.TabPage10.Controls.Add(Me.btnDHFtoVERAEZA)
+        Me.TabPage10.Controls.Add(Me.txtListTCMrn)
+        Me.TabPage10.Controls.Add(Me.btnTCtoVERAEZA)
+        Me.TabPage10.Controls.Add(Me.btnCBAM_ATEZ)
+        Me.TabPage10.Controls.Add(Me.txtListDYMrn)
+        Me.TabPage10.Controls.Add(Me.btnDYtoVERAEZA)
+        Me.TabPage10.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage10.Name = "TabPage10"
+        Me.TabPage10.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage10.Size = New System.Drawing.Size(601, 288)
+        Me.TabPage10.TabIndex = 9
+        Me.TabPage10.Text = "TabPageDY"
+        Me.TabPage10.UseVisualStyleBackColor = True
+        '
+        'txtListTCMrn
+        '
+        Me.txtListTCMrn.Location = New System.Drawing.Point(197, 14)
+        Me.txtListTCMrn.Multiline = True
+        Me.txtListTCMrn.Name = "txtListTCMrn"
+        Me.txtListTCMrn.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.txtListTCMrn.Size = New System.Drawing.Size(145, 155)
+        Me.txtListTCMrn.TabIndex = 42
+        '
+        'btnTCtoVERAEZA
+        '
+        Me.btnTCtoVERAEZA.Location = New System.Drawing.Point(197, 175)
+        Me.btnTCtoVERAEZA.Name = "btnTCtoVERAEZA"
+        Me.btnTCtoVERAEZA.Size = New System.Drawing.Size(145, 49)
+        Me.btnTCtoVERAEZA.TabIndex = 41
+        Me.btnTCtoVERAEZA.Text = "TELOTEC->VERAG ZA"
+        Me.btnTCtoVERAEZA.UseVisualStyleBackColor = True
+        '
+        'btnCBAM_ATEZ
+        '
+        Me.btnCBAM_ATEZ.Location = New System.Drawing.Point(133, 239)
+        Me.btnCBAM_ATEZ.Name = "btnCBAM_ATEZ"
+        Me.btnCBAM_ATEZ.Size = New System.Drawing.Size(145, 49)
+        Me.btnCBAM_ATEZ.TabIndex = 40
+        Me.btnCBAM_ATEZ.Text = "Überschreibe CBAM von ATEZ"
+        Me.btnCBAM_ATEZ.UseVisualStyleBackColor = True
+        '
+        'txtListDYMrn
+        '
+        Me.txtListDYMrn.Location = New System.Drawing.Point(33, 14)
+        Me.txtListDYMrn.Multiline = True
+        Me.txtListDYMrn.Name = "txtListDYMrn"
+        Me.txtListDYMrn.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.txtListDYMrn.Size = New System.Drawing.Size(145, 155)
+        Me.txtListDYMrn.TabIndex = 39
+        '
+        'btnDYtoVERAEZA
+        '
+        Me.btnDYtoVERAEZA.Location = New System.Drawing.Point(33, 175)
+        Me.btnDYtoVERAEZA.Name = "btnDYtoVERAEZA"
+        Me.btnDYtoVERAEZA.Size = New System.Drawing.Size(145, 49)
+        Me.btnDYtoVERAEZA.TabIndex = 36
+        Me.btnDYtoVERAEZA.Text = "DY->VERAG ZA"
+        Me.btnDYtoVERAEZA.UseVisualStyleBackColor = True
+        '
        'Button18
        '
        Me.Button18.Location = New System.Drawing.Point(59, 183)
@@ -1472,53 +1593,32 @@ Partial Class usrctlProcedures
        Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'Column1
+        'txtListDHFMrn
        '
-        Me.Column1.HeaderText = "dat"
-        Me.Column1.Name = "Column1"
+        Me.txtListDHFMrn.Location = New System.Drawing.Point(348, 14)
+        Me.txtListDHFMrn.Multiline = True
+        Me.txtListDHFMrn.Name = "txtListDHFMrn"
+        Me.txtListDHFMrn.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.txtListDHFMrn.Size = New System.Drawing.Size(163, 155)
+        Me.txtListDHFMrn.TabIndex = 44
        '
-        'Column2
+        'btnDHFtoVERAEZA
        '
-        Me.Column2.HeaderText = "anz"
-        Me.Column2.Name = "Column2"
+        Me.btnDHFtoVERAEZA.Location = New System.Drawing.Point(348, 175)
+        Me.btnDHFtoVERAEZA.Name = "btnDHFtoVERAEZA"
+        Me.btnDHFtoVERAEZA.Size = New System.Drawing.Size(163, 49)
+        Me.btnDHFtoVERAEZA.TabIndex = 43
+        Me.btnDHFtoVERAEZA.Text = "DHF VERAG->VERAG ZA"
+        Me.btnDHFtoVERAEZA.UseVisualStyleBackColor = True
        '
-        'Button54
+        'btnDHFUNItoVERAEZA
        '
-        Me.Button54.Location = New System.Drawing.Point(33, 133)
-        Me.Button54.Name = "Button54"
-        Me.Button54.Size = New System.Drawing.Size(106, 28)
-        Me.Button54.TabIndex = 72
-        Me.Button54.Text = "ZNB Zinssätze"
-        Me.Button54.UseVisualStyleBackColor = True
-        '
-        'Label23
-        '
-        Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(11, 141)
-        Me.Label23.Name = "Label23"
-        Me.Label23.Size = New System.Drawing.Size(16, 13)
-        Me.Label23.TabIndex = 73
-        Me.Label23.Text = "3."
-        '
-        'TabPage9
-        '
-        Me.TabPage9.Controls.Add(Me.btnT1Data)
-        Me.TabPage9.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage9.Name = "TabPage9"
-        Me.TabPage9.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage9.Size = New System.Drawing.Size(601, 288)
-        Me.TabPage9.TabIndex = 8
-        Me.TabPage9.Text = "T1 Serice"
-        Me.TabPage9.UseVisualStyleBackColor = True
-        '
-        'Button53
-        '
-        Me.btnT1Data.Location = New System.Drawing.Point(228, 120)
-        Me.btnT1Data.Name = "btnT1Data"
-        Me.btnT1Data.Size = New System.Drawing.Size(145, 49)
-        Me.btnT1Data.TabIndex = 25
-        Me.btnT1Data.Text = "T1 Servcie"
-        Me.btnT1Data.UseVisualStyleBackColor = True
+        Me.btnDHFUNItoVERAEZA.Location = New System.Drawing.Point(348, 230)
+        Me.btnDHFUNItoVERAEZA.Name = "btnDHFUNItoVERAEZA"
+        Me.btnDHFUNItoVERAEZA.Size = New System.Drawing.Size(163, 49)
+        Me.btnDHFUNItoVERAEZA.TabIndex = 45
+        Me.btnDHFUNItoVERAEZA.Text = "DHF UNISPED ->VERAG ZA"
+        Me.btnDHFUNItoVERAEZA.UseVisualStyleBackColor = True
        '
        'usrctlProcedures
        '
@@ -1598,6 +1698,8 @@ Partial Class usrctlProcedures
        Me.TabPage7.PerformLayout()
        Me.TabPage8.ResumeLayout(False)
        Me.TabPage9.ResumeLayout(False)
+        Me.TabPage10.ResumeLayout(False)
+        Me.TabPage10.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -1743,4 +1845,13 @@ Partial Class usrctlProcedures
    Friend WithEvents btnImportTrStat As Button
    Friend WithEvents TabPage9 As TabPage
    Friend WithEvents Button53 As Button
+    Friend WithEvents TabPage10 As TabPage
+    Friend WithEvents txtListDYMrn As TextBox
+    Friend WithEvents btnDYtoVERAEZA As Button
+    Friend WithEvents btnCBAM_ATEZ As Button
+    Friend WithEvents txtListTCMrn As TextBox
+    Friend WithEvents btnTCtoVERAEZA As Button
+    Friend WithEvents btnDHFUNItoVERAEZA As Button
+    Friend WithEvents txtListDHFMrn As TextBox
+    Friend WithEvents btnDHFtoVERAEZA As Button
 End Class
--- a/UID/usrctlProcedures.resx
+++ b/UID/usrctlProcedures.resx
@@ -123,4 +123,10 @@
  <metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
+  <metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
 </root>
--- a/UID/usrctlProcedures.vb
+++ b/UID/usrctlProcedures.vb
@@ -4534,6 +4534,94 @@ OPTION (MAXRECURSION 1000);", "AVISO") '

    End Sub

+    Private Sub btnDYtoVERAEZA_Click(sender As Object, e As EventArgs) Handles btnDYtoVERAEZA.Click
+
+        If txtListDYMrn Is Nothing OrElse String.IsNullOrWhiteSpace(txtListDYMrn.Text) Then Exit Sub
+
+        ' Trennzeichen definieren
+        Dim separators() As Char = {ControlChars.Cr, ControlChars.Lf, ";"c, ","c, " "c}
+
+        Dim entries = txtListDYMrn.Text.Split(separators, StringSplitOptions.RemoveEmptyEntries)
+
+        Dim WRK As New DAKOSY_Worker.cImporter_DakosyToVERAG
+        Dim cnt = 0
+        For Each entry As String In entries
+
+            Dim value As String = entry.Trim()
+
+            If value.Length = 18 Then
+                WRK.ImportDakosyEZA(value)
+            End If
+            cnt += 1
+            btnDYtoVERAEZA.Text = "DY->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count
+            Me.Refresh()
+            Application.DoEvents()
+        Next
+
+    End Sub
+
+    Private Sub btnCBAM_ATEZ_Click(sender As Object, e As EventArgs) Handles btnCBAM_ATEZ.Click
+        Dim cATEZ_Greenpulse_CBAM_CostCalculation As New cATEZ_Greenpulse_CBAM_CostCalculation
+        Dim resp = cATEZ_Greenpulse_CBAM_CostCalculation.GetCnCodes
+        If resp.success Then
+            MsgBox("Anzahl CnCodes: " & resp.data.Count)
+            cATEZ_Greenpulse_CBAM_CostCalculation.insertinto_Greendeal_CBAM_Trn(resp)
+        Else
+            MsgBox("Fehler: " & resp.error.ToString)
+        End If
+
+    End Sub
+
+    Private Sub btnTCtoVERAEZA_Click(sender As Object, e As EventArgs) Handles btnTCtoVERAEZA.Click
+        If txtListTCMrn Is Nothing OrElse String.IsNullOrWhiteSpace(txtListTCMrn.Text) Then Exit Sub
+
+        ' Trennzeichen definieren
+        Dim separators() As Char = {ControlChars.Cr, ControlChars.Lf, ";"c, ","c, " "c}
+
+        Dim entries = txtListTCMrn.Text.Split(separators, StringSplitOptions.RemoveEmptyEntries)
+
+        Dim WRK As New DAKOSY_Worker.cImporter_TelotecToVERAG
+        Dim cnt = 0
+        For Each entry As String In entries
+
+            Dim value As String = entry.Trim()
+
+            If value.Length = 18 Then
+                WRK.ImportTelotec(value)
+            End If
+            cnt += 1
+            btnTCtoVERAEZA.Text = "TELOTEC->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count
+            Me.Refresh()
+            Application.DoEvents()
+        Next
+    End Sub
+
+    Private Sub btnDHFtoVERAEZA_Click(sender As Object, e As EventArgs) Handles btnDHFtoVERAEZA.Click, btnDHFUNItoVERAEZA.Click
+        If txtListDHFMrn Is Nothing OrElse String.IsNullOrWhiteSpace(txtListDHFMrn.Text) Then Exit Sub
+
+        ' Trennzeichen definieren
+        Dim separators() As Char = {ControlChars.Cr, ControlChars.Lf, ";"c, ","c, " "c}
+
+        Dim entries = txtListDHFMrn.Text.Split(separators, StringSplitOptions.RemoveEmptyEntries)
+
+        Dim WRK As New DAKOSY_Worker.cImporter_DHFToVERAG
+        Dim cnt = 0
+        For Each entry As String In entries
+
+            Dim value As String = entry.Trim()
+
+            If value.Length = 18 Then
+                If sender Is btnDHFtoVERAEZA Then WRK.ImportEZOLLByLRN(value, "EZOLL")
+                If sender Is btnDHFUNItoVERAEZA Then WRK.ImportEZOLLByLRN(value, "EZOLL_UNISPED")
+            End If
+            cnt += 1
+            If sender Is btnDHFtoVERAEZA Then sender.Text = "DHF VERAG ->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count
+            If sender Is btnDHFUNItoVERAEZA Then sender.Text = "DHF UNISPED ->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count
+            Me.Refresh()
+            Application.DoEvents()
+        Next
+    End Sub
+


    'Private Sub Button26_Click(sender As Object, e As EventArgs)