edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

benachrichtigung

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-11-13 08:41:56 +01:00
parent 03e06bbb63
commit 33263dcc6d
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -4072,16 +4072,16 @@ Public Class frmMDMDatenverarbetiung
End Function End Function
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
@@ -4090,7 +4090,7 @@ Public Class frmMDMDatenverarbetiung
trans.Kz = "R" trans.Kz = "R"
If trans.TransactionVolume <> 0 Then If trans.TransactionVolume <> 0 Then
trans.avpriceexclVAT = trans.TotalNetAmount / trans.TransactionVolume trans.avpriceexclVAT = trans.TotalNetAmount / trans.TransactionVolume
End If End If
If Not IsDBNull(row.Cells("Kunde.CustomerCode").Value) AndAlso CInt(row.Cells("Kunde.CustomerCode").Value) > 0 Then If Not IsDBNull(row.Cells("Kunde.CustomerCode").Value) AndAlso CInt(row.Cells("Kunde.CustomerCode").Value) > 0 Then