CBAM, VERAG Cust

UID/usrctlProcedures.vb

@@ -4535,7 +4535,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
     End Sub
 
     Private Sub btnDYtoVERAEZA_Click(sender As Object, e As EventArgs) Handles btnDYtoVERAEZA.Click
-
+        '  MsgBox(VERAG_PROG_ALLGEMEIN.cGreendeal_CBAM_Trn.BuildCBAMPatternWhereClause("Warentarifnummer"))
         If txtListDYMrn Is Nothing OrElse String.IsNullOrWhiteSpace(txtListDYMrn.Text) Then Exit Sub
 
         ' Trennzeichen definieren
@@ -4550,7 +4550,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
             Dim value As String = entry.Trim()
 
             If value.Length = 18 Then
-                WRK.ImportDakosyEZA(value)
+                WRK.ImportDakosyEZA(value, cbxCD_Overwrite.Checked)
             End If
             cnt += 1
             btnDYtoVERAEZA.Text = "DY->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count
@@ -4587,7 +4587,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
             Dim value As String = entry.Trim()
 
             If value.Length = 18 Then
-                WRK.ImportTelotec(value)
+                WRK.ImportTelotec(value, cbxCD_Overwrite.Checked)
             End If
             cnt += 1
             btnTCtoVERAEZA.Text = "TELOTEC->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count
@@ -4610,9 +4610,9 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
 
             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")
+            If value.Length >= 18 And value.Length < 30 Then
+                If sender Is btnDHFtoVERAEZA Then WRK.ImportEZOLLByLRN(value, "EZOLL", cbxCD_Overwrite.Checked)
+                If sender Is btnDHFUNItoVERAEZA Then WRK.ImportEZOLLByLRN(value, "EZOLL_UNISPED", cbxCD_Overwrite.Checked)
             End If
             cnt += 1
             If sender Is btnDHFtoVERAEZA Then sender.Text = "DHF VERAG ->VERAG ZA" & vbNewLine & cnt & "/" & entries.Count
@@ -4622,6 +4622,103 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
         Next
     End Sub
 
+    Private Sub Button55_Click(sender As Object, e As EventArgs) Handles btnDYtoVERAEZA_File.Click
+        Dim ofd As New OpenFileDialog With {
+                .Title = "MRN-Datei auswählen",
+                .Filter = "Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*",
+                .Multiselect = False
+            }
+
+        If ofd.ShowDialog() <> DialogResult.OK Then Exit Sub
+        If Not System.IO.File.Exists(ofd.FileName) Then Exit Sub
+
+        Dim lines = System.IO.File.ReadAllLines(ofd.FileName)
+
+        Dim WRK As New DAKOSY_Worker.cImporter_DakosyToVERAG
+        Dim cnt As Integer = 0
+        Dim total As Integer = lines.Length
+
+        For Each line As String In lines
+            Dim value As String = line.Trim()
+
+            ' MRN-Validierung (klassisch 18 Zeichen)
+            If value.Length >= 18 And value.Length < 30 Then
+                WRK.ImportDakosyEZA(value, cbxCD_Overwrite.Checked)
+            End If
+
+            cnt += 1
+            btnDYtoVERAEZA.Text = "DY->VERAG ZA" & vbNewLine & cnt & "/" & total
+            Me.Refresh()
+            Application.DoEvents()
+        Next
+
+    End Sub
+
+    Private Sub Button55_Click_1(sender As Object, e As EventArgs) Handles btnTCtoVERAEZA_File.Click
+        Dim ofd As New OpenFileDialog With {
+                .Title = "MRN-Datei auswählen",
+                .Filter = "Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*",
+                .Multiselect = False
+            }
+
+        If ofd.ShowDialog() <> DialogResult.OK Then Exit Sub
+        If Not System.IO.File.Exists(ofd.FileName) Then Exit Sub
+
+        Dim lines = System.IO.File.ReadAllLines(ofd.FileName)
+
+        Dim WRK As New DAKOSY_Worker.cImporter_TelotecToVERAG
+        Dim cnt As Integer = 0
+        Dim total As Integer = lines.Length
+
+        For Each line As String In lines
+            Dim value As String = line.Trim()
+
+            ' MRN-Validierung (klassisch 18 Zeichen)
+            If value.Length >= 18 And value.Length < 30 Then
+                WRK.ImportTelotec(value, cbxCD_Overwrite.Checked)
+            End If
+
+            cnt += 1
+            btnTCtoVERAEZA.Text = "TC->VERAG ZA" & vbNewLine & cnt & "/" & total
+            Me.Refresh()
+            Application.DoEvents()
+        Next
+    End Sub
+
+    Private Sub Button56_Click(sender As Object, e As EventArgs) Handles btnDHFtoVERAEZA_File.Click, btnDHF_UNISPEDtoVERAEZA_File.Click
+        Dim ofd As New OpenFileDialog With {
+              .Title = "MRN-Datei auswählen",
+              .Filter = "Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*",
+              .Multiselect = False
+          }
+
+        If ofd.ShowDialog() <> DialogResult.OK Then Exit Sub
+        If Not System.IO.File.Exists(ofd.FileName) Then Exit Sub
+
+        Dim lines = System.IO.File.ReadAllLines(ofd.FileName)
+
+        Dim WRK As New DAKOSY_Worker.cImporter_DHFToVERAG
+        Dim cnt As Integer = 0
+        Dim total As Integer = lines.Length
+
+        For Each line As String In lines
+            Dim value As String = line.Trim()
+
+            ' MRN-Validierung (klassisch 18 Zeichen)
+            If value.Length >= 18 And value.Length < 30 Then
+                If sender Is btnDHFtoVERAEZA_File Then WRK.ImportEZOLLByLRN(value, "EZOLL", cbxCD_Overwrite.Checked)
+                If sender Is btnDHF_UNISPEDtoVERAEZA_File Then WRK.ImportEZOLLByLRN(value, "EZOLL_UNISPED", cbxCD_Overwrite.Checked)
+            End If
+
+            cnt += 1
+            If sender Is btnDHFtoVERAEZA_File Then btnDHFtoVERAEZA.Text = "DHF->VERAG ZA" & vbNewLine & cnt & "/" & total
+            If sender Is btnDHF_UNISPEDtoVERAEZA_File Then btnDHFUNItoVERAEZA.Text = "DHF->VERAG ZA" & vbNewLine & cnt & "/" & total
+
+            Me.Refresh()
+            Application.DoEvents()
+        Next
+    End Sub
+
 
 
     'Private Sub Button26_Click(sender As Object, e As EventArgs)