neu
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user