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

eventHaendler fix

Browse Source
This commit is contained in:
d.breimaier
2026-11-11 10:58:46 +01:00
parent a5e1bd9672
commit c059a5c3c2
2 changed files with 20 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.9.0")> <Assembly: AssemblyVersion("1.5.9.1")>
<Assembly: AssemblyFileVersion("1.5.9.0")> <Assembly: AssemblyFileVersion("1.5.9.1")>

28
SDL/kunden/frmKundenblatt.vb
View File

@@ -1,8 +1,6 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Globalization Imports System.Globalization
Imports System.Web.UI.WebControls.Expressions Imports System.Web.UI.WebControls.Expressions
Imports com.sun.xml.internal.rngom
Imports GrapeCity.Viewer.Common.Model
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -374,12 +372,19 @@ Public Class frmKundenblatt
CNTL_KUNDE_FULL.Enabled = True CNTL_KUNDE_FULL.Enabled = True
CNTL_KUNDE_FULL.init(kdNr, True) CNTL_KUNDE_FULL.init(kdNr, True)
'If IsNumeric(kdNr) AndAlso kdNr >= 0 Then
If FilialeNr > 0 Then If FilialeNr > 0 Then
CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr) CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr)
End If 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 CNTL_KUNDE_FULL.Enabled = True
If FilialeNr > 0 Then If FilialeNr > 0 Then
CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr) CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr)
End If End If
'Else AddHandler CNTL_KUNDE_FULL.KD_SAVED, Sub(kdnrTMP As Integer)
' CNTL_KUNDE_FULL.Enabled = False
'End If If Me.kdNr < 0 And kdnrTMP > 0 Then
KdSearchBox1.KdNr = kdnrTMP
End If
End Sub
End If End If