From c059a5c3c26c8a76db7572ec1806c659ed73268d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 11 Nov 2026 10:58:46 +0100 Subject: [PATCH] eventHaendler fix --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/kunden/frmKundenblatt.vb | 28 ++++++++++++++++++---------- 2 files changed, 20 insertions(+), 12 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index e50ae462..c214f7bb 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index 2603e04e..27a24efb 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -1,8 +1,6 @@ Imports System.Data.SqlClient Imports System.Globalization Imports System.Web.UI.WebControls.Expressions -Imports com.sun.xml.internal.rngom -Imports GrapeCity.Viewer.Common.Model Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN @@ -374,12 +372,19 @@ Public Class frmKundenblatt CNTL_KUNDE_FULL.Enabled = True CNTL_KUNDE_FULL.init(kdNr, True) - 'If IsNumeric(kdNr) AndAlso kdNr >= 0 Then - If FilialeNr > 0 Then CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr) End If - 'End If + + + AddHandler CNTL_KUNDE_FULL.KD_SAVED, Sub(kdnrTMP As Integer) + + If Me.kdNr < 0 And kdnrTMP > 0 Then + KdSearchBox1.KdNr = kdnrTMP + End If + End Sub + + @@ -398,12 +403,15 @@ Public Class frmKundenblatt CNTL_KUNDE_FULL.Enabled = True If FilialeNr > 0 Then - CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr) - End If + CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr) + End If - 'Else - ' CNTL_KUNDE_FULL.Enabled = False - 'End If + AddHandler CNTL_KUNDE_FULL.KD_SAVED, Sub(kdnrTMP As Integer) + + If Me.kdNr < 0 And kdnrTMP > 0 Then + KdSearchBox1.KdNr = kdnrTMP + End If + End Sub End If