From 1317f09cb78d9244aa7be838ce791c388e5032c1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 27 Jul 2026 18:00:05 +0200 Subject: [PATCH] =?UTF-8?q?div,=20=C3=84nderungen,=20etc.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- UID/frmMain.Designer.vb | 41 ++++-- UID/frmMain.vb | 7 ++ UID/usrctlProcedures.Designer.vb | 14 ++- UID/usrctlProcedures.vb | 46 +++++++ .../frmStartOptions.Designer.vb | 117 ++++++++++-------- initATLASAufschubkonten/frmStartOptions.vb | 41 ++++++ 6 files changed, 201 insertions(+), 65 deletions(-) diff --git a/UID/frmMain.Designer.vb b/UID/frmMain.Designer.vb index fa625a0..5df6668 100644 --- a/UID/frmMain.Designer.vb +++ b/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 diff --git a/UID/frmMain.vb b/UID/frmMain.vb index f51b9e8..7df8fed 100644 --- a/UID/frmMain.vb +++ b/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 diff --git a/UID/usrctlProcedures.Designer.vb b/UID/usrctlProcedures.Designer.vb index b1f3200..c484e84 100644 --- a/UID/usrctlProcedures.Designer.vb +++ b/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 diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index 3485c96..dca925f 100644 --- a/UID/usrctlProcedures.vb +++ b/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) diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 6c44247..a335126 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 0ee7779..2a85812 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/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