Sicherheitseinbehalt auf Rechnung ausgeben

'////////////////////////////////////////////////////////////////////////////////////
'Errechnen des Sicherheitseinbehaltes
'////////////////////////////////////////////////////////////////////////////////////
Dim sicherheitseinbehalt_text as string
Dim seb_prozent_text as String
Dim seb_rg_summe_text as string
Dim seb_einbehalt_text as string
Dim seb_auftr_rg_summe_text as string
 
Function seb(seb_prozent_text as string,seb_rg_summe_text as string ,seb_einbehalt_text as string, seb_auftr_rg_summe_text as string)
 
    Dim seb_auftr_prozentstring as string = Get(auftr_freifeld3)
    Dim seb_prozent_zahl as numeric = 0
 
    if seb_auftr_prozentstring = "X5" then
        seb_prozent_zahl = 5
        seb_prozent_text = "5%"
    end if
    if seb_auftr_prozentstring = "X6" then
        seb_prozent_zahl = 6
        seb_prozent_text = "6%"
    end if
    if seb_auftr_prozentstring = "X7" then
        seb_prozent_zahl = 7
        seb_prozent_text = "7%"
    end if
    if seb_auftr_prozentstring = "X8" then
        seb_prozent_zahl = 8
        seb_prozent_text = "8%"
    end if
    if seb_auftr_prozentstring = "X9" then
        seb_prozent_zahl = 9
        seb_prozent_text = "9%"
    end if
    if seb_auftr_prozentstring = "X10" then
        seb_prozent_zahl = 10
        seb_prozent_text = "10%"
    end if
 
    Dim seb_einbehalt_zahl as numeric
    Dim seb_rg_summe_zahl as numeric
 
    if seb_prozent_zahl <> 0 then
        seb_einbehalt_zahl = GetNumeric(AUFTR_RG_BETRAG) * seb_prozent_zahl
        seb_einbehalt_zahl = seb_einbehalt_zahl / 100
        seb_rg_summe_zahl = GetNumeric(AUFTR_RG_BETRAG)- seb_einbehalt_zahl
        seb_einbehalt_text = FormatNumeric( "%.2f €" , seb_einbehalt_zahl )
        seb_rg_summe_text = FormatNumeric( "%.2f €" , seb_rg_summe_zahl )
        seb_auftr_rg_summe_text = FormatNumeric( "%.2f €" , GetNumeric(AUFTR_RG_BETRAG))
 
        sicherheitseinbehalt_text = "\nDer vereinbarte Sicherheitseinbehalt nach § 17 VOB/B, von " + seb_prozent_text +  " auf die Rechnungsgesamtsumme, entspricht " + seb_einbehalt_text + " und wurde bei der Rechnungslegung nicht berücksichtigt. Daraus ergibt sich ein vorläufiger Forderungsbetrag von " + seb_rg_summe_text + "\nDer Auftraggeber hat eine nicht verwertete Sicherheit für die Vertragserfüllung zum vereinbarten Zeitpunkt, spätestens nach Abnahme und Stellung der Sicherheit für Mängelansprüche zurückzugeben und eine nicht verwertete Sicherheit für Mängelansprüche nach Ablauf von 4 Jahren, wenn kein anderer Rückgabezeitpunkt vereinbart worden ist."
    end if
end function

'////////////////////////////////////////////////////////////////////////////////////
'------------Sicherheitseinbehalt ausgeben-----------------
'////////////////////////////////////////////////////////////////////////////////////
 
    if get(auftr_freifeld3) <> "" then
        seb(seb_prozent_text,seb_rg_summe_text,seb_einbehalt_text,seb_auftr_rg_summe_text)
        TL(sicherheitseinbehalt_text)
    end if