div, Änderungen, etc.

initATLASAufschubkonten/frmStartOptions.vb

@@ -7,6 +7,7 @@ Imports System.Text
 Imports System.Threading
 Imports System.Xml
 Imports com.sun.org.apache.xpath.internal.operations
+Imports Confluent.Kafka
 Imports iTextSharp.text
 Imports javax
 Imports MDM_Worker
@@ -8952,4 +8953,44 @@ repeatRequest:
             txtLeistungsNr.Text = ""
         End If
     End Sub
+
+    Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+
+
+        Dim dt As DataTable = (New SQL).loadDgvBySql("select tblSnd_SendungID,AbfertigungsNr, FilialenNr, tblSnd_SpeditionsbuchEingetragen  from tblSendungen where tblSnd_SpeditionsbuchEingetragen = 0 And Left(AbfertigungsNr, 2) = 26 And Year(tblSnd_Timestamp) = 2026 order by tblSnd_Timestamp desc ", "AVISO")
+        Dim counter As Integer = 0
+        If dt.Rows.Count > 0 Then
+            For Each r As DataRow In dt.Rows
+                Dim vorhanden As Integer = -1
+                Dim result As String = (New SQL).getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & r.Item("FilialenNr") & "' AND AbfertigungsNr='" & r.Item("AbfertigungsNr") & "'", "FMZOLL")
+                If result <> "" Then
+                    vorhanden = CInt(result)
+                End If
+
+                If vorhanden > 0 Then
+                    If Not IsDBNull(r("tblSnd_SendungID")) Then
+                        Dim sendungId As Integer = CInt(r("tblSnd_SendungID"))
+
+                        If sendungId > 0 Then
+                            Dim sendung As New VERAG_PROG_ALLGEMEIN.cSendungen(sendungId)
+                            sendung.tblSnd_SpeditionsbuchEingetragen = 1
+                            sendung.SAVE()
+                            counter += 1
+                        End If
+                    End If
+                End If
+
+
+
+
+
+            Next
+
+            MsgBox(counter & " von " & dt.Rows.Count & " Sendungen wurden gesetzt!")
+
+        End If
+
+    End Sub
 End Class