From 33263dcc6d73c9d8c9ccc0d4542c4b317de99572 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 13 Nov 2024 08:41:56 +0100 Subject: [PATCH] benachrichtigung --- SDL/mdm/frmMDMDatenverarbetiung.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 4815b900..5be21a7e 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -4072,16 +4072,16 @@ Public Class frmMDMDatenverarbetiung End Function 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 MsgBox("Keine Daten zum Setzen vorhanden!") Return False End If - For each row In MyDatagridview1.Rows + For Each row In MyDatagridview1.Rows Dim kundeOhneRabatt = True @@ -4090,7 +4090,7 @@ Public Class frmMDMDatenverarbetiung trans.Kz = "R" If trans.TransactionVolume <> 0 Then - trans.avpriceexclVAT = trans.TotalNetAmount / trans.TransactionVolume + trans.avpriceexclVAT = trans.TotalNetAmount / trans.TransactionVolume End If If Not IsDBNull(row.Cells("Kunde.CustomerCode").Value) AndAlso CInt(row.Cells("Kunde.CustomerCode").Value) > 0 Then