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

Kundenkontakte, Mitarbeiter, Bonitaetsauskungt, FIBU, Creditsafe

Browse Source
This commit is contained in:
d.breimaier
2024-09-12 09:44:32 +02:00
parent 5f65123413
commit 708bdcf5d1
9 changed files with 289 additions and 241 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -74,8 +74,8 @@ Public Class usrCntlBH
Dim dt = SQL.loadDgvBySql(getOPSql(), "FMZOLL")
dt.Columns.Add("VersicherungsBetrag", Type.GetType("System.Double"))
For Each r In dt.Rows
r("VersicherungsBetrag") = getVersBetrag(r("Risiko"), r("Versicherungssumme"), r("GemeldeterBetrag"))
Next
r("VersicherungsBetrag") = getVersBetrag(r("Risiko"), r("Versicherungssumme"), r("GemeldeterBetrag"), )
Next
dt.Columns("VersicherungsBetrag").ColumnName = "V-Betrag"
dt.Columns("Versicherungssumme").ColumnName = "V-Summe"
dt.Columns("Vorauszahlung").ColumnName = "VZ"
@@ -128,8 +128,6 @@ Public Class usrCntlBH
sqlStr &= IIf(cbxBankgarantieInfo.Checked, "BankgarantieBetrag, BankgarantieGültigBis,", "")
sqlStr &= " Versicherungssumme "
' sqlStr &= " CASE WHEN LfdSaldo>" & GrenzeVersicherung & " THEN CASE WHEN ISNUMERIC(Versicherungssumme )=1 THEN cast(Versicherungssumme as decimal(16,2)) ELSE null END ELSE null END as Versicherungssumme "
' If cbxOPUmsatz.Checked Then sqlStr &= " ,(SELECT SUM(SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag) as UmsatzRg FROM [Rechnungsausgang] WHERE Kunden.KundenNrZentrale=[Rechnungsausgang].KundenNrZentrale AND RechnungsDatum between '01.06.2016' and '01.06.2017') as UmsatzRg "
@@ -454,37 +452,39 @@ Public Class usrCntlBH
Me.Cursor = Cursors.Default
End Sub
Function getVersBetrag(risiko, Versicherungssumme, GemeldeterBetrag) As Double
Function getVersBetrag(risiko, Versicherungssumme, GemeldeterBetrag, Optional versicherungGekündigt = False) As Double
If risiko Is DBNull.Value Then Return 0
Dim versBetrag As Double = 0
If risiko <= 0 Then
versBetrag = 0
ElseIf cbxBagatellgrenze.Checked And risiko <= txtBagatellgrenzeBei._value Then
versBetrag = 0 ' kleiner Bagatellgrenze
ElseIf risiko <= GrenzeVersicherung Then
If Versicherungssumme IsNot DBNull.Value Then
If risiko > CDbl(Versicherungssumme) Then
versBetrag = Versicherungssumme
Else
versBetrag = risiko
End If
Else
versBetrag = risiko
End If
Else
If Versicherungssumme IsNot DBNull.Value Then
If risiko > CDbl(Versicherungssumme) Then
versBetrag = Versicherungssumme
Else
versBetrag = risiko
End If
Else
versBetrag = GrenzeVersicherung
End If
End If
If versicherungGekündigt Then Return 0
Return If(GemeldeterBetrag > 0, GemeldeterBetrag, versBetrag)
Dim versBetrag As Double = 0
If risiko <= 0 Then
versBetrag = 0
ElseIf cbxBagatellgrenze.Checked And risiko <= txtBagatellgrenzeBei._value Then
versBetrag = 0 ' kleiner Bagatellgrenze
ElseIf risiko <= GrenzeVersicherung Then
If Versicherungssumme IsNot DBNull.Value Then
If risiko > CDbl(Versicherungssumme) Then
versBetrag = Versicherungssumme
Else
versBetrag = risiko
End If
Else
versBetrag = risiko
End If
Else
If Versicherungssumme IsNot DBNull.Value Then
If risiko > CDbl(Versicherungssumme) Then
versBetrag = Versicherungssumme
Else
versBetrag = risiko
End If
Else
versBetrag = GrenzeVersicherung
End If
End If
Return If(GemeldeterBetrag > 0, GemeldeterBetrag, versBetrag)
End Function
Private Sub cbxOPUmsatz_CheckedChanged(sender As Object, e As EventArgs) Handles cbxOPUmsatz.CheckedChanged