div, Änderungen, etc.

UID/frmMain.Designer.vb

@@ -52,6 +52,7 @@ Partial Class frmMain
         Me.btnMitarbeiter = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Button2 = New System.Windows.Forms.Button()
         Me.Panel3.SuspendLayout()
         Me.Panel2.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -112,6 +113,7 @@ Partial Class frmMain
         'Panel3
         '
         Me.Panel3.BackColor = System.Drawing.Color.White
+        Me.Panel3.Controls.Add(Me.Button2)
         Me.Panel3.Controls.Add(Me.btnInterneBenachrichtigungen)
         Me.Panel3.Controls.Add(Me.lblVersion)
         Me.Panel3.Controls.Add(Me.btnAuditFlow)
@@ -139,7 +141,7 @@ Partial Class frmMain
         '
         Me.btnInterneBenachrichtigungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnInterneBenachrichtigungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnInterneBenachrichtigungen.Location = New System.Drawing.Point(12, 220)
+        Me.btnInterneBenachrichtigungen.Location = New System.Drawing.Point(12, 229)
         Me.btnInterneBenachrichtigungen.Name = "btnInterneBenachrichtigungen"
         Me.btnInterneBenachrichtigungen.Size = New System.Drawing.Size(94, 38)
         Me.btnInterneBenachrichtigungen.TabIndex = 46
@@ -163,7 +165,7 @@ Partial Class frmMain
         '
         Me.btnAuditFlow.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnAuditFlow.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnAuditFlow.Location = New System.Drawing.Point(12, 287)
+        Me.btnAuditFlow.Location = New System.Drawing.Point(12, 296)
         Me.btnAuditFlow.Name = "btnAuditFlow"
         Me.btnAuditFlow.Size = New System.Drawing.Size(94, 33)
         Me.btnAuditFlow.TabIndex = 44
@@ -175,7 +177,7 @@ Partial Class frmMain
         '
         Me.btnMailroutine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnMailroutine.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnMailroutine.Location = New System.Drawing.Point(12, 648)
+        Me.btnMailroutine.Location = New System.Drawing.Point(12, 657)
         Me.btnMailroutine.Name = "btnMailroutine"
         Me.btnMailroutine.Size = New System.Drawing.Size(94, 33)
         Me.btnMailroutine.TabIndex = 43
@@ -187,7 +189,7 @@ Partial Class frmMain
         '
         Me.btnAPIZugang.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnAPIZugang.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnAPIZugang.Location = New System.Drawing.Point(12, 569)
+        Me.btnAPIZugang.Location = New System.Drawing.Point(12, 578)
         Me.btnAPIZugang.Name = "btnAPIZugang"
         Me.btnAPIZugang.Size = New System.Drawing.Size(94, 33)
         Me.btnAPIZugang.TabIndex = 42
@@ -199,7 +201,7 @@ Partial Class frmMain
         '
         Me.btnDatenarchiv.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnDatenarchiv.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 404)
+        Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 413)
         Me.btnDatenarchiv.Name = "btnDatenarchiv"
         Me.btnDatenarchiv.Size = New System.Drawing.Size(94, 33)
         Me.btnDatenarchiv.TabIndex = 41
@@ -211,7 +213,7 @@ Partial Class frmMain
         '
         Me.btnFehler.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnFehler.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnFehler.Location = New System.Drawing.Point(12, 365)
+        Me.btnFehler.Location = New System.Drawing.Point(12, 374)
         Me.btnFehler.Name = "btnFehler"
         Me.btnFehler.Size = New System.Drawing.Size(94, 33)
         Me.btnFehler.TabIndex = 40
@@ -223,7 +225,7 @@ Partial Class frmMain
         '
         Me.btnAPI.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnAPI.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnAPI.Location = New System.Drawing.Point(12, 326)
+        Me.btnAPI.Location = New System.Drawing.Point(12, 335)
         Me.btnAPI.Name = "btnAPI"
         Me.btnAPI.Size = New System.Drawing.Size(94, 33)
         Me.btnAPI.TabIndex = 39
@@ -235,7 +237,7 @@ Partial Class frmMain
         '
         Me.btnHomepage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnHomepage.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnHomepage.Location = New System.Drawing.Point(12, 490)
+        Me.btnHomepage.Location = New System.Drawing.Point(12, 499)
         Me.btnHomepage.Name = "btnHomepage"
         Me.btnHomepage.Size = New System.Drawing.Size(94, 33)
         Me.btnHomepage.TabIndex = 38
@@ -247,7 +249,7 @@ Partial Class frmMain
         '
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button1.Location = New System.Drawing.Point(12, 181)
+        Me.Button1.Location = New System.Drawing.Point(12, 190)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(94, 33)
         Me.Button1.TabIndex = 38
@@ -258,7 +260,7 @@ Partial Class frmMain
         'btnUpdate
         '
         Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnUpdate.Location = New System.Drawing.Point(12, 608)
+        Me.btnUpdate.Location = New System.Drawing.Point(12, 617)
         Me.btnUpdate.Name = "btnUpdate"
         Me.btnUpdate.Size = New System.Drawing.Size(94, 34)
         Me.btnUpdate.TabIndex = 37
@@ -269,7 +271,7 @@ Partial Class frmMain
         '
         Me.btnSchulungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnSchulungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnSchulungen.Location = New System.Drawing.Point(12, 103)
+        Me.btnSchulungen.Location = New System.Drawing.Point(12, 112)
         Me.btnSchulungen.Name = "btnSchulungen"
         Me.btnSchulungen.Size = New System.Drawing.Size(94, 33)
         Me.btnSchulungen.TabIndex = 36
@@ -281,7 +283,7 @@ Partial Class frmMain
         '
         Me.btnDienstplan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnDienstplan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnDienstplan.Location = New System.Drawing.Point(12, 142)
+        Me.btnDienstplan.Location = New System.Drawing.Point(12, 151)
         Me.btnDienstplan.Name = "btnDienstplan"
         Me.btnDienstplan.Size = New System.Drawing.Size(94, 33)
         Me.btnDienstplan.TabIndex = 35
@@ -303,7 +305,7 @@ Partial Class frmMain
         'Button6
         '
         Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button6.Location = New System.Drawing.Point(12, 529)
+        Me.Button6.Location = New System.Drawing.Point(12, 538)
         Me.Button6.Name = "Button6"
         Me.Button6.Size = New System.Drawing.Size(94, 34)
         Me.Button6.TabIndex = 33
@@ -356,6 +358,18 @@ Partial Class frmMain
         Me.PictureBox1.TabIndex = 31
         Me.PictureBox1.TabStop = False
         '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button2.Location = New System.Drawing.Point(12, 76)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(94, 33)
+        Me.Button2.TabIndex = 47
+        Me.Button2.Text = "Firmen"
+        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.UseVisualStyleBackColor = True
+        '
         'frmMain
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -404,4 +418,5 @@ Partial Class frmMain
     Friend WithEvents btnAuditFlow As Button
     Friend WithEvents lblVersion As Label
     Friend WithEvents btnInterneBenachrichtigungen As Button
+    Friend WithEvents Button2 As Button
 End Class

UID/frmMain.vb

@@ -269,4 +269,11 @@ Public Class frmMain
         Dim f As New frminterneEmailBenachrichtigungen
         f.Show(Me)
     End Sub
+
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
+
+        Dim frm As New frmFirmenuebersicht
+        frm.Show(Me)
+
+    End Sub
 End Class

UID/usrctlProcedures.Designer.vb

@@ -181,6 +181,7 @@ Partial Class usrctlProcedures
         Me.Button56 = New System.Windows.Forms.Button()
         Me.Button57 = New System.Windows.Forms.Button()
         Me.Button58 = New System.Windows.Forms.Button()
+        Me.Button59 = New System.Windows.Forms.Button()
         Me.tbTRStat.SuspendLayout()
         Me.TabPage3.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -1665,7 +1666,7 @@ Partial Class usrctlProcedures
         '
         'Button99
         '
-        Me.Button99.Location = New System.Drawing.Point(741, 654)
+        Me.Button99.Location = New System.Drawing.Point(618, 660)
         Me.Button99.Name = "Button99"
         Me.Button99.Size = New System.Drawing.Size(75, 23)
         Me.Button99.TabIndex = 66
@@ -1718,10 +1719,20 @@ Partial Class usrctlProcedures
         Me.Button58.Text = "Allg"
         Me.Button58.UseVisualStyleBackColor = True
         '
+        'Button59
+        '
+        Me.Button59.Location = New System.Drawing.Point(789, 660)
+        Me.Button59.Name = "Button59"
+        Me.Button59.Size = New System.Drawing.Size(95, 23)
+        Me.Button59.TabIndex = 71
+        Me.Button59.Text = "Firmenlogo in DB"
+        Me.Button59.UseVisualStyleBackColor = True
+        '
         'usrctlProcedures
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Button59)
         Me.Controls.Add(Me.Button58)
         Me.Controls.Add(Me.Button57)
         Me.Controls.Add(Me.Button56)
@@ -1965,4 +1976,5 @@ Partial Class usrctlProcedures
     Friend WithEvents Button56 As Button
     Friend WithEvents Button57 As Button
     Friend WithEvents Button58 As Button
+    Friend WithEvents Button59 As Button
 End Class

UID/usrctlProcedures.vb

@@ -4998,6 +4998,52 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
         End Try
     End Sub
 
+    Private Sub Button59_Click(sender As Object, e As EventArgs) Handles Button59.Click
+
+        Dim bild As Byte() = BildDateiLaden()
+
+        Dim eingabe As String = InputBox("Bitte FirmenID eingeben:", "FirmenID")
+
+        If String.IsNullOrWhiteSpace(eingabe) Then Exit Sub
+
+        Dim firmenID As Integer
+        If Not Integer.TryParse(eingabe, firmenID) Then
+            MessageBox.Show("Ungültige FirmenID!", "Fehler",
+                        MessageBoxButtons.OK, MessageBoxIcon.Error)
+            Exit Sub
+        End If
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+
+        Using con As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+            'con.Open()
+
+            Using cmd As New SqlCommand("UPDATE tblFirma SET Firma_Logo_Erweitert=@Firma_Logo_Erweitert WHERE Firma_ID=@Firma_ID", con)
+                cmd.Parameters.Add("@Firma_Logo_Erweitert", SqlDbType.VarBinary).Value = bild
+                cmd.Parameters.Add("@Firma_ID", SqlDbType.Int).Value = firmenID
+                cmd.ExecuteNonQuery()
+            End Using
+        End Using
+
+
+
+    End Sub
+
+    Public Function BildDateiLaden() As Byte()
+
+        Using ofd As New OpenFileDialog()
+            ofd.Title = "Bild auswählen"
+            ofd.Filter = "Bilddateien|*.jpg;*.jpeg;*.png;*.bmp;*.gif;*.webp|Alle Dateien|*.*"
+            ofd.Multiselect = False
+
+            If ofd.ShowDialog() = DialogResult.OK Then
+                Return File.ReadAllBytes(ofd.FileName)
+            End If
+        End Using
+
+        Return Nothing
+    End Function
+
     'Private Sub Button26_Click(sender As Object, e As EventArgs)
     '    For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
     '        Dim fi As New FileInfo(d)

initATLASAufschubkonten/frmStartOptions.Designer.vb

@@ -338,6 +338,9 @@ Partial Class frmStartOptions
         Me.Button28 = New System.Windows.Forms.Button()
         Me.btnCreditsaveLauf = New System.Windows.Forms.Button()
         Me.TabPage9 = New System.Windows.Forms.TabPage()
+        Me.Label66 = New System.Windows.Forms.Label()
+        Me.cbxNurAktiveKunen = New System.Windows.Forms.CheckBox()
+        Me.pbOfferten = New System.Windows.Forms.PictureBox()
         Me.Button34 = New System.Windows.Forms.Button()
         Me.Label57 = New System.Windows.Forms.Label()
         Me.Label64 = New System.Windows.Forms.Label()
@@ -362,9 +365,6 @@ Partial Class frmStartOptions
         Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
         Me.lblRoutineManager = New System.Windows.Forms.Label()
         Me.Button21 = New System.Windows.Forms.Button()
-        Me.pbOfferten = New System.Windows.Forms.PictureBox()
-        Me.cbxNurAktiveKunen = New System.Windows.Forms.CheckBox()
-        Me.Label66 = New System.Windows.Forms.Label()
         Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -373,7 +373,6 @@ Partial Class frmStartOptions
         Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -411,6 +410,8 @@ Partial Class frmStartOptions
         Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Button35 = New System.Windows.Forms.Button()
         Me.pnl.SuspendLayout()
         CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -457,11 +458,11 @@ Partial Class frmStartOptions
         Me.TabPage6.SuspendLayout()
         Me.TabPage7.SuspendLayout()
         Me.TabPage9.SuspendLayout()
+        CType(Me.pbOfferten, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.pbOfferten, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -470,6 +471,7 @@ Partial Class frmStartOptions
         '
         Me.pnl.BackColor = System.Drawing.Color.White
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.Button35)
         Me.pnl.Controls.Add(Me.Button33)
         Me.pnl.Controls.Add(Me.LinkLabel54)
         Me.pnl.Controls.Add(Me.Button32)
@@ -4265,13 +4267,13 @@ Partial Class frmStartOptions
         Me.TabPage9.Controls.Add(Me.Label66)
         Me.TabPage9.Controls.Add(Me.cbxNurAktiveKunen)
         Me.TabPage9.Controls.Add(Me.pbOfferten)
-        Me.TabPage9.Controls.Add(Me.cbxLeistungNr)
-        Me.TabPage9.Controls.Add(Me.cbxOffertenNr)
         Me.TabPage9.Controls.Add(Me.Button34)
-        Me.TabPage9.Controls.Add(Me.txtLeistungsNr)
-        Me.TabPage9.Controls.Add(Me.txtOfferenNr)
         Me.TabPage9.Controls.Add(Me.Label57)
         Me.TabPage9.Controls.Add(Me.Label64)
+        Me.TabPage9.Controls.Add(Me.cbxLeistungNr)
+        Me.TabPage9.Controls.Add(Me.cbxOffertenNr)
+        Me.TabPage9.Controls.Add(Me.txtLeistungsNr)
+        Me.TabPage9.Controls.Add(Me.txtOfferenNr)
         Me.TabPage9.Location = New System.Drawing.Point(4, 22)
         Me.TabPage9.Name = "TabPage9"
         Me.TabPage9.Size = New System.Drawing.Size(1219, 513)
@@ -4279,6 +4281,40 @@ Partial Class frmStartOptions
         Me.TabPage9.Text = "Offerten"
         Me.TabPage9.UseVisualStyleBackColor = True
         '
+        'Label66
+        '
+        Me.Label66.AutoSize = True
+        Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label66.Location = New System.Drawing.Point(77, 91)
+        Me.Label66.Name = "Label66"
+        Me.Label66.Size = New System.Drawing.Size(207, 13)
+        Me.Label66.TabIndex = 174
+        Me.Label66.Text = "Berechnungsart überschreiben (wenn leer)"
+        '
+        'cbxNurAktiveKunen
+        '
+        Me.cbxNurAktiveKunen.AutoSize = True
+        Me.cbxNurAktiveKunen.Checked = True
+        Me.cbxNurAktiveKunen.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxNurAktiveKunen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxNurAktiveKunen.Location = New System.Drawing.Point(22, 16)
+        Me.cbxNurAktiveKunen.Name = "cbxNurAktiveKunen"
+        Me.cbxNurAktiveKunen.Size = New System.Drawing.Size(188, 17)
+        Me.cbxNurAktiveKunen.TabIndex = 152
+        Me.cbxNurAktiveKunen.Text = "nur aktive/nicht gesperrte Kunden"
+        Me.cbxNurAktiveKunen.UseVisualStyleBackColor = True
+        '
+        'pbOfferten
+        '
+        Me.pbOfferten.BackgroundImage = CType(resources.GetObject("pbOfferten.BackgroundImage"), System.Drawing.Image)
+        Me.pbOfferten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.pbOfferten.Location = New System.Drawing.Point(185, 126)
+        Me.pbOfferten.Name = "pbOfferten"
+        Me.pbOfferten.Size = New System.Drawing.Size(18, 18)
+        Me.pbOfferten.TabIndex = 152
+        Me.pbOfferten.TabStop = False
+        Me.pbOfferten.Visible = False
+        '
         'Button34
         '
         Me.Button34.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -4548,40 +4584,6 @@ Partial Class frmStartOptions
         Me.Button21.Text = "AAS Sendung 24h"
         Me.Button21.UseVisualStyleBackColor = True
         '
-        'pbOfferten
-        '
-        Me.pbOfferten.BackgroundImage = CType(resources.GetObject("pbOfferten.BackgroundImage"), System.Drawing.Image)
-        Me.pbOfferten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.pbOfferten.Location = New System.Drawing.Point(185, 126)
-        Me.pbOfferten.Name = "pbOfferten"
-        Me.pbOfferten.Size = New System.Drawing.Size(18, 18)
-        Me.pbOfferten.TabIndex = 152
-        Me.pbOfferten.TabStop = False
-        Me.pbOfferten.Visible = False
-        '
-        'cbxNurAktiveKunen
-        '
-        Me.cbxNurAktiveKunen.AutoSize = True
-        Me.cbxNurAktiveKunen.Checked = True
-        Me.cbxNurAktiveKunen.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxNurAktiveKunen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxNurAktiveKunen.Location = New System.Drawing.Point(22, 16)
-        Me.cbxNurAktiveKunen.Name = "cbxNurAktiveKunen"
-        Me.cbxNurAktiveKunen.Size = New System.Drawing.Size(188, 17)
-        Me.cbxNurAktiveKunen.TabIndex = 152
-        Me.cbxNurAktiveKunen.Text = "nur aktive/nicht gesperrte Kunden"
-        Me.cbxNurAktiveKunen.UseVisualStyleBackColor = True
-        '
-        'Label66
-        '
-        Me.Label66.AutoSize = True
-        Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label66.Location = New System.Drawing.Point(77, 91)
-        Me.Label66.Name = "Label66"
-        Me.Label66.Size = New System.Drawing.Size(207, 13)
-        Me.Label66.TabIndex = 174
-        Me.Label66.Text = "Berechnungsart überschreiben (wenn leer)"
-        '
         'MyTextBox3
         '
         Me.MyTextBox3._DateTimeOnly = False
@@ -4734,13 +4736,6 @@ Partial Class frmStartOptions
         Me.dgvMRN.Size = New System.Drawing.Size(207, 134)
         Me.dgvMRN.TabIndex = 75
         '
-        'clmnMRN
-        '
-        Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.clmnMRN.HeaderText = "MRN"
-        Me.clmnMRN.MinimumWidth = 8
-        Me.clmnMRN.Name = "clmnMRN"
-        '
         'txtVRGOut_MRN
         '
         Me.txtVRGOut_MRN._DateTimeOnly = False
@@ -5539,6 +5534,25 @@ Partial Class frmStartOptions
         Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
         Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
         '
+        'clmnMRN
+        '
+        Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnMRN.HeaderText = "MRN"
+        Me.clmnMRN.MinimumWidth = 8
+        Me.clmnMRN.Name = "clmnMRN"
+        '
+        'Button35
+        '
+        Me.Button35.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button35.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button35.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button35.Location = New System.Drawing.Point(996, 312)
+        Me.Button35.Name = "Button35"
+        Me.Button35.Size = New System.Drawing.Size(103, 40)
+        Me.Button35.TabIndex = 152
+        Me.Button35.Text = "check Sped-Einrtäge"
+        Me.Button35.UseVisualStyleBackColor = True
+        '
         'frmStartOptions
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5615,11 +5629,11 @@ Partial Class frmStartOptions
         Me.TabPage7.PerformLayout()
         Me.TabPage9.ResumeLayout(False)
         Me.TabPage9.PerformLayout()
+        CType(Me.pbOfferten, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.pbOfferten, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgv_MDMEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
@@ -6012,4 +6026,5 @@ Partial Class frmStartOptions
     Friend WithEvents cbxNurAktiveKunen As CheckBox
     Friend WithEvents txtBerechnungsart As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label66 As Label
+    Friend WithEvents Button35 As Button
 End Class

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