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

Merge branch 'master' of https://git.it.verag.ag/edv/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-12-29 14:55:38 +01:00
parent 5d7d9b28db c05c79784c
commit 8abbc6b23e
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

2
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -4011,7 +4011,7 @@ Public Class frmSendungsdetailsNEU
Dim frmBeleg As New SDL.frmFremdbeleg(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat)
frmBeleg.ShowDialog(Me)
Case "L"
If B.storniert Then MsgBox("Der Beleg wurde bereits storiniert!") : Exit Sub
If B.storniert Then MsgBox("Der Beleg wurde bereits storniert!") : Exit Sub
Dim frmBeleg As New SDL.frmNacherfassungLeihgeld(PERSONAL, Nothing, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat)
frmBeleg.ShowDialog(Me)
Case Else