VERAG_CustomsDeclarations, einheitliches Datenmodell IMPORT + Rountinemanager Anpassung

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)