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

Timas, Fakt -> Leihgeldkasse, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-01-09 17:08:34 +01:00
parent 4da7d188d1
commit dc62abfd64
16 changed files with 154 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -1604,7 +1604,7 @@ Public Class frmBelegNeu
If isLeihgeldeinzahlung Then
If BELEG.KundenNr > 0 Then
Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = 7", "FIBU") 'ATILLA MANDANT!'
Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!'
If KundenKontoArchiv <> "" Then
MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!")
Exit Sub