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

RKSV, Leihgeldkasse

Browse Source
This commit is contained in:
d.breimaier
2025-11-05 11:53:54 +01:00
parent 31739098ba
commit 4c4c353d3a
2 changed files with 4 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/Classes/cRKSV.vb
View File

@@ -2372,11 +2372,11 @@ Public Class cRKSV
' Buchung im EABeleg eintragen. ' Buchung im EABeleg eintragen.
'################ '################
If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then 'If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then
Dim stapelbuchung As Boolean = True ' Dim stapelbuchung As Boolean = True
'createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List) ' 'createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List)
End If 'End If
BELEG.gebucht = True BELEG.gebucht = True
BELEG.SAVE() BELEG.SAVE()

38
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

@@ -428,15 +428,6 @@ Public Class frmNacherfassungLeihgeld
End If End If
'If cbxOP_sofort_buchen.Checked Then
' If Not createSyskaBuchung(PERSONAL_LG, BELEG, True) Then
' MsgBox("Fehler beim Erzeugen der Buchung in der FIBU")
' End If
'End If
Me.Close() Me.Close()
Me.DialogResult = Windows.Forms.DialogResult.OK Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
@@ -810,33 +801,4 @@ Public Class frmNacherfassungLeihgeld
txtAuftrProvision.Enabled = sender.checked txtAuftrProvision.Enabled = sender.checked
End Sub End Sub
Private Function getSachkonto(pos As EABelegPositionen)
' Dim SQL = New VERAG_PROG_ALLGEMEIN.SQL
' Dim RE As New cRechnungsausgang(pos.RK_ID)
' If RE.RechnungsLandKz Is Nothing OrElse RE.RechnungsLandKz Is DBNull.Value OrElse RE.RechnungsLandKz.trim = "" _
' OrElse RE.RechnungsLandKz = "A" _
' OrElse RE.RechnungsLandKz = "AT" Then
' If CBool(pos.Steuerpflichtig) Then
' getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
' Else
' getSachkonto = If(SQL.DLookup("[SachkontoInlandSteuerfrei]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
' End If
' Else
' If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & RE.RechnungsLandKz & "'", "FMZOLL", False) Then
' If pos.LeistungsNr Then
' getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerpflichtig]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
' Else
' getSachkonto = If(SQL.DLookup("[SachkontoEUSteuerfrei]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
' End If
' Else
' getSachkonto = If(SQL.DLookup("[Sachkonto3Land]", "Leistungen", "[LeistungsNr]=" & pos.LeistungsNr, "FMZOLL"), "")
' End If
' End If
' If getSachkonto = "" Then getSachkonto = "4000" 'DEFAULT!
End Function
End Class End Class