''' <summary>
    ''' Zweite Berechnung :
    ''' => Berechnet den Nettoumsatz und trägt ihn in Textbox ein.
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub CalcNettoPrice()
        Dim decsep As String =  _
          System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDe_
          cimalSeparator
 
        edAngebotspriceWert.Text = edAngebotspriceWert.Text.Replace(".", decsep)
        edRabattWert.Text = edRabattWert.Text.Replace(".", decsep)
 
        Dim AngebotsPValue, RabattValue As Decimal
        'Kontrolle: "Sind Zahlen gültig ?"
        'FOLGT
 
        AngebotsPValue = edRabattWert.Text.Replace(".", decsep)
        RabattValue = edRabattWert.Text.Replace(".", decsep)
 
        edNettoUmsatzWert.Text = Format(AngebotsPValue - RabattValue, "0.00")
    End Sub