benachrichtigung

This commit is contained in:
2024-11-13 08:41:56 +01:00
parent 03e06bbb63
commit 33263dcc6d

View File

@@ -4074,14 +4074,14 @@ Public Class frmMDMDatenverarbetiung
Private Function setRechenwerteIDS() As Boolean Private Function setRechenwerteIDS() As Boolean
'Abrechnungsdatum setzen 'Abrechnungsdatum setzen
If Not LIEFERANT = "IDS" Then Return false If Not LIEFERANT = "IDS" Then Return False
If MyDatagridview1.Rows.Count = 0 Then If MyDatagridview1.Rows.Count = 0 Then
MsgBox("Keine Daten zum Setzen vorhanden!") MsgBox("Keine Daten zum Setzen vorhanden!")
Return False Return False
End If End If
For each row In MyDatagridview1.Rows For Each row In MyDatagridview1.Rows
Dim kundeOhneRabatt = True Dim kundeOhneRabatt = True