benachrichtigung

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