edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2025-12-19 16:29:40 +01:00
parent 68adc5301b
commit 88efed316e
2 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.9.0")>
<Assembly: AssemblyFileVersion("4.1.9.0")>
<Assembly: AssemblyVersion("4.1.9.3")>
<Assembly: AssemblyFileVersion("4.1.9.3")>

11
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -1780,11 +1780,18 @@ Public Class frmGesamtsicherheitenNEU
End If
If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows
For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(r)
Dim v = r.Cells("gs_posNr").Value
Return If(IsNumeric(v), CInt(v), 0)
End Function)
Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)
sicherh.gs_MRNNr = txtATBNraendern.Text
If sicherh.gs_MRNNr <> "" Then
sicherh.gs_posSubNr = IIf(Integer.Parse(setNullToZero(txtSPosNr.Text)) <> 0, Integer.Parse(setNullToZero(txtSPosNr.Text)), Me.getLatestSubPosNr(sicherh.gs_gsNr, sicherh.gs_ATBNr, sicherh.gs_MRNNr) + 1)
Else
sicherh.gs_posSubNr = Nothing
End If
sicherh.SAVE()
Next
End If