This commit is contained in:
2020-08-04 16:35:31 +02:00
parent 853d96140f
commit 41b13fe4b0
38 changed files with 603 additions and 256 deletions

View File

@@ -29,6 +29,9 @@
Dim bis As Date = CDate(datKto.Value)
Dim betrag As Double = 0.0
Dim oItem As MyListItem = CType(cboBrg.SelectedItem, MyListItem)
If BRG.deleteBrgAufschubAusgleichsbetrag(oItem.Value) Then
Select Case DirectCast(cboBrg.SelectedItem, MyListItem).Value
Case 1