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 End If
If dgvGesamtsicherheit.SelectedRows.Count > 0 Then 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) Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)
sicherh.gs_MRNNr = txtATBNraendern.Text 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() sicherh.SAVE()
Next Next
End If 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) Dim frmBeleg As New SDL.frmFremdbeleg(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat)
frmBeleg.ShowDialog(Me) frmBeleg.ShowDialog(Me)
Case "L" 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) Dim frmBeleg As New SDL.frmNacherfassungLeihgeld(PERSONAL, Nothing, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat)
frmBeleg.ShowDialog(Me) frmBeleg.ShowDialog(Me)
Case Else Case Else