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