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
2022-11-09 09:55:07 +01:00
parent aa03ff853c
commit 2a0420a46c
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -1155,9 +1155,9 @@ Public Class frmGesamtsicherheitenNEU
ATBNr = dgvGesamtsicherheit.SelectedRows(0).Cells("gs_ATBNr").Value.ToString ATBNr = dgvGesamtsicherheit.SelectedRows(0).Cells("gs_ATBNr").Value.ToString
If dgvGesamtsicherheit.SelectedRows.Count > 1 Then If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
For Each row As DataGridViewRow In dgvGesamtsicherheit.Rows For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows
If row.Cells("gs_ATBNr").Value.ToString <> ATBNr Then If row.Cells("gs_ATBNr").Value.ToString <> ATBNr Then
mutlitpleATBNr = True mutlitpleATBNr = True
End If End If
@@ -1181,9 +1181,9 @@ Public Class frmGesamtsicherheitenNEU
ATCNr = dgvSicherheitsPos.SelectedRows(0).Cells("gsp_ATCNr").Value.ToString ATCNr = dgvSicherheitsPos.SelectedRows(0).Cells("gsp_ATCNr").Value.ToString
If dgvSicherheitsPos.SelectedRows.Count > 1 Then If dgvSicherheitsPos.SelectedRows.Count > 0 Then
For Each row As DataGridViewRow In dgvSicherheitsPos.Rows For Each row As DataGridViewRow In dgvSicherheitsPos.SelectedRows
If row.Cells("gsp_ATCNr").Value.ToString <> ATCNr Then If row.Cells("gsp_ATCNr").Value.ToString <> ATCNr Then
mutlitpleATCNr = True mutlitpleATCNr = True
End If End If
@@ -1215,7 +1215,7 @@ Public Class frmGesamtsicherheitenNEU
MsgBox("Bitte ATR-Nr angeben!") MsgBox("Bitte ATR-Nr angeben!")
Exit Sub Exit Sub
End If End If
If dgvGesamtsicherheit.SelectedRows.Count > 1 Then If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows
Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value) Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)