From bdea8abffa18c9edac2558736172a06e9d5934b4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 13 Jan 2026 08:21:38 +0100 Subject: [PATCH] nacherfassung Leihgeld --- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 1d171415..3592e66f 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -313,11 +313,18 @@ Public Class frmNacherfassungLeihgeld Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') 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!' Select Case KundenKontoArchiv - Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden (799999)!") : Exit Sub 'inaktiv - Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU nicht vorhanden, bitte andere KundenNr verwenden (799999)!") : Exit Sub 'nicht vorhanden + Case "I" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'inaktiv + Case "" : MsgBox("ACHTUNG, der Debitor mit der Nr: " & BELEG.KundenNr & " ist in der Syska-FIBU nicht vorhanden, bitte andere KundenNr verwenden (799999)!") : Me.Cursor = Cursors.Default : Exit Sub 'nicht vorhanden Case Else 'aktiv -> OK End Select + If BELEG.KundenNr > 0 Then + Dim kunden As New cKunde(BELEG.KundenNr) + If Not kunden.hasEntry Then + MsgBox("ACHTUNG, KundenNr existiert nicht!" & vbNewLine & "Der Kunde muss angelegt werden!") : Me.Cursor = Cursors.Default : Exit Sub + End If + End If + End If BELEG.POS.Clear()