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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-01 16:11:12 +02:00
parent 7f5057dc3e
commit 4b6d595a89
48 changed files with 1650 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -56,6 +56,7 @@ Public Class frmKundenUebersichtZOLL
'line under InitializeComponent(), and it will work;
InitializeComponent()
MenuStripSDL.Renderer = New MyRenderer()
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
@@ -67,8 +68,9 @@ Public Class frmKundenUebersichtZOLL
InitializeComponent()
Me.kdNr = KdNr
MenuStripSDL.Renderer = New MyRenderer()
Catch ex As Exception
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
@@ -104,6 +106,7 @@ Public Class frmKundenUebersichtZOLL
timerOP.Interval = 500
timerOP.Enabled = False
System.Console.WriteLine("QQQQQQQ2")
lblTESTSystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then
@@ -165,11 +168,11 @@ Public Class frmKundenUebersichtZOLL
' BERECHTIGUNEN = cBerechtignungenFunctions.loadBerechtigungen(USRID)
AddHandler KdSearchBox1.PropertyChanged, Sub()
' BERECHTIGUNEN = cBerechtignungenFunctions.loadBerechtigungen(USRID)
AddHandler KdSearchBox1.PropertyChanged, Sub()
Try
setKD(KdSearchBox1.KdNr_value)
Catch ex As Exception
setKD(KdSearchBox1.KdNr_value)
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
End Try
End Sub