From 3d776cff848b20a543d97c14ec327c47f0c05936 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 24 Apr 2023 09:25:39 +0200 Subject: [PATCH 1/5] Gesamtsicherheiten, Datumseingabe verbessert. --- Aviso/Aviso.vbproj | 2 +- Aviso/frmGesamtsicherheitenNEU.Designer.vb | 63 ++++++++++++++-------- Aviso/frmGesamtsicherheitenNEU.vb | 28 ++++++++-- 3 files changed, 66 insertions(+), 27 deletions(-) diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index d72adfb..c68bfbc 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -108,7 +108,7 @@ x64 - Aviso_TemporaryKey.pfx + LME.pfx diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index e3d097d..dc4886b 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -33,12 +33,12 @@ Partial Class frmGesamtsicherheitenNEU Me.ATBNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel2 = New System.Windows.Forms.Panel() Me.pnlChangeATCNr = New System.Windows.Forms.Panel() + Me.txtDatumaendern = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSicherheitsbetragContext = New System.Windows.Forms.TextBox() Me.Label30 = New System.Windows.Forms.Label() Me.txtWarenwertContext = New System.Windows.Forms.TextBox() Me.lblWarenwertContext = New System.Windows.Forms.Label() Me.txtUhrzeitaendern = New System.Windows.Forms.TextBox() - Me.txtDatumaendern = New System.Windows.Forms.TextBox() Me.Label26 = New System.Windows.Forms.Label() Me.lblATCwarning = New System.Windows.Forms.Label() Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -110,6 +110,7 @@ Partial Class frmGesamtsicherheitenNEU Me.Label20 = New System.Windows.Forms.Label() Me.txtPosNr = New System.Windows.Forms.TextBox() Me.Panel1 = New System.Windows.Forms.Panel() + Me.cbxRundPosanzeigen = New System.Windows.Forms.CheckBox() Me.btnRundungsdifAusgl = New System.Windows.Forms.Button() Me.btnNew = New System.Windows.Forms.Button() Me.cbx_offene = New System.Windows.Forms.CheckBox() @@ -145,7 +146,6 @@ Partial Class frmGesamtsicherheitenNEU Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox() Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.cbxRundPosanzeigen = New System.Windows.Forms.CheckBox() Me.ContextMenuStripGesSicherh.SuspendLayout() Me.Panel2.SuspendLayout() Me.pnlChangeATCNr.SuspendLayout() @@ -189,12 +189,12 @@ Partial Class frmGesamtsicherheitenNEU 'pnlChangeATCNr ' Me.pnlChangeATCNr.BackColor = System.Drawing.SystemColors.ButtonHighlight + Me.pnlChangeATCNr.Controls.Add(Me.txtDatumaendern) Me.pnlChangeATCNr.Controls.Add(Me.txtSicherheitsbetragContext) Me.pnlChangeATCNr.Controls.Add(Me.Label30) Me.pnlChangeATCNr.Controls.Add(Me.txtWarenwertContext) Me.pnlChangeATCNr.Controls.Add(Me.lblWarenwertContext) Me.pnlChangeATCNr.Controls.Add(Me.txtUhrzeitaendern) - Me.pnlChangeATCNr.Controls.Add(Me.txtDatumaendern) Me.pnlChangeATCNr.Controls.Add(Me.Label26) Me.pnlChangeATCNr.Controls.Add(Me.lblATCwarning) Me.pnlChangeATCNr.Controls.Add(Me.FlatButton3) @@ -207,6 +207,32 @@ Partial Class frmGesamtsicherheitenNEU Me.pnlChangeATCNr.TabIndex = 13 Me.pnlChangeATCNr.Visible = False ' + 'txtDatumaendern + ' + Me.txtDatumaendern._DateTimeOnly = False + Me.txtDatumaendern._numbersOnly = False + Me.txtDatumaendern._numbersOnlyKommastellen = "" + Me.txtDatumaendern._numbersOnlyTrennzeichen = True + Me.txtDatumaendern._Prozent = False + Me.txtDatumaendern._ShortDateNew = False + Me.txtDatumaendern._ShortDateOnly = True + Me.txtDatumaendern._TimeOnly = False + Me.txtDatumaendern._TimeOnly_Seconds = False + Me.txtDatumaendern._value = "" + Me.txtDatumaendern._Waehrung = False + Me.txtDatumaendern._WaehrungZeichen = True + Me.txtDatumaendern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDatumaendern.ForeColor = System.Drawing.Color.Black + Me.txtDatumaendern.Location = New System.Drawing.Point(95, 72) + Me.txtDatumaendern.MaxLength = 10 + Me.txtDatumaendern.MaxLineLength = -1 + Me.txtDatumaendern.MaxLines_Warning = "" + Me.txtDatumaendern.MaxLines_Warning_Label = Nothing + Me.txtDatumaendern.Multiline = True + Me.txtDatumaendern.Name = "txtDatumaendern" + Me.txtDatumaendern.Size = New System.Drawing.Size(112, 24) + Me.txtDatumaendern.TabIndex = 55 + ' 'txtSicherheitsbetragContext ' Me.txtSicherheitsbetragContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -256,15 +282,6 @@ Partial Class frmGesamtsicherheitenNEU Me.txtUhrzeitaendern.Size = New System.Drawing.Size(71, 24) Me.txtUhrzeitaendern.TabIndex = 8 ' - 'txtDatumaendern - ' - Me.txtDatumaendern.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDatumaendern.Location = New System.Drawing.Point(95, 72) - Me.txtDatumaendern.Margin = New System.Windows.Forms.Padding(0) - Me.txtDatumaendern.Name = "txtDatumaendern" - Me.txtDatumaendern.Size = New System.Drawing.Size(112, 24) - Me.txtDatumaendern.TabIndex = 7 - ' 'Label26 ' Me.Label26.AutoSize = True @@ -1277,6 +1294,16 @@ Partial Class frmGesamtsicherheitenNEU Me.Panel1.Size = New System.Drawing.Size(1384, 61) Me.Panel1.TabIndex = 2 ' + 'cbxRundPosanzeigen + ' + Me.cbxRundPosanzeigen.AutoSize = True + Me.cbxRundPosanzeigen.Location = New System.Drawing.Point(12, 38) + Me.cbxRundPosanzeigen.Name = "cbxRundPosanzeigen" + Me.cbxRundPosanzeigen.Size = New System.Drawing.Size(169, 17) + Me.cbxRundPosanzeigen.TabIndex = 52 + Me.cbxRundPosanzeigen.Text = "Rundungspositionen anzeigen" + Me.cbxRundPosanzeigen.UseVisualStyleBackColor = True + ' 'btnRundungsdifAusgl ' Me.btnRundungsdifAusgl.Location = New System.Drawing.Point(1133, 7) @@ -1668,16 +1695,6 @@ Partial Class frmGesamtsicherheitenNEU Me.btnAddSicherheit.TabIndex = 36 Me.btnAddSicherheit.UseVisualStyleBackColor = False ' - 'cbxRundPosanzeigen - ' - Me.cbxRundPosanzeigen.AutoSize = True - Me.cbxRundPosanzeigen.Location = New System.Drawing.Point(12, 38) - Me.cbxRundPosanzeigen.Name = "cbxRundPosanzeigen" - Me.cbxRundPosanzeigen.Size = New System.Drawing.Size(169, 17) - Me.cbxRundPosanzeigen.TabIndex = 52 - Me.cbxRundPosanzeigen.Text = "Rundungspositionen anzeigen" - Me.cbxRundPosanzeigen.UseVisualStyleBackColor = True - ' 'frmGesamtsicherheitenNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1815,7 +1832,6 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnNew As Button Friend WithEvents txtGestellInfo As TextBox - Friend WithEvents txtDatumaendern As TextBox Friend WithEvents Label26 As Label Friend WithEvents txtUhrzeitaendern As TextBox Friend WithEvents lbloffenerWarenwert As Label @@ -1829,4 +1845,5 @@ Partial Class frmGesamtsicherheitenNEU Friend WithEvents Label30 As Label Friend WithEvents btnRundungsdifAusgl As Button Friend WithEvents cbxRundPosanzeigen As CheckBox + Friend WithEvents txtDatumaendern As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index fdc13ab..5b859ed 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -468,7 +468,7 @@ Public Class frmGesamtsicherheitenNEU Private Sub Date_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosDat.KeyPress, txtSicherheitDat.KeyPress, txtDatumaendern.KeyPress Select Case Asc(e.KeyChar) - Case 48 To 57, 8, 46, 58 + Case 48 To 57, 8, 44, 46, 58, 47 ' Zahlen, Backspace, . und : zulassen Case Else @@ -479,7 +479,8 @@ Public Class frmGesamtsicherheitenNEU Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosTime.KeyPress, txtSicherheitTime.KeyPress, txtUhrzeitaendern.KeyPress Select Case Asc(e.KeyChar) - Case 48 To 57, 8, 46, 58 + Case 48 To 57, 8, 44, 46, 58 + 'Case 48 To 57, 8, 44, 46, 58, 160, 188, 110, 111, 190, 226 ' Zahlen, Backspace, . und : zulassen Case Else @@ -1083,7 +1084,7 @@ Public Class frmGesamtsicherheitenNEU Dim calcSicherheitenPos As Double = calcSicherheitsbetragPos() Dim newCalcSaldo As Double - newCalcSaldo = SaldoNew - currentSBetrag + newCalcSaldo = SaldoNew - currentSBetrag 'Dim referenzbetrag As Double = currentGesSichRef.brgakto_betrag @@ -1646,19 +1647,39 @@ Public Class frmGesamtsicherheitenNEU If txtPosTime.Text <> "" Then txtPosTime.Text = Replace(txtPosTime.Text, ".", ":") + txtPosTime.Text = Replace(txtPosTime.Text, ",", ":") End If If txtSicherheitTime.Text <> "" Then txtSicherheitTime.Text = Replace(txtSicherheitTime.Text, ".", ":") + txtSicherheitTime.Text = Replace(txtSicherheitTime.Text, ",", ":") End If If txtUhrzeitaendern.Text <> "" Then txtUhrzeitaendern.Text = Replace(txtUhrzeitaendern.Text, ".", ":") + txtUhrzeitaendern.Text = Replace(txtUhrzeitaendern.Text, ",", ":") End If End Sub + Private Sub txtPosDat_Leave(sender As Object, e As EventArgs) Handles txtPosDat.Leave, txtSicherheitDat.Leave, txtDatumaendern.Leave, txtUhrzeitaendern.Leave + If txtPosDat.Text <> "" Then + txtPosDat.Text = Replace(txtPosDat.Text, "/", ".") + txtPosDat.Text = Replace(txtPosDat.Text, ",", ".") + End If + + If txtSicherheitDat.Text <> "" Then + txtSicherheitDat.Text = Replace(txtSicherheitDat.Text, "/", ".") + txtSicherheitDat.Text = Replace(txtSicherheitDat.Text, ",", ".") + End If + + If txtDatumaendern.Text <> "" Then + txtDatumaendern.Text = Replace(txtDatumaendern.Text, "/", ".") + txtDatumaendern.Text = Replace(txtDatumaendern.Text, ",", ".") + End If + End Sub + Private Sub changeLabel(Optional isATR As Boolean = True) If Standort = "Verag GmbH" Then @@ -1757,4 +1778,5 @@ Public Class frmGesamtsicherheitenNEU Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxRundPosanzeigen.CheckedChanged LoadDGVSicherheiten(True) End Sub + End Class From 17b8dae263c8a346b34f30d3be7d25d7a3e1c8d4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 24 Apr 2023 09:52:15 +0200 Subject: [PATCH 2/5] =?UTF-8?q?essensbestellungen=20Filter=C3=A4nderung?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ...sensbestellungenAdministration.Designer.vb | 13 ++++++ Aviso/frmEssensbestellungenAdministration.vb | 45 ++++++++++++------- Aviso/frmGesamtsicherheitenNEU.Designer.vb | 10 ++--- 3 files changed, 48 insertions(+), 20 deletions(-) diff --git a/Aviso/frmEssensbestellungenAdministration.Designer.vb b/Aviso/frmEssensbestellungenAdministration.Designer.vb index 44e53d2..91b64e5 100644 --- a/Aviso/frmEssensbestellungenAdministration.Designer.vb +++ b/Aviso/frmEssensbestellungenAdministration.Designer.vb @@ -79,6 +79,7 @@ Partial Class frmEssensbestellungenAdministration Me.lblWarning = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() Me.Label9 = New System.Windows.Forms.Label() + Me.cbxAlleAnzeigen = New System.Windows.Forms.CheckBox() Me.pnlTop.SuspendLayout() Me.Panel1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() @@ -119,6 +120,7 @@ Partial Class frmEssensbestellungenAdministration ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.cbxAlleAnzeigen) Me.Panel1.Controls.Add(Me.lblBestellungBis) Me.Panel1.Controls.Add(Me.btnBestelllimit) Me.Panel1.Controls.Add(Me.lblDaysToOrder) @@ -796,6 +798,16 @@ Partial Class frmEssensbestellungenAdministration Me.Label9.Text = "Gesamtbetrag" Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cbxAlleAnzeigen + ' + Me.cbxAlleAnzeigen.AutoSize = True + Me.cbxAlleAnzeigen.Location = New System.Drawing.Point(668, 79) + Me.cbxAlleAnzeigen.Name = "cbxAlleAnzeigen" + Me.cbxAlleAnzeigen.Size = New System.Drawing.Size(42, 17) + Me.cbxAlleAnzeigen.TabIndex = 72 + Me.cbxAlleAnzeigen.Text = "alle" + Me.cbxAlleAnzeigen.UseVisualStyleBackColor = True + ' 'frmEssensbestellungenAdministration ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -886,4 +898,5 @@ Partial Class frmEssensbestellungenAdministration Friend WithEvents txtBestelllimit As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents btnBestelllimit As Button Friend WithEvents lblBestellungBis As Label + Friend WithEvents cbxAlleAnzeigen As CheckBox End Class diff --git a/Aviso/frmEssensbestellungenAdministration.vb b/Aviso/frmEssensbestellungenAdministration.vb index f8e4e76..68a3a91 100644 --- a/Aviso/frmEssensbestellungenAdministration.vb +++ b/Aviso/frmEssensbestellungenAdministration.vb @@ -126,23 +126,30 @@ Public Class frmEssensbestellungenAdministration If cboGebaeude._value IsNot "" Then SQLwhere &= " AND [eb_gebaeude] = '" & cboGebaeude._value.ToString & "'" If cboAbteilung._value IsNot "" Then SQLwhere &= " AND [eb_abteilung] = '" & cboAbteilung._value.ToString & "'" If txtMitarbeiter.Text <> "" Then SQLwhere &= " AND [eb_mitname] like '%" & txtMitarbeiter.Text & "%'" - If cbxStornos.Checked Then - SQLwhere &= " AND [eb_storniert] = '1'" - Else - SQLwhere &= " AND ISNULL([eb_storniert],0) = '0'" + + If cbxAlleAnzeigen.Checked = False Then + + If cbxStornos.Checked Then + SQLwhere &= " AND [eb_storniert] = '1'" + Else + SQLwhere &= " AND ISNULL([eb_storniert],0) = '0'" + End If + + If cbxAbgerechnet.Checked Then + SQLwhere &= " AND [eb_abgerechnet] = '1'" + Else + SQLwhere &= " AND ISNULL([eb_abgerechnet],0) = '0'" + End If + + If cbxNichtAbgeschickt.Checked Then + SQLwhere &= " AND ISNULL([eb_gesendet],0) = '0'" + Else + 'SQLwhere &= " AND [eb_gesendet] = '1'" + End If + End If - If cbxAbgerechnet.Checked Then - SQLwhere &= " AND [eb_abgerechnet] = '1'" - Else - SQLwhere &= " AND ISNULL([eb_abgerechnet],0) = '0'" - End If - If cbxNichtAbgeschickt.Checked Then - SQLwhere &= " AND ISNULL([eb_gesendet],0) = '0'" - Else - 'SQLwhere &= " AND [eb_gesendet] = '1'" - End If If txtBestellDat._value <> Nothing AndAlso txtBestellDatBis._value <> Nothing Then SQLwhere &= " AND [eb_datum] BETWEEN '" & txtBestellDat._value & "' AND '" & txtBestellDatBis._value & "'" @@ -219,7 +226,15 @@ Public Class frmEssensbestellungenAdministration End If End Sub - Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click, cbxAbgerechnet.CheckedChanged, cbxStornos.CheckedChanged, cbxNichtAbgeschickt.CheckedChanged + Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click, cbxAbgerechnet.CheckedChanged, cbxStornos.CheckedChanged, cbxNichtAbgeschickt.CheckedChanged, cbxAlleAnzeigen.CheckedChanged + + If cbxAlleAnzeigen.Checked Then + cbxAbgerechnet.Checked = Not cbxAlleAnzeigen.Checked + cbxNichtAbgeschickt.Checked = Not cbxAlleAnzeigen.Checked + cbxStornos.Checked = Not cbxAlleAnzeigen.Checked + End If + + loadBestellungen() End Sub diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index dc4886b..3a83d1f 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -231,7 +231,7 @@ Partial Class frmGesamtsicherheitenNEU Me.txtDatumaendern.Multiline = True Me.txtDatumaendern.Name = "txtDatumaendern" Me.txtDatumaendern.Size = New System.Drawing.Size(112, 24) - Me.txtDatumaendern.TabIndex = 55 + Me.txtDatumaendern.TabIndex = 61 ' 'txtSicherheitsbetragContext ' @@ -241,7 +241,7 @@ Partial Class frmGesamtsicherheitenNEU Me.txtSicherheitsbetragContext.Name = "txtSicherheitsbetragContext" Me.txtSicherheitsbetragContext.ReadOnly = True Me.txtSicherheitsbetragContext.Size = New System.Drawing.Size(134, 24) - Me.txtSicherheitsbetragContext.TabIndex = 14 + Me.txtSicherheitsbetragContext.TabIndex = 64 Me.txtSicherheitsbetragContext.TabStop = False ' 'Label30 @@ -261,7 +261,7 @@ Partial Class frmGesamtsicherheitenNEU Me.txtWarenwertContext.Margin = New System.Windows.Forms.Padding(0) Me.txtWarenwertContext.Name = "txtWarenwertContext" Me.txtWarenwertContext.Size = New System.Drawing.Size(186, 24) - Me.txtWarenwertContext.TabIndex = 9 + Me.txtWarenwertContext.TabIndex = 63 ' 'lblWarenwertContext ' @@ -280,7 +280,7 @@ Partial Class frmGesamtsicherheitenNEU Me.txtUhrzeitaendern.Margin = New System.Windows.Forms.Padding(0) Me.txtUhrzeitaendern.Name = "txtUhrzeitaendern" Me.txtUhrzeitaendern.Size = New System.Drawing.Size(71, 24) - Me.txtUhrzeitaendern.TabIndex = 8 + Me.txtUhrzeitaendern.TabIndex = 62 ' 'Label26 ' @@ -323,7 +323,7 @@ Partial Class frmGesamtsicherheitenNEU Me.txtATCaendern.Margin = New System.Windows.Forms.Padding(0) Me.txtATCaendern.Name = "txtATCaendern" Me.txtATCaendern.Size = New System.Drawing.Size(186, 24) - Me.txtATCaendern.TabIndex = 6 + Me.txtATCaendern.TabIndex = 60 ' 'Label34 ' From 55720c9ded8fef9cc5bbfb2101582d693d5149d0 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 25 Apr 2023 09:31:27 +0200 Subject: [PATCH 3/5] Gesamtsicherheiten Bugfix beim Weiterschalten --- Aviso/frmGesamtsicherheitenMenuNEU.vb | 9 +++---- Aviso/frmGesamtsicherheitenNEU.Designer.vb | 1 + Aviso/frmGesamtsicherheitenNEU.vb | 31 +++++++++++++++------- 3 files changed, 27 insertions(+), 14 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index 5ac8df9..411eb67 100644 --- a/Aviso/frmGesamtsicherheitenMenuNEU.vb +++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb @@ -15,10 +15,10 @@ Public Class frmGesamtsicherheitenMenuNEU Select Case Standort - Case "Verag GmbH" : firmaId = 2 - Case "VERAG AG" : firmaId = 1 - Case "IMEX" : firmaId = 20 - Case "Verag CS" : firmaId = 11 + Case "Verag GmbH" : firmaId = 2 : chkOffen.Checked = True + Case "VERAG AG" : firmaId = 1 : chkOffen.Checked = False + Case "IMEX" : firmaId = 20 : chkOffen.Checked = False + Case "Verag CS" : firmaId = 11 : chkOffen.Checked = False End Select @@ -39,7 +39,6 @@ Public Class frmGesamtsicherheitenMenuNEU txtDatVon.Text = Date.Parse("01.01.2001") txtDatBis.Text = Now.ToShortDateString - chkOffen.Checked = True btnMonat.Text = MONAT.ToString("MMMM") btnJahr.Text = JAHR.Year diff --git a/Aviso/frmGesamtsicherheitenNEU.Designer.vb b/Aviso/frmGesamtsicherheitenNEU.Designer.vb index 3a83d1f..976c300 100644 --- a/Aviso/frmGesamtsicherheitenNEU.Designer.vb +++ b/Aviso/frmGesamtsicherheitenNEU.Designer.vb @@ -1170,6 +1170,7 @@ Partial Class frmGesamtsicherheitenNEU Me.btnSaveDatetime.TabIndex = 11 Me.btnSaveDatetime.Text = "speichern" Me.btnSaveDatetime.UseVisualStyleBackColor = False + Me.btnSaveDatetime.Visible = False ' 'lblId ' diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 5b859ed..28b4640 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -1,4 +1,5 @@  +Imports System.Web.UI.WebControls.Expressions Imports VERAG_PROG_ALLGEMEIN Public Class frmGesamtsicherheitenNEU @@ -1176,12 +1177,20 @@ Public Class frmGesamtsicherheitenNEU Private Sub setPrevAndNextGesIDAllOpen() + Dim isInList As Boolean = False Dim onlyOpenDT As DataTable dataTable.DefaultView.Sort = "gs_gsnr ASC" dataTable = dataTable.DefaultView.ToTable - onlyOpenDT = dataTable.Select("gs_isOpen = True").CopyToDataTable + If dataTable.Select("gs_isOpen = True").Any Then + onlyOpenDT = dataTable.Select("gs_isOpen = True").CopyToDataTable + Else + MsgBox("keine offenen Gesamtsicherheiten gefunden!") + Exit Sub + + End If + For i As Integer = 0 To onlyOpenDT.Rows.Count - 1 @@ -1265,16 +1274,20 @@ Public Class frmGesamtsicherheitenNEU For i As Integer = 0 To dataTable.Rows.Count - 1 If dataTable.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then - prevGessicherheitID = dataTable.Rows(i).Item("gs_gsnr") - 1 + If i = 0 Then + prevGessicherheitID = -1 ' no prev Sicherheit + Else + prevGessicherheitID = dataTable.Rows(i - 1).Item("gs_gsnr") + End If - nextGessicherheitID = dataTable.Rows(i).Item("gs_gsnr") + 1 + If i = dataTable.Rows.Count - 1 Then + nextGessicherheitID = -1 ' ' no next Sicherheit + Else + nextGessicherheitID = dataTable.Rows(i + 1).Item("gs_gsnr") + End If - - If i = 0 Then prevGessicherheitID = -1 ' no prev Sicherheit - If i = dataTable.Rows.Count - 1 Then nextGessicherheitID = -1 ' ' no next Sicherheit - - 'MsgBox("prevGessicherheitID " & prevGessicherheitID) - 'MsgBox("nextGessicherheitID " & nextGessicherheitID) + MsgBox("prevGessicherheitID " & prevGessicherheitID) + MsgBox("nextGessicherheitID " & nextGessicherheitID) Return i End If From 982f8d9630655e96493bedb599439c6fcd478373 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 25 Apr 2023 09:46:33 +0200 Subject: [PATCH 4/5] Gesamtsicherheiten Bugfix --- Aviso/frmGesamtsicherheitenNEU.vb | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 28b4640..9ed4cc6 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -1186,6 +1186,8 @@ Public Class frmGesamtsicherheitenNEU If dataTable.Select("gs_isOpen = True").Any Then onlyOpenDT = dataTable.Select("gs_isOpen = True").CopyToDataTable Else + prevGessicherheitID = -1 + nextGessicherheitID = -1 MsgBox("keine offenen Gesamtsicherheiten gefunden!") Exit Sub @@ -1309,8 +1311,10 @@ Public Class frmGesamtsicherheitenNEU If Me.prevGessicherheitID = -1 Then initPrevNextButtons() Exit Sub + ElseIf Me.prevGessicherheitID > 0 Then + Me.gessicherheitID = Me.prevGessicherheitID End If - Me.gessicherheitID = Me.prevGessicherheitID + LoadDGVSicherheiten() End Sub @@ -1325,13 +1329,12 @@ Public Class frmGesamtsicherheitenNEU setPrevAndNextGesAll() End If - - If Me.nextGessicherheitID = -1 Then initPrevNextButtons() Exit Sub + ElseIf Me.nextGessicherheitID > 0 Then + Me.gessicherheitID = Me.nextGessicherheitID End If - Me.gessicherheitID = Me.nextGessicherheitID LoadDGVSicherheiten() End Sub From 7cb850b895b3d3f3a3250ac5432c238a8c03bb74 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 25 Apr 2023 09:47:43 +0200 Subject: [PATCH 5/5] Fehlermeldung ausgeben bei Gesamtsicherheit <> 0 --- Aviso/frmGesamtsicherheitenNEU.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 9ed4cc6..92cf263 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -1288,8 +1288,8 @@ Public Class frmGesamtsicherheitenNEU nextGessicherheitID = dataTable.Rows(i + 1).Item("gs_gsnr") End If - MsgBox("prevGessicherheitID " & prevGessicherheitID) - MsgBox("nextGessicherheitID " & nextGessicherheitID) + 'MsgBox("prevGessicherheitID " & prevGessicherheitID) + 'MsgBox("nextGessicherheitID " & nextGessicherheitID) Return i End If